Ignore:
Timestamp:
Jan 28, 2011, 9:49:58 PM (9 years ago)
Author:
rme
Message:

More tweaks; a cross-compiled Windows x86 lisp now bootstraps on Windows x64.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/shrink-tcr/level-0/nfasload.lisp

    r14606 r14607  
    415415    (%epushval s (svref (faslstate.faslevec s) idx))))
    416416
    417 (defun decode-imm-word-count (imm-word-count element-count)
    418   (if (logbitp 15 imm-word-count)
    419     (- element-count (ldb (byte 15 0) imm-word-count))
    420     imm-word-count))
    421 
    422417#+x86-target
    423418;;; Read a "concatenated" lisp function, in which the machine code
     
    430425    (declare (fixnum size-in-elements size-of-code))
    431426    (%epushval s function)
    432     #+x8632-target
    433     (setq size-of-code (decode-imm-word-count size-of-code size-in-elements))
    434427    (%fasl-read-n-bytes s vector 0 (ash size-of-code target::word-shift))
    435428    #+x8632-target
Note: See TracChangeset for help on using the changeset viewer.