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

[Raymond Toy]

    Date: Saturday, November 20, 2010 @ 10:45:05
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/compiler/sparc
     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 |   14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)


Index: src/compiler/sparc/parms.lisp
diff -u src/compiler/sparc/parms.lisp:1.61.6.1 src/compiler/sparc/parms.lisp:1.61.6.2
--- src/compiler/sparc/parms.lisp:1.61.6.1	Tue Nov 16 12:29:34 2010
+++ src/compiler/sparc/parms.lisp	Sat Nov 20 10:45:05 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/compiler/sparc/parms.lisp,v 1.61.6.1 2010-11-16 17:29:34 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/sparc/parms.lisp,v 1.61.6.2 2010-11-20 15:45:05 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -48,8 +48,11 @@
       #+mach 4096 #+sunos 8192)
 
 (setf (c::backend-foreign-linkage-space-start *target-backend*)
+      ;; This better match the value in sparc-validate.h!
       #x0f800000
       (c::backend-foreign-linkage-entry-size *target-backend*)
+      ;; This better agree with what sparc-arch.c thinks it is!  Right now,
+      ;; it's 4 instructions, so 16 bytes.
       16)
 ); eval-when
 
@@ -217,11 +220,10 @@
 (defconstant target-static-space-start    #x28000000)
 (defconstant target-dynamic-space-start   #x40000000)
 
-;; This better match the value in sparc-validate.h!
-(defconstant target-foreign-linkage-space-start #x0f800000)
-;; This better agree with what sparc-arch.c thinks it is!  Right now,
-;; it's 4 instructions, so 16 bytes.
-(defconstant target-foreign-linkage-entry-size 16)
+(defconstant target-foreign-linkage-space-start
+  (c:backend-foreign-linkage-space-start *target-backend*))
+(defconstant target-foreign-linkage-entry-size
+  (c:backend-foreign-linkage-entry-size *target-backend*))
 
 
 ;;;; Other random constants.