From 3a4e4127e70ffe75305820bdcab34a9d5c36a10a Mon Sep 17 00:00:00 2001
From: cwang <cwang>
Date: Tue, 27 Jul 2004 23:28:41 +0000
Subject: [PATCH] Change jecxz to jrcxz

---
 assembly/amd64/array.lisp      | 8 ++++----
 assembly/amd64/assem-rtns.lisp | 4 ++--
 compiler/amd64/insts.lisp      | 6 +++---
 compiler/amd64/nlx.lisp        | 6 +++---
 compiler/amd64/values.lisp     | 4 ++--
 5 files changed, 14 insertions(+), 14 deletions(-)

diff --git a/assembly/amd64/array.lisp b/assembly/amd64/array.lisp
index d45a33c72..034961fe4 100644
--- a/assembly/amd64/array.lisp
+++ b/assembly/amd64/array.lisp
@@ -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)
 
diff --git a/assembly/amd64/assem-rtns.lisp b/assembly/amd64/assem-rtns.lisp
index 7842a4579..3c7383c65 100644
--- a/assembly/amd64/assem-rtns.lisp
+++ b/assembly/amd64/assem-rtns.lisp
@@ -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))
diff --git a/compiler/amd64/insts.lisp b/compiler/amd64/insts.lisp
index 8816f226f..44f0bc2d7 100644
--- a/compiler/amd64/insts.lisp
+++ b/compiler/amd64/insts.lisp
@@ -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)
diff --git a/compiler/amd64/nlx.lisp b/compiler/amd64/nlx.lisp
index f8cd311e2..c378777c6 100644
--- a/compiler/amd64/nlx.lisp
+++ b/compiler/amd64/nlx.lisp
@@ -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)
diff --git a/compiler/amd64/values.lisp b/compiler/amd64/values.lisp
index 3808bdd50..dc272da60 100644
--- a/compiler/amd64/values.lisp
+++ b/compiler/amd64/values.lisp
@@ -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.
     
-- 
GitLab