From 5f7d59092a1505c59bf7b972773780f26d9adaae Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 5 Mar 1990 17:04:43 +0000
Subject: [PATCH] Changed to use the new GENERATE-ERROR-CODE interface.

---
 compiler/old-rt/system.lisp    |  5 +++--
 compiler/old-rt/type-vops.lisp | 12 +++++++-----
 2 files changed, 10 insertions(+), 7 deletions(-)

diff --git a/compiler/old-rt/system.lisp b/compiler/old-rt/system.lisp
index 7299404a6..90ecd445f 100644
--- a/compiler/old-rt/system.lisp
+++ b/compiler/old-rt/system.lisp
@@ -85,11 +85,12 @@
   (:args (x :scs (any-reg descriptor-reg))
 	 (y :scs (any-reg descriptor-reg)))
   (:variant-vars condition not-p error)
-  (:node-var node)
+  (:vop-var vop)
+  (:save-p :compute-only)
   (:policy :fast-safe)
   (:generator 3
     (inst c x y)
-    (let ((target (generate-error-code node error x y)))
+    (let ((target (generate-error-code vop error x y)))
       (if not-p
 	  (inst bb condition target)
 	  (inst bnb condition target)))))
diff --git a/compiler/old-rt/type-vops.lisp b/compiler/old-rt/type-vops.lisp
index 64c9616ab..55c37560b 100644
--- a/compiler/old-rt/type-vops.lisp
+++ b/compiler/old-rt/type-vops.lisp
@@ -26,10 +26,11 @@
   (:results
    (result :scs (any-reg descriptor-reg)))
   (:variant-vars type-code error-code)
-  (:node-var node)
+  (:vop-var vop)
+  (:save-p :compute-only)
   (:temporary (:type random  :scs (non-descriptor-reg)) temp)
   (:generator 4
-    (let ((err-lab (generate-error-code node error-code value)))
+    (let ((err-lab (generate-error-code vop error-code value)))
       (test-simple-type value temp err-lab t type-code)
       (unless (location= value result)
 	(inst lr result value)))))
@@ -126,7 +127,8 @@ simple-integer-vector-p?
   (:results
    (res :scs (any-reg descriptor-reg)))
   (:temporary (:scs (any-reg) :type fixnum) temp)
-  (:node-var node))
+  (:vop-var vop)
+  (:save-p :compute-only))
 
   
 (macrolet ((frob (pred-name check-name error-code &rest types)
@@ -144,7 +146,7 @@ simple-integer-vector-p?
 		      `((define-vop (,check-name check-hairy-type)
 			  (:generator ,cost
 			    (let ((err-lab (generate-error-code
-					    node ,error-code obj)))
+					    vop ,error-code obj)))
 			      (test-hairy-type obj temp err-lab t ,@types))
 			    (unless (location= obj res)
 			      (inst lr res obj))))))))))
@@ -205,7 +207,7 @@ simple-integer-vector-p?
 		    ,@body))
 		(define-vop (,check-name check-list-symbol)
 		  (:generator 12
-		    (let ((target (generate-error-code node ,error-code obj))
+		    (let ((target (generate-error-code vop ,error-code obj))
 			  (not-p t))
 		      ,@body
 		      (unless (location= obj res)
-- 
GitLab