From bc8a91ee21e65bb4d82cb3d19c670b25597606d7 Mon Sep 17 00:00:00 2001 From: cshapiro <cshapiro> Date: Sun, 22 Jul 2007 05:39:39 +0000 Subject: [PATCH] Remove the first member of the FreeBSD sigcontext structure so that it matches the layout of an mcontext. Also, remove an older FreeBSD sigcontext definition. --- code/x86-vm.lisp | 27 ++------------------------- 1 file changed, 2 insertions(+), 25 deletions(-) diff --git a/code/x86-vm.lisp b/code/x86-vm.lisp index 371f797b7..34f2e36c2 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) -- GitLab