[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