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