Changeset 8829


Ignore:
Timestamp:
Mar 19, 2008, 7:16:23 PM (11 years ago)
Author:
rme
Message:

x862-labels: use *x862-temp1* instead of x8664::temp1

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/compiler/X86/x862.lisp

    r8823 r8829  
    81078107  (x862-seq-fbind seg vreg xfer vars afuncs body p2decls))
    81088108
    8109 ;;; xxx -- update for x8632
    81108109(defx862 x862-labels labels (seg vreg xfer vars afuncs body p2decls)
    81118110  (let* ((fwd-refs nil)
     
    81378136      (x862-seq-fbind seg vreg xfer (nreverse real-vars) (nreverse real-funcs) body p2decls)
    81388137      (let* ((old-stack (x862-encode-stack)))
    8139         ;; xxx
    8140         (target-arch-case
    8141          (:x8632 (error "x862-labels not going to work for IA-32")))
    81428138        (setq real-vars (nreverse real-vars) real-funcs (nreverse real-funcs))
    81438139        (with-x86-p2-declarations p2decls
     
    81528148                                    *x862-temp0*
    81538149                                    (progn
    8154                                       (x862-addrspec-to-reg seg v-ea x8664::temp1)
    8155                                       x8664::temp1))))
     8150                                      (x862-addrspec-to-reg seg v-ea *x862-temp1*)
     8151                                      *x862-temp1*))))
    81568152                    (! set-closure-forward-reference val-reg *x862-temp0* (car r)))))))
    81578153          (x862-undo-body seg vreg xfer body old-stack)
Note: See TracChangeset for help on using the changeset viewer.