X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Falpha-assem.S;h=ac79fa1dc60a1ba059e80fed18fb83e3355c12ea;hb=3b90774a1ea68bf42579594c872de16fb33f1454;hp=c0ab2cc9a07e1737cca374386fb96056730fa1c4;hpb=fe36a56422d474a00a58812ec886eb14f024ba0d;p=sbcl.git

diff --git a/src/runtime/alpha-assem.S b/src/runtime/alpha-assem.S
index c0ab2cc..ac79fa1 100644
--- a/src/runtime/alpha-assem.S
+++ b/src/runtime/alpha-assem.S
@@ -20,6 +20,7 @@
 #include "lispregs.h"
 #include "genesis/fdefn.h"
 #include "genesis/closure.h"
+#include "genesis/funcallable-instance.h"
 #include "genesis/simple-fun.h"
 #include "genesis/static-symbols.h"
 
@@ -296,6 +297,23 @@ closure_tramp= call_into_lisp_LRA_page+0x150
 	.globl	end_of_tramps
 end_of_tramps:
 
+	.text
+	.globl funcallable_instance_tramp
+	.align 2
+	.long SIMPLE_FUN_HEADER_WIDETAG
+funcallable_instance_tramp = . + 1
+	.long funcallable_instance_tramp
+	.long NIL
+	.long NIL
+	.long NIL
+	.long NIL
+
+	ldl reg_LEXENV, FUNCALLABLE_INSTANCE_FUNCTION_OFFSET(reg_LEXENV)
+	/* I think we don't actually need to use reg_CODE here, because
+	   $CODE is computed from $LIP in the function itself */
+	ldl reg_CODE, CLOSURE_FUN_OFFSET(reg_LEXENV) 
+	addl reg_CODE, SIMPLE_FUN_CODE_OFFSET, reg_LIP
+	jmp reg_ZERO, (reg_LIP)
 
 /*
  * fun-end breakpoint magic.