[Openmcl-cvs-notifications] r12302 - /trunk/source/compiler/X86/x86-lap.lisp

[rme at clozure.com]

Author: rme
Date: Thu Jun 25 13:35:02 2009
New Revision: 12302

Log:
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.

Modified:
    trunk/source/compiler/X86/x86-lap.lisp

Modified: trunk/source/compiler/X86/x86-lap.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/compiler/X86/x86-lap.lisp (original)
+++ trunk/source/compiler/X86/x86-lap.lisp Thu Jun 25 13:35:02 2009
@@ -1476,7 +1476,9 @@
       (dolist (c constants)
         (setf (uvref function-vector (decf last)) (car c)))
       #+x8632-target
-      (%update-self-references function-vector)
+      (if (> last #xffff)
+	(compiler-function-overflow)
+	(%update-self-references function-vector))
       (function-vector-to-function function-vector))))
 =

 (defun %define-x86-lap-function (name forms &optional (bits 0))