[Openmcl-cvs-notifications] r12604 - in /trunk/source: lisp-kernel/image.h xdump/faslenv.lisp xdump/heap-image.lisp

[gb at clozure.com]

Author: gb
Date: Mon Aug 17 03:39:04 2009
New Revision: 12604

Log:
Bump max image, fasl versions.

Modified:
    trunk/source/lisp-kernel/image.h
    trunk/source/xdump/faslenv.lisp
    trunk/source/xdump/heap-image.lisp

Modified: trunk/source/lisp-kernel/image.h
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lisp-kernel/image.h (original)
+++ trunk/source/lisp-kernel/image.h Mon Aug 17 03:39:04 2009
@@ -90,7 +90,7 @@
 =

 =

 #define ABI_VERSION_MIN 1029
-#define ABI_VERSION_CURRENT 1029
-#define ABI_VERSION_MAX 1029
+#define ABI_VERSION_CURRENT 1032
+#define ABI_VERSION_MAX 1032
 =

 #define NUM_IMAGE_SECTIONS 4    /* used to be 3 */

Modified: trunk/source/xdump/faslenv.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/xdump/faslenv.lisp (original)
+++ trunk/source/xdump/faslenv.lisp Mon Aug 17 03:39:04 2009
@@ -42,7 +42,7 @@
 (defconstant $fasl-epush-bit 7)
 (defconstant $fasl-file-id #xff00)
 (defconstant $fasl-file-id1 #xff01)
-(defconstant $fasl-vers #x57)
+(defconstant $fasl-vers #x5a)
 (defconstant $fasl-min-vers #x57)
 (defconstant $faslend #xff)
 (defconstant $fasl-buf-len 2048)

Modified: trunk/source/xdump/heap-image.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/xdump/heap-image.lisp (original)
+++ trunk/source/xdump/heap-image.lisp Mon Aug 17 03:39:04 2009
@@ -96,7 +96,7 @@
 			   (+ 4095 (file-position f)))))
 =

 =

-(defparameter *image-abi-version* 1029)
+(defparameter *image-abi-version* 1032)
 =

 (defun write-image-file (pathname image-base spaces &optional (abi-version=
 *image-abi-version*))
   (target-setup-image-header-sizes)