/[cmucl]/src/code/pmax-vm.lisp
ViewVC logotype

Diff of /src/code/pmax-vm.lisp

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

revision 1.10 by wlott, Sat Feb 22 00:04:21 1992 UTC revision 1.11 by wlott, Thu Jul 9 16:43:54 1992 UTC
# Line 22  Line 22 
22  (use-package "UNIX")  (use-package "UNIX")
23    
24  (export '(fixup-code-object internal-error-arguments  (export '(fixup-code-object internal-error-arguments
25            sigcontext-register sigcontext-float-register            sigcontext-program-counter sigcontext-register
26            sigcontext-floating-point-modes extern-alien-name))            sigcontext-float-register sigcontext-floating-point-modes
27              extern-alien-name))
28    
29    
30  ;;;; The sigcontext structure.  ;;;; The sigcontext structure.
# Line 123  Line 124 
124    
125  ;;;; Sigcontext access functions.  ;;;; Sigcontext access functions.
126    
127  ;;; SIGCONTEXT-REGISTER -- Internal.  ;;; SIGCONTEXT-PROGRAM-COUNTER -- Interface.
128    ;;;
129    (defun sigcontext-program-counter (scp)
130      (declare (type (alien (* sigcontext)) scp))
131      (with-alien ((scp (* sigcontext) scp))
132        (slot scp 'sc-pc)))
133    
134    ;;; SIGCONTEXT-REGISTER -- Interface.
135  ;;;  ;;;
136  ;;; An escape register saves the value of a register for a frame that someone  ;;; An escape register saves the value of a register for a frame that someone
137  ;;; interrupts.  ;;; interrupts.
# Line 142  Line 150 
150  (defsetf sigcontext-register %set-sigcontext-register)  (defsetf sigcontext-register %set-sigcontext-register)
151    
152    
153  ;;; SIGCONTEXT-FLOAT-REGISTER  --  Internal  ;;; SIGCONTEXT-FLOAT-REGISTER  --  Interface.
154  ;;;  ;;;
155  ;;; Like SIGCONTEXT-REGISTER, but returns the value of a float register.  ;;; Like SIGCONTEXT-REGISTER, but returns the value of a float register.
156  ;;; Format is the type of float to return.  ;;; Format is the type of float to return.

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

  ViewVC Help
Powered by ViewVC 1.1.5