/[cmucl]/src/code/mach-os.lisp
ViewVC logotype

Diff of /src/code/mach-os.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10 by wlott, Sun Feb 7 21:17:31 1993 UTC revision 1.11 by wlott, Wed Mar 17 12:25:04 1993 UTC
# Line 39  Line 39 
39  (defvar *task-self*)  (defvar *task-self*)
40    
41  (defun os-init ()  (defun os-init ()
42    (setf *task-self* (mach:mach-task_self)))    (setf *task-self* (mach:mach-task_self))
43      #+sparc ;; Can't use #x20000000 thru #xDFFFFFFF, but mach tries to let us.
44      (system:allocate-system-memory-at (system:int-sap #x20000000) #xc0000000))
45    
46    
47  ;;; GET-SYSTEM-INFO  --  Interface  ;;; GET-SYSTEM-INFO  --  Interface

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

  ViewVC Help
Powered by ViewVC 1.1.5