Changeset 12302


Ignore:
Timestamp:
Jun 25, 2009, 5:35:02 PM (10 years ago)
Author:
rme
Message:

In CREATE-X86-FUNCTION, signal COMPILER-FUNCTION-OVERFLOW when the
first constant is more than #xffff words from the start of the
function object's data.

File:
1 edited

Legend:

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

    r11855 r12302  
    14771477        (setf (uvref function-vector (decf last)) (car c)))
    14781478      #+x8632-target
    1479       (%update-self-references function-vector)
     1479      (if (> last #xffff)
     1480        (compiler-function-overflow)
     1481        (%update-self-references function-vector))
    14801482      (function-vector-to-function function-vector))))
    14811483
Note: See TracChangeset for help on using the changeset viewer.