[Sbcl-commits] CVS: sbcl package-data-list.lisp-expr, 1.397, 1.398 version.lisp-expr, 1.3372, 1.3373

[Nikodemus S. <de...@us...>]

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

Modified Files:
	package-data-list.lisp-expr version.lisp-expr 
Log Message:
1.0.5.6: compare-and-swap / instance-set-conditional refactoring

 * Rename *-COMPARE-AND-EXCHANGE *-COMPARE-AND-SWAP.

 * DEFINE-FULL-COMPARE-AND-SWAP, use it to implement
   %INSTANCE-COMPARE-AND-SWAP (previously %INTANCE-SET-CONDITIONAL) on x86oids.

 * Implement %SIMPLE-VECTOR-COMPARE-AND-SWAP. Not used right now, but required
   by a forthcoming patch.

 * Implement non-x86oid (non-threaded) versions of the above.

 * Check that the slot isn't raw in DEFINE-STRUCURE-SLOT-COMPARE-AND-SWAP.

 * Whitespace.


Index: package-data-list.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/package-data-list.lisp-expr,v
retrieving revision 1.397
retrieving revision 1.398
diff -u -d -r1.397 -r1.398
--- package-data-list.lisp-expr	18 Apr 2007 15:26:02 -0000	1.397
+++ package-data-list.lisp-expr	29 Apr 2007 17:17:25 -0000	1.398
@@ -278,7 +278,6 @@
                "HALT"
                "IF-EQ" "INLINE-SYNTACTIC-CLOSURE-LAMBDA"
                "INSERT-STEP-CONDITIONS"
-               "INSTANCE-REF" "INSTANCE-SET"
                "IR2-COMPONENT-CONSTANTS" "IR2-CONVERT"
                "IR2-PHYSENV-NUMBER-STACK-P"
                "KNOWN-CALL-LOCAL" "KNOWN-RETURN"
@@ -1169,7 +1168,9 @@
                "%SET-SIGNED-SAP-REF-32" "%SET-SIGNED-SAP-REF-64"
                "%SET-SIGNED-SAP-REF-WORD"
                "%SET-SIGNED-SAP-REF-8" "%SET-STACK-REF"
-               "%SET-SYMBOL-HASH" "%SIN" "%SIN-QUICK" "%SINGLE-FLOAT"
+               "%SET-SYMBOL-HASH"
+               "%SIMPLE-VECTOR-COMPARE-AND-SWAP"
+               "%SIN" "%SIN-QUICK" "%SINGLE-FLOAT"
                "%SINH" "%SQRT" "%SXHASH-SIMPLE-STRING"
                "%SXHASH-SIMPLE-SUBSTRING" "%TAN" "%TAN-QUICK" "%TANH"
                "%UNARY-ROUND" "%UNARY-TRUNCATE" "%UNARY-FTRUNCATE"
@@ -1234,7 +1235,7 @@
                #!+long-float "DECODE-LONG-FLOAT"
                "DECODE-SINGLE-FLOAT"
                "DEFINE-STRUCTURE-SLOT-ADDRESSOR"
-               "DEFINE-STRUCTURE-SLOT-COMPARE-AND-EXCHANGE"
+               "DEFINE-STRUCTURE-SLOT-COMPARE-AND-SWAP"
                "DEFINED-FTYPE-MATCHES-DECLARED-FTYPE-P"
                "!DEFSTRUCT-WITH-ALTERNATE-METACLASS" "DESCEND-INTO"
                "DISPLACED-TO-ARRAY-TOO-SMALL-ERROR"
@@ -1456,8 +1457,12 @@
                "SPECIALIZABLE" "SPECIALIZABLE-VECTOR" "SPECIFIER-TYPE"
                "STACK-REF" "STREAM-DESIGNATOR" "STRING-DESIGNATOR"
                "STRUCTURE-RAW-SLOT-TYPE-AND-SIZE" "SUB-GC"
-               "SYMBOLS-DESIGNATOR" "%INSTANCE-LENGTH" "%INSTANCE-REF"
-               "%INSTANCE-SET" "SYSTEM-AREA-CLEAR"
+               "SYMBOLS-DESIGNATOR"
+               "%INSTANCE-COMPARE-AND-SWAP"
+               "%INSTANCE-LENGTH"
+               "%INSTANCE-REF"
+               "%INSTANCE-SET"
+               "SYSTEM-AREA-CLEAR"
                "TWO-ARG-*" "TWO-ARG-+" "TWO-ARG--" "TWO-ARG-/"
                "TWO-ARG-/=" "TWO-ARG-<" "TWO-ARG-<=" "TWO-ARG-="
                "TWO-ARG->" "TWO-ARG->=" "TWO-ARG-AND" "TWO-ARG-EQV"

Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.3372
retrieving revision 1.3373
diff -u -d -r1.3372 -r1.3373
--- version.lisp-expr	29 Apr 2007 16:19:29 -0000	1.3372
+++ version.lisp-expr	29 Apr 2007 17:17:25 -0000	1.3373
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.5.5"
+"1.0.5.6"