Update of /cvsroot/sbcl/sbcl/src/runtime
In directory sc8-pr-cvs1:/tmp/cvs-serv840/src/runtime
Modified Files:
interrupt.c
Log Message:
0.8.2.40:
Sparc build fix I
... cross-compiler versions of ASH-RIGHT-[UN]SIGNED, to stop the
compiler from going into an endless loop during compilation
of STRING :-)
Sparc build fix II
... we don't support sigreturn via call_into_lisp on anything
but x86 yet.
Index: interrupt.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/interrupt.c,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -d -r1.41 -r1.42
--- interrupt.c 17 Aug 2003 15:29:36 -0000 1.41
+++ interrupt.c 18 Aug 2003 10:46:11 -0000 1.42
@@ -551,14 +551,15 @@
build_fake_control_stack_frames(th,context);
#endif
- *os_context_pc_addr(context) = call_into_lisp;
#ifdef LISP_FEATURE_X86
+ *os_context_pc_addr(context) = call_into_lisp;
*os_context_register_addr(context,reg_ECX) = 0;
*os_context_register_addr(context,reg_EBP) = sp-2;
*os_context_register_addr(context,reg_ESP) = sp-14;
#else
/* this much of the calling convention is common to all
non-x86 ports */
+ *os_context_pc_addr(context) = code;
*os_context_register_addr(context,reg_NARGS) = 0;
*os_context_register_addr(context,reg_LIP) = code;
*os_context_register_addr(context,reg_CFP) =
|