From 06276eb9fe0018deca3a8adc204657c66bbb9d2a Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Thu, 21 May 1992 22:49:52 +0000
Subject: [PATCH] Added NOTE-NEXT-INSTRUCTION, which is like NOTE-THIS-LOCATION
 except that it doesn't interfere with the scheduler.

---
 compiler/vmdef.lisp | 18 +++++++++++++++---
 1 file changed, 15 insertions(+), 3 deletions(-)

diff --git a/compiler/vmdef.lisp b/compiler/vmdef.lisp
index d8f06e43c..689a9f720 100644
--- a/compiler/vmdef.lisp
+++ b/compiler/vmdef.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/vmdef.lisp,v 1.41 1992/05/18 17:55:57 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/vmdef.lisp,v 1.42 1992/05/21 22:49:52 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -24,7 +24,8 @@
 	  define-move-function define-move-vop 
 	  primitive-type-or-lose meta-primitive-type-or-lose
 	  def-primitive-type def-primitive-type-alias
-	  primitive-type-vop define-vop sc-case sc-is note-this-location))
+	  primitive-type-vop define-vop sc-case sc-is
+	  note-this-location note-next-instruction))
 
 ;;; Template-Or-Lose  --  Internal
 ;;;
@@ -2447,10 +2448,21 @@
 ;;;
 (defun note-this-location (vop kind)
   "NOTE-THIS-LOCATION VOP Kind
-  Node that the current code location is an interesting (to the debugger)
+  Note that the current code location is an interesting (to the debugger)
   location of the specified Kind.  VOP is the VOP responsible for this code.
   This VOP must specify some non-null :SAVE-P value (perhaps :COMPUTE-ONLY) so
   that the live set is computed."
   (let ((lab (gen-label)))
     (emit-label lab)
     (note-debug-location vop lab kind)))
+
+;;; NOTE-NEXT-INSTRUCTION -- interface.
+;;; 
+(defun note-next-instruction (vop kind)
+  "NOTE-NEXT-INSTRUCTION VOP Kind
+   Similar to NOTE-THIS-LOCATION, except the use the location of the next
+   instruction for the code location, wherever the scheduler decided to put
+   it."
+  (assert (backend-featurep :new-assembler))
+  (new-assem:emit-postit #'(lambda (posn)
+			     (note-debug-location vop posn kind))))
-- 
GitLab