Update of /cvsroot/sbcl/sbcl/src/runtime
In directory usw-pr-cvs1:/tmp/cvs-serv17756/src/runtime
Modified Files:
ppc-assem.S
Log Message:
0.7.5.18:
Get the NAME initarg for UNDEFINED-FUNCTION right (patch CSR
"PPC and undefined functions" sbcl-devel 2002-07-17)
Index: ppc-assem.S
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/ppc-assem.S,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- ppc-assem.S 18 Mar 2002 17:59:37 -0000 1.1
+++ ppc-assem.S 18 Jul 2002 21:24:00 -0000 1.2
@@ -347,10 +347,9 @@
GFUNCDEF(xundefined_tramp)
.globl undefined_tramp
- .byte 0,0,0,SIMPLE_FUN_HEADER_WIDETAG /* type_FunctionHeader */
-
+ .byte 0,0,0,SIMPLE_FUN_HEADER_WIDETAG
.byte 18<<2
-undefined_tramp:
+undefined_tramp:
.byte 0,0,24
.long undefined_tramp
.long NIL
@@ -360,7 +359,7 @@
twllei reg_ZERO,trap_Cerror
.byte 4
.byte UNDEFINED_FUN_ERROR
- .byte 254, 140, 2 /* 140? sparc says sc_descriptorReg */
+ .byte 254, sc_DescriptorReg+0x40, 1 /* 140? sparc says sc_descriptorReg */
.align 2
1: lwz reg_CODE,FDEFN_RAW_ADDR_OFFSET(reg_FDEFN)
la reg_LIP,SIMPLE_FUN_CODE_OFFSET(reg_CODE)
|