From 097bb02bb92143ab1e07dd8b94f3e198d4c8c4c9 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 23 Oct 1990 14:44:19 +0000 Subject: [PATCH] Moved machine specific features into here. Added a (use-package "SYSTEM") to keep fixup-code-object happy. --- code/pmax-vm.lisp | 19 +++++++++++++------ 1 file changed, 13 insertions(+), 6 deletions(-) diff --git a/code/pmax-vm.lisp b/code/pmax-vm.lisp index 23ae90ca4..5f902236e 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 -- GitLab