From: Nathan F. <nf...@us...> - 2006-09-13 17:30:39
|
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*)) |