[Openmcl-cvs-notifications] r10144 - /trunk/source/level-0/X86/x86-array.lisp

[rme at clozure.com]

Author: rme
Date: Sat Jul 19 15:22:03 2008
New Revision: 10144

Log:
Delete stray "n" in %BOOLE-XOR.  Wrap whole file in
#+x8664-target (progn ...)

Modified:
    trunk/source/level-0/X86/x86-array.lisp

Modified: trunk/source/level-0/X86/x86-array.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-0/X86/x86-array.lisp (original)
+++ trunk/source/level-0/X86/x86-array.lisp Sat Jul 19 15:22:03 2008
@@ -15,6 +15,9 @@
 ;;;   http://opensource.franz.com/preamble.html
 =

 (in-package "CCL")
+
+#+x8664-target
+(progn
 =

 (eval-when (:compile-toplevel :execute)
   #+x8632-target
@@ -279,7 +282,7 @@
 =

 (defx86lapfunction %boole-xor ((idx 8) #|(ra 0)|# (b0 arg_x) (b1 arg_y) (d=
est arg_z))
   (movq (@ idx (% rsp)) (% temp0))
-n  (movq (@ x8664::misc-data-offset (% b0) (% temp0)) (% imm0))
+  (movq (@ x8664::misc-data-offset (% b0) (% temp0)) (% imm0))
   (xorq (@ x8664::misc-data-offset (% b1) (% temp0)) (% imm0))
   (movq (% imm0) (@ x8664::misc-data-offset (% dest) (% temp0)))
   (single-value-return 3))
@@ -395,3 +398,5 @@
   (push (% ra0))
   (jmp-subprim .SPaset3))
 =

+)  ; #+x8664-target
+