OSDN Git Service

New test.
authorrth <rth@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 5 Dec 2000 08:13:27 +0000 (08:13 +0000)
committerrth <rth@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 5 Dec 2000 08:13:27 +0000 (08:13 +0000)
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@38029 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/testsuite/ChangeLog
gcc/testsuite/gcc.c-torture/compile/20001205-1.c [new file with mode: 0644]

index 1045ec4..f9630fe 100644 (file)
@@ -1,3 +1,7 @@
+2000-12-05  Richard Henderson  <rth@redhat.com>
+
+       * gcc.c-torture/compile/20001205-1.c: New.
+
 2000-12-04  Neil Booth  <neilb@earthling.net>
 
        * g++.old-deja/g++.other/virtual9.C: New test.
diff --git a/gcc/testsuite/gcc.c-torture/compile/20001205-1.c b/gcc/testsuite/gcc.c-torture/compile/20001205-1.c
new file mode 100644 (file)
index 0000000..69708e5
--- /dev/null
@@ -0,0 +1,21 @@
+static inline unsigned long rdfpcr(void)
+{
+        unsigned long tmp, ret;
+        __asm__ ("" : "=r"(tmp), "=r"(ret));
+        return ret;
+}
+
+static inline unsigned long
+swcr_update_status(unsigned long swcr, unsigned long fpcr)
+{
+       swcr &= ~0x7e0000ul;
+        swcr |= (fpcr >> 3) & 0x7e0000ul;
+        return swcr;
+}
+
+unsigned long osf_getsysinfo(unsigned long flags)
+{
+        unsigned long w;
+       w = swcr_update_status(flags, rdfpcr());
+       return w;
+}