Skip to content
Snippets Groups Projects
Commit 91df9863 authored by ram's avatar ram
Browse files

Use get-page-size instead of vm_statistics. Moved foreign-segment-XXX

constants to XXX-os.
parent d6dc2805
No related branches found
No related tags found
No related merge requests found
...@@ -7,14 +7,10 @@ ...@@ -7,14 +7,10 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/foreign.lisp,v 1.5 1991/02/08 13:32:52 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/foreign.lisp,v 1.6 1991/08/30 17:09:22 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/foreign.lisp,v 1.5 1991/02/08 13:32:52 ram Exp $
;;;
;;; Load-foreign and support routines.
;;;
(in-package "SYSTEM") (in-package "SYSTEM")
(in-package "EXT") (in-package "EXT")
...@@ -22,10 +18,6 @@ ...@@ -22,10 +18,6 @@
(in-package "SYSTEM") (in-package "SYSTEM")
(import 'ext:load-foreign) (import 'ext:load-foreign)
(defconstant foreign-segment-start #x00C00000)
(defconstant foreign-segment-size #x00400000)
(defvar *previous-linked-object-file* nil) (defvar *previous-linked-object-file* nil)
(defvar *foreign-segment-free-pointer* foreign-segment-start) (defvar *foreign-segment-free-pointer* foreign-segment-start)
...@@ -64,7 +56,7 @@ ...@@ -64,7 +56,7 @@
(drsize ext:unsigned-long)) (drsize ext:unsigned-long))
(defun allocate-space-in-foreign-segment (bytes) (defun allocate-space-in-foreign-segment (bytes)
(let* ((pagesize-1 (1- (gr-call* mach:vm_statistics *task-self*))) (let* ((pagesize-1 (1- (get-page-size)))
(memory-needed (logandc2 (+ bytes pagesize-1) pagesize-1)) (memory-needed (logandc2 (+ bytes pagesize-1) pagesize-1))
(addr (int-sap *foreign-segment-free-pointer*)) (addr (int-sap *foreign-segment-free-pointer*))
(new-ptr (+ *foreign-segment-free-pointer* bytes))) (new-ptr (+ *foreign-segment-free-pointer* bytes)))
...@@ -232,6 +224,3 @@ ...@@ -232,6 +224,3 @@
(when old-file (when old-file
(mach:unix-unlink old-file))))) (mach:unix-unlink old-file)))))
(format t ";;; Done.~%")) (format t ";;; Done.~%"))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment