Changeset 7337
- Timestamp:
- Oct 1, 2007, 8:17:33 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/ia32/compiler/X86/x86-lap.lisp
r7245 r7337 210 210 (defvar *x86-lap-labels* ()) 211 211 (defvar *x86-lap-constants* ()) 212 (defparameter *x86-lap-entry-offset* 15) ;xxx wrong for IA-32212 (defparameter *x86-lap-entry-offset* nil) 213 213 (defparameter *x86-lap-fixed-code-words* nil) 214 214 (defvar *x86-lap-lfun-bits* 0) … … 1383 1383 (x86-lap-form form fraglist instruction))))) 1384 1384 1385 ;;; xxx --- need to call COMPILER-FUNCTION-OVERFLOW somewhere if the code1386 ;;; size exceeds 65535 words on IA-32.1387 1388 1385 (defun cross-create-x86-function (name frag-list constants bits debug-info) 1389 1386 (let* ((constants-vector (%alloc-misc (+ (length constants) … … 1405 1402 (do-dll-nodes (frag frag-list) 1406 1403 (incf nbytes (frag-length frag))) 1404 #+x8632-target 1405 (when (>= nbytes (ash 1 18)) (compiler-function-overflow)) 1407 1406 (let* ((code-vector (make-array nbytes 1408 1407 :element-type '(unsigned-byte 8))) … … 1442 1441 (let* ((*x86-lap-labels* ()) 1443 1442 (*x86-lap-constants* ()) 1443 (*x86-lap-entry-offset* x8664::fulltag-function) 1444 1444 (*x86-lap-fixed-code-words* nil) 1445 1445 (*x86-lap-lfun-bits* bits)
Note: See TracChangeset
for help on using the changeset viewer.