Skip to content
Snippets Groups Projects
Commit 6f628e8f authored by toy's avatar toy
Browse files

Oops. Fix typos.

parent c558cadd
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/char.lisp,v 1.5 2003/07/01 18:47:01 toy Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/char.lisp,v 1.6 2003/07/01 20:02:01 toy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -180,7 +180,7 @@
(:variant-vars condition not-condition)
(:generator 2
(inst cmp x (char-code y))
(inst jump (if not-p not-condition condition) target)))
(inst jmp (if not-p not-condition condition) target)))
(define-vop (fast-char=-c/base-char base-char-compare-c)
(:translate char=)
......@@ -188,9 +188,9 @@
(define-vop (fast-char<-c/base-char base-char-compare-c)
(:translate char<)
(:variant :ltu :geu))
(:variant :b :nb))
(define-vop (fast-char>-c/base-char/c base-char-compare-c)
(:translate char>)
(:variant :gtu :leu))
(:variant :a :na))
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