X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Falpha-assem.S;h=c0ab2cc9a07e1737cca374386fb96056730fa1c4;hb=079ef9dad558ca07cb8178ef428bf738112174fa;hp=c23e5467a56704e666b979524946b0cd4c398334;hpb=1e4629723d19f96d752235ffde34fe58431431ae;p=sbcl.git

diff --git a/src/runtime/alpha-assem.S b/src/runtime/alpha-assem.S
index c23e546..c0ab2cc 100644
--- a/src/runtime/alpha-assem.S
+++ b/src/runtime/alpha-assem.S
@@ -18,6 +18,11 @@
 #endif
 #include "sbcl.h"
 #include "lispregs.h"
+#include "genesis/fdefn.h"
+#include "genesis/closure.h"
+#include "genesis/simple-fun.h"
+#include "genesis/static-symbols.h"
+
 /* #include "globals.h" */
 	
 /*
@@ -252,9 +257,7 @@ start_of_tramps:
  */
         .text
 	.globl	start_of_tramps
-	.globl	closure_tramp
 	.globl	undefined_tramp
-	.globl	closure_tramp_offset
 	.globl	undefined_tramp_offset
         .ent    undefined_tramp_offset
 undefined_tramp_offset:
@@ -279,9 +282,10 @@ undefined_tramp= call_into_lisp_LRA_page+0x140
 /* The closure trampoline. */
         .text
         .globl  closure_tramp
+        .globl  closure_tramp_offset
         .ent    closure_tramp_offset
-closure_tramp= call_into_lisp_LRA_page+0x150
 closure_tramp_offset:
+closure_tramp= call_into_lisp_LRA_page+0x150
         ldl     reg_LEXENV, FDEFN_FUN_OFFSET(reg_FDEFN)
         ldl     reg_L0, CLOSURE_FUN_OFFSET(reg_LEXENV)
         addl    reg_L0, SIMPLE_FUN_CODE_OFFSET, reg_LIP