Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 22 Jan 1997 01:53:41 +0100
changeset 2220 17ec32355032
parent 2219 0e7ba134fa8d
child 2221 38a064616dfd
*** empty log message ***
WeakArr.st file | annotate | diff | comparison | revisions
WeakArray.st file | annotate | diff | comparison | revisions 
--- a/WeakArr.st	Wed Jan 22 00:49:21 1997 +0100
+++ b/WeakArr.st	Wed Jan 22 01:53:41 1997 +0100
@@ -344,7 +344,7 @@
 
 	for (; index < nIndex; index++) {
 	    REGISTER OBJFUNC codeVal;
-	    REGISTER OBJ element;
+	    OBJ element;
 
 	    if (InterruptPending != nil) __interruptL(@line);
 
@@ -360,6 +360,7 @@
 		     * directly call interpreter without going through Block>>value
 		     */
 #ifdef PASS_ARG_POINTER
+		    {
 		    __interpret(aBlock, 1, nil, IBLOCK_ARG, nil, nil, &element);
 #else
 		    __interpret(aBlock, 1, nil, IBLOCK_ARG, nil, nil, element);
@@ -498,7 +499,7 @@
 
 	for (; index < nIndex; index++) {
 	    REGISTER OBJFUNC codeVal;
-	    REGISTER OBJ element;
+	    OBJ element;
 
 	    element = __InstPtr(self)->i_instvars[index];
 	    if (element) {
@@ -627,7 +628,7 @@
 
 	for (; index < nIndex; index++) {
 	    REGISTER OBJFUNC codeVal;
-	    REGISTER OBJ element;
+	    OBJ element;
 
 	    element = __InstPtr(self)->i_instvars[index];
 	    if (element && (element != __MKSMALLINT(0))) {
@@ -708,6 +709,6 @@
 !WeakArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/WeakArr.st,v 1.42 1997-01-21 12:54:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/WeakArr.st,v 1.43 1997-01-22 00:53:41 cg Exp $'
 ! !
 WeakArray initialize!
--- a/WeakArray.st	Wed Jan 22 00:49:21 1997 +0100
+++ b/WeakArray.st	Wed Jan 22 01:53:41 1997 +0100
@@ -344,7 +344,7 @@
 
 	for (; index < nIndex; index++) {
 	    REGISTER OBJFUNC codeVal;
-	    REGISTER OBJ element;
+	    OBJ element;
 
 	    if (InterruptPending != nil) __interruptL(@line);
 
@@ -360,6 +360,7 @@
 		     * directly call interpreter without going through Block>>value
 		     */
 #ifdef PASS_ARG_POINTER
+		    {
 		    __interpret(aBlock, 1, nil, IBLOCK_ARG, nil, nil, &element);
 #else
 		    __interpret(aBlock, 1, nil, IBLOCK_ARG, nil, nil, element);
@@ -498,7 +499,7 @@
 
 	for (; index < nIndex; index++) {
 	    REGISTER OBJFUNC codeVal;
-	    REGISTER OBJ element;
+	    OBJ element;
 
 	    element = __InstPtr(self)->i_instvars[index];
 	    if (element) {
@@ -627,7 +628,7 @@
 
 	for (; index < nIndex; index++) {
 	    REGISTER OBJFUNC codeVal;
-	    REGISTER OBJ element;
+	    OBJ element;
 
 	    element = __InstPtr(self)->i_instvars[index];
 	    if (element && (element != __MKSMALLINT(0))) {
@@ -708,6 +709,6 @@
 !WeakArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WeakArray.st,v 1.42 1997-01-21 12:54:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WeakArray.st,v 1.43 1997-01-22 00:53:41 cg Exp $'
 ! !
 WeakArray initialize!
hg/stx-libbasic