Skip to content
Snippets Groups Projects
Commit df8a06ab authored by wlott's avatar wlott
Browse files

Don't inherit from pointer-compare, because it doens't exist anymore. Just

do everything it did for use directly.
parent 820e3d57
No related branches found
No related tags found
No related merge requests found
;;; -*- Package: SPARC -*- ;;; -*- Package: SPARC -*-
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; This code was written as part of the Spice Lisp project at ;;; This code was written as part of the CMU Common Lisp project at
;;; Carnegie-Mellon University, and has been placed in the public domain. ;;; 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 ;;; If you want to use this code or any part of CMU Common Lisp, please contact
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; 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. ;;; This file contains the SPARC VM definition of character operations.
;;; ;;;
...@@ -118,10 +120,19 @@ ...@@ -118,10 +120,19 @@
;;; Comparison of base-chars. ;;; Comparison of base-chars.
;;; ;;;
(define-vop (base-char-compare pointer-compare) (define-vop (base-char-compare)
(:args (x :scs (base-char-reg)) (:args (x :scs (base-char-reg))
(y :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) (define-vop (fast-char=/base-char base-char-compare)
(:translate char=) (:translate char=)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment