Skip to content
Snippets Groups Projects
Commit a1aa735e authored by wlott's avatar wlott
Browse files

Added SIGCONTEXT-PROGRAM-COUNTER.

parent 5774146f
No related branches found
No related tags found
No related merge requests found
...@@ -7,11 +7,11 @@ ...@@ -7,11 +7,11 @@
;;; 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/pmax-vm.lisp,v 1.10 1992/02/22 00:04:21 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pmax-vm.lisp,v 1.11 1992/07/09 16:43:54 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pmax-vm.lisp,v 1.10 1992/02/22 00:04:21 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pmax-vm.lisp,v 1.11 1992/07/09 16:43:54 wlott Exp $
;;; ;;;
;;; This file contains the PMAX specific runtime stuff. ;;; This file contains the PMAX specific runtime stuff.
;;; ;;;
...@@ -22,8 +22,9 @@ ...@@ -22,8 +22,9 @@
(use-package "UNIX") (use-package "UNIX")
(export '(fixup-code-object internal-error-arguments (export '(fixup-code-object internal-error-arguments
sigcontext-register sigcontext-float-register sigcontext-program-counter sigcontext-register
sigcontext-floating-point-modes extern-alien-name)) sigcontext-float-register sigcontext-floating-point-modes
extern-alien-name))
;;;; The sigcontext structure. ;;;; The sigcontext structure.
...@@ -123,7 +124,14 @@ ...@@ -123,7 +124,14 @@
;;;; Sigcontext access functions. ;;;; Sigcontext access functions.
;;; SIGCONTEXT-REGISTER -- Internal. ;;; SIGCONTEXT-PROGRAM-COUNTER -- Interface.
;;;
(defun sigcontext-program-counter (scp)
(declare (type (alien (* sigcontext)) scp))
(with-alien ((scp (* sigcontext) scp))
(slot scp 'sc-pc)))
;;; SIGCONTEXT-REGISTER -- Interface.
;;; ;;;
;;; An escape register saves the value of a register for a frame that someone ;;; An escape register saves the value of a register for a frame that someone
;;; interrupts. ;;; interrupts.
...@@ -142,7 +150,7 @@ ...@@ -142,7 +150,7 @@
(defsetf sigcontext-register %set-sigcontext-register) (defsetf sigcontext-register %set-sigcontext-register)
;;; SIGCONTEXT-FLOAT-REGISTER -- Internal ;;; SIGCONTEXT-FLOAT-REGISTER -- Interface.
;;; ;;;
;;; Like SIGCONTEXT-REGISTER, but returns the value of a float register. ;;; Like SIGCONTEXT-REGISTER, but returns the value of a float register.
;;; Format is the type of float to return. ;;; Format is the type of float to return.
......
...@@ -7,11 +7,11 @@ ...@@ -7,11 +7,11 @@
;;; 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/sparc-vm.lisp,v 1.12 1992/03/26 03:08:37 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sparc-vm.lisp,v 1.13 1992/07/09 16:43:44 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sparc-vm.lisp,v 1.12 1992/03/26 03:08:37 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sparc-vm.lisp,v 1.13 1992/07/09 16:43:44 wlott Exp $
;;; ;;;
;;; This file contains the SPARC specific runtime stuff. ;;; This file contains the SPARC specific runtime stuff.
;;; ;;;
...@@ -20,8 +20,9 @@ ...@@ -20,8 +20,9 @@
(use-package "UNIX") (use-package "UNIX")
(export '(fixup-code-object internal-error-arguments (export '(fixup-code-object internal-error-arguments
sigcontext-register sigcontext-float-register sigcontext-program-counter sigcontext-register
sigcontext-floating-point-modes extern-alien-name)) sigcontext-float-register sigcontext-floating-point-modes
extern-alien-name))
;;;; The sigcontext structure. ;;;; The sigcontext structure.
...@@ -165,7 +166,14 @@ ...@@ -165,7 +166,14 @@
;;;; Sigcontext access functions. ;;;; Sigcontext access functions.
;;; SIGCONTEXT-REGISTER -- Internal. ;;; SIGCONTEXT-PROGRAM-COUNTER -- Interface.
;;;
(defun sigcontext-program-counter (scp)
(declare (type (alien (* sigcontext)) scp))
(with-alien ((scp (* sigcontext) scp))
(slot scp 'sc-pc)))
;;; SIGCONTEXT-REGISTER -- Interface.
;;; ;;;
;;; An escape register saves the value of a register for a frame that someone ;;; An escape register saves the value of a register for a frame that someone
;;; interrupts. ;;; interrupts.
...@@ -184,7 +192,7 @@ ...@@ -184,7 +192,7 @@
(defsetf sigcontext-register %set-sigcontext-register) (defsetf sigcontext-register %set-sigcontext-register)
;;; SIGCONTEXT-FLOAT-REGISTER -- Internal ;;; SIGCONTEXT-FLOAT-REGISTER -- Interface
;;; ;;;
;;; Like SIGCONTEXT-REGISTER, but returns the value of a float register. ;;; Like SIGCONTEXT-REGISTER, but returns the value of a float register.
;;; Format is the type of float to return. ;;; Format is the type of float to return.
......
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