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

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

  ViewVC Help
Powered by ViewVC 1.1.5