[cmucl-cvs] CMUCL commit: cross-sol-x86-branch src/lisp (solaris-os.c)

Raymond Toy rtoy at common-lisp.net
Wed Dec 15 12:45:52 UTC 2010


    Date: Wednesday, December 15, 2010 @ 07:45:52
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/lisp
     Tag: cross-sol-x86-branch

Modified: solaris-os.c

Ifdef out solaris_register_address if we're on an x86, since this
isn't used.


--------------+
 solaris-os.c |    7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)


Index: src/lisp/solaris-os.c
diff -u src/lisp/solaris-os.c:1.26.4.1 src/lisp/solaris-os.c:1.26.4.2
--- src/lisp/solaris-os.c:1.26.4.1	Mon Dec 13 23:25:11 2010
+++ src/lisp/solaris-os.c	Wed Dec 15 07:45:51 2010
@@ -1,5 +1,5 @@
 /*
- * $Header: /project/cmucl/cvsroot/src/lisp/solaris-os.c,v 1.26.4.1 2010-12-14 04:25:11 rtoy Exp $
+ * $Header: /project/cmucl/cvsroot/src/lisp/solaris-os.c,v 1.26.4.2 2010-12-15 12:45:51 rtoy Exp $
  *
  * OS-dependent routines.  This file (along with os.h) exports an
  * OS-independent interface to the operating system VM facilities.
@@ -298,6 +298,7 @@
 
 /* function definitions for register lvalues */
 
+#ifndef i386
 int *
 solaris_register_address(struct ucontext *context, int reg)
 {
@@ -316,6 +317,7 @@
     } else
 	return 0;
 }
+#endif
 
 /* function defintions for backward compatibilty and static linking */
 
@@ -499,6 +501,8 @@
 unsigned long *
 os_sigcontext_reg(ucontext_t *scp, int index)
 {
+    fprintf(stderr, "os_sigcontext_reg index = %d\n", index);
+    
     switch (index) {
     case 0:
 	return (unsigned long *) &scp->uc_mcontext.gregs[EAX];
@@ -523,6 +527,7 @@
 unsigned long *
 os_sigcontext_pc(ucontext_t *scp)
 {
+    fprintf(stderr, "os_sigcontext_pc = %p\n", scp->uc_mcontext.gregs[EIP]);
     return (unsigned long *) &scp->uc_mcontext.gregs[EIP];
 }
 




More information about the cmucl-cvs mailing list