X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Ftn.lisp;h=2fbfe4625dcf1a93d7b0ed44b17ef6ea8a5acc03;hb=d6f9676ae94419cb5544c45821a8d31adbc1fbe8;hp=38d1209fadde0dd0d8cd12616c90b4930943372f;hpb=26839b3799e0687e8df96282aea0368ce12c1e95;p=sbcl.git

diff --git a/src/compiler/tn.lisp b/src/compiler/tn.lisp
index 38d1209..2fbfe46 100644
--- a/src/compiler/tn.lisp
+++ b/src/compiler/tn.lisp
@@ -376,6 +376,11 @@
   (let ((2block (block-info block)))
     (or (ir2-block-%label 2block)
         (setf (ir2-block-%label 2block) (gen-label)))))
+(defun block-trampoline (block)
+  (declare (type cblock block))
+  (let ((2block (block-info block)))
+    (or (ir2-block-%trampoline-label 2block)
+        (setf (ir2-block-%trampoline-label 2block) (gen-label)))))
 
 ;;; Return true if Block is emitted immediately after the block ended by Node.
 (defun drop-thru-p (node block)
@@ -383,6 +388,11 @@
   (let ((next-block (ir2-block-next (block-info (node-block node)))))
     (aver (eq node (block-last (node-block node))))
     (eq next-block (block-info block))))
+(defun register-drop-thru (block)
+  (declare (type cblock block))
+  (let ((2block (block-info block)))
+    (setf (ir2-block-dropped-thru-to 2block) t))
+  nil)
 
 ;;; Link a list of VOPs from First to Last into Block, Before the specified
 ;;; VOP. If Before is NIL, insert at the end.