Changeset 7337

Timestamp:

Oct 1, 2007, 8:17:33 PM (12 years ago)

Author:

rme

Message:

Call COMPILER-FUNCTION-OVERFLOW when cross-creating functions, if needed.

File:

• branches/ia32/compiler/X86/x86-lap.lisp (modified) (4 diffs)

branches/ia32/compiler/X86/x86-lap.lisp

@@ -210 +210 @@
 (defvar *x86-lap-labels* ())
 (defvar *x86-lap-constants* ())
-(defparameter *x86-lap-entry-offset* 15) ;xxx wrong for IA-32
+(defparameter *x86-lap-entry-offset* nil)
 (defparameter *x86-lap-fixed-code-words* nil)
 (defvar *x86-lap-lfun-bits* 0)
@@ -1383 +1383 @@
         (x86-lap-form form fraglist instruction)))))          
 
-;;; xxx --- need to call COMPILER-FUNCTION-OVERFLOW somewhere if the code
-;;; size exceeds 65535 words on IA-32.
-
 (defun cross-create-x86-function (name frag-list constants bits debug-info)
   (let* ((constants-vector (%alloc-misc (+ (length constants)
@@ -1405 +1402 @@
         (do-dll-nodes (frag frag-list)
           (incf nbytes (frag-length frag)))
+        #+x8632-target
+        (when (>= nbytes (ash 1 18)) (compiler-function-overflow))
         (let* ((code-vector (make-array nbytes
                                         :element-type '(unsigned-byte 8)))
@@ -1442 +1441 @@
   (let* ((*x86-lap-labels* ())
          (*x86-lap-constants* ())
+         (*x86-lap-entry-offset* x8664::fulltag-function)
          (*x86-lap-fixed-code-words* nil)
          (*x86-lap-lfun-bits* bits)