Fix undefined function error on SPARC.

Adjust the register encoding in sparc-assem.S.

Thanks to John Long for providing access to a SPARC machine.

diff --git a/src/code/sc-offset.lisp b/src/code/sc-offset.lisp
index 0f20089..29c8636 100644 (file)
--- a/src/code/sc-offset.lisp
+++ b/src/code/sc-offset.lisp
@@ -17,7 +17,7 @@
 ;;;; which is the SC number and offset encoded as an integer.
 
 ;;;; FIXME: this layout is hardcoded in some .S files,
-;;;; undefined_tramp in at least ppc-assem.S and mips-assem.S uses it.
+;;;; undefined_tramp in at least mips/ppc/sparc-assem.S uses it.
 ;;;; Ideally, it shouldn't be hardcoded.
 (defconstant-eqx sc-offset-scn-byte (byte 6 0) #'equalp)
 (defconstant-eqx sc-offset-offset-byte (byte 21 6) #'equalp)

diff --git a/src/runtime/sparc-assem.S b/src/runtime/sparc-assem.S
index 895128a..c3fc99c 100644 (file)
--- a/src/runtime/sparc-assem.S
+++ b/src/runtime/sparc-assem.S
@@ -219,7 +219,7 @@ undefined_tramp = . + 1
         unimp   trap_Cerror
        .byte   4
         .byte   UNDEFINED_FUN_ERROR
-       .byte   254, sc_DescriptorReg, 3
+       .byte   254, sc_DescriptorReg, 6
        .align  4
 1:
        ld      [reg_FDEFN+FDEFN_RAW_ADDR_OFFSET], reg_CODE