/[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.6 by wlott, Thu Feb 20 23:03:11 1992 UTC revision 1.7 by wlott, Sat Feb 29 02:29:53 1992 UTC
# Line 18  Line 18 
18  ;;;  ;;;
19  (in-package "SYSTEM")  (in-package "SYSTEM")
20  (use-package "EXTENSIONS")  (use-package "EXTENSIONS")
21  (export '(get-system-info get-page-size))  (export '(get-system-info get-page-size os-init))
22    
23  (pushnew :mach *features*)  (pushnew :mach *features*)
24  (setq *software-type* "MACH/4.3BSD")  (setq *software-type* "MACH/4.3BSD")
# Line 33  Line 33 
33                   (run-program "/usr/cs/etc/version" ; Site dependent???                   (run-program "/usr/cs/etc/version" ; Site dependent???
34                                nil :output stream))))                                nil :output stream))))
35    
36    ;;; OS-Init initializes our operating-system interface.  It sets the values
37    ;;; of the global port variables to what they should be and calls the functions
38    ;;; that set up the argument blocks for the server interfaces.
39    
40    (defun os-init ()
41      (setf *task-self* (mach:mach-task_self))
42      (setf *task-data* (mach:mach-task_data))
43      (setf *task-notify* (mach:mach-task_notify)))
44    
45    
46  ;;; GET-SYSTEM-INFO  --  Interface  ;;; GET-SYSTEM-INFO  --  Interface
47  ;;;  ;;;
48  ;;;    Return system time, user time and number of page faults.  For  ;;;    Return system time, user time and number of page faults.  For

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

  ViewVC Help
Powered by ViewVC 1.1.5