From 4fdf7d22150016e094840d6cf5c29e77c3cd2b59 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 16 Apr 1990 10:59:16 +0000 Subject: [PATCH] Merged non-descriptor changes: revision 1.2.1.2 date: 90/04/13 12:59:07; author: ram; state: Exp; lines added/del: 0/13 Moved POINTER-COMPARE to char, since it is now loaded first. ---------------------------- revision 1.2.1.1 date: 90/04/08 22:38:40; author: ram; state: Exp; lines added/del: 5/1 Fixed temporary spec in pointer- to specify a SC restriction. --- compiler/old-rt/system.lisp | 19 +++++-------------- 1 file changed, 5 insertions(+), 14 deletions(-) diff --git a/compiler/old-rt/system.lisp b/compiler/old-rt/system.lisp index 90ecd445f..bf4dd20b4 100644 --- a/compiler/old-rt/system.lisp +++ b/compiler/old-rt/system.lisp @@ -28,7 +28,11 @@ (:args (ptr1 :scs (descriptor-reg) :target temp) (ptr2 :scs (descriptor-reg))) (:results (res :scs (any-reg descriptor-reg))) - (:temporary (:from (:argument 0) :to (:result 0) :target res) temp) + (:temporary (:sc any-reg + :from (:argument 0) + :to (:result 0) + :target res) + temp) (:generator 1 (unless (location= ptr1 temp) (inst lr temp ptr1)) @@ -57,19 +61,6 @@ (loadw res x (/ clc::bignum-header-size 4)) (emit-label fixp)))) -(define-vop (pointer-compare) - (:args (x :scs (any-reg descriptor-reg)) - (y :scs (any-reg descriptor-reg))) - (:conditional) - (:info target not-p) - (:policy :fast-safe) - (:note "inline comparison") - (:variant-vars condition) - (:generator 3 - (inst cl x y) - (if not-p - (inst bnb condition target) - (inst bb condition target)))) (macrolet ((frob (name cond) `(progn -- GitLab