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