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>
Sun, 14 Apr 1996 01:10:54 +0200
changeset 1178 da62ad2d927f
parent 1177 05f4917ccc4f
child 1179 3e0f32177af4
*** empty log message ***
WeakArr.st file | annotate | diff | comparison | revisions
WeakArray.st file | annotate | diff | comparison | revisions 
--- a/WeakArr.st	Sun Apr 14 00:16:35 1996 +0200
+++ b/WeakArr.st	Sun Apr 14 01:10:54 1996 +0200
@@ -222,7 +222,6 @@
     REGISTER int indx;
     REGISTER unsigned int nIndex;
     OBJ el;
-    extern OBJ __WEAK_READ__();
 
     if (__isSmallInteger(index)) {
 	indx = __intVal(index) - 1;
@@ -292,7 +291,6 @@
     unsigned int nIndex;
     static struct inlineCache val = _ILC1;
     REGISTER OBJ rHome;
-    extern OBJ __WEAK_READ__();
 
     index = __intVal(__ClassInstPtr(__qClass(self))->c_ninstvars);
     nIndex = __BYTES2OBJS__(__qSize(self) - OHDR_SIZE);
@@ -359,7 +357,6 @@
     int nIndex, nInsts;
     static struct inlineCache val = _ILC1;
     int indexLow, indexHigh;
-    extern OBJ __WEAK_READ__();
 
     if (__bothSmallInteger(start, stop)) {
 	indexLow = __intVal(start);
@@ -434,7 +431,6 @@
     unsigned int nIndex;
     static struct inlineCache val2 = _ILC2;
     REGISTER OBJ rHome;
-    extern OBJ __WEAK_READ__();
 
     index = __intVal(__ClassInstPtr(__qClass(self))->c_ninstvars);
     nIndex = __BYTES2OBJS__(__qSize(self) - OHDR_SIZE);
@@ -503,7 +499,6 @@
     int nIndex;
     static struct inlineCache val = _ILC1;
     REGISTER OBJ rHome;
-    extern OBJ __WEAK_READ__();
 
     index = __intVal(__ClassInstPtr(__qClass(self))->c_ninstvars);
     nIndex = __BYTES2OBJS__(__qSize(self) - OHDR_SIZE);
@@ -591,6 +586,6 @@
 !WeakArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/WeakArr.st,v 1.27 1996-04-02 22:14:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/WeakArr.st,v 1.28 1996-04-13 23:10:54 cg Exp $'
 ! !
 WeakArray initialize!
--- a/WeakArray.st	Sun Apr 14 00:16:35 1996 +0200
+++ b/WeakArray.st	Sun Apr 14 01:10:54 1996 +0200
@@ -222,7 +222,6 @@
     REGISTER int indx;
     REGISTER unsigned int nIndex;
     OBJ el;
-    extern OBJ __WEAK_READ__();
 
     if (__isSmallInteger(index)) {
 	indx = __intVal(index) - 1;
@@ -292,7 +291,6 @@
     unsigned int nIndex;
     static struct inlineCache val = _ILC1;
     REGISTER OBJ rHome;
-    extern OBJ __WEAK_READ__();
 
     index = __intVal(__ClassInstPtr(__qClass(self))->c_ninstvars);
     nIndex = __BYTES2OBJS__(__qSize(self) - OHDR_SIZE);
@@ -359,7 +357,6 @@
     int nIndex, nInsts;
     static struct inlineCache val = _ILC1;
     int indexLow, indexHigh;
-    extern OBJ __WEAK_READ__();
 
     if (__bothSmallInteger(start, stop)) {
 	indexLow = __intVal(start);
@@ -434,7 +431,6 @@
     unsigned int nIndex;
     static struct inlineCache val2 = _ILC2;
     REGISTER OBJ rHome;
-    extern OBJ __WEAK_READ__();
 
     index = __intVal(__ClassInstPtr(__qClass(self))->c_ninstvars);
     nIndex = __BYTES2OBJS__(__qSize(self) - OHDR_SIZE);
@@ -503,7 +499,6 @@
     int nIndex;
     static struct inlineCache val = _ILC1;
     REGISTER OBJ rHome;
-    extern OBJ __WEAK_READ__();
 
     index = __intVal(__ClassInstPtr(__qClass(self))->c_ninstvars);
     nIndex = __BYTES2OBJS__(__qSize(self) - OHDR_SIZE);
@@ -591,6 +586,6 @@
 !WeakArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WeakArray.st,v 1.27 1996-04-02 22:14:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WeakArray.st,v 1.28 1996-04-13 23:10:54 cg Exp $'
 ! !
 WeakArray initialize!
hg/stx-libbasic