* gcc.target/mips/mips.exp: Minor formatting. Call setup_mips_tests.
(setup_mips_tests, dg-mips-options): New procedures.
* gcc.target/mips/asm-1.c, gcc.target/mips/fix-vr4130-1.c,
* gcc.target/mips/fix-vr4130-2.c, gcc.target/mips/fix-vr4130-3.c
* gcc.target/mips/fix-vr4130-4.c, gcc.target/mips/mips-3d-1.c,
* gcc.target/mips/mips-3d-2.c, gcc.target/mips/mips-3d-3.c,
* gcc.target/mips/mips-3d-4.c, gcc.target/mips/mips-3d-5.c,
* gcc.target/mips/mips-3d-6.c, gcc.target/mips/mips-3d-7.c,
* gcc.target/mips/mips-3d-8.c, gcc.target/mips/mips-3d-9.c,
* gcc.target/mips/mips-3d-2.c, gcc.target/mips/mips-3d-3.c,
* gcc.target/mips/mips-ps-1.c, gcc.target/mips/mips-ps-2.c,
* gcc.target/mips/mips-ps-3.c, gcc.target/mips/mips-ps-4.c,
* gcc.target/mips/mips-ps-type.c, gcc.target/mips/sb1-1.c: Use
dg-mips-options instead of dg-options. Remove now-redundant
preprocessor guards.
* gcc.dg/mips-args-1.c, gcc.dg/mips-args-2.c, gcc.dg/mips-args-3.c,
* gcc.dg/mips-movcc-1.c, gcc.dg/mips-movcc-2.c, gcc.dg/mips-movcc-3.c,
* gcc.dg/mips-nmadd-1.c, gcc.dg/mips-nmadd-2.c, gcc.dg/mips-rsqrt-1.c,
* gcc.dg/mips-rsqrt-2.c, gcc.dg/mips-rsqrt-3.c, gcc.dg/vr-mult-1.c,
* gcc.dg/vr-mult-2.c: Delete.
* gcc.target/mips/args-1.c, gcc.target/mips/args-2.c,
* gcc.target/mips/args-3.c, gcc.target/mips/movcc-1.c,
* gcc.target/mips/movcc-2.c, gcc.target/mips/movcc-3.c,
* gcc.target/mips/nmadd-1.c, gcc.target/mips/nmadd-2.c,
* gcc.target/mips/rsqrt-1.c, gcc.target/mips/rsqrt-2.c,
* gcc.target/mips/rsqrt-3.c, gcc.target/mips/vr-mult-1.c,
* gcc.target/mips/vr-mult-2.c: New tests, based on the old gcc.dg ones.
From-SVN: r98345
+2005-04-18 Richard Sandiford <rsandifo@redhat.com>
+
+ * gcc.target/mips/mips.exp: Minor formatting. Call setup_mips_tests.
+ (setup_mips_tests, dg-mips-options): New procedures.
+ * gcc.target/mips/asm-1.c, gcc.target/mips/fix-vr4130-1.c,
+ * gcc.target/mips/fix-vr4130-2.c, gcc.target/mips/fix-vr4130-3.c
+ * gcc.target/mips/fix-vr4130-4.c, gcc.target/mips/mips-3d-1.c,
+ * gcc.target/mips/mips-3d-2.c, gcc.target/mips/mips-3d-3.c,
+ * gcc.target/mips/mips-3d-4.c, gcc.target/mips/mips-3d-5.c,
+ * gcc.target/mips/mips-3d-6.c, gcc.target/mips/mips-3d-7.c,
+ * gcc.target/mips/mips-3d-8.c, gcc.target/mips/mips-3d-9.c,
+ * gcc.target/mips/mips-3d-2.c, gcc.target/mips/mips-3d-3.c,
+ * gcc.target/mips/mips-ps-1.c, gcc.target/mips/mips-ps-2.c,
+ * gcc.target/mips/mips-ps-3.c, gcc.target/mips/mips-ps-4.c,
+ * gcc.target/mips/mips-ps-type.c, gcc.target/mips/sb1-1.c: Use
+ dg-mips-options instead of dg-options. Remove now-redundant
+ preprocessor guards.
+ * gcc.dg/mips-args-1.c, gcc.dg/mips-args-2.c, gcc.dg/mips-args-3.c,
+ * gcc.dg/mips-movcc-1.c, gcc.dg/mips-movcc-2.c, gcc.dg/mips-movcc-3.c,
+ * gcc.dg/mips-nmadd-1.c, gcc.dg/mips-nmadd-2.c, gcc.dg/mips-rsqrt-1.c,
+ * gcc.dg/mips-rsqrt-2.c, gcc.dg/mips-rsqrt-3.c, gcc.dg/vr-mult-1.c,
+ * gcc.dg/vr-mult-2.c: Delete.
+ * gcc.target/mips/args-1.c, gcc.target/mips/args-2.c,
+ * gcc.target/mips/args-3.c, gcc.target/mips/movcc-1.c,
+ * gcc.target/mips/movcc-2.c, gcc.target/mips/movcc-3.c,
+ * gcc.target/mips/nmadd-1.c, gcc.target/mips/nmadd-2.c,
+ * gcc.target/mips/rsqrt-1.c, gcc.target/mips/rsqrt-2.c,
+ * gcc.target/mips/rsqrt-3.c, gcc.target/mips/vr-mult-1.c,
+ * gcc.target/mips/vr-mult-2.c: New tests, based on the old gcc.dg ones.
+
2005-04-18 Laurent GUERBY <laurent@guerby.net>
* ada/acats/run_all.sh: Use sync when executable not present.
+++ /dev/null
-/* Check that certain preprocessor macros are defined, and do some
- consistency checks. */
-/* { dg-do compile { target mips*-*-* } } */
-
-const char *compiled_for = _MIPS_ARCH;
-const char *optimized_for = _MIPS_TUNE;
-
-#if __mips_fpr != 32 && __mips_fpr != 64
-#error Bad __mips_fpr
-#endif
-
-/* Test complementary macro pairs: exactly one of each pair
- must be defined. */
-
-#if defined (_R3000) == defined (_R4000) && !defined (__sgi__)
-#error _R3000 / _R4000 mismatch
-#endif
-
-#if defined (__mips_hard_float) == defined (__mips_soft_float)
-#error __mips_hard_float / __mips_soft_float mismatch
-#endif
-
-#if defined (_MIPSEL) == defined (_MIPSEB)
-#error _MIPSEL / _MIPSEB mismatch
-#endif
-
-/* Check for __mips64 consistency. */
-
-#if defined (__mips64) != defined (_R4000) && !defined (__sgi__)
-#error __mips64 / _R4000 mismatch
-#endif
-
-#if defined (__mips64) && __mips != 3 && __mips != 4 && __mips != 64
-#error __mips64 / __mips mismatch
-#endif
+++ /dev/null
-/* Check the _MIPSEB and _MIPSEL macros are accurate. */
-/* { dg-do run { target mips*-*-* } } */
-extern void abort (void);
-extern void exit (int);
-
-short foo = 1;
-int main ()
-{
- char *p = (char *) &foo;
-
-#ifdef _MIPSEB
- if (p[0] != 0 || p[1] != 1)
-#else
- if (p[0] != 1 || p[1] != 0)
-#endif
- abort ();
- exit (0);
-}
+++ /dev/null
-/* __mips, and related defines, guarantee that certain assembly
- instructions can be used. Check a few examples. */
-/* { dg-do run { target mips*-*-* } } */
-extern void abort (void);
-extern void exit (int);
-
-typedef int int32 __attribute__ ((mode (SI)));
-typedef int int64 __attribute__ ((mode (DI)));
-int foo (float inf, int64 in64, int32 in32)
-{
- int64 res64;
- int32 res32;
-
-#if __mips != 1 && defined (__mips_hard_float)
- __asm__ ("trunc.w.s %0, %1" : "=f" (res32) : "f" (inf));
- if (res32 != 11)
- abort ();
-#endif
-
-#if defined (__mips64)
- __asm__ ("daddu %0, %1, %1" : "=r" (res64) : "r" (in64));
- if (res64 != 50)
- abort ();
-#endif
-
-#if (__mips == 4 || __mips == 32 || __mips == 64) && !defined (__mips16)
- __asm__ ("move %0,%.\n\tmovn %0,%1,%2"
- : "=&r" (res32) : "r" (in32), "r" (in64 != 0));
- if (res32 != 60)
- abort ();
-#endif
-}
-
-int main ()
-{
- foo (11.4f, 25, 60);
- exit (0);
-}
+++ /dev/null
-/* { dg-do compile { target "mips*-*-*" } } */
-/* { dg-options "-O2 -mips4" } */
-/* { dg-final { scan-assembler "movz" } } */
-/* { dg-final { scan-assembler "movn" } } */
-/* { dg-final { scan-assembler "movt" } } */
-
-void ext_int (int);
-
-#if __mips < 4
-asm ("# movz movn");
-#else
-int
-sub1 (int i, int j, int k)
-{
- ext_int (k ? i : j);
-}
-
-int
-sub2 (int i, int j, long l)
-{
- ext_int (!l ? i : j);
-}
-#endif
-
-#if __mips < 4 || __mips_soft_float
-asm ("# movt");
-#else
-int
-sub3 (int i, int j, float f)
-{
- ext_int (f ? i : j);
-}
-#endif
+++ /dev/null
-/* { dg-do compile { target "mips*-*-*" } } */
-/* { dg-options "-O2 -mips4" } */
-/* { dg-final { scan-assembler "movz" } } */
-/* { dg-final { scan-assembler "movn" } } */
-/* { dg-final { scan-assembler "movf" } } */
-
-void ext_long (long);
-
-#if __mips < 4
-asm ("# movz movn");
-#else
-long
-sub4 (long i, long j, long k)
-{
- ext_long (k ? i : j);
-}
-
-long
-sub5 (long i, long j, int k)
-{
- ext_long (!k ? i : j);
-}
-#endif
-
-#if __mips < 4 || __mips_soft_float
-asm ("# movf");
-#else
-long
-sub6 (long i, long j, float f)
-{
- ext_long (!f ? i : j);
-}
-#endif
+++ /dev/null
-/* { dg-do compile { target "mips*-*-*" } } */
-/* { dg-options "-O2 -mips4" } */
-/* { dg-final { scan-assembler "movz.s" } } */
-/* { dg-final { scan-assembler "movn.s" } } */
-/* { dg-final { scan-assembler "movt.s" } } */
-/* { dg-final { scan-assembler "movz.d" } } */
-/* { dg-final { scan-assembler "movn.d" } } */
-/* { dg-final { scan-assembler "movf.d" } } */
-
-#if __mips < 4 || __mips_soft_float
-asm ("# movz.s movn.s movt.s movz.d movn.d movf.d");
-#else
-void ext_float (float);
-void ext_double (double);
-
-float
-sub7 (float f, float g, int i)
-{
- ext_float (i ? f : g);
-}
-
-float
-sub8 (float f, float g, long l)
-{
- ext_float (!l ? f : g);
-}
-
-float
-sub9 (float f, float g, float h)
-{
- ext_float (h ? f : g);
-}
-
-double
-suba (double f, double g, int i)
-{
- ext_double (i ? f : g);
-}
-
-double
-subb (double f, double g, long l)
-{
- ext_double (!l ? f : g);
-}
-
-double
-subc (double f, double g, double h)
-{
- ext_double (!h ? f : g);
-}
-#endif
+++ /dev/null
-/* { dg-do compile { target "mips*-*-*" } } */
-/* { dg-options "-O2 -ffast-math -mips4" } */
-/* { dg-final { scan-assembler "nmadd.s" } } */
-/* { dg-final { scan-assembler "nmadd.d" } } */
-/* { dg-final { scan-assembler "nmsub.s" } } */
-/* { dg-final { scan-assembler "nmsub.d" } } */
-
-#if (__mips != 4 && __mips != 64) || __mips_soft_float
-asm ("# nmadd.s nmadd.d nmsub.s nmsub.d");
-#else
-float
-sub1 (float f, float g, float h)
-{
- return -((f * g) + h);
-}
-
-double
-sub2 (double f, double g, double h)
-{
- return -((f * g) + h);
-}
-
-float
-sub3 (float f, float g, float h)
-{
- return -((f * g) - h);
-}
-
-double
-sub4 (double f, double g, double h)
-{
- return -((f * g) - h);
-}
-#endif
+++ /dev/null
-/* { dg-do compile { target "mips*-*-*" } } */
-/* { dg-options "-O2 -fno-fast-math -mips4" } */
-/* { dg-final { scan-assembler "nmadd.s" } } */
-/* { dg-final { scan-assembler "nmadd.d" } } */
-/* { dg-final { scan-assembler "nmsub.s" } } */
-/* { dg-final { scan-assembler "nmsub.d" } } */
-
-#if (__mips != 4 && __mips != 64) || __mips_soft_float
-asm ("# nmadd.s nmadd.d nmsub.s nmsub.d");
-#else
-float
-sub1 (float f, float g, float h)
-{
- return -((f * g) + h);
-}
-
-double
-sub2 (double f, double g, double h)
-{
- return -((f * g) + h);
-}
-
-float
-sub3 (float f, float g, float h)
-{
- return -((f * g) - h);
-}
-
-double
-sub4 (double f, double g, double h)
-{
- return -((f * g) - h);
-}
-#endif
+++ /dev/null
-/* { dg-do compile { target "mips*-*-*" } } */
-/* { dg-options "-O2 -ffast-math -mips4" } */
-/* { dg-final { scan-assembler "rsqrt.d" } } */
-/* { dg-final { scan-assembler "rsqrt.s" } } */
-
-#if (__mips != 4 && __mips != 64) || __mips_soft_float
-asm ("# rsqrt.d rsqrt.s");
-#else
-extern double sqrt(double);
-extern float sqrtf(float);
-
-double foo(double x)
-{
- return 1.0/sqrt(x);
-}
-
-float bar(float x)
-{
- return 1.0f/sqrtf(x);
-}
-#endif
+++ /dev/null
-/* { dg-do compile { target "mips*-*-*" } } */
-/* { dg-options "-O2 -ffast-math -mips4" } */
-/* { dg-final { scan-assembler "rsqrt.d" } } */
-/* { dg-final { scan-assembler "rsqrt.s" } } */
-
-#if (__mips != 4 && __mips != 64) || __mips_soft_float
-asm ("# rsqrt.d rsqrt.s");
-#else
-extern double sqrt(double);
-extern float sqrtf(float);
-
-double foo(double x)
-{
- return sqrt(1.0/x);
-}
-
-float bar(float x)
-{
- return sqrtf(1.0f/x);
-}
-#endif
+++ /dev/null
-/* { dg-do compile { target "mips*-*-*" } } */
-/* { dg-options "-O2 -mips4" } */
-/* { dg-final { scan-assembler-not "rsqrt.d" } } */
-/* { dg-final { scan-assembler-not "rsqrt.s" } } */
-
-extern double sqrt(double);
-extern float sqrtf(float);
-
-double foo(double x)
-{
- return 1.0/sqrt(x);
-}
-
-double bar(double x)
-{
- return sqrt(1.0/x);
-}
-
-float foof(float x)
-{
- return 1.0f/sqrtf(x);
-}
-
-float barf(float x)
-{
- return sqrtf(1.0f/x);
-}
-
+++ /dev/null
-/* Make sure that mul/addu is preferred over mtlo/macc on targets that
- support both. */
-/* { dg-do compile { target mips*-*-* } } */
-/* { dg-options "-O2" } */
-#if defined (_MIPS_ARCH_VR5400) || defined (_MIPS_ARCH_VR5500)
-int f (int a, int b, int c) { return a + b * c; }
-#else
-void f () { asm volatile ("mul/addu"); }
-#endif
-/* { dg-final { scan-assembler "mul.*addu" } } */
+++ /dev/null
-/* Make sure that mul/subu is preferred over mtlo/msac on targets that
- support both. */
-/* { dg-do compile { target mips*-*-* } } */
-/* { dg-options "-O2" } */
-#if defined (_MIPS_ARCH_VR5400) || defined (_MIPS_ARCH_VR5500)
-int f (int a, int b, int c) { return a - b * c; }
-#else
-void f () { asm volatile ("mul/subu"); }
-#endif
-/* { dg-final { scan-assembler "mul.*subu" } } */
--- /dev/null
+/* Check that certain preprocessor macros are defined, and do some
+ consistency checks. */
+/* { dg-do compile } */
+
+const char *compiled_for = _MIPS_ARCH;
+const char *optimized_for = _MIPS_TUNE;
+
+#if __mips_fpr != 32 && __mips_fpr != 64
+#error Bad __mips_fpr
+#endif
+
+/* Test complementary macro pairs: exactly one of each pair
+ must be defined. */
+
+#if defined (_R3000) == defined (_R4000) && !defined (__sgi__)
+#error _R3000 / _R4000 mismatch
+#endif
+
+#if defined (__mips_hard_float) == defined (__mips_soft_float)
+#error __mips_hard_float / __mips_soft_float mismatch
+#endif
+
+#if defined (_MIPSEL) == defined (_MIPSEB)
+#error _MIPSEL / _MIPSEB mismatch
+#endif
+
+/* Check for __mips64 consistency. */
+
+#if defined (__mips64) != defined (_R4000) && !defined (__sgi__)
+#error __mips64 / _R4000 mismatch
+#endif
+
+#if defined (__mips64) && __mips != 3 && __mips != 4 && __mips != 64
+#error __mips64 / __mips mismatch
+#endif
--- /dev/null
+/* Check the _MIPSEB and _MIPSEL macros are accurate. */
+/* { dg-do run } */
+extern void abort (void);
+extern void exit (int);
+
+short foo = 1;
+int main ()
+{
+ char *p = (char *) &foo;
+
+#ifdef _MIPSEB
+ if (p[0] != 0 || p[1] != 1)
+#else
+ if (p[0] != 1 || p[1] != 0)
+#endif
+ abort ();
+ exit (0);
+}
--- /dev/null
+/* __mips, and related defines, guarantee that certain assembly
+ instructions can be used. Check a few examples. */
+/* { dg-do run } */
+extern void abort (void);
+extern void exit (int);
+
+typedef int int32 __attribute__ ((mode (SI)));
+typedef int int64 __attribute__ ((mode (DI)));
+int foo (float inf, int64 in64, int32 in32)
+{
+ int64 res64;
+ int32 res32;
+
+#if __mips != 1 && defined (__mips_hard_float)
+ __asm__ ("trunc.w.s %0, %1" : "=f" (res32) : "f" (inf));
+ if (res32 != 11)
+ abort ();
+#endif
+
+#if defined (__mips64)
+ __asm__ ("daddu %0, %1, %1" : "=r" (res64) : "r" (in64));
+ if (res64 != 50)
+ abort ();
+#endif
+
+#if (__mips == 4 || __mips == 32 || __mips == 64) && !defined (__mips16)
+ __asm__ ("move %0,%.\n\tmovn %0,%1,%2"
+ : "=&r" (res32) : "r" (in32), "r" (in64 != 0));
+ if (res32 != 60)
+ abort ();
+#endif
+}
+
+int main ()
+{
+ foo (11.4f, 25, 60);
+ exit (0);
+}
/* PR target/17565. GCC used to put the asm into the delay slot
of the call. */
/* { dg-do assemble } */
-/* { dg-options "-O" } */
-#ifndef __mips16
+/* { dg-mips-options "-O -mno-mips16" } */
int foo (int n)
{
register int k asm ("$16") = n;
}
return k;
}
-#endif
-/* { dg-do compile { target mips*-*-* } } */
-/* { dg-skip-if "" { mips-sgi-irix* } { "-mabi=32" } { "" } } */
-/* { dg-options "-mfix-vr4130 -march=vr4130" } */
-#if _MIPS_ARCH_VR4130 && !__mips16
+/* { dg-do compile } */
+/* { dg-mips-options "-march=vr4130 -mfix-vr4130" } */
int foo (void) { int r; asm ("# foo" : "=h" (r)); return r; }
-#else
-asm ("#\tmacchi\t");
-#endif
/* { dg-final { scan-assembler "\tmacchi\t" } } */
-/* { dg-do compile { target mips*-*-* } } */
-/* { dg-skip-if "" { mips-sgi-irix* } { "-mabi=32" } { "" } } */
-/* { dg-options "-mfix-vr4130 -march=vr4130" } */
-#if _MIPS_ARCH_VR4130 && !__mips16
+/* { dg-do compile } */
+/* { dg-mips-options "-march=vr4130 -mfix-vr4130" } */
int foo (void) { int r; asm ("# foo" : "=l" (r)); return r; }
-#else
-asm ("#\tmacc\t");
-#endif
/* { dg-final { scan-assembler "\tmacc\t" } } */
-/* { dg-do compile { target mips*-*-* } } */
-/* { dg-skip-if "" { mips-sgi-irix* } { "-mabi=32" } { "" } } */
-/* { dg-options "-mfix-vr4130 -march=vr4130" } */
-#if _MIPS_ARCH_VR4130 && !__mips16 && __mips64
+/* { dg-do compile } */
+/* { dg-mips-options "-march=vr4130 -mgp64 -mfix-vr4130" } */
long long foo (void) { long long r; asm ("# foo" : "=h" (r)); return r; }
-#else
-asm ("#\tdmacchi\t");
-#endif
/* { dg-final { scan-assembler "\tdmacchi\t" } } */
-/* { dg-do compile { target mips*-*-* } } */
-/* { dg-skip-if "" { mips-sgi-irix* } { "-mabi=32" } { "" } } */
-/* { dg-options "-mfix-vr4130 -march=vr4130" } */
-#if _MIPS_ARCH_VR4130 && !__mips16 && __mips64
+/* { dg-do compile } */
+/* { dg-mips-options "-march=vr4130 -mgp64 -mfix-vr4130" } */
long long foo (void) { long long r; asm ("# foo" : "=l" (r)); return r; }
-#else
-asm ("#\tdmacc\t");
-#endif
/* { dg-final { scan-assembler "\tdmacc\t" } } */
/* { dg-do run { target mipsisa64*-*-* } } */
-/* { dg-options "-mips64 -O2 -mips3d -mhard-float -mfp64" } */
+/* { dg-mips-options "-mips64 -O2 -mips3d -mhard-float -mgp64" } */
/* Test MIPS-3D builtin functions */
#include <stdlib.h>
/* { dg-do run { target mipsisa64*-*-* } } */
-/* { dg-options "-mips64 -O2 -mips3d -mhard-float -mfp64" } */
+/* { dg-mips-options "-mips64 -O2 -mips3d -mhard-float -mgp64" } */
/* Test MIPS-3D branch-if-any-two builtin functions */
#include <stdlib.h>
/* { dg-do run { target mipsisa64*-*-* } } */
-/* { dg-options "-mips64 -O2 -mips3d -mhard-float -mfp64" } */
+/* { dg-mips-options "-mips64 -O2 -mips3d -mhard-float -mgp64" } */
/* Test MIPS-3D absolute compare builtin functions */
#include <stdlib.h>
/* { dg-do run { target mipsisa64*-*-* } } */
-/* { dg-options "-mips64 -O2 -mips3d -mhard-float -mfp64" } */
+/* { dg-mips-options "-mips64 -O2 -mips3d -mhard-float -mgp64" } */
/* Test MIPS-3D branch-if-any-four builtin functions */
#include <stdlib.h>
/* { dg-do run { target mipsisa64*-*-* } } */
-/* { dg-options "-mips64 -O2 -mips3d -mhard-float -mfp64" } */
+/* { dg-mips-options "-mips64 -O2 -mips3d -mhard-float -mgp64" } */
/* Test MIPS-3D absolute-compare & branch-if-any-four builtin functions */
#include <stdlib.h>
/* { dg-do run { target mipsisa64*-*-* } } */
-/* { dg-options "-mips64 -O2 -mips3d -mhard-float -mfp64" } */
+/* { dg-mips-options "-mips64 -O2 -mips3d -mhard-float -mgp64" } */
/* Test MIPS-3D absolute compare (floats) builtin functions */
#include <stdlib.h>
/* { dg-do run { target mipsisa64*-*-* } } */
-/* { dg-options "-mips64 -O2 -mips3d -mhard-float -mfp64" } */
+/* { dg-mips-options "-mips64 -O2 -mips3d -mhard-float -mgp64" } */
/* Test MIPS-3D absolute compare (doubles) builtin functions */
#include <stdlib.h>
/* { dg-do run { target mipsisa64*-*-* } } */
-/* { dg-options "-mips64 -O2 -mips3d -mhard-float -mfp64" } */
+/* { dg-mips-options "-mips64 -O2 -mips3d -mhard-float -mgp64" } */
/* Test MIPS-3D absolute compare and conditional move builtin functions */
#include <stdlib.h>
/* { dg-do run { target mipsisa64*-*-* } } */
-/* { dg-options "-mips64 -O2 -mips3d -mhard-float -mfp64" } */
+/* { dg-mips-options "-mips64 -O2 -mips3d -mhard-float -mgp64" } */
/* Matrix Multiplications */
#include <stdlib.h>
/* { dg-do run { target mipsisa64*-*-* } } */
-/* { dg-options "-mips64 -O2 -mpaired-single -mhard-float -mfp64" } */
+/* { dg-mips-options "-mips64 -O2 -mpaired-single -mhard-float -mgp64" } */
/* Test v2sf calculations */
#include <stdlib.h>
/* { dg-do run { target mipsisa64*-*-* } } */
-/* { dg-options "-mips64 -O2 -mpaired-single -mhard-float -mfp64" } */
+/* { dg-mips-options "-mips64 -O2 -mpaired-single -mhard-float -mgp64" } */
/* Test MIPS paired-single builtin functions */
#include <stdlib.h>
/* { dg-do run { target mipsisa64*-*-* } } */
-/* { dg-options "-mips64 -O2 -mpaired-single -mhard-float -mfp64" } */
+/* { dg-mips-options "-mips64 -O2 -mpaired-single -mhard-float -mgp64" } */
/* Test MIPS paired-single conditional move */
#include <stdlib.h>
/* { dg-do run { target mipsisa64*-*-* } } */
-/* { dg-options "-mips64 -O2 -mpaired-single -mhard-float -mfp64" } */
+/* { dg-mips-options "-mips64 -O2 -mpaired-single -mhard-float -mgp64" } */
/* Test MIPS paired-single comparisons */
#include <stdlib.h>
/* Test v2sf calculations */
-/* { dg-do compile { target mipsisa64*-*-* } } */
-/* { dg-options "-mips64 -O2 -mpaired-single -mhard-float -mfp64" } */
+/* { dg-do compile } */
+/* { dg-mips-options "-mips64 -O2 -mpaired-single -mhard-float -mgp64" } */
/* { dg-final { scan-assembler "cvt.ps.s" } } */
/* { dg-final { scan-assembler "mov.ps" } } */
/* { dg-final { scan-assembler "ldc1" } } */
# GCC testsuite that uses the `dg.exp' driver.
# Exit immediately if this isn't a MIPS target.
-if ![istarget mips*-*-*] then {
+if ![istarget mips*-*-*] {
return
}
# Load support procs.
load_lib gcc-dg.exp
-# If a testcase doesn't have special options, use these.
-global DEFAULT_CFLAGS
-if ![info exists DEFAULT_CFLAGS] then {
- set DEFAULT_CFLAGS " -ansi -pedantic-errors"
+# Find out which target is selected by the default compiler flags.
+# Also remember which aspects of the target are forced on the command
+# line (as opposed to being overridable defaults).
+#
+# $mips_isa: the ISA level specified by __mips
+# $mips_arch: the architecture specified by _MIPS_ARCH
+# $mips_mips16: true if MIPS16 mode is selected
+# $mips_mips64: true if 64-bit output is selected
+# $mips_float: "hard" or "soft"
+#
+# $mips_forced_isa: true if the command line uses -march=* or -mips*
+# $mips_forced_abi: true if the command line uses -mabi=* or -mgp*
+# $mips_forced_float: true if the command line uses -mhard/soft-float
+proc setup_mips_tests {} {
+ global mips_isa
+ global mips_arch
+ global mips_mips16
+ global mips_mips64
+ global mips_float
+
+ global mips_forced_isa
+ global mips_forced_abi
+ global mips_forced_float
+
+ global compiler_flags
+ global tool
+
+ set src dummy[pid].c
+ set f [open $src "w"]
+ puts $f {
+ int isa = __mips;
+ const char *arch = _MIPS_ARCH;
+ #ifdef __mips16
+ int mips16 = 1;
+ #endif
+ #ifdef __mips64
+ int mips64 = 1;
+ #endif
+ #ifdef __mips_hard_float
+ const char *float = "hard";
+ #else
+ const char *float = "soft";
+ #endif
+ }
+ close $f
+ set output [${tool}_target_compile $src "" preprocess ""]
+ file delete $src
+
+ regexp {isa = ([^;]*)} $output dummy mips_isa
+ regexp {arch = "([^"]*)} $output dummy mips_arch
+ set mips_mips16 [regexp {mips16 = 1} $output]
+ set mips_mips64 [regexp {mips64 = 1} $output]
+ regexp {float = "([^"]*)} $output dummy mips_float
+
+ set mips_forced_isa [regexp -- {(-mips|-march)} $compiler_flags]
+ set mips_forced_abi [regexp -- {(-mgp|-mabi)} $compiler_flags]
+ set mips_forced_float [regexp -- {-m(hard|soft)-float} $compiler_flags]
}
-# Initialize `dg'.
-dg-init
+# Like dg-options, but treats certain MIPS-specific options specially:
+#
+# -mgp32
+# Force 32-bit code. Skip the test if the multilib flags force
+# a 64-bit ABI.
+#
+# -mgp64
+# Force 64-bit code. Also force a 64-bit target architecture
+# if the other flags don't do so. Skip the test if the multilib
+# flags force a 32-bit ABI or a 32-bit architecture.
+#
+# -mno-mips16
+# Skip the test for MIPS16 targets.
+#
+# -march=*
+# -mips*
+# Select the target architecture. Skip the test for MIPS16 targets
+# or if the multilib flags force a different architecture.
+#
+# -msoft-float
+# -mhard-float
+# Select the given floating-point mode. Skip the test if the
+# multilib flags force a different selection.
+proc dg-mips-options {args} {
+ upvar dg-extra-tool-flags extra_tool_flags
+ upvar dg-do-what do_what
-# Main loop.
-dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.\[cS\]]] \
- "" $DEFAULT_CFLAGS
+ global mips_isa
+ global mips_arch
+ global mips_mips16
+ global mips_mips64
+ global mips_float
-# All done.
+ global mips_forced_isa
+ global mips_forced_abi
+ global mips_forced_float
+
+ set flags [lindex $args 1]
+ set matches 1
+
+ # First handle the -mgp* options. Add an architecture option if necessary.
+ foreach flag $flags {
+ if {$flag == "-mgp32" && $mips_mips64} {
+ if {$mips_forced_abi} {
+ set matches 0
+ } else {
+ append flags " -mabi=32"
+ }
+ } elseif {$flag == "-mgp64" && !$mips_mips64} {
+ if {$mips_forced_abi} {
+ set matches 0
+ } else {
+ append flags " -mabi=o64"
+ if {[lsearch -regexp $flags {^(-mips|-march)}] < 0} {
+ append flags " -mips3"
+ }
+ }
+ }
+ }
+ # Handle the other options.
+ foreach flag $flags {
+ if {$flag == "-mno-mips16"} {
+ if {$mips_mips16} {
+ set matches 0
+ }
+ } elseif {[regexp -- {^-march=(.*)} $flag dummy arch]} {
+ if {$mips_mips16 || ($arch != $mips_arch && $mips_forced_isa)} {
+ set matches 0
+ }
+ } elseif {[regexp -- {^-mips(.*)} $flag dummy isa] && $isa != 16} {
+ if {$mips_mips16 || ($isa != $mips_isa && $mips_forced_isa)} {
+ set matches 0
+ }
+ } elseif {[regexp -- {^-m(hard|soft)-float} $flag dummy float]} {
+ if {$mips_float != $float && $mips_forced_float} {
+ set matches 0
+ }
+ }
+ }
+ if {$matches} {
+ set extra_tool_flags $flags
+ } else {
+ set do_what [list [lindex $do_what 0] "N" "P"]
+ }
+}
+
+setup_mips_tests
+
+dg-init
+dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.c]] "" ""
dg-finish
--- /dev/null
+/* { dg-do compile } */
+/* { dg-mips-options "-O2 -mips4" } */
+/* { dg-final { scan-assembler "movz" } } */
+/* { dg-final { scan-assembler "movn" } } */
+
+void ext_int (int);
+
+int
+sub1 (int i, int j, int k)
+{
+ ext_int (k ? i : j);
+}
+
+int
+sub2 (int i, int j, long l)
+{
+ ext_int (!l ? i : j);
+}
--- /dev/null
+/* { dg-do compile } */
+/* { dg-mips-options "-O2 -mips4" } */
+/* { dg-final { scan-assembler "movz" } } */
+/* { dg-final { scan-assembler "movn" } } */
+
+void ext_long (long);
+
+long
+sub4 (long i, long j, long k)
+{
+ ext_long (k ? i : j);
+}
+
+long
+sub5 (long i, long j, int k)
+{
+ ext_long (!k ? i : j);
+}
--- /dev/null
+/* { dg-do compile } */
+/* { dg-mips-options "-O2 -mips4 -mhard-float" } */
+/* { dg-final { scan-assembler "movt" } } */
+/* { dg-final { scan-assembler "movf" } } */
+/* { dg-final { scan-assembler "movz.s" } } */
+/* { dg-final { scan-assembler "movn.s" } } */
+/* { dg-final { scan-assembler "movt.s" } } */
+/* { dg-final { scan-assembler "movz.d" } } */
+/* { dg-final { scan-assembler "movn.d" } } */
+/* { dg-final { scan-assembler "movf.d" } } */
+
+void ext_int (int);
+void ext_long (long);
+void ext_float (float);
+void ext_double (double);
+
+int
+sub3 (int i, int j, float f)
+{
+ ext_int (f ? i : j);
+}
+
+long
+sub6 (long i, long j, float f)
+{
+ ext_long (!f ? i : j);
+}
+
+float
+sub7 (float f, float g, int i)
+{
+ ext_float (i ? f : g);
+}
+
+float
+sub8 (float f, float g, long l)
+{
+ ext_float (!l ? f : g);
+}
+
+float
+sub9 (float f, float g, float h)
+{
+ ext_float (h ? f : g);
+}
+
+double
+suba (double f, double g, int i)
+{
+ ext_double (i ? f : g);
+}
+
+double
+subb (double f, double g, long l)
+{
+ ext_double (!l ? f : g);
+}
+
+double
+subc (double f, double g, double h)
+{
+ ext_double (!h ? f : g);
+}
--- /dev/null
+/* { dg-do compile } */
+/* { dg-mips-options "-O2 -ffast-math -mips4 -mhard-float" } */
+/* { dg-final { scan-assembler "nmadd.s" } } */
+/* { dg-final { scan-assembler "nmadd.d" } } */
+/* { dg-final { scan-assembler "nmsub.s" } } */
+/* { dg-final { scan-assembler "nmsub.d" } } */
+
+float
+sub1 (float f, float g, float h)
+{
+ return -((f * g) + h);
+}
+
+double
+sub2 (double f, double g, double h)
+{
+ return -((f * g) + h);
+}
+
+float
+sub3 (float f, float g, float h)
+{
+ return -((f * g) - h);
+}
+
+double
+sub4 (double f, double g, double h)
+{
+ return -((f * g) - h);
+}
--- /dev/null
+/* { dg-do compile } */
+/* { dg-mips-options "-O2 -fno-fast-math -mips4 -mhard-float" } */
+/* { dg-final { scan-assembler "nmadd.s" } } */
+/* { dg-final { scan-assembler "nmadd.d" } } */
+/* { dg-final { scan-assembler "nmsub.s" } } */
+/* { dg-final { scan-assembler "nmsub.d" } } */
+
+float
+sub1 (float f, float g, float h)
+{
+ return -((f * g) + h);
+}
+
+double
+sub2 (double f, double g, double h)
+{
+ return -((f * g) + h);
+}
+
+float
+sub3 (float f, float g, float h)
+{
+ return -((f * g) - h);
+}
+
+double
+sub4 (double f, double g, double h)
+{
+ return -((f * g) - h);
+}
--- /dev/null
+/* { dg-do compile } */
+/* { dg-mips-options "-O2 -ffast-math -mips4 -mhard-float" } */
+/* { dg-final { scan-assembler "rsqrt.d" } } */
+/* { dg-final { scan-assembler "rsqrt.s" } } */
+
+extern double sqrt(double);
+extern float sqrtf(float);
+
+double foo(double x)
+{
+ return 1.0/sqrt(x);
+}
+
+float bar(float x)
+{
+ return 1.0f/sqrtf(x);
+}
--- /dev/null
+/* { dg-do compile } */
+/* { dg-mips-options "-O2 -ffast-math -mips4 -mhard-float" } */
+/* { dg-final { scan-assembler "rsqrt.d" } } */
+/* { dg-final { scan-assembler "rsqrt.s" } } */
+
+extern double sqrt(double);
+extern float sqrtf(float);
+
+double foo(double x)
+{
+ return sqrt(1.0/x);
+}
+
+float bar(float x)
+{
+ return sqrtf(1.0f/x);
+}
--- /dev/null
+/* { dg-do compile } */
+/* { dg-mips-options "-O2 -mips4 -mhard-float" } */
+/* { dg-final { scan-assembler-not "rsqrt.d" } } */
+/* { dg-final { scan-assembler-not "rsqrt.s" } } */
+
+extern double sqrt(double);
+extern float sqrtf(float);
+
+double foo(double x)
+{
+ return 1.0/sqrt(x);
+}
+
+double bar(double x)
+{
+ return sqrt(1.0/x);
+}
+
+float foof(float x)
+{
+ return 1.0f/sqrtf(x);
+}
+
+float barf(float x)
+{
+ return sqrtf(1.0f/x);
+}
/* Test SB-1 v2sf extensions. */
-/* { dg-do compile { target mipsisa64*-*-* } } */
-/* { dg-options "-march=sb1 -O2 -mpaired-single -mhard-float -mfp64 -ffast-math" } */
+/* { dg-do compile } */
+/* { dg-mips-options "-march=sb1 -O2 -mpaired-single -mhard-float -mgp64 -ffast-math" } */
/* { dg-final { scan-assembler "div.ps" } } */
/* { dg-final { scan-assembler "recip.ps" } } */
/* { dg-final { scan-assembler "sqrt.ps" } } */
--- /dev/null
+/* Make sure that mul/addu is preferred over mtlo/macc and that mul/subu
+ is preferred over mtlo/msac. */
+/* { dg-do compile } */
+/* { dg-mips-options "-O2 -march=vr5400" } */
+int f1 (int a, int b, int c) { return a + b * c; }
+int f2 (int a, int b, int c) { return a - b * c; }
+/* { dg-final { scan-assembler "\tmul\t.*\tmul\t" } } */
--- /dev/null
+/* Make sure that mul/addu is preferred over mtlo/macc and that mul/subu
+ is preferred over mtlo/msac. */
+/* { dg-do compile } */
+/* { dg-mips-options "-O2 -march=vr5500" } */
+int f1 (int a, int b, int c) { return a + b * c; }
+int f2 (int a, int b, int c) { return a - b * c; }
+/* { dg-final { scan-assembler "\tmul\t.*\tmul\t" } } */
projects / gcc.git / commitdiff