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

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

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

revision 1.1 by wlott, Tue Oct 23 02:03:06 1990 UTC revision 1.2 by wlott, Tue Oct 23 14:44:19 1990 UTC
# Line 12  Line 12 
12  ;;; This file contains the PMAX specific runtime stuff.  ;;; This file contains the PMAX specific runtime stuff.
13  ;;;  ;;;
14  (in-package "VM")  (in-package "VM")
15    (use-package "SYSTEM")
16    
17  (export '(fixup-code-object))  (export '(fixup-code-object))
18    
19    
20    ;;;; Add machine specific features to *features*
21    
22    (pushnew :decstation-3100 *features*)
23    (pushnew :pmax *features*)
24    
25    
26    
27    ;;; FIXUP-CODE-OBJECT -- Interface
28    ;;;
29  (defun fixup-code-object (code offset fixup kind)  (defun fixup-code-object (code offset fixup kind)
30    ;; Currently, the only kind of fixup we can have is a lui followed by an    (multiple-value-bind (word-offset rem) (truncate offset word-bytes)
   ;; addi.  
   (multiple-value-bind  
       (word-offset rem)  
       (truncate offset vm:word-bytes)  
31      (unless (zerop rem)      (unless (zerop rem)
32        (error "Unaligned instruction?  offset=#x~X." offset))        (error "Unaligned instruction?  offset=#x~X." offset))
33      (system:without-gcing      (system:without-gcing

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.5