Changeset 16145


Ignore:
Timestamp:
Jul 27, 2014, 10:14:51 PM (7 years ago)
Author:
gb
Message:

From trunk.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/pinsn/source/compiler/X86/x862.lisp

    r16111 r16145  
    15701570  (let* ((ea (var-ea var)))
    15711571    (if (and (memory-spec-p ea)
     1572             (not (eql (memspec-type ea) memspec-nfp-offset))
    15721573             (not (addrspec-vcell-p ea)))
    15731574      (let* ((offset (memspec-frame-address-offset ea))
     
    44334434                   (offset (and ea
    44344435                                (memory-spec-p ea)
     4436                                (not (eql (memspec-type ea) memspec-nfp-offset))
    44354437                                (not (addrspec-vcell-p ea))
    44364438                                (memspec-frame-address-offset ea)))
     
    52245226
    52255227(defun x862-addrspec-to-reg (seg addrspec reg)
    5226   (if (memory-spec-p addrspec)
     5228  (if (and (memory-spec-p addrspec)
     5229           (not (eql (memspec-type addrspec) memspec-nfp-offset)))
    52275230    (x862-stack-to-register seg addrspec reg)
    52285231    (x862-copy-register seg reg addrspec)))
     
    53995402(defun x862-store-ea (seg ea reg)
    54005403  (if (typep ea 'fixnum)
    5401     (if (memory-spec-p ea)
     5404    (if (and (memory-spec-p ea) (not (eql (memspec-type ea) memspec-nfp-offset)))
    54025405      (x862-stack-to-register seg ea reg)
    54035406      (x862-copy-register seg reg ea))
     
    77817784             (null vreg)
    77827785             (not (addrspec-vcell-p ea))
     7786             (not (eql (memspec-type ea) memspec-nfp-offset))
    77837787             (acode-p (setq form (acode-unwrapped-form form))))
    77847788    (let* ((offset (memspec-frame-address-offset ea)))
Note: See TracChangeset for help on using the changeset viewer.