diff --git a/code/pmax-vm.lisp b/code/pmax-vm.lisp index 23ae90ca4d659d241df16cdb8b4c1c278d5e0074..5f902236efb222b7021d7cb62618fc1a66f7cc97 100644 --- a/code/pmax-vm.lisp +++ b/code/pmax-vm.lisp @@ -7,20 +7,27 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pmax-vm.lisp,v 1.1 1990/10/23 02:03:06 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/pmax-vm.lisp,v 1.2 1990/10/23 14:44:19 wlott Exp $ ;;; ;;; This file contains the PMAX specific runtime stuff. ;;; (in-package "VM") +(use-package "SYSTEM") (export '(fixup-code-object)) + +;;;; Add machine specific features to *features* + +(pushnew :decstation-3100 *features*) +(pushnew :pmax *features*) + + + +;;; FIXUP-CODE-OBJECT -- Interface +;;; (defun fixup-code-object (code offset fixup kind) - ;; Currently, the only kind of fixup we can have is a lui followed by an - ;; addi. - (multiple-value-bind - (word-offset rem) - (truncate offset vm:word-bytes) + (multiple-value-bind (word-offset rem) (truncate offset word-bytes) (unless (zerop rem) (error "Unaligned instruction? offset=#x~X." offset)) (system:without-gcing