From dcfc89349692c780e671babfbebaa26ee4db5b47 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 21 Apr 1992 04:27:52 +0000 Subject: [PATCH] Added the x86 fasl-file implementation. --- compiler/generic/vm-macs.lisp | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/compiler/generic/vm-macs.lisp b/compiler/generic/vm-macs.lisp index 5445d6f7c..01a802733 100644 --- a/compiler/generic/vm-macs.lisp +++ b/compiler/generic/vm-macs.lisp @@ -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.5 1991/07/23 11:54:06 ram 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.5 1991/07/23 11:54:06 ram 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 $ ;;; ;;; This file contains some macros and constants that are object-format ;;; specific or are used for defining the object format. @@ -74,16 +74,19 @@ pmax-fasl-file-implementation sparc-fasl-file-implementation rt-fasl-file-implementation - rt-afpa-fasl-file-implementation)) + rt-afpa-fasl-file-implementation + x86-fasl-file-implementation)) ;;; Constants for the different implementations. These are all defined in ;;; one place to make sure they are all unique. -(defconstant fasl-file-implementations '(nil "Pmax" "Sparc" "RT" "RT/AFPA")) +(defparameter fasl-file-implementations + '(nil "Pmax" "Sparc" "RT" "RT/AFPA" "x86")) (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) ;;; The maximum number of SCs in any implementation. (defconstant sc-number-limit 32) -- GitLab