Skip to content
Snippets Groups Projects
Commit 2ed65516 authored by cwang's avatar cwang
Browse files

update the sigcontext structure

parent 7d960168
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/amd64-vm.lisp,v 1.1 2004/05/24 23:30:37 cwang Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/amd64-vm.lisp,v 1.2 2004/10/19 20:26:36 cwang Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -29,8 +29,6 @@ ...@@ -29,8 +29,6 @@
sigcontext-float-register sigcontext-floating-point-modes sigcontext-float-register sigcontext-floating-point-modes
extern-alien-name sanctify-for-execution)) extern-alien-name sanctify-for-execution))
;; the sigcontext structure needs to be changed
;;;; The sigcontext structure. ;;;; The sigcontext structure.
;;;; Add machine specific features to *features* ;;;; Add machine specific features to *features*
...@@ -163,36 +161,34 @@ ...@@ -163,36 +161,34 @@
#+linux #+linux
(def-alien-type sigcontext (def-alien-type sigcontext
(struct nil (struct nil
(gs unsigned-short) (sc-r8 unsigned-long)
(__gsh unsigned-short) (sc-r9 unsigned-long)
(fs unsigned-short) (sc-r10 unsigned-long)
(__fsh unsigned-short) (sc-r11 unsigned-long)
(sc-es unsigned-short) (sc-r12 unsigned-long)
(__esh unsigned-short) (sc-r13 unsigned-long)
(sc-ds unsigned-short) (sc-r14 unsigned-long)
(__dsh unsigned-short) (sc-r15 unsigned-long)
(sc-edi unsigned-long) (sc-rdi unsigned-long)
(sc-esi unsigned-long) (sc-rsi unsigned-long)
(ebp unsigned-long) (rbp unsigned-long)
(sc-sp unsigned-long) (sc-rbx unsigned-long)
(sc-ebx unsigned-long) (sc-rdx unsigned-long)
(sc-edx unsigned-long) (sc-rax unsigned-long)
(sc-ecx unsigned-long) (sc-rcx unsigned-long)
(sc-eax unsigned-long) (sc-sp unsigned-long)
(trapno unsigned-long) (sc-pc unsigned-long)
(err unsigned-long) (sc-efl unsigned-long)
(sc-pc unsigned-long) (sc-cs unsigned-short)
(sc-cs unsigned-short) (gs unsigned-short)
(__csh unsigned-short) (fs unsigned-short)
(sc-efl unsigned-long) (__pad0 unsigned-short)
(esp_at_signal unsigned-long) (err unsigned-long)
(sc-ss unsigned-short) (trapno unsigned-long)
(__ssh unsigned-short) (sc-mask unsigned-long)
; (fpstate unsigned-long) ;; fpstate struct pointer (cr2 unsigned-long)
(fpstate (* (struct fpstate))) (fpstate (* (struct fpstate)))
(sc-mask unsigned-long) (__reserved1 (array unsigned-long 8))))
(cr2 unsigned-long)))
;;;; MACHINE-TYPE and MACHINE-VERSION ;;;; MACHINE-TYPE and MACHINE-VERSION
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment