aboutsummaryrefslogtreecommitdiff
path: root/libgfortran
diff options
context:
space:
mode:
authorRichard Henderson <rth@redhat.com>2011-06-03 10:36:21 -0700
committerRainer Orth <ro@gcc.gnu.org>2011-06-03 17:36:21 +0000
commit1b7a0148f070deb07455f06a15ff13834c92f17b (patch)
tree03fddddad6b605215bb09601e9cb08a3577d7380 /libgfortran
parent737346fa2420aaa838ad95995d9007f1599ff18b (diff)
downloadgcc-1b7a0148f070deb07455f06a15ff13834c92f17b.zip
gcc-1b7a0148f070deb07455f06a15ff13834c92f17b.tar.gz
gcc-1b7a0148f070deb07455f06a15ff13834c92f17b.tar.bz2
gcc:
* config/i386/crtfastmath.c [!__x86_64__ && __sun__ && __svr4__] (sigill_hdlr): Correct insn, insn size. (set_fast_math) [!__x86_64__ && __sun__ && __svr4__]: Use movaps. gcc/testsuite: * lib/target-supports.exp (check_sse_os_support_available): Use movaps. libgfortran. * config/fpu-387.h [__sun__ && __svr4__] (sigill_hdlr): Correct insn, insn size. (has_sse) [!__x86_64__ && __sun__ && __svr4__]: Use movaps. Co-Authored-By: Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE> From-SVN: r174609
Diffstat (limited to 'libgfortran')
-rw-r--r--libgfortran/ChangeLog7
-rw-r--r--libgfortran/config/fpu-387.h8
2 files changed, 11 insertions, 4 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 9092921..5a22cd3 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,10 @@
+2011-06-03 Richard Henderson <rth@redhat.com>
+ Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
+
+ * config/fpu-387.h [__sun__ && __svr4__] (sigill_hdlr): Correct
+ insn, insn size.
+ (has_sse) [!__x86_64__ && __sun__ && __svr4__]: Use movaps.
+
2011-05-29 Janne Blomqvist <jb@gcc.gnu.org>
PR libfortran/48931
diff --git a/libgfortran/config/fpu-387.h b/libgfortran/config/fpu-387.h
index c3e57cb..8bf55b2 100644
--- a/libgfortran/config/fpu-387.h
+++ b/libgfortran/config/fpu-387.h
@@ -1,5 +1,5 @@
/* FPU-related code for x86 and x86_64 processors.
- Copyright 2005, 2007, 2009, 2010 Free Software Foundation, Inc.
+ Copyright 2005, 2007, 2009, 2010, 2011 Free Software Foundation, Inc.
Contributed by Francois-Xavier Coudert <coudert@clipper.ens.fr>
This file is part of the GNU Fortran 95 runtime library (libgfortran).
@@ -40,9 +40,9 @@ sigill_hdlr (int sig __attribute((unused)),
{
sigill_caught = 1;
/* Set PC to the instruction after the faulting one to skip over it,
- otherwise we enter an infinite loop. 4 is the size of the stmxcsr
+ otherwise we enter an infinite loop. 3 is the size of the movaps
instruction. */
- ucp->uc_mcontext.gregs[EIP] += 4;
+ ucp->uc_mcontext.gregs[EIP] += 3;
setcontext (ucp);
}
#endif
@@ -73,7 +73,7 @@ has_sse (void)
/* We need a single SSE instruction here so the handler can safely skip
over it. */
- __asm__ volatile ("movss %xmm2,%xmm1");
+ __asm__ volatile ("movaps %xmm0,%xmm0");
sigaction (SIGILL, &oact, NULL);