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