Skip to content
Snippets Groups Projects
Commit 82b635e1 authored by wlott's avatar wlott
Browse files

Moved foreign-segment-{start,size} from mumble-os.lisp into foreign.lisp.

parent b6d181da
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment