From: Stas Boukarev <stassats@gmail.com>
Date: Sun, 3 Nov 2013 15:09:04 +0000 (+0400)
Subject: Fix undefined function error on SPARC.
X-Git-Url: http://repo.macrolet.net/gitweb/?p=sbcl.git;a=commitdiff_plain;h=e51821dc33815272034a3adf76b91861d0729304

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
--- 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
--- 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