Skip to content
Snippets Groups Projects
Commit 3a4e4127 authored by cwang's avatar cwang
Browse files

Change jecxz to jrcxz

parent 688a15ec
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/assembly/amd64/array.lisp,v 1.2 2004/07/14 20:51:49 cwang Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/amd64/array.lisp,v 1.3 2004/07/27 23:28:41 cwang Rel $")
;;;
;;; **********************************************************************
;;;
......@@ -85,11 +85,11 @@
(inst xor result result)
;; Get the count. If it's zero, blow out.
(inst mov rcx length)
(inst jecxz done) ; I'd probably change all jecxz to jrcxz
(inst jrcxz done)
;; Convert it into count of the number of full words. If zero, then skip
;; to the part that handles the tail.
(inst shr rcx 5) ; 2 tag bits + 3
(inst jecxz do-extra)
(inst jrcxz do-extra)
;; Clear the direction flag, so we advance through memory.
(inst cld)
......@@ -107,7 +107,7 @@
;; here. Otherwise, multiply by 8.
(inst mov rcx length)
(inst and rcx (fixnumize 7))
(inst jecxz done)
(inst jrcxz done)
;; some bytes are left
(inst shl rcx 1)
......
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/amd64/assem-rtns.lisp,v 1.2 2004/07/27 21:05:33 cwang Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/amd64/assem-rtns.lisp,v 1.3 2004/07/27 23:28:41 cwang Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -42,7 +42,7 @@
(:temp rdi unsigned-reg rdi-offset))
;; Pick off the cases where everything fits in register args.
(inst jecxz zero-values)
(inst jrcxz zero-values)
(inst cmp rcx (fixnumize 1))
(inst jmp :e one-value)
(inst cmp rcx (fixnumize 2))
......
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/amd64/insts.lisp,v 1.4 2004/07/14 21:05:13 cwang Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/amd64/insts.lisp,v 1.5 2004/07/27 23:28:41 cwang Rel $")
;;;
;;; **********************************************************************
;;;
......@@ -2094,7 +2094,7 @@
(t
(emit-byte segment #b11000011)))))
(define-instruction jecxz (segment target)
(define-instruction jrcxz (segment target)
(:printer short-jump ((op #b0011)))
(:emitter
(emit-byte segment #b11100011)
......@@ -2103,7 +2103,7 @@
(define-instruction loop (segment target)
(:printer short-jump ((op #b0010)))
(:emitter
(emit-byte segment #b11100010) ; pfw this was 11100011, or jecxz!!!!
(emit-byte segment #b11100010)
(emit-byte-displacement-backpatch segment target)))
(define-instruction loopz (segment target)
......
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/amd64/nlx.lisp,v 1.2 2004/07/06 20:21:09 cwang Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/amd64/nlx.lisp,v 1.3 2004/07/27 23:28:41 cwang Rel $")
;;;
;;; **********************************************************************
;;;
......@@ -181,7 +181,7 @@
((= nvals 1)
(let ((no-values (gen-label)))
(inst mov (tn-ref-tn values) nil-value)
(inst jecxz no-values)
(inst jrcxz no-values)
(loadw (tn-ref-tn values) start -1)
(emit-label no-values)))
(t
......@@ -240,7 +240,7 @@
(move num rcx)
(inst shr rcx word-shift) ; word count for <rep movs>
;; If we got zero, we be done.
(inst jecxz done)
(inst jrcxz done)
;; Copy them down.
(inst std)
(inst rep)
......
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/amd64/values.lisp,v 1.1 2004/05/24 22:35:00 cwang Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/amd64/values.lisp,v 1.2 2004/07/27 23:28:41 cwang Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -121,7 +121,7 @@
(move temp1 count)
(inst mov start rsp-tn)
(inst jecxz done) ; check for 0 count?
(inst jrcxz done) ; check for 0 count?
(inst shr temp1 word-shift) ; convert the fixnum to a count.
......
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