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.