/[cmucl]/src/code/sparc-vm.lisp
ViewVC logotype

Diff of /src/code/sparc-vm.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by wlott, Tue Sep 8 23:29:40 1992 UTC revision 1.15 by wlott, Thu Oct 8 22:10:21 1992 UTC
# Line 11  Line 11 
11  ;;;  ;;;
12  ;;; **********************************************************************  ;;; **********************************************************************
13  ;;;  ;;;
 ;;; $Header$  
 ;;;  
14  ;;; This file contains the SPARC specific runtime stuff.  ;;; This file contains the SPARC specific runtime stuff.
15  ;;;  ;;;
16  (in-package "SPARC")  (in-package "SPARC")
# Line 22  Line 20 
20  (export '(fixup-code-object internal-error-arguments  (export '(fixup-code-object internal-error-arguments
21            sigcontext-program-counter sigcontext-register            sigcontext-program-counter sigcontext-register
22            sigcontext-float-register sigcontext-floating-point-modes            sigcontext-float-register sigcontext-floating-point-modes
23            extern-alien-name))            extern-alien-name sanctify-for-execution))
24    
25    
26  ;;;; The sigcontext structure.  ;;;; The sigcontext structure.
# Line 241  Line 239 
239  (defun extern-alien-name (name)  (defun extern-alien-name (name)
240    (declare (type simple-base-string name))    (declare (type simple-base-string name))
241    (concatenate 'string "_" name))    (concatenate 'string "_" name))
242    
243    
244    
245    ;;; SANCTIFY-FOR-EXECUTION -- Interface.
246    ;;;
247    ;;; Do whatever is necessary to make the given code component executable.
248    ;;; On the sparc, we don't need to do anything, because the i and d caches
249    ;;; are unified.
250    ;;;
251    (defun sanctify-for-execution (component)
252      (declare (ignore component))
253      nil)

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

  ViewVC Help
Powered by ViewVC 1.1.5