X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsparc%2Fcall.lisp;h=a4784b1df9f3ba3df20fb069dc004fabb72a5f2c;hb=4cd96b3be366d23b972a147965e40ea022329259;hp=73b64c7ad4cf63339cd5c6552efca667434b11da;hpb=4ad46c68f4780c6028242377b4187a046bad5826;p=sbcl.git

diff --git a/src/compiler/sparc/call.lisp b/src/compiler/sparc/call.lisp
index 73b64c7..a4784b1 100644
--- a/src/compiler/sparc/call.lisp
+++ b/src/compiler/sparc/call.lisp
@@ -397,6 +397,15 @@ default-value-8
               nvals)
   (:temporary (:scs (non-descriptor-reg)) temp))
 
+
+;;; This hook in the codegen pass lets us insert code before fall-thru entry
+;;; points, local-call entry points, and tail-call entry points.  The default
+;;; does nothing.
+(defun emit-block-header (start-label trampoline-label fall-thru-p alignp)
+  (declare (ignore fall-thru-p alignp))
+  (when trampoline-label
+    (emit-label trampoline-label))
+  (emit-label start-label))
 
 
 ;;;; Local call with unknown values convention return: