Changeset 8074


Ignore:
Timestamp:
Jan 15, 2008, 3:04:32 AM (12 years ago)
Author:
rme
Message:

*x86-lap-entry-offset* confusion; other tweaks.

Location:
branches/ia32/compiler/X86
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/compiler/X86/x86-lap.lisp

    r7881 r8074  
    15011501    (make-x86-lap-label srt-tag)
    15021502    (make-x86-lap-label end-code-tag)
    1503     ;; count of 32-bit words between header and function boundary
     1503    ;; count of 32-bit words from header to function boundary
    15041504    ;; marker, inclusive.
    15051505    (x86-lap-directive frag-list :short `(ash (+ (- (:^ ,end-code-tag) 4)
    15061506                                                 *x86-lap-entry-offset*) -2))
    15071507    (emit-x86-lap-label frag-list entry-code-tag)
    1508     (x86-lap-form '(movl ($ :self) (% fn)) frag-list instruction)
     1508    (x86-lap-form '(movl ($ :self) (% x8632::fn)) frag-list instruction)
    15091509    (dolist (f forms)
    15101510      (x86-lap-form f frag-list instruction))
     
    15421542                  (+ (frag-address frag) (reloc-pos reloc)))
    15431543            (incf srt-index 4)))))
    1544     (show-frag-bytes frag-list)
     1544    ;;(show-frag-bytes frag-list)
    15451545    (funcall #-x8632-target #'cross-create-x86-function
    15461546             #+x8632-target (if (eq *target-backend* *host-backend*)
  • branches/ia32/compiler/X86/x862.lisp

    r7876 r8074  
    5959           (! mark-as-node ,node))))
    6060      (:x8664
    61        (let ()
     61       (progn
    6262         ,@body)))))
    6363
     
    488488           (*x862-cstack* 0)
    489489           (*x86-lap-entry-offset* (target-arch-case
    490                                     (:x8632 (- x8632::fulltag-misc 3)) ;xxx magic fudge factor
     490                                    ;;(:x8632 (- x8632::fulltag-misc 3)) ;xxx fudge factor
     491                                    (:x8632 x8632::fulltag-misc)
    491492                                    (:x8664 x8664::fulltag-function)))
    492493           (*x862-result-reg* (target-arch-case
     
    31203121      (declare (fixnum class mode))
    31213122      (cond ((= class hard-reg-class-fpr)
    3122              (make-wired-lreg target::fp1 :class class :mode mode))
     3123             (make-wired-lreg *x862-fp1* :class class :mode mode))
    31233124            ((= class hard-reg-class-gpr)
    31243125             (if (= mode hard-reg-class-gpr-mode-node)
     
    75067507                     (target-arch-case
    75077508                      (:x8632 x8632::fulltag-misc)
    7508                       (:x8664 x8664::fulltag-misc))))) ;target::fulltag-misc?
     7509                      (:x8664 x8664::fulltag-misc)))))
    75097510          (x862-lri seg header (arch::make-vheader nelements subtag))
    75107511          (target-arch-case
Note: See TracChangeset for help on using the changeset viewer.