From df8a06ab8b703e196dc8c89fc796f1aa4b64a60b Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 25 Feb 1992 07:04:51 +0000
Subject: [PATCH] Don't inherit from pointer-compare, because it doens't exist
 anymore.  Just do everything it did for use directly.

---
 compiler/sparc/char.lisp | 27 +++++++++++++++++++--------
 1 file changed, 19 insertions(+), 8 deletions(-)

diff --git a/compiler/sparc/char.lisp b/compiler/sparc/char.lisp
index 8fa847c31..7e0a85191 100644
--- a/compiler/sparc/char.lisp
+++ b/compiler/sparc/char.lisp
@@ -1,13 +1,15 @@
 ;;; -*- Package: SPARC -*-
 ;;;
 ;;; **********************************************************************
-;;; This code was written as part of the Spice Lisp project at
-;;; Carnegie-Mellon University, and has been placed in the public domain.
-;;; If you want to use this code or any part of Spice Lisp, please contact
-;;; Scott Fahlman (FAHLMAN@CMUC). 
-;;; **********************************************************************
+;;; This code was written as part of the CMU Common Lisp project at
+;;; Carnegie Mellon University, and has been placed in the public domain.
+;;; If you want to use this code or any part of CMU Common Lisp, please contact
+;;; Scott Fahlman or slisp-group@cs.cmu.edu.
+;;;
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/char.lisp,v 1.6 1992/02/25 07:04:51 wlott Exp $")
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/char.lisp,v 1.5 1992/01/15 16:17:50 ram Exp $
+;;; **********************************************************************
 ;;; 
 ;;; This file contains the SPARC VM definition of character operations.
 ;;;
@@ -118,10 +120,19 @@
 
 ;;; 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 not-condition)
+  (:generator 3
+    (inst cmp x y)
+    (inst b (if not-p not-condition condition) target)
+    (inst nop)))
 
 (define-vop (fast-char=/base-char base-char-compare)
   (:translate char=)
-- 
GitLab