From 2e82ff177eb3b0ec4156f3f9c59013bb3c8ebb0e Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 10 Mar 1992 10:00:34 +0000
Subject: [PATCH] Moved the guts of pointer-compare into base-char-compare now
 that pointer-compare no longer exists.

---
 compiler/rt/char.lisp | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

diff --git a/compiler/rt/char.lisp b/compiler/rt/char.lisp
index 6dab4b2c5..62837a0db 100644
--- a/compiler/rt/char.lisp
+++ b/compiler/rt/char.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/char.lisp,v 1.2 1991/11/09 02:37:16 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/char.lisp,v 1.3 1992/03/10 10:00:34 wlott Exp $
 ;;; 
 ;;; This file contains the RT VM definition of character operations.
 ;;;
@@ -139,10 +139,20 @@
 
 ;;; Comparison of base-chars.
 ;;;
-(define-vop (base-char-compare pointer-compare)
+(define-vop (base-char-compare)
   (:args (x :scs (base-char-reg))
 	 (y :scs (base-char-reg)))
-  (:arg-types base-char base-char))
+  (:arg-types base-char base-char)
+  (: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))))
 
 (define-vop (fast-char=/base-char base-char-compare)
   (:translate char=)
-- 
GitLab