X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fppc-arch.c;h=5e44b6319aaa386ec367c135ef56881aab93182c;hb=b870615b146940f661e5d0e9069ca4e16e9f483d;hp=eac4013f9d5d20ec350510ea4b4f4f1dd56de33b;hpb=c1b4849c95bad4f3535fba2b9307fd37e15bcf6d;p=sbcl.git

diff --git a/src/runtime/ppc-arch.c b/src/runtime/ppc-arch.c
index eac4013..5e44b63 100644
--- a/src/runtime/ppc-arch.c
+++ b/src/runtime/ppc-arch.c
@@ -1,12 +1,3 @@
-/*
-
- $Header$
-
- This code was written as part of the CMU Common Lisp project at
- Carnegie Mellon University, and has been placed in the public domain.
-
-*/
-
 #include <stdio.h>
 
 #include "arch.h"
@@ -137,6 +128,9 @@ sigtrap_handler(int signal, siginfo_t *siginfo, os_context_t *context)
     int badinst;
     u32 code;
     sigset_t *mask;
+#ifdef LISP_FEATURE_LINUX
+    os_restore_fp_control(context);
+#endif
     mask=(os_context_sigmask_addr(context));
     sigsetmask(mask); 
     code=*((u32 *)(*os_context_pc_addr(context)));