+2007-07-14 Eric Botcazou <ebotcazou@libertysurf.fr>
+
+ * gcc.dg/20001013-1.c: Move to gcc.target/sparc.
+ * gcc.dg/20001101-1.c: Likewise.
+ * gcc.dg/20001102-1.c: Likewise.
+ * gcc.dg/20020116-2.c: Likewise.
+ * gcc.dg/20020416-1.c: Likewise.
+ * gcc.dg/sparc-constant-1.c: Likewise.
+ * gcc.dg/sparc-dwarf2.c: Likewise.
+ * gcc.dg/sparc-frame-1.c: Likewise.
+ * gcc.dg/sparc-getcontext-1.c: Likewise.
+ * gcc.dg/sparc-loop-1.c: Likewise.
+ * gcc.dg/sparc-reg-1.c: Likewise.
+ * gcc.dg/sparc-ret.c: Likewise.
+ * gcc.dg/sparc-trap-1.c: Likewise.
+ * gcc.dg/ultrasp10.c: Likewise.
+ * gcc.dg/ultrasp11.c: Likewise.
+ * gcc.dg/ultrasp1.c: Likewise.
+ * gcc.dg/ultrasp2.c: Likewise.
+ * gcc.dg/ultrasp3.c: Likewise.
+ * gcc.dg/ultrasp4.c: Likewise.
+ * gcc.dg/ultrasp5.c: Likewise.
+ * gcc.dg/ultrasp6.c: Likewise.
+ * gcc.dg/ultrasp7.c: Likewise.
+ * gcc.dg/ultrasp8.c: Likewise.
+ * gcc.dg/ultrasp9.c: Likewise.
+ * gcc.dg/splet-1.c: Delete.
+
2007-07-14 Daniel Franke <franke.daniel@gmail.com>
PR fortran/32724
+++ /dev/null
-/* { dg-do run { target { sparc*-*-* && ultrasparc_hw } } } */
-/* { dg-options "-O2 -mcpu=ultrasparc -mvis" } */
-
-extern void abort (void);
-extern void exit (int);
-
-int l;
-
-int baz (double x)
-{
- return l == 0;
-}
-
-double bar (double x)
-{
- return 1.0;
-}
-
-double foo (double x)
-{
- if (l == -1 || baz (x)) return x;
- if (x < 0.0)
- return bar (x);
- else
- return 0.0;
-}
-
-union {
- double d;
- long long l;
-} x = { l: 0x7ff8000000000000LL }, y;
-
-main ()
-{
- unsigned int fsr = 0;
- __asm __volatile ("ld %0, %%fsr" : : "m" (fsr));
- y.d = foo (x.d);
- __asm __volatile ("st %%fsr, %0" : "=m" (fsr));
- if (x.l != y.l || (fsr & 0x3ff))
- abort ();
- exit (0);
-}
+++ /dev/null
-/* { dg-do run { target { sparc*-*-* && ultrasparc_hw } } } */
-/* { dg-options "-O2 -mcpu=ultrasparc -mvis" } */
-
-extern void abort (void);
-extern void exit (int);
-
-int foo(double a, int b, int c, double *d, int h)
-{
- int f, g;
- double e;
-
-l:
- f = (int) a;
- a -= (double) f;
- if (b == 1)
- {
- g = c;
- f += g;
- c -= g;
- }
- if (b == 2)
- {
- f++;
- h = c;
- }
- if (!h)
- {
- for (g = 0; g <= 10; g++)
- for (h = 0; h <= 10; h++)
- e += d [10 + g - h];
- goto l;
- }
- return f & 7;
-}
-
-int main()
-{
- if (foo(0.1, 1, 3, 0, 1) != 3)
- abort ();
- exit (0);
-}
+++ /dev/null
-/* { dg-do run { target { sparc*-*-* && ultrasparc_hw } } } */
-/* { dg-options "-O2 -mcpu=ultrasparc -mvis" } */
-
-extern void abort (void);
-extern void exit (int);
-
-int foo(double a, int b, int c, double *d, int h)
-{
- int f, g;
- double e;
-
-l:
- f = (int) a;
- a -= (double) f;
- if (b == 1)
- {
- g = c;
- f += g;
- c -= g;
- }
- if (b == 2)
- {
- f++;
- h = c;
- goto l;
- }
-
- asm volatile ("" : : :
- "f0", "f1", "f2", "f3", "f4", "f5", "f6", "f7",
- "f8", "f9", "f10", "f11", "f12", "f13", "f14", "f15",
- "f16", "f17", "f18", "f19", "f20", "f21", "f22", "f23",
- "f24", "f25", "f26", "f27", "f28", "f29", "f30", "f31");
-
- return f & 7;
-}
-
-int main()
-{
- if (foo(0.1, 1, 3, 0, 1) != 3)
- abort ();
- exit (0);
-}
+++ /dev/null
-/* This testcase ICEd on sparc64 because -mcpu=supersparc and implicit
- -m64 resulted in MASK_V8 and MASK_V9 to be set at the same time. */
-/* { dg-do compile } */
-/* { dg-options "" } */
-/* { dg-options "-mcpu=supersparc" { target sparc*-*-* } } */
-
-void bar (long *x, long *y);
-
-void foo (int x, long *y, long *z)
-{
- int i;
-
- for (i = x - 1; i >= 0; i--)
- {
- bar (z + i * 3 + 1, y);
- bar (z + i * 3 + 2, y);
- }
-}
+++ /dev/null
-/* PR bootstrap/6315 */
-/* { dg-do compile } */
-/* { dg-options "-O2" } */
-/* { dg-options "-O2 -mhard-quad-float" { target sparc*-*-* } } */
-/* { dg-options "-O2" { target sparclet*-*-* sparclite*-*-* sparc86x-*-* } } */
-
-void bar (const char *, ...);
-
-void
-foo (const char *x, long double y, int z)
-{
- if (z >= 0)
- bar (x, z, y);
- else
- bar (x, y);
-}
+++ /dev/null
-/* PR optimization/10876 */
-/* { dg-do compile { target sparc*-*-* } } */
-
-/* Verify that adding the constant 4096 is turned
- into substracting the constant -4096. */
-
-int foo(int a)
-{
- return a+4096;
-}
-
-/* { dg-final { scan-assembler "sub" } } */
+++ /dev/null
-/* PR target/10114 */
-/* Originator: James Troup <james@nocrew.org> */
-/* { dg-do compile { target sparc-*-linux* } } */
-/* { dg-options "-g -O1" } */
-
-extern __inline double sqrt (double __x)
-{
- register double __r;
- __asm ("fsqrtd %1,%0" : "=f" (__r) : "f" (__x));
- return __r;
-}
-
-static double our_skew, max_update_skew;
-
-static double Sqr(double x)
-{
- return x*x;
-}
-
-void REF_SetReference(double skew)
-{
- double previous_skew, new_skew;
- double old_weight, new_weight, sum_weight;
- double delta_freq1, delta_freq2;
- double skew1, skew2;
-
- previous_skew = our_skew;
- skew1 = sqrt((Sqr(delta_freq1) * old_weight + Sqr(delta_freq2) * new_weight) / sum_weight);
- skew2 = (previous_skew * old_weight + new_skew * new_weight) / sum_weight;
- our_skew = skew1 + skew2;
-}
+++ /dev/null
-/* PR target/24284 */
-/* { dg-do compile { target sparc*-*-* } } */
-/* { dg-options "-O -g" } */
-
-void do_run(void *ip)
-{
- char dummy[8192];
-
- __asm__("" : : "g"(dummy));
-
- goto *ip;
-}
+++ /dev/null
-/* PR middle-end/22127 */
-/* Testcase by <akr@m17n.org> */
-
-/* { dg-do run { target sparc*-sun-solaris2.* } } */
-/* { dg-require-effective-target ilp32 } */
-/* { dg-options "-O" } */
-
-typedef unsigned int size_t;
-extern int printf(const char *, ...);
-typedef unsigned char uint8_t;
-typedef unsigned int uint32_t;
-typedef unsigned int uint_t;
-typedef char *caddr_t;
-typedef int greg_t;
-typedef greg_t gregset_t[19];
-struct rwindow {
- greg_t rw_local[8];
- greg_t rw_in[8];
-};
-typedef struct gwindows {
- int wbcnt;
- greg_t *spbuf[31];
- struct rwindow wbuf[31];
-} gwindows_t;
-struct fpu {
- union {
- uint32_t fpu_regs[32];
- double fpu_dregs[16];
- } fpu_fr;
- struct fq *fpu_q;
- uint32_t fpu_fsr;
- uint8_t fpu_qcnt;
- uint8_t fpu_q_entrysize;
- uint8_t fpu_en;
-};
-typedef struct fpu fpregset_t;
-typedef struct {
- unsigned int xrs_id;
- caddr_t xrs_ptr;
-} xrs_t;
-typedef struct {
- gregset_t gregs;
- gwindows_t *gwins;
- fpregset_t fpregs;
- xrs_t xrs;
- long filler[19];
-} mcontext_t;
-typedef struct {
- unsigned int __sigbits[4];
-} sigset_t;
-typedef struct sigaltstack {
- void *ss_sp;
- size_t ss_size;
- int ss_flags;
-} stack_t;
-typedef struct ucontext ucontext_t;
-struct ucontext {
- uint_t uc_flags;
- ucontext_t *uc_link;
- sigset_t uc_sigmask;
- stack_t uc_stack;
- mcontext_t uc_mcontext;
- long uc_filler[23];
-};
-extern int getcontext(ucontext_t *);
-extern int setcontext(const ucontext_t *);
-
-int flag;
-ucontext_t cont;
-int pad[100];
-typedef void (*fun_t)(int);
-fun_t p0,p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12;
-
-int global;
-
-extern void abort(void);
-
-void h1(int v)
-{
- global = v;
-}
-
-void h2(int v)
-{
- if (v != 1)
- abort();
-}
-
-void f(void)
-{
- flag = 1;
- setcontext(&cont);
-}
-
-int g(void)
-{
- int ret;
-
- flag = 0;
- getcontext(&cont);
- ret = flag;
- if (ret == 0) {
- h1 (flag);
- p0 = p1 = p2 = p3 = p4 = p5 = p6 = p7 = p8 = h1;
- f();
- p0(ret); p1(ret); p2(ret); p3(ret); p4(ret); p5(ret); p6(ret); p7(ret); p8(ret);
- }
- else {
- h2 (flag);
- }
- return ret;
-}
-
-int main(void)
-{
- g();
- return 0;
-}
+++ /dev/null
-/* PR optimization/10157 */
-/* Originator: Peter van Hoof <p.van-hoof@qub.ac.uk> */
-/* { dg-do compile { target sparc*-*-* } } */
-/* { dg-options "-O2 -ffast-math" } */
-
-/* Verify that the loop optimizer doesn't
- emit invalid reg-to-reg copy insns. */
-
-void g() {
- while(1) {
- int i,n;
- double p,r;
- for( i=0; i < n; i++ )
- if( p > 1. )
- for( i=0; i < n; i++ )
- r += 2.;
- }
-}
+++ /dev/null
-/* PR middle-end/20263 */
-
-/* { dg-do assemble { target sparc64-*-* } } */
-/* { dg-options "" } */
-
-register void *tp __asm__("%g7");
-
-void set_tp(void)
-{
- tp = 0;
-}
+++ /dev/null
-/* Copyright (C) 2001 Free Software Foundation.
-
- Making sure that Ultrasparc return instructions do not read
- below the stack. */
-
-/* { dg-do compile { target sparc-*-* } } */
-/* { dg-options "-mcpu=ultrasparc -O" } */
-
-
-int bar (int a, int b, int c, int d, int e, int f, int g, int h)
-{
- int res;
-
- toto (&res);
- return h;
-}
-/* { dg-final { global compiler_flags; if ![string match "*-m64 *" $compiler_flags] { scan-assembler "return\[ \t\]*%i7\\+8\n\[^\n\]*ld\[ \t\]*\\\[%sp\\+96\\\]" } } } */
-
-int bar2 ()
-{
- int res;
-
- toto (&res);
- return res;
-}
-/* { dg-final { global compiler_flags; if ![string match "*-m64 *" $compiler_flags] { scan-assembler "return\[ \t\]*%i7\\+8\n\[^\n\]*nop" } } } */
+++ /dev/null
-/* PR target/15693 */
-/* { dg-do compile { target sparc*-*-* } } */
-/* { dg-options "-O2" } */
-
-/* This used to fail on SPARC at -O2 because the combiner
- produces a compare insn that was not rematched by the
- compare expander. */
-
-static __inline__ __attribute__ ((always_inline))
-int page_mapping (unsigned flags)
-{
- if (1u & (flags >> 16))
- return 1;
- return 0;
-}
-void install_page (unsigned flags)
-{
- if (__builtin_expect (!page_mapping (flags), 0))
- __builtin_trap ();
-}
+++ /dev/null
-/* Test inl-sparc.h. */
-
-/* { dg-do run { target sparclet-*-* } } */
-/* { dg-options -mcpu=sparclet } */
-
-#include <inl-sparc.h>
-
-main ()
-{
- int a,b;
-
- a = scan (1, 2);
- if (a != 3)
- abort ();
-
- b = shuffle (4, 5);
- if (b != 6)
- abort ();
-
- exit (0);
-}
+++ /dev/null
-/* Simplified from testcase by David Staepelaere <staapa@ultimatech.com> */
-
-/* { dg-do compile } */
-/* { dg-options "" } */
-/* { dg-options -mcpu=ultrasparc { target sparc-*-* } } */
-
-int foo(long long y) {
- return -1 * y;
-}
+++ /dev/null
-/* PR target/11965 */
-/* Originator: <jk@tools.de> */
-/* { dg-do run { target { sparc*-*-* && ultrasparc_hw } } } */
-/* { dg-options "-O -mcpu=ultrasparc" } */
-
-/* This used to fail on 32-bit Ultrasparc because GCC emitted
- an invalid shift instruction. */
-
-
-static inline unsigned int shift(int n, unsigned int value)
-{
- return value << n;
-}
-
-unsigned int val = 1;
-
-int main(void)
-{
- int i;
-
- for (i = 0; i < 4; i++)
- val = shift(32, val);
-
- return 0;
-}
+++ /dev/null
-/* PR target/17245 */
-/* Origin: <aaronw@net.com> */
-/* Testcase by Christian Ehrhardt <ehrhardt@mathematik.uni-ulm.de> */
-/* { dg-do compile { target sparc*-*-* } } */
-/* { dg-options "-O -mcpu=v9" } */
-
-/* This used to fail on 32-bit Ultrasparc because reload was emitting
- a move insn that doesn't satisfy its constraints. */
-
-int n;
-double range ;
-double bin ;
-double wmean;
-
-double f ()
-{
- int i ;
- long double W = 0 ;
- for ( i = 0 ; i < n ; i ++) {
- double xi = range;
- double wi = bin;
- W += wi ;
- wmean += ( xi - wmean) * ( wi / W);
- }
-}
+++ /dev/null
-/* Copyright (C) 1999 Free Software Foundation
- by Alexandre Oliva <oliva@lsd.ic.unicamp.br>
- Simplified from libg++/src/Fix16.cc */
-
-/* { dg-do compile } */
-/* { dg-options "" } */
-/* { dg-options "-O0" { target sparc64-*-* sparcv9-*-* } } */
-
-short foo() {
- short i = (short)(1<<15);
- return i;
-}
+++ /dev/null
-/* { dg-options "" } */
-/* { dg-options "-mcpu=ultrasparc -mv8plus" { target sparc-*-* } } */
-
-extern void abort (void);
-extern void exit (int);
-
-unsigned long long foo (unsigned long long x)
-{
- return 0x73500000735LL * x;
-}
-
-unsigned long long a, b;
-unsigned long p;
-
-unsigned long long bar (void)
-{
- unsigned long long c = a | b;
- return 0x73500000735LL * c;
-}
-
-unsigned long long baz (void)
-{
- unsigned long long c = (p + 345) & -2;
- return c * a;
-}
-
-main ()
-{
- if (foo (0x56789LL) != 0x26f32e5d26f32e5dLL)
- abort ();
- a = 0x8000000080000000LL;
- b = 0x0000000180000001LL;
- if (bar () != 0x120480000735LL)
- abort ();
- p = 0xffffffff;
- if (baz () != 0xac00000000LL)
- abort ();
- exit (0);
-}
+++ /dev/null
-/* Simplified from PR target/5309. */
-/* { dg-do compile } */
-/* { dg-options "-O2" } */
-/* { dg-options "-O2 -mcpu=ultrasparc" { target sparc64-*-* sparcv9-*-* } } */
-
-#if __INT_MAX__ > 32767
-#define PTR_TYPE long
-#else
-/* For 16-bit ports a long is a 32-bit quantity. So you cannot
- cast a 32-bit long integer into a pointer which will only be
- 16-bits long. */
-#define PTR_TYPE int
-#endif
-
-extern PTR_TYPE bar (unsigned int);
-
-PTR_TYPE
-foo (PTR_TYPE x, unsigned int y)
-{
- return *(((PTR_TYPE *) (bar (y) - 1)) + 1 + (x >> 2) % 359);
-}
+++ /dev/null
-/* PR target/10072 */
-/* Originator: Peter van Hoof <p.van-hoof@qub.ac.uk> */
-/* { dg-do compile { target sparc-*-* } } */
-/* { dg-options "-std=c99 -O1 -mcpu=ultrasparc -ffast-math" } */
-
-void p(int v)
-{
- int i=v,j;
- float a,b,c,x[i];
-
- x[i] = (a/(((b)>(c)) ? (b) : (c)) - (((i) == (j)) ? 1.f : 0.f));
-}
+++ /dev/null
-/* PR target/7784 */
-/* Originator: Peter van Hoof <p.van-hoof@qub.ac.uk> */
-/* { dg-do compile { target sparc-*-* } } */
-/* { dg-options "-O2 -mcpu=ultrasparc" } */
-
-typedef struct
-{
- float EnergyErg;
- float ots;
-} EmLine;
-
-extern const int ipH_LIKE ;
-extern const int ipHYDROGEN ;
-extern const int ipH1s;
-extern const int ipH2s;
-extern const int ipH2p;
-
-extern EmLine ****EmisLines;
-
-typedef struct
-{
- long n;
- long s;
- long l;
-} Elevels;
-
-extern struct t_iso
-{
- float ***Pop2Ion;
- long int numLevels[2][30L];
-} iso;
-
-extern struct t_LineSave
-{
- long int nsum;
- long int ndsum;
- long int nComment;
- long int npxdd;
- long int ipass;
- char chHoldComments[10][200];
-} LineSave;
-
-extern struct t_hydro
-{
- int lgHydEmiss;
- float **pestrk ;
-} hydro;
-
-extern struct t_dense
-{
- double DensityLaw[10];
- float frad[500];
- float fhden[500];
- float den0;
- double eden;
-} dense;
-
-extern struct t_abund
-{
- float xIonFracs[30L +3][30L +1];
-} abund;
-
-extern struct t_CaseBHS
-{
- long int nDensity[2][8] , ntemp[2][8] , ncut[2][8] ;
- int lgHCaseBOK[2][8];
-} CaseBHS ;
-
-extern struct t_smbeta
-{
- float SimHBeta,
- cn4861,
- cn1216,
- sv4861,
- sv1216;
-} smbeta;
-
-extern struct t_phycon
-{
- float te;
-} phycon;
-
-
-extern struct t_sphere
-{
- int lgSphere;
- float covgeo;
-} sphere;
-
-void linadd(double xInten, float wavelength, char *chLab, char chInfo);
-
-extern struct t_radiusVar
-{
- int lgDrNeg;
- double dVeff;
-} radius;
-
-void lines_hydro(void)
-{
- long int i, nelem, ipHi, ipLo;
- double hbetab, em , EmisFac, pump;
- char chLabel[5];
-
- linadd(abund.xIonFracs[ipHYDROGEN][1]*iso.Pop2Ion[ipH_LIKE][ipHYDROGEN][3]*hydro.pestrk[3][2]*3.025e-12, 6563,"Strk",'i');
-
- linadd(abund.xIonFracs[ipHYDROGEN][1]*iso.Pop2Ion[ipH_LIKE][ipHYDROGEN][4]*hydro.pestrk[4][2]*4.084e-12, 4861,"Strk",'i');
-
- linadd(abund.xIonFracs[ipHYDROGEN][1]*iso.Pop2Ion[ipH_LIKE][ipHYDROGEN][4]*hydro.pestrk[4][3]*1.059e-12, 18751,"Strk",'i');
-
- linadd(abund.xIonFracs[ipHYDROGEN][1]*iso.Pop2Ion[ipH_LIKE][ipHYDROGEN][5]*hydro.pestrk[5][4]*4.900e-13, 40512,"Strk",'i');
-
- ((void)((LineSave.ipass <1 || EmisLines[ipH_LIKE][ipHYDROGEN][ipH2p][ipH1s].ots>= 0.) || (__assert("LineSave.ipass <1 || EmisLines[ipH_LIKE][ipHYDROGEN][ipH2p][ipH1s].ots>= 0.", "lines_hydro.c", 118), 0)));
-
- linadd(EmisLines[ipH_LIKE][ipHYDROGEN][3][ipH2s].ots*EmisLines[ipH_LIKE][ipHYDROGEN][3][ipH2s].EnergyErg, 6563,"Dest",'i');
-
- linadd(EmisLines[ipH_LIKE][ipHYDROGEN][5][4].ots*EmisLines[ipH_LIKE][ipHYDROGEN][5][4].EnergyErg,40516, "Dest",'i');
-
- smbeta.SimHBeta = smbeta.SimHBeta/(float)radius.dVeff*sphere.covgeo;
-
- linadd(smbeta.SimHBeta,4861,"Q(H)",'i');
-
- smbeta.SimHBeta = smbeta.SimHBeta*(float)radius.dVeff/sphere.covgeo;
-
- for( nelem=0; nelem < 30L; nelem++ )
- {
- int iCase;
- for( iCase=0; iCase<2; ++iCase )
- {
- char chAB[2]={'A','B'};
- char chLab[5]="Ca ";
-
- for( ipLo=1+iCase; ipLo<(((6)<(iso.numLevels[ipH_LIKE][nelem])) ? (6) : (5)); ++ipLo )
- {
- for( ipHi=ipLo+1; ipHi< (((ipLo+5)<(iso.numLevels[ipH_LIKE][nelem])) ? (ipLo+5) : (iso.numLevels[ipH_LIKE][nelem])); ++ipHi )
- {
- float wl;
-
- hbetab = HSRate( ipHi,ipLo , nelem+1, phycon.te , dense.eden, chAB[iCase] );
- if( hbetab<=0. )
- CaseBHS.lgHCaseBOK[iCase][nelem] = 0;
-
- if( !hydro.lgHydEmiss )
- hbetab *= abund.xIonFracs[nelem][nelem+1]*dense.eden;
-
- linadd(hbetab,wl,chLab,'i' );
- }
- }
- }
- }
-}
+++ /dev/null
-/* PR c/8281 */
-/* Originator: TANIGUCHI Yasuaki <yasuaki@k8.dion.ne.jp> */
-/* { dg-do compile { target sparc-*-* } } */
-/* { dg-require-effective-target fpic } */
-/* { dg-options "-O2 -mcpu=ultrasparc -fPIC" } */
-
-static const double bp = 1.0, dp_l[] = { 0.0 };
-
-double __ieee754_pow(double x, double y)
-{
- union {
- int lo;
- double d;
- }uz;
-
- double y1,t1,p_h,t,z;
- double z_h,z_l,p_l;
- double t2,r,s,u,v,w;
- int i = 0;
-
- double s_h,t_h;
- double s2,s_l,t_l;
-
-
- v = 1.0/(v+bp);
- uz.d = s_h = s = u*v;
- uz.lo = 0;
- s_h = uz.d;
- uz.d = t_h;
- uz.lo = 3;
- t_h = uz.d;
- s_l = v*((u-s_h*t_h)-s_h*t_l);
- s2 = s*s;
- r = s2* s2* (1.1+s2*(1.2+s2*(1.3+s2*(1.4+s2*(1.5+s2*1.6)))));
- s2 = s_h*s_h;
- uz.lo = 0;
- t_h = uz.d;
- t_l = r-((t_h-3.0)-s2);
- v = s_l*t_h+t_l*s;
- p_l = v-(p_h-u);
- z_h = bp *p_h;
- z_l = bp*p_h+p_l*1.0+dp_l[i];
- t = (double)i;
- t1 = (((bp+z_l)+bp)+t);
- t2 = z_l-(((t1-t)-bp)-z_h);
- p_l = (y-y1)*t1+y*t2;
- z = p_l+p_h;
-
- return s*z;
-}
+++ /dev/null
-/* PR target/10067 */
-/* Originator: <dat94ali@ludat.lth.se> */
-/* { dg-do compile { target sparc*-*-* } } */
-/* { dg-options "-O2 -mtune=supersparc" { target sparc64-*-* sparcv9-*-* } } */
-
-struct _reent;
-
-extern unsigned long __malloc_trim_threshold;
-extern unsigned long __malloc_top_pad;
-
-int _mallopt_r(struct _reent *reent_ptr, int param_number, int value)
-{
- __malloc_lock(reent_ptr);
-
- switch(param_number)
- {
- case -1:
- __malloc_trim_threshold = value;
- __malloc_unlock(reent_ptr);
- return 1;
-
- case -2:
- __malloc_top_pad = value;
- __malloc_unlock(reent_ptr);
- return 1;
-
- case -3:
- __malloc_unlock(reent_ptr);
- return 1;
-
- case -4:
- __malloc_unlock(reent_ptr);
- return value == 0;
-
- default:
- __malloc_unlock(reent_ptr);
- return 0;
- }
-}
+++ /dev/null
-/* PR optimization/11018 */
-/* Originator: <partain@dcs.gla.ac.uk> */
-/* { dg-do run { target { sparc*-*-* && ultrasparc_hw } } } */
-/* { dg-options "-O2 -mcpu=ultrasparc" } */
-
-/* This used to fail on 32-bit Ultrasparc because
- of broken DImode shift patterns. */
-
-extern void abort(void);
-
-typedef unsigned long long uint64_t;
-typedef unsigned int size_t;
-
-
-void to_octal (uint64_t value, char *where, size_t size)
-{
- uint64_t v = value;
- size_t i = size;
-
- do
- {
- where[--i] = '0' + (v & ((1 << 3) - 1));
- v >>= 3;
- }
- while (i);
-}
-
-
-int main (void)
-{
- char buf[8];
-
- to_octal(010644, buf, 6);
-
- if (buf[1] != '1')
- abort();
-
- return 0;
-}
--- /dev/null
+/* { dg-do run } */
+/* { dg-require-effective-target ultrasparc_hw } */
+/* { dg-options "-O2 -mcpu=ultrasparc -mvis" } */
+
+extern void abort (void);
+extern void exit (int);
+
+int l;
+
+int baz (double x)
+{
+ return l == 0;
+}
+
+double bar (double x)
+{
+ return 1.0;
+}
+
+double foo (double x)
+{
+ if (l == -1 || baz (x)) return x;
+ if (x < 0.0)
+ return bar (x);
+ else
+ return 0.0;
+}
+
+union {
+ double d;
+ long long l;
+} x = { l: 0x7ff8000000000000LL }, y;
+
+main ()
+{
+ unsigned int fsr = 0;
+ __asm __volatile ("ld %0, %%fsr" : : "m" (fsr));
+ y.d = foo (x.d);
+ __asm __volatile ("st %%fsr, %0" : "=m" (fsr));
+ if (x.l != y.l || (fsr & 0x3ff))
+ abort ();
+ exit (0);
+}
--- /dev/null
+/* { dg-do run } */
+/* { dg-require-effective-target ultrasparc_hw } */
+/* { dg-options "-O2 -mcpu=ultrasparc -mvis" } */
+
+extern void abort (void);
+extern void exit (int);
+
+int foo(double a, int b, int c, double *d, int h)
+{
+ int f, g;
+ double e;
+
+l:
+ f = (int) a;
+ a -= (double) f;
+ if (b == 1)
+ {
+ g = c;
+ f += g;
+ c -= g;
+ }
+ if (b == 2)
+ {
+ f++;
+ h = c;
+ }
+ if (!h)
+ {
+ for (g = 0; g <= 10; g++)
+ for (h = 0; h <= 10; h++)
+ e += d [10 + g - h];
+ goto l;
+ }
+ return f & 7;
+}
+
+int main()
+{
+ if (foo(0.1, 1, 3, 0, 1) != 3)
+ abort ();
+ exit (0);
+}
--- /dev/null
+/* { dg-do run } */
+/* { dg-require-effective-target ultrasparc_hw } */
+/* { dg-options "-O2 -mcpu=ultrasparc -mvis" } */
+
+extern void abort (void);
+extern void exit (int);
+
+int foo(double a, int b, int c, double *d, int h)
+{
+ int f, g;
+ double e;
+
+l:
+ f = (int) a;
+ a -= (double) f;
+ if (b == 1)
+ {
+ g = c;
+ f += g;
+ c -= g;
+ }
+ if (b == 2)
+ {
+ f++;
+ h = c;
+ goto l;
+ }
+
+ asm volatile ("" : : :
+ "f0", "f1", "f2", "f3", "f4", "f5", "f6", "f7",
+ "f8", "f9", "f10", "f11", "f12", "f13", "f14", "f15",
+ "f16", "f17", "f18", "f19", "f20", "f21", "f22", "f23",
+ "f24", "f25", "f26", "f27", "f28", "f29", "f30", "f31");
+
+ return f & 7;
+}
+
+int main()
+{
+ if (foo(0.1, 1, 3, 0, 1) != 3)
+ abort ();
+ exit (0);
+}
--- /dev/null
+/* { dg-do compile } */
+/* { dg-options "-mcpu=supersparc" } */
+
+/* This testcase ICEd on sparc64 because -mcpu=supersparc and implicit
+ -m64 resulted in MASK_V8 and MASK_V9 to be set at the same time. */
+
+void bar (long *x, long *y);
+
+void foo (int x, long *y, long *z)
+{
+ int i;
+
+ for (i = x - 1; i >= 0; i--)
+ {
+ bar (z + i * 3 + 1, y);
+ bar (z + i * 3 + 2, y);
+ }
+}
--- /dev/null
+/* PR bootstrap/6315 */
+
+/* { dg-do compile } */
+/* { dg-options "-O2 -mhard-quad-float" } */
+
+void bar (const char *, ...);
+
+void
+foo (const char *x, long double y, int z)
+{
+ if (z >= 0)
+ bar (x, z, y);
+ else
+ bar (x, y);
+}
--- /dev/null
+/* PR optimization/10876 */
+
+/* { dg-do compile } */
+
+/* Verify that adding the constant 4096 is turned
+ into substracting the constant -4096. */
+
+int foo(int a)
+{
+ return a+4096;
+}
+
+/* { dg-final { scan-assembler "sub" } } */
--- /dev/null
+/* PR target/10114 */
+/* Originator: James Troup <james@nocrew.org> */
+
+/* { dg-do compile } */
+/* { dg-options "-g -O1" } */
+
+extern __inline double sqrt (double __x)
+{
+ register double __r;
+ __asm ("fsqrtd %1,%0" : "=f" (__r) : "f" (__x));
+ return __r;
+}
+
+static double our_skew, max_update_skew;
+
+static double Sqr(double x)
+{
+ return x*x;
+}
+
+void REF_SetReference(double skew)
+{
+ double previous_skew, new_skew;
+ double old_weight, new_weight, sum_weight;
+ double delta_freq1, delta_freq2;
+ double skew1, skew2;
+
+ previous_skew = our_skew;
+ skew1 = sqrt((Sqr(delta_freq1) * old_weight + Sqr(delta_freq2) * new_weight) / sum_weight);
+ skew2 = (previous_skew * old_weight + new_skew * new_weight) / sum_weight;
+ our_skew = skew1 + skew2;
+}
--- /dev/null
+/* PR target/24284 */
+
+/* { dg-do compile } */
+/* { dg-options "-O -g" } */
+
+void do_run(void *ip)
+{
+ char dummy[8192];
+
+ __asm__("" : : "g"(dummy));
+
+ goto *ip;
+}
--- /dev/null
+/* PR middle-end/22127 */
+/* Testcase by <akr@m17n.org> */
+
+/* { dg-do run { target *-*-solaris2.* } } */
+/* { dg-require-effective-target ilp32 } */
+/* { dg-options "-O" } */
+
+typedef unsigned int size_t;
+extern int printf(const char *, ...);
+typedef unsigned char uint8_t;
+typedef unsigned int uint32_t;
+typedef unsigned int uint_t;
+typedef char *caddr_t;
+typedef int greg_t;
+typedef greg_t gregset_t[19];
+struct rwindow {
+ greg_t rw_local[8];
+ greg_t rw_in[8];
+};
+typedef struct gwindows {
+ int wbcnt;
+ greg_t *spbuf[31];
+ struct rwindow wbuf[31];
+} gwindows_t;
+struct fpu {
+ union {
+ uint32_t fpu_regs[32];
+ double fpu_dregs[16];
+ } fpu_fr;
+ struct fq *fpu_q;
+ uint32_t fpu_fsr;
+ uint8_t fpu_qcnt;
+ uint8_t fpu_q_entrysize;
+ uint8_t fpu_en;
+};
+typedef struct fpu fpregset_t;
+typedef struct {
+ unsigned int xrs_id;
+ caddr_t xrs_ptr;
+} xrs_t;
+typedef struct {
+ gregset_t gregs;
+ gwindows_t *gwins;
+ fpregset_t fpregs;
+ xrs_t xrs;
+ long filler[19];
+} mcontext_t;
+typedef struct {
+ unsigned int __sigbits[4];
+} sigset_t;
+typedef struct sigaltstack {
+ void *ss_sp;
+ size_t ss_size;
+ int ss_flags;
+} stack_t;
+typedef struct ucontext ucontext_t;
+struct ucontext {
+ uint_t uc_flags;
+ ucontext_t *uc_link;
+ sigset_t uc_sigmask;
+ stack_t uc_stack;
+ mcontext_t uc_mcontext;
+ long uc_filler[23];
+};
+extern int getcontext(ucontext_t *);
+extern int setcontext(const ucontext_t *);
+
+int flag;
+ucontext_t cont;
+int pad[100];
+typedef void (*fun_t)(int);
+fun_t p0,p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12;
+
+int global;
+
+extern void abort(void);
+
+void h1(int v)
+{
+ global = v;
+}
+
+void h2(int v)
+{
+ if (v != 1)
+ abort();
+}
+
+void f(void)
+{
+ flag = 1;
+ setcontext(&cont);
+}
+
+int g(void)
+{
+ int ret;
+
+ flag = 0;
+ getcontext(&cont);
+ ret = flag;
+ if (ret == 0) {
+ h1 (flag);
+ p0 = p1 = p2 = p3 = p4 = p5 = p6 = p7 = p8 = h1;
+ f();
+ p0(ret); p1(ret); p2(ret); p3(ret); p4(ret); p5(ret); p6(ret); p7(ret); p8(ret);
+ }
+ else {
+ h2 (flag);
+ }
+ return ret;
+}
+
+int main(void)
+{
+ g();
+ return 0;
+}
--- /dev/null
+/* PR optimization/10157 */
+/* Originator: Peter van Hoof <p.van-hoof@qub.ac.uk> */
+
+/* { dg-do compile } */
+/* { dg-options "-O2 -ffast-math" } */
+
+/* Verify that the loop optimizer doesn't
+ emit invalid reg-to-reg copy insns. */
+
+void g() {
+ while(1) {
+ int i,n;
+ double p,r;
+ for( i=0; i < n; i++ )
+ if( p > 1. )
+ for( i=0; i < n; i++ )
+ r += 2.;
+ }
+}
--- /dev/null
+/* PR middle-end/20263 */
+
+/* { dg-do assemble } */
+/* { dg-options "" } */
+
+register void *tp __asm__("%g7");
+
+void set_tp(void)
+{
+ tp = 0;
+}
--- /dev/null
+/* { dg-do compile } */
+/* { dg-require-effective-target ilp32 } */
+/* { dg-options "-mcpu=ultrasparc -O" } */
+
+/* Make sure that Ultrasparc return insn do not read below the stack. */
+
+int bar (int a, int b, int c, int d, int e, int f, int g, int h)
+{
+ int res;
+
+ toto (&res);
+ return h;
+}
+/* { dg-final { global compiler_flags; if ![string match "*-m64 *" $compiler_flags] { scan-assembler "return\[ \t\]*%i7\\+8\n\[^\n\]*ld\[ \t\]*\\\[%sp\\+96\\\]" } } } */
+
+int bar2 ()
+{
+ int res;
+
+ toto (&res);
+ return res;
+}
+/* { dg-final { global compiler_flags; if ![string match "*-m64 *" $compiler_flags] { scan-assembler "return\[ \t\]*%i7\\+8\n\[^\n\]*nop" } } } */
--- /dev/null
+/* PR target/15693 */
+
+/* { dg-do compile } */
+/* { dg-options "-O2" } */
+
+/* This used to fail on SPARC at -O2 because the combiner
+ produces a compare insn that was not rematched by the
+ compare expander. */
+
+static __inline__ __attribute__ ((always_inline))
+int page_mapping (unsigned flags)
+{
+ if (1u & (flags >> 16))
+ return 1;
+ return 0;
+}
+void install_page (unsigned flags)
+{
+ if (__builtin_expect (!page_mapping (flags), 0))
+ __builtin_trap ();
+}
--- /dev/null
+/* Simplified from testcase by David Staepelaere <staapa@ultimatech.com> */
+
+/* { dg-do compile } */
+/* { dg-options -mcpu=ultrasparc } */
+
+int foo(long long y) {
+ return -1 * y;
+}
--- /dev/null
+/* PR target/11965 */
+/* Originator: <jk@tools.de> */
+
+/* { dg-do run } */
+/* { dg-require-effective-target ultrasparc_hw } */
+/* { dg-options "-O -mcpu=ultrasparc" } */
+
+/* This used to fail on 32-bit Ultrasparc because GCC emitted
+ an invalid shift instruction. */
+
+
+static inline unsigned int shift(int n, unsigned int value)
+{
+ return value << n;
+}
+
+unsigned int val = 1;
+
+int main(void)
+{
+ int i;
+
+ for (i = 0; i < 4; i++)
+ val = shift(32, val);
+
+ return 0;
+}
--- /dev/null
+/* PR target/17245 */
+/* Origin: <aaronw@net.com> */
+/* Testcase by Christian Ehrhardt <ehrhardt@mathematik.uni-ulm.de> */
+
+/* { dg-do compile } */
+/* { dg-options "-O -mcpu=v9" } */
+
+/* This used to fail on 32-bit Ultrasparc because reload was emitting
+ a move insn that doesn't satisfy its constraints. */
+
+int n;
+double range ;
+double bin ;
+double wmean;
+
+double f ()
+{
+ int i ;
+ long double W = 0 ;
+ for ( i = 0 ; i < n ; i ++) {
+ double xi = range;
+ double wi = bin;
+ W += wi ;
+ wmean += ( xi - wmean) * ( wi / W);
+ }
+}
--- /dev/null
+/* Copyright (C) 1999 Free Software Foundation
+ by Alexandre Oliva <oliva@lsd.ic.unicamp.br>
+ Simplified from libg++/src/Fix16.cc */
+
+/* { dg-do compile } */
+/* { dg-options "-O0" } */
+
+short foo() {
+ short i = (short)(1<<15);
+ return i;
+}
--- /dev/null
+/* { dg-do run } */
+/* { dg-require-effective-target ilp32 && ultrasparc_hw } */
+/* { dg-options "-mcpu=ultrasparc -mv8plus" } */
+
+extern void abort (void);
+extern void exit (int);
+
+unsigned long long foo (unsigned long long x)
+{
+ return 0x73500000735LL * x;
+}
+
+unsigned long long a, b;
+unsigned long p;
+
+unsigned long long bar (void)
+{
+ unsigned long long c = a | b;
+ return 0x73500000735LL * c;
+}
+
+unsigned long long baz (void)
+{
+ unsigned long long c = (p + 345) & -2;
+ return c * a;
+}
+
+int main (void)
+{
+ if (foo (0x56789LL) != 0x26f32e5d26f32e5dLL)
+ abort ();
+ a = 0x8000000080000000LL;
+ b = 0x0000000180000001LL;
+ if (bar () != 0x120480000735LL)
+ abort ();
+ p = 0xffffffff;
+ if (baz () != 0xac00000000LL)
+ abort ();
+ exit (0);
+}
--- /dev/null
+/* Simplified from PR target/5309. */
+
+/* { dg-do compile } */
+/* { dg-options "-O2 -mcpu=ultrasparc" } */
+
+extern long bar (unsigned int);
+
+long
+foo (long x, unsigned int y)
+{
+ return *(((long *) (bar (y) - 1)) + 1 + (x >> 2) % 359);
+}
--- /dev/null
+/* PR target/10072 */
+/* Originator: Peter van Hoof <p.van-hoof@qub.ac.uk> */
+
+/* { dg-do compile } */
+/* { dg-options "-std=c99 -O1 -mcpu=ultrasparc -ffast-math" } */
+
+void p(int v)
+{
+ int i=v,j;
+ float a,b,c,x[i];
+
+ x[i] = (a/(((b)>(c)) ? (b) : (c)) - (((i) == (j)) ? 1.f : 0.f));
+}
--- /dev/null
+/* PR target/7784 */
+/* Originator: Peter van Hoof <p.van-hoof@qub.ac.uk> */
+
+/* { dg-do compile } */
+/* { dg-options "-O2 -mcpu=ultrasparc" } */
+
+typedef struct
+{
+ float EnergyErg;
+ float ots;
+} EmLine;
+
+extern const int ipH_LIKE ;
+extern const int ipHYDROGEN ;
+extern const int ipH1s;
+extern const int ipH2s;
+extern const int ipH2p;
+
+extern EmLine ****EmisLines;
+
+typedef struct
+{
+ long n;
+ long s;
+ long l;
+} Elevels;
+
+extern struct t_iso
+{
+ float ***Pop2Ion;
+ long int numLevels[2][30L];
+} iso;
+
+extern struct t_LineSave
+{
+ long int nsum;
+ long int ndsum;
+ long int nComment;
+ long int npxdd;
+ long int ipass;
+ char chHoldComments[10][200];
+} LineSave;
+
+extern struct t_hydro
+{
+ int lgHydEmiss;
+ float **pestrk ;
+} hydro;
+
+extern struct t_dense
+{
+ double DensityLaw[10];
+ float frad[500];
+ float fhden[500];
+ float den0;
+ double eden;
+} dense;
+
+extern struct t_abund
+{
+ float xIonFracs[30L +3][30L +1];
+} abund;
+
+extern struct t_CaseBHS
+{
+ long int nDensity[2][8] , ntemp[2][8] , ncut[2][8] ;
+ int lgHCaseBOK[2][8];
+} CaseBHS ;
+
+extern struct t_smbeta
+{
+ float SimHBeta,
+ cn4861,
+ cn1216,
+ sv4861,
+ sv1216;
+} smbeta;
+
+extern struct t_phycon
+{
+ float te;
+} phycon;
+
+
+extern struct t_sphere
+{
+ int lgSphere;
+ float covgeo;
+} sphere;
+
+void linadd(double xInten, float wavelength, char *chLab, char chInfo);
+
+extern struct t_radiusVar
+{
+ int lgDrNeg;
+ double dVeff;
+} radius;
+
+void lines_hydro(void)
+{
+ long int i, nelem, ipHi, ipLo;
+ double hbetab, em , EmisFac, pump;
+ char chLabel[5];
+
+ linadd(abund.xIonFracs[ipHYDROGEN][1]*iso.Pop2Ion[ipH_LIKE][ipHYDROGEN][3]*hydro.pestrk[3][2]*3.025e-12, 6563,"Strk",'i');
+
+ linadd(abund.xIonFracs[ipHYDROGEN][1]*iso.Pop2Ion[ipH_LIKE][ipHYDROGEN][4]*hydro.pestrk[4][2]*4.084e-12, 4861,"Strk",'i');
+
+ linadd(abund.xIonFracs[ipHYDROGEN][1]*iso.Pop2Ion[ipH_LIKE][ipHYDROGEN][4]*hydro.pestrk[4][3]*1.059e-12, 18751,"Strk",'i');
+
+ linadd(abund.xIonFracs[ipHYDROGEN][1]*iso.Pop2Ion[ipH_LIKE][ipHYDROGEN][5]*hydro.pestrk[5][4]*4.900e-13, 40512,"Strk",'i');
+
+ ((void)((LineSave.ipass <1 || EmisLines[ipH_LIKE][ipHYDROGEN][ipH2p][ipH1s].ots>= 0.) || (__assert("LineSave.ipass <1 || EmisLines[ipH_LIKE][ipHYDROGEN][ipH2p][ipH1s].ots>= 0.", "lines_hydro.c", 118), 0)));
+
+ linadd(EmisLines[ipH_LIKE][ipHYDROGEN][3][ipH2s].ots*EmisLines[ipH_LIKE][ipHYDROGEN][3][ipH2s].EnergyErg, 6563,"Dest",'i');
+
+ linadd(EmisLines[ipH_LIKE][ipHYDROGEN][5][4].ots*EmisLines[ipH_LIKE][ipHYDROGEN][5][4].EnergyErg,40516, "Dest",'i');
+
+ smbeta.SimHBeta = smbeta.SimHBeta/(float)radius.dVeff*sphere.covgeo;
+
+ linadd(smbeta.SimHBeta,4861,"Q(H)",'i');
+
+ smbeta.SimHBeta = smbeta.SimHBeta*(float)radius.dVeff/sphere.covgeo;
+
+ for( nelem=0; nelem < 30L; nelem++ )
+ {
+ int iCase;
+ for( iCase=0; iCase<2; ++iCase )
+ {
+ char chAB[2]={'A','B'};
+ char chLab[5]="Ca ";
+
+ for( ipLo=1+iCase; ipLo<(((6)<(iso.numLevels[ipH_LIKE][nelem])) ? (6) : (5)); ++ipLo )
+ {
+ for( ipHi=ipLo+1; ipHi< (((ipLo+5)<(iso.numLevels[ipH_LIKE][nelem])) ? (ipLo+5) : (iso.numLevels[ipH_LIKE][nelem])); ++ipHi )
+ {
+ float wl;
+
+ hbetab = HSRate( ipHi,ipLo , nelem+1, phycon.te , dense.eden, chAB[iCase] );
+ if( hbetab<=0. )
+ CaseBHS.lgHCaseBOK[iCase][nelem] = 0;
+
+ if( !hydro.lgHydEmiss )
+ hbetab *= abund.xIonFracs[nelem][nelem+1]*dense.eden;
+
+ linadd(hbetab,wl,chLab,'i' );
+ }
+ }
+ }
+ }
+}
--- /dev/null
+/* PR c/8281 */
+/* Originator: TANIGUCHI Yasuaki <yasuaki@k8.dion.ne.jp> */
+
+/* { dg-do compile } */
+/* { dg-require-effective-target fpic } */
+/* { dg-options "-O2 -mcpu=ultrasparc -fPIC" } */
+
+static const double bp = 1.0, dp_l[] = { 0.0 };
+
+double __ieee754_pow(double x, double y)
+{
+ union {
+ int lo;
+ double d;
+ }uz;
+
+ double y1,t1,p_h,t,z;
+ double z_h,z_l,p_l;
+ double t2,r,s,u,v,w;
+ int i = 0;
+
+ double s_h,t_h;
+ double s2,s_l,t_l;
+
+
+ v = 1.0/(v+bp);
+ uz.d = s_h = s = u*v;
+ uz.lo = 0;
+ s_h = uz.d;
+ uz.d = t_h;
+ uz.lo = 3;
+ t_h = uz.d;
+ s_l = v*((u-s_h*t_h)-s_h*t_l);
+ s2 = s*s;
+ r = s2* s2* (1.1+s2*(1.2+s2*(1.3+s2*(1.4+s2*(1.5+s2*1.6)))));
+ s2 = s_h*s_h;
+ uz.lo = 0;
+ t_h = uz.d;
+ t_l = r-((t_h-3.0)-s2);
+ v = s_l*t_h+t_l*s;
+ p_l = v-(p_h-u);
+ z_h = bp *p_h;
+ z_l = bp*p_h+p_l*1.0+dp_l[i];
+ t = (double)i;
+ t1 = (((bp+z_l)+bp)+t);
+ t2 = z_l-(((t1-t)-bp)-z_h);
+ p_l = (y-y1)*t1+y*t2;
+ z = p_l+p_h;
+
+ return s*z;
+}
--- /dev/null
+/* PR target/10067 */
+/* Originator: <dat94ali@ludat.lth.se> */
+
+/* { dg-do compile } */
+/* { dg-options "-O2 -mtune=supersparc" } */
+
+struct _reent;
+
+extern unsigned long __malloc_trim_threshold;
+extern unsigned long __malloc_top_pad;
+
+int _mallopt_r(struct _reent *reent_ptr, int param_number, int value)
+{
+ __malloc_lock(reent_ptr);
+
+ switch(param_number)
+ {
+ case -1:
+ __malloc_trim_threshold = value;
+ __malloc_unlock(reent_ptr);
+ return 1;
+
+ case -2:
+ __malloc_top_pad = value;
+ __malloc_unlock(reent_ptr);
+ return 1;
+
+ case -3:
+ __malloc_unlock(reent_ptr);
+ return 1;
+
+ case -4:
+ __malloc_unlock(reent_ptr);
+ return value == 0;
+
+ default:
+ __malloc_unlock(reent_ptr);
+ return 0;
+ }
+}
--- /dev/null
+/* PR optimization/11018 */
+/* Originator: <partain@dcs.gla.ac.uk> */
+
+/* { dg-do run } */
+/* { dg-require-effective-target ultrasparc_hw } */
+/* { dg-options "-O2 -mcpu=ultrasparc" } */
+
+/* This used to fail on 32-bit Ultrasparc because
+ of broken DImode shift patterns. */
+
+extern void abort(void);
+
+typedef unsigned long long uint64_t;
+typedef unsigned int size_t;
+
+
+void to_octal (uint64_t value, char *where, size_t size)
+{
+ uint64_t v = value;
+ size_t i = size;
+
+ do
+ {
+ where[--i] = '0' + (v & ((1 << 3) - 1));
+ v >>= 3;
+ }
+ while (i);
+}
+
+
+int main (void)
+{
+ char buf[8];
+
+ to_octal(010644, buf, 6);
+
+ if (buf[1] != '1')
+ abort();
+
+ return 0;
+}
projects / gcc.git / commitdiff