-/*
-
- $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"
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)));