From e3740c04c2b271d61cbff7bbafccacfdb482a386 Mon Sep 17 00:00:00 2001 From: toy <toy> Date: Fri, 26 Sep 2003 15:37:11 +0000 Subject: [PATCH] Make backend-fasl-file-version be byte-fasl-file-version instead of some hardwired random number. --- compiler/hppa/parms.lisp | 4 ++-- compiler/mips/parms.lisp | 4 ++-- compiler/ppc/parms.lisp | 4 ++-- compiler/sparc/parms.lisp | 4 ++-- compiler/x86/parms.lisp | 4 ++-- 5 files changed, 10 insertions(+), 10 deletions(-) diff --git a/compiler/hppa/parms.lisp b/compiler/hppa/parms.lisp index b71a0f693..467b6e435 100644 --- a/compiler/hppa/parms.lisp +++ b/compiler/hppa/parms.lisp @@ -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) diff --git a/compiler/mips/parms.lisp b/compiler/mips/parms.lisp index 36512fdb1..dbf513bb5 100644 --- a/compiler/mips/parms.lisp +++ b/compiler/mips/parms.lisp @@ -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) diff --git a/compiler/ppc/parms.lisp b/compiler/ppc/parms.lisp index bcc24ffba..b9015c801 100644 --- a/compiler/ppc/parms.lisp +++ b/compiler/ppc/parms.lisp @@ -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) diff --git a/compiler/sparc/parms.lisp b/compiler/sparc/parms.lisp index 8628ed6ec..e7a08feab 100644 --- a/compiler/sparc/parms.lisp +++ b/compiler/sparc/parms.lisp @@ -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*) diff --git a/compiler/x86/parms.lisp b/compiler/x86/parms.lisp index 24c81c626..88095da5b 100644 --- a/compiler/x86/parms.lisp +++ b/compiler/x86/parms.lisp @@ -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) -- GitLab