From 00a6ee98f63fff8ce6c657a6da033cc3fc04ae39 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 5 Mar 1990 17:01:54 +0000
Subject: [PATCH] Changed people to use the new interface to
 GENERATE-ERROR-CODE, which takes a VOP instead of a node.

---
 compiler/old-rt/cell.lisp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/compiler/old-rt/cell.lisp b/compiler/old-rt/cell.lisp
index 5fe91df96..5e0243876 100644
--- a/compiler/old-rt/cell.lisp
+++ b/compiler/old-rt/cell.lisp
@@ -23,7 +23,8 @@
   (:args (object :scs (descriptor-reg) :target obj-temp))
   (:results (value :scs (descriptor-reg any-reg)))
   (:policy :fast-safe)
-  (:node-var node)
+  (:vop-var vop)
+  (:save-p :compute-only)
   (:temporary (:type random  :scs (non-descriptor-reg)) temp)
   (:temporary (:scs (descriptor-reg)) obj-temp))
 
@@ -36,7 +37,7 @@
     (unless (location= obj-temp object)
       (inst lr obj-temp object))
     (loadw value obj-temp (/ clc::symbol-value 4))
-    (let ((err-lab (generate-error-code node clc::error-symbol-unbound
+    (let ((err-lab (generate-error-code vop clc::error-symbol-unbound
 					obj-temp)))
       (test-special-value value temp '%trap-object err-lab nil))))
 
@@ -49,7 +50,7 @@
     (unless (location= obj-temp object)
       (inst lr obj-temp object))
     (loadw value obj-temp (/ clc::symbol-definition 4))
-    (let ((err-lab (generate-error-code node clc::error-symbol-undefined
+    (let ((err-lab (generate-error-code vop clc::error-symbol-undefined
 					obj-temp)))
       (test-simple-type value temp err-lab t system:%function-type))))
 
-- 
GitLab