From 9ff2fa16de977b48ae9bc46ba91082cb13959a6a Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 10 Mar 1992 10:01:15 +0000
Subject: [PATCH] Ripped out pointer-compare and check<= stuff.

---
 compiler/rt/system.lisp | 56 +----------------------------------------
 1 file changed, 1 insertion(+), 55 deletions(-)

diff --git a/compiler/rt/system.lisp b/compiler/rt/system.lisp
index 4260e99f0..90f66c3a8 100644
--- a/compiler/rt/system.lisp
+++ b/compiler/rt/system.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/system.lisp,v 1.6 1992/03/10 09:01:56 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/system.lisp,v 1.7 1992/03/10 10:01:15 wlott Exp $
 ;;;
 ;;; IBM RT VM definitions of various system hacking operations.
 ;;;
@@ -19,60 +19,6 @@
 (in-package "RT")
 
 
-
-;;;; Random pointer comparison VOPs
-
-(define-vop (pointer-compare)
-  (:args (x :scs (sap-reg))
-	 (y :scs (sap-reg)))
-  (:arg-types system-area-pointer system-area-pointer)
-  (:conditional)
-  (:info target not-p)
-  (:policy :fast-safe)
-  (:note "inline comparison")
-  (:variant-vars condition)
-  (:generator 6
-    (inst cl x y)
-    (if not-p
-	(inst bnc condition target)
-	(inst bc condition target))))
-
-(macrolet ((frob (name cond)
-	     `(progn
-		(def-primitive-translator ,name (x y) `(,',name ,x ,y))
-		(defknown ,name (t t) boolean (movable foldable flushable))
-		(define-vop (,name pointer-compare)
-		  (:translate ,name)
-		  (:variant ,cond)))))
-  (frob pointer< :lt)
-  (frob pointer> :gt))
-
-
-
-;;;; Random assertions VOPS.
-
-(define-vop (check-op)
-  (:args (x :scs (any-reg descriptor-reg))
-	 (y :scs (any-reg descriptor-reg)))
-  (:vop-var vop)
-  (:save-p :compute-only)
-  (:policy :fast-safe))
-
-(define-vop (check<= check-op)
-  (:translate check<=)
-  (:generator 6
-    (let ((target (generate-error-code vop not-<=-error x y)))
-      (inst c x y)
-      (inst bc :gt target))))
-
-(define-vop (check= check-op)
-  (:translate check=)
-  (:generator 6
-    (let ((target (generate-error-code vop not-=-error x y)))
-      (inst c x y)
-      (inst bnc :eq target))))
-
-
 
 ;;;; Type frobbing VOPs.
 
-- 
GitLab