Changeset 14337

Timestamp:

Oct 7, 2010, 10:50:55 AM (14 years ago)

Author:

Gary Byers

Message:

Implement %ILOGNOT, ASH in the x86 backend. (The macroexpansion of
%ILOGNOT generates a few more x86 instructions than it needs to.)

File:

• trunk/source/compiler/X86/x862.lisp (modified) (2 diffs)

trunk/source/compiler/X86/x862.lisp

@@ -10354 +10354 @@
                              (list nil (list arg))))))))
 
+(defx862 x862-%ilognot %ilognot (seg vreg xfer form)
+  (ensuring-node-target (target vreg)
+    (! %ilognot target (x862-one-targeted-reg-form seg form target)))
+  (^))
+
+(defx862 x862-ash ash (seg vreg xfer num amt)
+  (or (acode-optimize-ash seg vreg xfer num amt *x862-trust-declarations*)
+      (progn
+        (x862-two-targeted-reg-forms seg num ($ *x862-arg-y*) amt ($ *x862-arg-z*))
+        (x862-fixed-call-builtin seg vreg xfer nil (subprim-name->offset '.SPbuiltin-ash)))))
+      
+    
+
 
 (defx862 x862-%new-ptr %new-ptr (seg vreg xfer size clear-p )
@@ -10364 +10377 @@
                 nil))
 
-;------
-
-#+not-yet
-(progn
-
-
-;;;Make a gcable macptr.
-
-
-
-
-)
+
+
+
 
 #-x86-target