Skip to content
Snippets Groups Projects
Commit e3740c04 authored by toy's avatar toy
Browse files

Make backend-fasl-file-version be byte-fasl-file-version instead of

some hardwired random number.
parent baa3cdbd
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/hppa/parms.lisp,v 1.10 2003/02/12 15:53:47 emarsden Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/hppa/parms.lisp,v 1.11 2003/09/26 15:37:10 toy Rel $")
;;;
;;; **********************************************************************
;;;
......@@ -29,7 +29,7 @@
(setf (backend-fasl-file-type *target-backend*) "hpf")
(setf (backend-fasl-file-implementation *target-backend*)
hppa-fasl-file-implementation)
(setf (backend-fasl-file-version *target-backend*) #x18e)
(setf (backend-fasl-file-version *target-backend*) byte-fasl-file-version)
(setf (backend-register-save-penalty *target-backend*) 3)
(setf (backend-byte-order *target-backend*) :big-endian)
(setf (backend-page-size *target-backend*) 4096)
......
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.116 2003/03/02 18:55:56 toy Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/parms.lisp,v 1.117 2003/09/26 15:37:11 toy Rel $")
;;;
;;; **********************************************************************
;;;
......@@ -37,7 +37,7 @@
(setf (backend-fasl-file-type *target-backend*) #+pmax "pmaxf" #+sgi "sgif")
(setf (backend-fasl-file-implementation *target-backend*)
#+pmax pmax-fasl-file-implementation #+sgi sgi-fasl-file-implementation)
(setf (backend-fasl-file-version *target-backend*) #x18e)
(setf (backend-fasl-file-version *target-backend*) byte-fasl-file-version)
(setf (backend-register-save-penalty *target-backend*) 3)
(setf (backend-byte-order *target-backend*) #+pmax :little-endian
#+sgi :big-endian)
......
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/parms.lisp,v 1.5 2003/02/12 15:53:49 emarsden Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ppc/parms.lisp,v 1.6 2003/09/26 15:37:11 toy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -32,7 +32,7 @@
(setf (backend-fasl-file-type *target-backend*) "ppcf")
(setf (backend-fasl-file-implementation *target-backend*)
ppc-fasl-file-implementation)
(setf (backend-fasl-file-version *target-backend*) #x18e)
(setf (backend-fasl-file-version *target-backend*) byte-fasl-file-version)
(setf (backend-register-save-penalty *target-backend*) 3)
(setf (backend-byte-order *target-backend*) :big-endian)
(setf (backend-page-size *target-backend*) 4096)
......
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/parms.lisp,v 1.43 2003/08/27 16:45:56 toy Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/parms.lisp,v 1.44 2003/09/26 15:37:11 toy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -40,7 +40,7 @@
(setf (backend-fasl-file-type *target-backend*) "sparcf")
(setf (backend-fasl-file-implementation *target-backend*)
sparc-fasl-file-implementation)
(setf (backend-fasl-file-version *target-backend*) #x18e)
(setf (backend-fasl-file-version *target-backend*) byte-fasl-file-version)
(setf (backend-register-save-penalty *target-backend*) 3)
(setf (backend-byte-order *target-backend*) :big-endian)
(setf (backend-page-size *target-backend*)
......
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/parms.lisp,v 1.24 2003/03/23 21:23:41 gerd Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/parms.lisp,v 1.25 2003/09/26 15:37:11 toy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -42,7 +42,7 @@
(setf (backend-fasl-file-type *target-backend*) "x86f")
(setf (backend-fasl-file-implementation *target-backend*)
x86-fasl-file-implementation)
(setf (backend-fasl-file-version *target-backend*) #x18e)
(setf (backend-fasl-file-version *target-backend*) byte-fasl-file-version)
(setf (backend-register-save-penalty *target-backend*) 3)
(setf (backend-byte-order *target-backend*) :little-endian)
......
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