Changeset 12377


Ignore:
Timestamp:
Jul 9, 2009, 8:39:55 AM (10 years ago)
Author:
gb
Message:

NCODE is 32-bit only in CREATE-X86-FUNCTION.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/X86/x86-lap.lisp

    r12374 r12377  
    14621462         (code-words (ash code-bytes (- target::word-shift)))
    14631463         (function-vector (allocate-typed-vector :function code-words))
    1464          (nconstants (length constants))
    1465          (ncode code-words))
    1466     (declare (fixnum code-bytes code-words ncode))
     1464         (nconstants (length constants)))
     1465    (declare (fixnum code-bytes code-words))
    14671466    (when name (incf nconstants))
    14681467    (when debug-info (incf nconstants))
    14691468    (incf nconstants)
    1470     (setq ncode (- code-words nconstants))
    14711469
    14721470    #+x8632-target
    1473     (when (>= ncode #x8000)
    1474       (if (>= nconstants #x8000)
    1475         (compiler-function-overflow)
    1476         (let* ((buf (car (frag-code-buffer (dll-header-first frag-list))))
    1477                (new-word (logior #x8000 nconstants)))
    1478           (setf (aref buf 0) (ldb (byte 8 0) new-word)
    1479                 (aref buf 1) (ldb (byte 8 8) new-word)))))
     1471    (let* ((ncode (- code-words nconstants)))
     1472      (when (>= ncode #x8000)
     1473        (if (>= nconstants #x8000)
     1474          (compiler-function-overflow)
     1475          (let* ((buf (car (frag-code-buffer (dll-header-first frag-list))))
     1476                 (new-word (logior #x8000 nconstants)))
     1477            (setf (aref buf 0) (ldb (byte 8 0) new-word)
     1478                  (aref buf 1) (ldb (byte 8 8) new-word))))))
    14801479    (let* ((target-offset 0))
    14811480      (declare (fixnum target-offset))
Note: See TracChangeset for help on using the changeset viewer.