Index: /trunk/source/compiler/X86/x862.lisp
===================================================================
--- /trunk/source/compiler/X86/x862.lisp	(revision 15148)
+++ /trunk/source/compiler/X86/x862.lisp	(revision 15149)
@@ -5030,4 +5030,12 @@
     (^)))
 
+(defun x862-natural-constant (seg vreg xfer value)
+  (x862-use-operator 
+   (if (typep value *nx-target-fixnum-type*)
+     (%nx1-operator fixnum)
+     (%nx1-operator immediate))
+   seg vreg xfer value))
+
+
 
 
@@ -10473,5 +10481,5 @@
            (fix-y (acode-fixnum-form-p y)))
       (if (and fix-x fix-y)
-        (x862-absolute-natural seg vreg xfer (+ fix-x fix-y))
+        (x862-natural-constant seg vreg xfer (+ fix-x fix-y))
         (let* ((u31x (and (typep fix-x '(unsigned-byte 31)) fix-x))
                (u31y (and (typep fix-y '(unsigned-byte 31)) fix-y)))
@@ -10498,5 +10506,5 @@
            (fix-y (acode-fixnum-form-p y)))
       (if (and fix-x fix-y)
-        (x862-absolute-natural seg vreg xfer (- fix-x fix-y))
+        (x862-natural-constant seg vreg xfer (- fix-x fix-y))
         (let* ((u31y (and (typep fix-y '(unsigned-byte 31)) fix-y)))
           (if (not u31y)
@@ -10522,5 +10530,5 @@
            (naturaly (nx-natural-constant-p y)))
       (if (and naturalx naturaly) 
-        (x862-absolute-natural seg vreg xfer (logior naturalx naturaly))
+        (x862-natural-constant seg vreg xfer (logior naturalx naturaly))
         (let* ((u31x (nx-u31-constant-p x))
                (u31y (nx-u31-constant-p y))
@@ -10548,5 +10556,5 @@
            (naturaly (nx-natural-constant-p y)))
       (if (and naturalx naturaly) 
-        (x862-absolute-natural seg vreg xfer (logxor naturalx naturaly))
+        (x862-natural-constant seg vreg xfer (logxor naturalx naturaly))
         (let* ((u32x (nx-u32-constant-p x))
                (u32y (nx-u32-constant-p y))
@@ -10573,6 +10581,6 @@
     (let* ((naturalx (nx-natural-constant-p x))
            (naturaly (nx-natural-constant-p y)))
-      (if (and naturalx naturaly) 
-        (x862-absolute-natural seg vreg xfer (logand naturalx naturaly))
+      (if (and naturalx naturaly)        
+        (x862-natural-constant seg vreg xfer (logand naturalx naturaly))
         (let* ((u31x (nx-u31-constant-p x))
                (u31y (nx-u31-constant-p y))