diff --git a/code/hppa-vm.lisp b/code/hppa-vm.lisp index b8a0a2c293c2714e616c7e3981baab9ddedf43ea..ce033fb51de6cbe209a8b96d03f06bfba97c4011 100644 --- a/code/hppa-vm.lisp +++ b/code/hppa-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/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 @@ (export '(fixup-code-object internal-error-arguments sigcontext-program-counter sigcontext-register sigcontext-float-register sigcontext-floating-point-modes - extern-alien-name)) + extern-alien-name sanctify-for-execution)) ;;;; The sigcontext structure. @@ -213,3 +213,20 @@ 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) diff --git a/code/pmax-vm.lisp b/code/pmax-vm.lisp index 902f4eb2e5d5c9b4f777a0abf13618546e06b289..aec8bc20226bb58a7272f7248cbda6dd17d1629d 100644 --- a/code/pmax-vm.lisp +++ b/code/pmax-vm.lisp @@ -7,11 +7,11 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (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. ;;; @@ -24,7 +24,7 @@ (export '(fixup-code-object internal-error-arguments sigcontext-program-counter sigcontext-register sigcontext-float-register sigcontext-floating-point-modes - extern-alien-name)) + extern-alien-name sanctify-for-execution)) ;;;; The sigcontext structure. @@ -197,3 +197,13 @@ (defun extern-alien-name (name) (declare (type simple-base-string 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) diff --git a/code/sparc-vm.lisp b/code/sparc-vm.lisp index e55e626ae8b7de7636cd31f6b98ffea6cea0352c..8029e14858849178d534a30b8980e09eb66ff29e 100644 --- a/code/sparc-vm.lisp +++ b/code/sparc-vm.lisp @@ -7,12 +7,10 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (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. ;;; (in-package "SPARC") @@ -22,7 +20,7 @@ (export '(fixup-code-object internal-error-arguments sigcontext-program-counter sigcontext-register sigcontext-float-register sigcontext-floating-point-modes - extern-alien-name)) + extern-alien-name sanctify-for-execution)) ;;;; The sigcontext structure. @@ -241,3 +239,15 @@ (defun extern-alien-name (name) (declare (type simple-base-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)