[cmucl-cvs] CMUCL commit: cross-sparc-branch src/compiler/x86 (parms.lisp)

Raymond Toy rtoy at common-lisp.net
Thu Nov 18 00:24:02 UTC 2010


    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 at 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:




More information about the cmucl-cvs mailing list