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

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

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

revision 1.15 by dtc, Fri Mar 26 15:57:00 1999 UTC revision 1.16 by pw, Wed Apr 12 17:41:15 2000 UTC
# Line 56  Line 56 
56          (status unsigned-long)))          (status unsigned-long)))
57    
58  ;;; for FreeBSD  ;;; for FreeBSD
59  #+freebsd  #+(and freebsd (not freebsd4))
60  (def-alien-type sigcontext  (def-alien-type sigcontext
61      (struct nil      (struct nil
62          (sc-onstack unsigned-int)          (sc-onstack unsigned-int)
# Line 77  Line 77 
77          (sc-ecx     unsigned-int)          (sc-ecx     unsigned-int)
78          (sc-eax     unsigned-int)))          (sc-eax     unsigned-int)))
79    
80    ;;; FreeBSD 4.0 has a sigcontext that looks more like Linux.
81    #+freebsd4
82    (def-alien-type sigcontext
83        (struct nil
84            (sc-mask    (array unsigned-int 4))
85            (sc-onstack unsigned-int)
86            (sc-gs      unsigned-int)
87            (sc-fs      unsigned-int)
88            (sc-es      unsigned-int)
89            (sc-ds      unsigned-int)
90            (sc-edi     unsigned-int)
91            (sc-esi     unsigned-int)
92            (sc-fp      unsigned-int)
93            (sc-isp     unsigned-int)
94            (sc-ebx     unsigned-int)
95            (sc-edx     unsigned-int)
96            (sc-ecx     unsigned-int)
97            (sc-eax     unsigned-int)
98            (trapno     unsigned-int)
99            (err        unsigned-int)
100            (sc-pc      unsigned-int)
101            (sc-cs      unsigned-int)
102            (sc-efl     unsigned-int)               ; sc_ps
103            (sc-sp      unsigned-int)
104            (sc-ss      unsigned-int)))
105    
106  ;; For Linux...  ;; For Linux...
107  #+linux  #+linux
108  (def-alien-type sigcontext  (def-alien-type sigcontext

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

  ViewVC Help
Powered by ViewVC 1.1.5