diff --git a/lisp/hppa-assem.S b/lisp/hppa-assem.S index 3374f1246a94ff0fac3c104359630583e1fbc5dc..6221dfc0eaaddb8b053542f6414c5b8412258f78 100644 --- a/lisp/hppa-assem.S +++ b/lisp/hppa-assem.S @@ -257,7 +257,7 @@ closure_tramp /* reg_FDEFN holds the fdefn object. */ ldw FDEFN_FUNCTION_OFFSET(0,reg_FDEFN),reg_LEXENV ldw CLOSURE_FUNCTION_OFFSET(0,reg_LEXENV),reg_L0 - addi FUNCTION_HEADER_CODE_OFFSET, reg_L0, reg_LIP + addi FUNCTION_CODE_OFFSET, reg_L0, reg_LIP bv,n 0(reg_LIP) .EXPORT undefined_tramp diff --git a/lisp/hppa-assem.s b/lisp/hppa-assem.s index 3374f1246a94ff0fac3c104359630583e1fbc5dc..6221dfc0eaaddb8b053542f6414c5b8412258f78 100644 --- a/lisp/hppa-assem.s +++ b/lisp/hppa-assem.s @@ -257,7 +257,7 @@ closure_tramp /* reg_FDEFN holds the fdefn object. */ ldw FDEFN_FUNCTION_OFFSET(0,reg_FDEFN),reg_LEXENV ldw CLOSURE_FUNCTION_OFFSET(0,reg_LEXENV),reg_L0 - addi FUNCTION_HEADER_CODE_OFFSET, reg_L0, reg_LIP + addi FUNCTION_CODE_OFFSET, reg_L0, reg_LIP bv,n 0(reg_LIP) .EXPORT undefined_tramp diff --git a/lisp/mips-assem.S b/lisp/mips-assem.S index f2ad86a2f57f2c8a381c90ef19cb03b02ea17d7b..df9b7f53f1e3d0f7bcdee4a63fcb365658491ae9 100644 --- a/lisp/mips-assem.S +++ b/lisp/mips-assem.S @@ -1,4 +1,4 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/mips-assem.S,v 1.2 1992/08/16 13:41:50 wlott Exp $ */ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/mips-assem.S,v 1.3 1993/01/10 17:27:07 wlott Exp $ */ #include <machine/regdef.h> #include "internals.h" @@ -262,7 +262,7 @@ undefined_tramp: closure_tramp: lw reg_LEXENV, FDEFN_FUNCTION_OFFSET(reg_FDEFN) lw reg_L0, CLOSURE_FUNCTION_OFFSET(reg_LEXENV) - addu reg_LIP, reg_L0, FUNCTION_HEADER_CODE_OFFSET + addu reg_LIP, reg_L0, FUNCTION_CODE_OFFSET j reg_LIP .end closure_tramp diff --git a/lisp/sparc-assem.S b/lisp/sparc-assem.S index 85e5c0e9fefd6481bdd70e63d9e6f1d40045a183..4e22039bf63c2bd073d42952e389dd04f54717cf 100644 --- a/lisp/sparc-assem.S +++ b/lisp/sparc-assem.S @@ -76,7 +76,7 @@ _call_into_lisp: /* Indirect closure */ ld [reg_LEXENV+CLOSURE_FUNCTION_OFFSET], reg_CODE - jmp reg_CODE+FUNCTION_HEADER_CODE_OFFSET + jmp reg_CODE+FUNCTION_CODE_OFFSET nop .align 8 @@ -201,7 +201,7 @@ _undefined_tramp: .align 4 1: ld [reg_FDEFN+FDEFN_RAW_ADDR_OFFSET], reg_CODE - jmp reg_CODE+FUNCTION_HEADER_CODE_OFFSET + jmp reg_CODE+FUNCTION_CODE_OFFSET nop .global _closure_tramp @@ -217,7 +217,7 @@ _closure_tramp: ld [reg_FDEFN+FDEFN_FUNCTION_OFFSET], reg_LEXENV ld [reg_LEXENV+CLOSURE_FUNCTION_OFFSET], reg_CODE - jmp reg_CODE+FUNCTION_HEADER_CODE_OFFSET + jmp reg_CODE+FUNCTION_CODE_OFFSET nop