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/lib/nfcomp.lisp

    r14606 r14607  
    17731773           (function-size (ash (uvsize code) -2))
    17741774           (encoded-imm-words (dpb (uvref code 1) (byte 8 8) (uvref code 0)))
    1775            (imm-words (decode-imm-word-count encoded-imm-words function-size))
     1775           (imm-words (if (logbitp 15 encoded-imm-words)
     1776                        (- function-size (ldb (byte 15 0) encoded-imm-words))
     1777                        encoded-imm-words))
    17761778           (imm-bytes (ash imm-words 2))
    17771779           (other-words (- function-size imm-words)))
     
    17791781      (fasl-out-opcode $fasl-clfun f)
    17801782      (fasl-out-count function-size)
    1781       (fasl-out-count encoded-imm-words)
     1783      (fasl-out-count imm-words)
    17821784      (fasl-out-ivect code 0 imm-bytes)
    17831785      (do ((i 1 (1+ i))
Note: See TracChangeset for help on using the changeset viewer.