Changeset 6323 for branches

Timestamp:

Apr 22, 2007, 3:39:53 AM (18 years ago)

Author:

Gary Byers

Message:

Use xcall-subprim-2 (uses x86 CALL to call subprims) for a few numeric
operations. Much more to be done here.

File:

• branches/x8664-call/ccl/compiler/X86/x862.lisp (modified) (4 diffs)

branches/x8664-call/ccl/compiler/X86/x862.lisp

@@ -6505 +6505 @@
         (x862-check-fixnum-overflow seg ($ x8664::arg_z) done)
         (@ out-of-line)
-        (! call-subprim-2 ($ x8664::arg_z) (subprim-name->offset '.SPbuiltin-minus) ($ x8664::arg_y) ($ x8664::arg_z))
+        (! xcall-subprim-2 ($ x8664::arg_z) (subprim-name->offset '.SPnbuiltin-minus) ($ x8664::arg_y) ($ x8664::arg_z))
         (@ done)
         (x862-copy-register seg target ($ x8664::arg_z)))
@@ -6544 +6544 @@
           (if otherform
             (x862-lri seg ($ x8664::arg_y) (ash (or fix1 fix2) *x862-target-fixnum-shift*)))
-          (! call-subprim-2 ($ x8664::arg_z) (subprim-name->offset '.SPbuiltin-plus) ($ x8664::arg_y) ($ x8664::arg_z))
+          (! xcall-subprim-2 ($ x8664::arg_z) (subprim-name->offset '.SPnbuiltin-plus) ($ x8664::arg_y) ($ x8664::arg_z))
           (@ done)
           (x862-copy-register seg target ($ x8664::arg_z)))
@@ -6708 +6708 @@
               (if otherform
                 (x862-lri seg ($ x8664::arg_y) (ash fixval x8664::fixnumshift)))
-              (! call-subprim-2 ($ x8664::arg_z) (subprim-name->offset '.SPbuiltin-logior) ($ x8664::arg_y) ($ x8664::arg_z))
+              (! xcall-subprim-2 ($ x8664::arg_z) (subprim-name->offset '.SPnbuiltin-logior) ($ x8664::arg_y) ($ x8664::arg_z))
               (@ done)
               (x862-copy-register seg target ($ x8664::arg_z)))
@@ -6753 +6753 @@
               (if otherform
                 (x862-lri seg ($ x8664::arg_y) (ash fixval x8664::fixnumshift)))
-              (! call-subprim-2 ($ x8664::arg_z) (subprim-name->offset '.SPbuiltin-logand) ($ x8664::arg_y) ($ x8664::arg_z))
+              (! xcall-subprim-2 ($ x8664::arg_z) (subprim-name->offset '.SPnbuiltin-logand) ($ x8664::arg_y) ($ x8664::arg_z))
               (@ done)
               (x862-copy-register seg target ($ x8664::arg_z)))