X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fhppa%2Fcall.lisp;h=8c004dbdbaf3b440b4bb62120ce2bf886e58a68e;hb=436b2ab0276f547e8537b6c1fb52b11fa1f53975;hp=58aab33e6acf0705b7658d3bebd97c8c61bddeff;hpb=f5186ef0bbde9c91a83d27db84eb710db504e7af;p=sbcl.git

diff --git a/src/compiler/hppa/call.lisp b/src/compiler/hppa/call.lisp
index 58aab33..8c004db 100644
--- a/src/compiler/hppa/call.lisp
+++ b/src/compiler/hppa/call.lisp
@@ -417,6 +417,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: