Skip to content
Snippets Groups Projects
Commit 7eacd304 authored by wlott's avatar wlott
Browse files

Changed fasl file parameters to conform to new fop-code-format semantics.

parent 5a11b357
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.77 1990/10/13 20:23:09 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.78 1990/10/23 02:37:09 wlott Exp $
;;; ;;;
;;; This file contains some parameterizations of various VM ;;; This file contains some parameterizations of various VM
;;; attributes for the MIPS. This file is separate from other stuff so ;;; attributes for the MIPS. This file is separate from other stuff so
...@@ -23,9 +23,7 @@ ...@@ -23,9 +23,7 @@
(export '(float-underflow-trap-bit float-overflow-trap-bit (export '(float-underflow-trap-bit float-overflow-trap-bit
float-imprecise-trap-bit float-invalid-trap-bit float-imprecise-trap-bit float-invalid-trap-bit
float-divide-by-zero-trap-bit single-float-trapping-nan-bit float-divide-by-zero-trap-bit single-float-trapping-nan-bit
double-float-trapping-nan-bit *fixup-values*)) double-float-trapping-nan-bit))
;(eval-when (compile load eval)
;;;; Compiler constants. ;;;; Compiler constants.
...@@ -633,21 +631,17 @@ ...@@ -633,21 +631,17 @@
;;; ;;;
(defparameter *assembly-unit-length* 8) (defparameter *assembly-unit-length* 8)
(defparameter *fixup-values*
'((:jump . 0) (:lui . 1) (:addi . 2)))
;;;; Other parameters: ;;;; Other parameters:
;;; The number representing the fasl-code format emit code in. ;;; The number representing the version of fasl files we are going to dump.
;;; ;;;
(defparameter target-fasl-code-format 7) (defparameter target-fasl-file-implementation #.pmax-fasl-file-implementation)
(defparameter target-fasl-file-version 1)
(defparameter target-fasl-file-type "mips-fasl") (defparameter target-fasl-file-type "mips-fasl")
;;; The version string for the implementation dependent code. ;;; The version string for the implementation dependent code.
;;; ;;;
(defparameter vm-version "DECstation 3100/Mach 0.0") (defparameter vm-version "DECstation 3100/Mach 0.0")
;); Eval-When (Compile Load Eval)
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