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

Moved machine specific features into here. Added a (use-package "SYSTEM")

to keep fixup-code-object happy.
parent 8732065f
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
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