/[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.13 by wlott, Thu May 27 01:36:42 1993 UTC revision 1.14 by wlott, Fri Aug 27 17:15:20 1993 UTC
# Line 29  Line 29 
29    
30  ;;;; The sigcontext structure.  ;;;; The sigcontext structure.
31    
 #-gengc  
32  (def-alien-type sigcontext  (def-alien-type sigcontext
33    (struct nil    (struct nil
34      (sc-onstack unsigned-long)      (sc-onstack unsigned-long)
# Line 46  Line 45 
45      (sc-badvaddr system-area-pointer)      (sc-badvaddr system-area-pointer)
46      (sc-badpaddr system-area-pointer)))      (sc-badpaddr system-area-pointer)))
47    
 #+gengc  
 (def-alien-type sigcontext  
   (struct nil  
     (sc-regs (array unsigned-long 32))  
     (sc-mdlo unsigned-long)  
     (sc-mdhi unsigned-long)  
     (sc-pc system-area-pointer)  
     (sc-cause unsigned-long)  
     (sc-badvaddr system-area-pointer)  
     (sc-ownedfp unsigned-long)  
     (sc-fpregs (array unsigned-long 32))  
     (sc-fpc-csr unsigned-long)  
     (sc-fpc-eir unsigned-long)  
     (sc-were-in-lisp boolean)))  
48    
49    
50  ;;;; Add machine specific features to *features*  ;;;; Add machine specific features to *features*

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

  ViewVC Help
Powered by ViewVC 1.1.5