[Sbcl-commits] CVS: sbcl/src/code early-fasl.lisp, 1.68, 1.69 early-impl.lisp, 1.16, 1.17 toplevel.lisp, 1.88, 1.89

[Nathan F. <nf...@us...>]

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv13050/src/code

Modified Files:
	early-fasl.lisp early-impl.lisp toplevel.lisp 
Log Message:
0.9.16.28:
	Shorten pseudo-atomic sequence on x86 and x86-64.

	Do this by combining *pseudo-atomic-{atomic,interrupted}* into
	  a single variable, *pseudo-atomic-bits*, which is a fixnum
	  bitmask where bit 0 denotes atomic-ness and bit 1 denotes
	  interruptedness.
	* Change genesis to initialize this variable properly (this
	  didn't need to be done for the old variables because the
	  allocation sequences would set them upon entrance);
	* Modify functions and macros accessing pseudo-atomic variables
	  to reflect the new state of the world;


Index: early-fasl.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/early-fasl.lisp,v
retrieving revision 1.68
retrieving revision 1.69
diff -u -d -r1.68 -r1.69
--- early-fasl.lisp	17 Aug 2006 15:12:47 -0000	1.68
+++ early-fasl.lisp	13 Sep 2006 17:30:29 -0000	1.69
@@ -76,7 +76,7 @@
 ;;; versions which break binary compatibility. But it certainly should
 ;;; be incremented for release versions which break binary
 ;;; compatibility.
-(def!constant +fasl-file-version+ 69)
+(def!constant +fasl-file-version+ 70)
 ;;; (record of versions before 2003 deleted in 2003-04-26/0.pre8.107 or so)
 ;;; 38: (2003-01-05) changed names of internal SORT machinery
 ;;; 39: (2003-02-20) in 0.7.12.1 a slot was added to
@@ -140,6 +140,7 @@
 ;;;     0.9.14.something
 ;;; 68: (2006-08-14) changed number of arguments of LOAD-DEFMETHOD
 ;;; 69: (2006-08-17) changed validity of various initargs for methods
+;;; 70: (2006-09-13) changes to *PSEUDO-ATOMIC* on x86 and x86-64
 
 ;;; the conventional file extension for our fasl files
 (declaim (type simple-string *fasl-file-type*))

Index: early-impl.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/early-impl.lisp,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- early-impl.lisp	16 Mar 2006 12:01:07 -0000	1.16
+++ early-impl.lisp	13 Sep 2006 17:30:29 -0000	1.17
@@ -33,8 +33,7 @@
                   ;; :X86. (Note that non-X86 ports mention
                   ;; pseudo-atomicity too, but they handle it without
                   ;; messing with special variables.)
-                  #!+(or x86 x86-64) *pseudo-atomic-atomic*
-                  #!+(or x86 x86-64) *pseudo-atomic-interrupted*
+                  #!+(or x86 x86-64) *pseudo-atomic-bits*
                   sb!unix::*interrupts-enabled*
                   sb!unix::*interrupt-pending*
                   *free-interrupt-context-index*

Index: toplevel.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/toplevel.lisp,v
retrieving revision 1.88
retrieving revision 1.89
diff -u -d -r1.88 -r1.89
--- toplevel.lisp	28 Aug 2006 16:56:47 -0000	1.88
+++ toplevel.lisp	13 Sep 2006 17:30:29 -0000	1.89
@@ -25,8 +25,7 @@
 ;;; specials initialized by !COLD-INIT
 
 ;;; FIXME: These could be converted to DEFVARs.
-(declaim (special #!+(or x86 x86-64) *pseudo-atomic-atomic*
-                  #!+(or x86 x86-64) *pseudo-atomic-interrupted*
+(declaim (special #!+(or x86 x86-64) *pseudo-atomic-bits*
                   sb!unix::*interrupts-enabled*
                   sb!unix::*interrupt-pending*
                   *type-system-initialized*))