From 9fae334d7a2b22296ebeb2b389191661b9e83b5e Mon Sep 17 00:00:00 2001 From: hallgren <hallgren> Date: Sun, 27 Mar 1994 16:41:13 +0000 Subject: [PATCH] Change offsets again, and add back line which originally was supposed to be commented out. --- lisp/alpha-assem.S | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/alpha-assem.S b/lisp/alpha-assem.S index 265bdece0..6f9696982 100644 --- a/lisp/alpha-assem.S +++ b/lisp/alpha-assem.S @@ -1,4 +1,4 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/alpha-assem.S,v 1.2 1994/03/27 16:18:16 hallgren Exp $ */ +/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/alpha-assem.S,v 1.3 1994/03/27 16:41:13 hallgren Exp $ */ #include <machine/regdef.h> #include <machine/pal.h> @@ -161,6 +161,7 @@ call_into_c: stl reg_ZERO,0(reg_ALLOC) /* Into C land we go. */ + mov reg_CFUNC, reg_L1 /* ### This line is a mystery */ jsr ra, (reg_CFUNC) ldgp $29,0(ra) @@ -217,7 +218,7 @@ start_of_tramps: .text .globl undefined_tramp .ent undefined_tramp_offset -undefined_tramp = /* ### undefined_tramp_offset-call_into_lisp_LRA*/ 0x13c+call_into_lisp_LRA_page +undefined_tramp = /* ### undefined_tramp_offset-call_into_lisp_LRA*/ 0x140+call_into_lisp_LRA_page undefined_tramp_offset: call_pal PAL_gentrap .long 10 @@ -236,7 +237,7 @@ undefined_tramp_offset: .text .globl closure_tramp .ent closure_tramp_offset -closure_tramp = /* ### */ 0x14c + call_into_lisp_LRA_page +closure_tramp = /* ### */ 0x150 + call_into_lisp_LRA_page closure_tramp_offset: ldl reg_LEXENV, FDEFN_FUNCTION_OFFSET(reg_FDEFN) ldl reg_L0, CLOSURE_FUNCTION_OFFSET(reg_LEXENV) -- GitLab