Changeset 5343

Timestamp:

Oct 14, 2006, 5:20:05 AM (18 years ago)

Author:

Gary Byers

Message:

Do vector bounds-checking a little differently.

Add xchg-registers.

File:

• trunk/ccl/compiler/X86/X8664/x8664-vinsns.lisp (modified) (2 diffs)

trunk/ccl/compiler/X86/X8664/x8664-vinsns.lisp

@@ -634 +634 @@
                                        (v :lisp))
                                       ((temp :u64)))
-  (movq (:@ x8664::misc-header-offset (:%q v)) (:%q temp))
-  (shrq (:$ub x8664::num-subtag-bits) (:%q temp))
-  (shlq (:$ub x8664::word-shift) (:%q temp))
-  (rcmpq (:%q idx) (:%q temp))
+  (movq (:%q idx) (:%q temp))
+  (shlq (:$ub (- x8664::num-subtag-bits x8664::fixnumshift)) (:%q temp))
+  (decb (:%b temp))
+  (rcmpq (:%q temp) (:@ x8664::misc-header-offset (:%q v)))
   (jb.pt :ok)
   (uuo-error-vector-bounds (:%q idx) (:%q v))
@@ -3988 +3988 @@
 
 
+(define-x8664-vinsn xchg-registers (()
+                                    ((a t)
+                                     (b t)))
+  (xchgq (:%q a) (:%q b)))
+
 (queue-fixup
  (fixup-x86-vinsn-templates