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

Added hppa fasl file implementation.

parent 96fd0782
No related branches found
No related tags found
No related merge requests found
......@@ -7,11 +7,11 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-macs.lisp,v 1.6 1992/04/21 04:27:52 wlott Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-macs.lisp,v 1.7 1992/05/30 17:39:27 wlott Exp $")
;;;
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-macs.lisp,v 1.6 1992/04/21 04:27:52 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-macs.lisp,v 1.7 1992/05/30 17:39:27 wlott Exp $
;;;
;;; This file contains some macros and constants that are object-format
;;; specific or are used for defining the object format.
......@@ -75,18 +75,20 @@
sparc-fasl-file-implementation
rt-fasl-file-implementation
rt-afpa-fasl-file-implementation
x86-fasl-file-implementation))
x86-fasl-file-implementation
hppa-fasl-file-implementation))
;;; Constants for the different implementations. These are all defined in
;;; one place to make sure they are all unique.
(defparameter fasl-file-implementations
'(nil "Pmax" "Sparc" "RT" "RT/AFPA" "x86"))
'(nil "Pmax" "Sparc" "RT" "RT/AFPA" "x86" "HPPA"))
(defconstant pmax-fasl-file-implementation 1)
(defconstant sparc-fasl-file-implementation 2)
(defconstant rt-fasl-file-implementation 3)
(defconstant rt-afpa-fasl-file-implementation 4)
(defconstant x86-fasl-file-implementation 5)
(defconstant hppa-fasl-file-implementation 6)
;;; The maximum number of SCs in any implementation.
(defconstant sc-number-limit 32)
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