X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fx86-assem.S;h=9434c3e5278928d225a34bc617ac89508a4b2e8d;hb=638197e01ef6d5365852758c072b2b102fdceaa6;hp=72b14b855bfad56932e2e4fc830476def1c8945d;hpb=402958f92506b9d3de852601b8c1ccb99b5ee558;p=sbcl.git

diff --git a/src/runtime/x86-assem.S b/src/runtime/x86-assem.S
index 72b14b8..9434c3e 100644
--- a/src/runtime/x86-assem.S
+++ b/src/runtime/x86-assem.S
@@ -17,6 +17,7 @@
 #include "sbcl.h"
 #include "validate.h"
 #include "genesis/closure.h"
+#include "genesis/funcallable-instance.h"
 #include "genesis/fdefn.h"
 #include "genesis/static-symbols.h"
 #include "genesis/symbol.h"
@@ -361,6 +362,17 @@ GNAME(closure_tramp):
 	jmp	*CLOSURE_FUN_OFFSET(%eax)
 	SIZE(GNAME(closure_tramp))
 
+	.text
+	.align	align_4byte,0x90
+	.globl GNAME(funcallable_instance_tramp)
+	TYPE(GNAME(funcallable_instance_tramp))
+GNAME(funcallable_instance_tramp):
+	movl	FUNCALLABLE_INSTANCE_FUNCTION_OFFSET(%eax),%eax	
+	/* KLUDGE: on this platform, whatever kind of function is in %rax
+	 * now, the first word of it contains the address to jump to. */
+	jmp	*CLOSURE_FUN_OFFSET(%eax)
+	SIZE(GNAME(funcallable_instance_tramp))
+	
 /*
  * fun-end breakpoint magic
  */