Changeset 7206 for trunk/ccl/compiler/X86/x862.lisp

Timestamp:

Sep 13, 2007, 1:49:59 AM (13 years ago)

Author:

gb

Message:

Replace START-MV-CALL with VPUSH-LABEL; set vinsn attributes on new vinsn.

File:

• trunk/ccl/compiler/X86/x862.lisp (modified) (3 diffs)

trunk/ccl/compiler/X86/x862.lisp

@@ -2746 +2746 @@
   (with-x86-local-vinsn-macros (seg)
     (when mv-label
-      (! start-mv-call (aref *backend-labels* mv-label))
-      (setq *x862-vstack* (+  *x862-vstack* *x862-target-node-size*)))
+      (x862-vpush-label seg (aref *backend-labels* mv-label)))
     (when (car args)
       (! reserve-outgoing-frame)
@@ -3495 +3494 @@
       (! vpush-register src)
       (x862-new-vstack-lcell (or why :node) *x862-target-lcell-size* (or attr 0) info)
+      (x862-adjust-vstack *x862-target-node-size*))))
+
+(defun x862-vpush-label (seg label)
+  (with-x86-local-vinsn-macros (seg)
+    (prog1
+      (! vpush-label label)
+      (x862-new-vstack-lcell :label *x862-target-lcell-size* 0 nil)
       (x862-adjust-vstack *x862-target-node-size*))))
 
@@ -4751 +4757 @@
           (let* ((label (when (or recursive-p (x862-mvpass-p xfer)) (backend-get-next-label))))
             (when label
-              (! start-mv-call (aref *backend-labels* label)))
+              (x862-vpush-label seg (aref *backend-labels* label)))
             (x862-temp-push-node seg (x862-one-untargeted-reg-form seg fn x8664::arg_z))
             (x862-multiple-value-body seg (pop arglist))