Changeset 7337


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/compiler/X86/x86-lap.lisp

    r7245 r7337  
    210210(defvar *x86-lap-labels* ())
    211211(defvar *x86-lap-constants* ())
    212 (defparameter *x86-lap-entry-offset* 15) ;xxx wrong for IA-32
     212(defparameter *x86-lap-entry-offset* nil)
    213213(defparameter *x86-lap-fixed-code-words* nil)
    214214(defvar *x86-lap-lfun-bits* 0)
     
    13831383        (x86-lap-form form fraglist instruction)))))         
    13841384
    1385 ;;; xxx --- need to call COMPILER-FUNCTION-OVERFLOW somewhere if the code
    1386 ;;; size exceeds 65535 words on IA-32.
    1387 
    13881385(defun cross-create-x86-function (name frag-list constants bits debug-info)
    13891386  (let* ((constants-vector (%alloc-misc (+ (length constants)
     
    14051402        (do-dll-nodes (frag frag-list)
    14061403          (incf nbytes (frag-length frag)))
     1404        #+x8632-target
     1405        (when (>= nbytes (ash 1 18)) (compiler-function-overflow))
    14071406        (let* ((code-vector (make-array nbytes
    14081407                                        :element-type '(unsigned-byte 8)))
     
    14421441  (let* ((*x86-lap-labels* ())
    14431442         (*x86-lap-constants* ())
     1443         (*x86-lap-entry-offset* x8664::fulltag-function)
    14441444         (*x86-lap-fixed-code-words* nil)
    14451445         (*x86-lap-lfun-bits* bits)
Note: See TracChangeset for help on using the changeset viewer.