Date: Wednesday, November 17, 2010 @ 19:24:02 Author: rtoy Path: /project/cmucl/cvsroot/src/compiler/x86 Tag: cross-sparc-branch

Modified: parms.lisp

Set up TARGET-FOREIGN-LINKAGE-SPACE-START and TARGET-FOREIGN-LINKAGE-ENTRY-SIZE from the backend values.

------------+ parms.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-)

Index: src/compiler/x86/parms.lisp diff -u src/compiler/x86/parms.lisp:1.40.6.1 src/compiler/x86/parms.lisp:1.40.6.2 --- src/compiler/x86/parms.lisp:1.40.6.1 Tue Nov 16 12:29:35 2010 +++ src/compiler/x86/parms.lisp Wed Nov 17 19:24:02 2010 @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/compiler/x86/parms.lisp,v 1.40.6.1 2010-11-16 17:29:35 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/compiler/x86/parms.lisp,v 1.40.6.2 2010-11-18 00:24:02 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -219,9 +219,9 @@ #+linux #x58100000 #-linux #x48000000) (defconstant target-foreign-linkage-space-start - #+linux #x58000000 - #-linux #xB0000000) -(defconstant target-foreign-linkage-entry-size 8) ;In bytes. Duh. + (c:backend-foreign-linkage-space-start *target-backend*)) +(defconstant target-foreign-linkage-entry-size + (c:backend-foreign-linkage-entry-size *target-backend*)) ;In bytes. Duh.

;;; Given that NIL is the first thing allocated in static space, we ;;; know its value at compile time: