Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/compiler/X86/x862.lisp

    r6932 r7206  
    27462746  (with-x86-local-vinsn-macros (seg)
    27472747    (when mv-label
    2748       (! start-mv-call (aref *backend-labels* mv-label))
    2749       (setq *x862-vstack* (+  *x862-vstack* *x862-target-node-size*)))
     2748      (x862-vpush-label seg (aref *backend-labels* mv-label)))
    27502749    (when (car args)
    27512750      (! reserve-outgoing-frame)
     
    34953494      (! vpush-register src)
    34963495      (x862-new-vstack-lcell (or why :node) *x862-target-lcell-size* (or attr 0) info)
     3496      (x862-adjust-vstack *x862-target-node-size*))))
     3497
     3498(defun x862-vpush-label (seg label)
     3499  (with-x86-local-vinsn-macros (seg)
     3500    (prog1
     3501      (! vpush-label label)
     3502      (x862-new-vstack-lcell :label *x862-target-lcell-size* 0 nil)
    34973503      (x862-adjust-vstack *x862-target-node-size*))))
    34983504
     
    47514757          (let* ((label (when (or recursive-p (x862-mvpass-p xfer)) (backend-get-next-label))))
    47524758            (when label
    4753               (! start-mv-call (aref *backend-labels* label)))
     4759              (x862-vpush-label seg (aref *backend-labels* label)))
    47544760            (x862-temp-push-node seg (x862-one-untargeted-reg-form seg fn x8664::arg_z))
    47554761            (x862-multiple-value-body seg (pop arglist))
Note: See TracChangeset for help on using the changeset viewer.