Changeset 2881

Timestamp:

Nov 15, 2005, 9:30:15 AM (15 years ago)

Author:

gb

Message:

Stubs for x86 exception stuff.

Location:

trunk/ccl/lisp-kernel

Files:

• x86-exceptions.c (modified) (1 diff)
• x86-exceptions.h (modified) (1 diff)

trunk/ccl/lisp-kernel/x86-exceptions.c

@@ -15 +15 @@
 */
 
+#include "lisp.h"
+#include "lisp-exceptions.h"
+#include "lisp_globals.h"
+#include <ctype.h>
+#include <stdio.h>
+#include <stddef.h>
+#include <string.h>
+#include <stdarg.h>
+#include <errno.h>
+#include <stdio.h>
+#ifdef LINUX
+#include <strings.h>
+#include <sys/mman.h>
+#include <fpu_control.h>
+#include <linux/prctl.h>
+#endif
+
+int
+page_size = 8192;
+
+void
+install_signal_handler(int signo, __sighandler_t handler)
+{
+  struct sigaction sa;
+  
+  sa.sa_sigaction = (void *)handler;
+  sigfillset(&sa.sa_mask);
+  sa.sa_flags = 
+    SA_RESTART
+    | SA_SIGINFO;
+
+  sigaction(signo, &sa, NULL);
+}
+
+void
+enable_fp_exceptions()
+{
+}
+
+void
+exception_init()
+{
+}
+
+void
+adjust_exception_pc(ExceptionInformation *xp, int delta)
+{
+  xpPC(xp) += delta;
+}
+
+void
+restore_soft_stack_limit(unsigned stkreg)
+{
+}
+
+/* Maybe this'll work someday.  We may have to do something to
+   make the thread look like it's not handling an exception */
+void
+reset_lisp_process(ExceptionInformation *xp)
+{
+}

trunk/ccl/lisp-kernel/x86-exceptions.h

@@ -15 +15 @@
 */
 
+typedef u_int8_t opcode, *pc;
 
 #ifdef LINUX
 #ifdef X8664
-#define xpGPRvector(x) ((natural *)(&((x)->uc_mcontext)))
+#define xpGPRvector(x) ((natural *)(&((x)->uc_mcontext.gregs)))
 #define xpGPR(x,gprno) (xpGPRvector(x)[gprno])
 #define set_xpGPR(x,gpr,new) xpGPR((x),(gpr)) = (natural)(new)
-#define xpPC(x) ((pc)(((struct sigcontext *)(&((x)->uc_mcontext)))->rip))
+#define xpPC(x) xpGPR(x,REG_RIP)
 #endif
 #endif