From 409abc7763aa90f947e9bef2a499b77a725ae343 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Sat, 10 Mar 1990 17:10:36 +0000
Subject: [PATCH] Added NOTE-ENVIRONMENT-START.  Added start label arg to
 ALLOCATE-FRAME.

---
 compiler/old-rt/call.lisp | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/compiler/old-rt/call.lisp b/compiler/old-rt/call.lisp
index 3e48c5fd9..6bd737574 100644
--- a/compiler/old-rt/call.lisp
+++ b/compiler/old-rt/call.lisp
@@ -155,6 +155,15 @@
   (:generator 1
     (inst lr val cont-tn)))
 
+
+;;; Notes the place at which the environment is properly initialized, for
+;;; debug-info purposes.
+;;;
+(define-vop (note-environment-start)
+  (:info start-lab)
+  (:generator 0
+    (emit-label start-lab)))
+
 
 ;;; Default-Unknown-Values  --  Internal
 ;;;
@@ -844,10 +853,16 @@ default-value-5
 ;;;; XEP hackery:
 
 
+;;; We get to emit the start label, since we might need to emit variable cruft
+;;; to align it, etc.
+;;;
 (define-vop (allocate-frame)
+  (:info start-lab)
   (:generator 1
+    (emit-label start-lab)
     (inst cal sp-tn cont-tn (current-frame-size))))
 
+
 ;;; Fetch the constant pool from the function entry structure.
 ;;;
 (define-vop (setup-environment)
-- 
GitLab