/[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.9 by wlott, Fri Feb 21 22:00:03 1992 UTC revision 1.10 by wlott, Sat Feb 22 00:04:21 1992 UTC
# Line 23  Line 23 
23    
24  (export '(fixup-code-object internal-error-arguments  (export '(fixup-code-object internal-error-arguments
25            sigcontext-register sigcontext-float-register            sigcontext-register sigcontext-float-register
26            sigcontext-floating-point-modes))            sigcontext-floating-point-modes extern-alien-name))
27    
28    
29  ;;;; The sigcontext structure.  ;;;; The sigcontext structure.
# Line 177  Line 177 
177    (declare (type (alien (* sigcontext)) scp))    (declare (type (alien (* sigcontext)) scp))
178     (with-alien ((scp (* sigcontext) scp))     (with-alien ((scp (* sigcontext) scp))
179      (slot scp 'sc-fpc-csr)))      (slot scp 'sc-fpc-csr)))
180    
181    
182    
183    ;;; EXTERN-ALIEN-NAME -- interface.
184    ;;;
185    ;;; The loader uses this to convert alien names to the form they occure in
186    ;;; the symbol table (for example, prepending an underscore).  On the MIPS,
187    ;;; we don't do anything.
188    ;;;
189    (defun extern-alien-name (name)
190      (declare (type simple-base-string name))
191      name)

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

  ViewVC Help
Powered by ViewVC 1.1.5