CMUCL commit: amd64-dd-branch src/compiler/amd64 (arith.lisp insts.lisp)

[Raymond Toy]

    Date: Friday, November 6, 2009 @ 15:24:01
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/compiler/amd64
     Tag: amd64-dd-branch

Modified: arith.lisp insts.lisp

compiler/amd64/insts.lisp:
o Rename cdo to cqo, which is what it really is. (Sign extend rax to
  rdx:rax.)

compiler/amd64/arith.lisp:
o Use cqo instead of cdo, since we using 64-bit regs here.


------------+
 arith.lisp |   10 +++++-----
 insts.lisp |    4 ++--
 2 files changed, 7 insertions(+), 7 deletions(-)


Index: src/compiler/amd64/arith.lisp
diff -u src/compiler/amd64/arith.lisp:1.2 src/compiler/amd64/arith.lisp:1.2.36.1
--- src/compiler/amd64/arith.lisp:1.2	Wed Jun  9 21:38:09 2004
+++ src/compiler/amd64/arith.lisp	Fri Nov  6 15:24:00 2009
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group at cs.cmu.edu.
 ;;;
 (ext:file-comment
- "$Header: /project/cmucl/cvsroot/src/compiler/amd64/arith.lisp,v 1.2 2004-06-10 01:38:09 cwang Rel $")
+ "$Header: /project/cmucl/cvsroot/src/compiler/amd64/arith.lisp,v 1.2.36.1 2009-11-06 20:24:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -457,7 +457,7 @@
 	  (inst cmp y 0))
       (inst jmp :eq zero))
     (move rax x)
-    (inst cdo)
+    (inst cqo)
     (inst idiv rax y)
     (if (location= quo rax)
 	(inst shl rax 2)
@@ -482,7 +482,7 @@
   (:save-p :compute-only)
   (:generator 30
     (move rax x)
-    (inst cdq)
+    (inst cqo)
     (inst mov y-arg (fixnumize y))
     (inst idiv rax y-arg)
     (if (location= quo rax)
@@ -563,7 +563,7 @@
 	  (inst cmp y 0))
       (inst jmp :eq zero))
     (move rax x)
-    (inst cdq)
+    (inst cqo)
     (inst idiv rax y)
     (move quo rax)
     (move rem rdx)))
@@ -586,7 +586,7 @@
   (:save-p :compute-only)
   (:generator 32
     (move rax x)
-    (inst cdq)
+    (inst cqo)
     (inst mov y-arg y)
     (inst idiv rax y-arg)
     (move quo rax)
Index: src/compiler/amd64/insts.lisp
diff -u src/compiler/amd64/insts.lisp:1.5 src/compiler/amd64/insts.lisp:1.5.36.1
--- src/compiler/amd64/insts.lisp:1.5	Tue Jul 27 19:28:41 2004
+++ src/compiler/amd64/insts.lisp	Fri Nov  6 15:24:00 2009
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group at cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/compiler/amd64/insts.lisp,v 1.5 2004-07-27 23:28:41 cwang Rel $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/amd64/insts.lisp,v 1.5.36.1 2009-11-06 20:24:00 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1576,7 +1576,7 @@
 
 ;;; CDO -- Convert Quad Word to Double Quad Word. RDX:RAX <- sign_xtnd(RAX)
 ;;; 
-(define-instruction cdo (segment)
+(define-instruction cqo (segment)
   (:emitter
    (maybe-emit-rex-prefix segment :qword nil nil nil)
    (emit-byte segment #b10011001)))