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