From 82b635e1040439f2c590cbc5ea54d8d091fea461 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sun, 7 Feb 1993 21:17:31 +0000 Subject: [PATCH] Moved foreign-segment-{start,size} from mumble-os.lisp into foreign.lisp. --- code/foreign.lisp | 8 +++++++- code/mach-os.lisp | 5 +---- 2 files changed, 8 insertions(+), 5 deletions(-) diff --git a/code/foreign.lisp b/code/foreign.lisp index 57245c217..d3ad4af5a 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 c40f6bb92..f92a2c852 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) -- GitLab