Changeset 5263

Timestamp:

Sep 26, 2006, 7:46:57 PM (18 years ago)

Author:

Gary Byers

Message:

(Redundant) FIXNUM decls in LDB compiler macro.

Location:

trunk/ccl/compiler

Files:

• X86/X8664/x8664-vinsns.lisp (modified) (1 diff)
• X86/x862.lisp (modified) (1 diff)
• optimizers.lisp (modified) (2 diffs)

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

@@ -2036 +2036 @@
 
 
-(define-x8664-vinsn mem-set-constant-doubleword (()
-                                                   ((val :s32const)
-                                                    (dest :address)
-                                                    (offset :s64)))
-   (movq (:$l val) (:@ (:%q dest) (:%q offset))))
+
 
 

trunk/ccl/compiler/X86/x862.lisp

@@ -3925 +3925 @@
           (and offval (%i> (integer-length offval) 31) (setq offval nil))
           (and intval (%i> (integer-length intval) 31) (setq intval nil))
+          (and intval
+               (case size
+                 (2
+                  (if (>= intval 32768) (setq intval (- intval 65536))))
+                 (1
+                  (if (>= intval 128) (setq intval (- intval 256))))))
           (cond (intval
                  (cond (offval

trunk/ccl/compiler/optimizers.lisp

@@ -517 +517 @@
             (cond ((nx-form-typep integer 'fixnum env)
                    `(logand ,(byte-mask size)
-                            (ash ,integer ,(- position))))
+                     (the fixnum (ash ,integer ,(- position)))))
                   (t `(load-byte ,size ,position ,integer)))))
          ((and (consp byte)
@@ -526 +526 @@
             (if (and (nx-form-typep integer 'fixnum env) (fixnump position))
               ;; I'm not sure this is worth doing
-              `(logand (byte-mask ,size) (ash ,integer ,(- position)))
+              `(logand (byte-mask ,size) (the fixnum (ash ,integer ,(- position))))
               ;; this IS worth doing
               `(load-byte ,size ,position ,integer))))