diff --git a/compiler/sparc/char.lisp b/compiler/sparc/char.lisp index 8fa847c3180eb1daac5824cd758bdabec803d996..7e0a851919dd5179dfa987c4ee436fba2bb05637 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=)