diff --git a/code/x86-vm.lisp b/code/x86-vm.lisp index 371f797b77d81a46568866085c9864242249a111..34f2e36c21626956b511201f9b3e347249fc3d6e 100644 --- a/code/x86-vm.lisp +++ b/code/x86-vm.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/x86-vm.lisp,v 1.25 2007/07/12 06:38:28 cshapiro Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/x86-vm.lisp,v 1.26 2007/07/22 05:39:39 cshapiro Exp $") ;;; ;;; ********************************************************************** ;;; @@ -83,32 +83,9 @@ (fpstate (array char 512)))) ;;; for FreeBSD -#+(and freebsd (not freebsd4)) +#+freebsd (def-alien-type sigcontext (struct nil - (sc-onstack unsigned-int) - (sc-mask unsigned-int) - (sc-sp unsigned-int) - (sc-fp unsigned-int) - (sc-isp unsigned-int) - (sc-pc unsigned-int) - (sc-efl unsigned-int) ; sc_ps - (sc-es unsigned-int) - (sc-ds unsigned-int) - (sc-cs unsigned-int) - (sc-ss unsigned-int) - (sc-edi unsigned-int) - (sc-esi unsigned-int) - (sc-ebx unsigned-int) - (sc-edx unsigned-int) - (sc-ecx unsigned-int) - (sc-eax unsigned-int))) - -;;; FreeBSD 4.0 has a sigcontext that looks more like Linux. -#+freebsd4 -(def-alien-type sigcontext - (struct nil - (sc-mask (array unsigned-int 4)) (sc-onstack unsigned-int) (sc-gs unsigned-int) (sc-fs unsigned-int)