Changeset 10498

Timestamp:

08/19/08 21:30:19 (3 months ago)

Author:

rme

Message:

Add vinsn LRIU (to mirror x8632).

Files:

• trunk/source/compiler/X86/X8664/x8664-vinsns.lisp (modified) (1 diff)

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

@@ -639 +639 @@
-   (movq (:$q (:apply logand #xffffffffffffffff intval)) (:%q dest))))
-
+(define-x8664-vinsn (lriu :constant-ref) (((dest :imm))
+                                         ((intval :u64const))
+                                         ())
+  ((:pred = intval 0)
+   (xorl (:%l dest) (:%l dest)))
+  ((:and (:pred /= intval 0)
+         (:pred >= intval  -2147483648)
+         (:pred <= intval 2147483647))
+   (movq (:$l intval) (:%q dest)))
+  ((:or (:pred < intval  -2147483648)
+        (:pred > intval 2147483647))
+   (movq (:$q (:apply logand #xffffffffffffffff intval)) (:%q dest))))
-
-(define-x8664-vinsn trap-unless-bit (()