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

Added definition for SANCTIFY-FOR-EXECUTION.

parent 7b5bbf21
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/hppa-vm.lisp,v 1.4 1992/07/09 16:36:39 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hppa-vm.lisp,v 1.5 1992/10/08 22:10:02 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -22,7 +22,7 @@ ...@@ -22,7 +22,7 @@
(export '(fixup-code-object internal-error-arguments (export '(fixup-code-object internal-error-arguments
sigcontext-program-counter sigcontext-register sigcontext-program-counter sigcontext-register
sigcontext-float-register sigcontext-floating-point-modes sigcontext-float-register sigcontext-floating-point-modes
extern-alien-name)) extern-alien-name sanctify-for-execution))
;;;; The sigcontext structure. ;;;; The sigcontext structure.
...@@ -213,3 +213,20 @@ ...@@ -213,3 +213,20 @@
name) name)
;;; SANCTIFY-FOR-EXECUTION -- Interface.
;;;
;;; Do whatever is necessary to make the given code component executable.
;;; On the PA-RISC, this means flushing the data cache and purging the
;;; inst cache.
;;;
(defun sanctify-for-execution (component)
(without-gcing
(alien-funcall (extern-alien "sanctify_for_execution"
(function void
system-area-pointer
unsigned-long))
(code-instructions component)
(* (code-header-ref component code-code-size-slot)
word-bytes)))
nil)
...@@ -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.11 1992/07/09 16:43:54 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pmax-vm.lisp,v 1.12 1992/10/08 22:10:34 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.12 1992/10/08 22:10:34 wlott Exp $
;;; ;;;
;;; This file contains the PMAX specific runtime stuff. ;;; This file contains the PMAX specific runtime stuff.
;;; ;;;
...@@ -24,7 +24,7 @@ ...@@ -24,7 +24,7 @@
(export '(fixup-code-object internal-error-arguments (export '(fixup-code-object internal-error-arguments
sigcontext-program-counter sigcontext-register sigcontext-program-counter sigcontext-register
sigcontext-float-register sigcontext-floating-point-modes sigcontext-float-register sigcontext-floating-point-modes
extern-alien-name)) extern-alien-name sanctify-for-execution))
;;;; The sigcontext structure. ;;;; The sigcontext structure.
...@@ -197,3 +197,13 @@ ...@@ -197,3 +197,13 @@
(defun extern-alien-name (name) (defun extern-alien-name (name)
(declare (type simple-base-string name)) (declare (type simple-base-string name))
name) name)
;;; SANCTIFY-FOR-EXECUTION -- Interface.
;;;
;;; Do whatever is necessary to make the given code component executable.
;;;
(defun sanctify-for-execution (component)
(declare (ignore component))
nil)
...@@ -7,12 +7,10 @@ ...@@ -7,12 +7,10 @@
;;; 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.14 1992/09/08 23:29:40 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sparc-vm.lisp,v 1.15 1992/10/08 22:10:21 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sparc-vm.lisp,v 1.14 1992/09/08 23:29:40 wlott Exp $
;;;
;;; This file contains the SPARC specific runtime stuff. ;;; This file contains the SPARC specific runtime stuff.
;;; ;;;
(in-package "SPARC") (in-package "SPARC")
...@@ -22,7 +20,7 @@ ...@@ -22,7 +20,7 @@
(export '(fixup-code-object internal-error-arguments (export '(fixup-code-object internal-error-arguments
sigcontext-program-counter sigcontext-register sigcontext-program-counter sigcontext-register
sigcontext-float-register sigcontext-floating-point-modes sigcontext-float-register sigcontext-floating-point-modes
extern-alien-name)) extern-alien-name sanctify-for-execution))
;;;; The sigcontext structure. ;;;; The sigcontext structure.
...@@ -241,3 +239,15 @@ ...@@ -241,3 +239,15 @@
(defun extern-alien-name (name) (defun extern-alien-name (name)
(declare (type simple-base-string name)) (declare (type simple-base-string name))
(concatenate 'string "_" name)) (concatenate 'string "_" name))
;;; SANCTIFY-FOR-EXECUTION -- Interface.
;;;
;;; Do whatever is necessary to make the given code component executable.
;;; On the sparc, we don't need to do anything, because the i and d caches
;;; are unified.
;;;
(defun sanctify-for-execution (component)
(declare (ignore component))
nil)
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