Skip to content
Snippets Groups Projects
Commit 9fae334d authored by hallgren's avatar hallgren
Browse files

Change offsets again, and add back line which originally was supposed

to be commented out.
parent cafa6de0
No related branches found
No related tags found
No related merge requests found
/* $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/regdef.h>
#include <machine/pal.h> #include <machine/pal.h>
...@@ -161,6 +161,7 @@ call_into_c: ...@@ -161,6 +161,7 @@ call_into_c:
stl reg_ZERO,0(reg_ALLOC) stl reg_ZERO,0(reg_ALLOC)
/* Into C land we go. */ /* Into C land we go. */
mov reg_CFUNC, reg_L1 /* ### This line is a mystery */
jsr ra, (reg_CFUNC) jsr ra, (reg_CFUNC)
ldgp $29,0(ra) ldgp $29,0(ra)
...@@ -217,7 +218,7 @@ start_of_tramps: ...@@ -217,7 +218,7 @@ start_of_tramps:
.text .text
.globl undefined_tramp .globl undefined_tramp
.ent undefined_tramp_offset .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: undefined_tramp_offset:
call_pal PAL_gentrap call_pal PAL_gentrap
.long 10 .long 10
...@@ -236,7 +237,7 @@ undefined_tramp_offset: ...@@ -236,7 +237,7 @@ undefined_tramp_offset:
.text .text
.globl closure_tramp .globl closure_tramp
.ent closure_tramp_offset .ent closure_tramp_offset
closure_tramp = /* ### */ 0x14c + call_into_lisp_LRA_page closure_tramp = /* ### */ 0x150 + call_into_lisp_LRA_page
closure_tramp_offset: closure_tramp_offset:
ldl reg_LEXENV, FDEFN_FUNCTION_OFFSET(reg_FDEFN) ldl reg_LEXENV, FDEFN_FUNCTION_OFFSET(reg_FDEFN)
ldl reg_L0, CLOSURE_FUNCTION_OFFSET(reg_LEXENV) ldl reg_L0, CLOSURE_FUNCTION_OFFSET(reg_LEXENV)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment