X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Falpha-arch.c;h=8cd654a88fe3564ace130a9eef588398436b74e4;hb=cf4cb9554515c59eddbde38d1cf236339c37f55f;hp=27ea9eef4ee806aeaaacb7a8a8e9160d661863c1;hpb=1e4629723d19f96d752235ffde34fe58431431ae;p=sbcl.git

diff --git a/src/runtime/alpha-arch.c b/src/runtime/alpha-arch.c
index 27ea9ee..8cd654a 100644
--- a/src/runtime/alpha-arch.c
+++ b/src/runtime/alpha-arch.c
@@ -16,8 +16,8 @@
 #include <stdio.h>
 #include <string.h>
 
-#include "runtime.h"
 #include "sbcl.h"
+#include "runtime.h"
 #include "globals.h"
 #include "validate.h"
 #include "os.h"
@@ -279,10 +279,14 @@ static void
 sigtrap_handler(int signal, siginfo_t *siginfo, os_context_t *context)
 {
     unsigned int code;
+    sigset_t *mask;
+#ifdef LISP_FEATURE_LINUX
+    os_restore_fp_control(context);
+#endif
 
     /* Don't disallow recursive breakpoint traps.  Otherwise, we can't */
     /* use debugger breakpoints anywhere in here. */
-    sigset_t *mask=(os_context_sigmask_addr(context));
+    mask=(os_context_sigmask_addr(context));
     sigsetmask(mask); 
 
     /* this is different from how CMUCL does it.  CMUCL used "call_pal