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