diff --git a/code/foreign.lisp b/code/foreign.lisp index 57245c217af3a26d5c975819b2b686c1eed151e7..d3ad4af5a8f6c1a92a1eb3adc6844148662d47d6 100644 --- a/code/foreign.lisp +++ b/code/foreign.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/foreign.lisp,v 1.12 1992/07/17 16:03:41 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/foreign.lisp,v 1.13 1993/02/07 21:17:12 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -18,6 +18,12 @@ (in-package "SYSTEM") (import 'alien:load-foreign) +#+sparc (defconstant foreign-segment-start #xe0000000) +#+sparc (defconstant foreign-segment-size #x00100000) + +#+pmax (defconstant foreign-segment-start #x00C00000) +#+pmax (defconstant foreign-segment-size #x00400000) + (defvar *previous-linked-object-file* nil) (defvar *foreign-segment-free-pointer* foreign-segment-start) diff --git a/code/mach-os.lisp b/code/mach-os.lisp index c40f6bb923811f63ffeb88bfa10ff559f11011fe..f92a2c852219485694a89fb806e0fe6f7b6100bc 100644 --- a/code/mach-os.lisp +++ b/code/mach-os.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/mach-os.lisp,v 1.9 1992/07/03 00:09:31 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/mach-os.lisp,v 1.10 1993/02/07 21:17:31 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -24,9 +24,6 @@ (pushnew :mach *features*) (setq *software-type* "MACH/4.3BSD") -(defconstant foreign-segment-start #x00C00000) -(defconstant foreign-segment-size #x00400000) - (defun software-version () "Returns a string describing version of the supporting software." (string-trim '(#\newline)