From 7358dd8a657227c184264e80e6342cdd855c2131 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 5 Mar 1990 12:30:36 +0000
Subject: [PATCH] Made miscops note the return location for debug info.

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

diff --git a/compiler/old-rt/miscop.lisp b/compiler/old-rt/miscop.lisp
index 0081f0e8b..22a8b3e04 100644
--- a/compiler/old-rt/miscop.lisp
+++ b/compiler/old-rt/miscop.lisp
@@ -39,6 +39,8 @@
 	      misc-pc)
   (:note "miscop call")
   (:variant-vars miscop-name)
+  (:vop-var vop)
+  (:save-p :compute-only)
   (:policy :safe))
 
 (eval-when (compile load eval)
@@ -109,6 +111,7 @@
 	 (:generator 20
 	   ,@(arg-moves)
 	   (inst miscop miscop-name)
+	   (note-this-location vop :known-return)
 	   ,@(result-moves)
 	   ,@(when conditional
 	       '((if not-p
@@ -157,6 +160,7 @@
     (inst lr args cont-tn)
     (inst miscopx miscop-name)
     (inst cal nl0 zero-tn nargs)
+    (note-this-location vop :known-return)
     (unless (location= r a0)
       (inst lr r a0))))
 
@@ -169,6 +173,7 @@
     (inst lr args cont-tn)
     (inst miscopx miscop-name)
     (inst cal nl0 zero-tn nargs)
+    (note-this-location vop :known-return)
     (unless (location= r a0)
       (inst lr r a0))
     (unless (location= r1 a1)
-- 
GitLab