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