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.
eliminate MKOBJ & MKCP (use MKEXTERNALADDRESS & externalAddressVal)
authorClaus Gittinger <cg@exept.de>
Mon, 06 Oct 1997 15:28:01 +0200
changeset 2999 b0e55440cf12
parent 2998 930360fb3f12
child 3000 58ea014c14e1
eliminate MKOBJ & MKCP (use MKEXTERNALADDRESS & externalAddressVal)
DirStr.st file | annotate | diff | comparison | revisions
DirectoryStream.st file | annotate | diff | comparison | revisions
ExtStream.st file | annotate | diff | comparison | revisions
ExternalStream.st file | annotate | diff | comparison | revisions 
--- a/DirStr.st	Sat Oct 04 19:01:30 1997 +0200
+++ b/DirStr.st	Mon Oct 06 15:28:01 1997 +0200
@@ -104,7 +104,7 @@
 #  define Context __DEF_Context
 # endif
 
-# define __HANDLEVal(o)  (HANDLE)__MKCP(o)
+# define __HANDLEVal(o)  (HANDLE)__externalAddressVal(o)
 
 #endif /* WIN32 */
 
@@ -580,7 +580,7 @@
 	    if (d == NULL) {
 		__INST(lastErrorNumber) = __MKSMALLINT(errno);
 	    } else {
-		__INST(dirPointer) = dp = __MKOBJ(d); __STORE(self, dp);
+		__INST(dirPointer) = dp = __MKEXTERNALADDRESS(d); __STORE(self, dp);
 		ok = true;
 	    }
 	}
@@ -602,7 +602,7 @@
 	    if (d == INVALID_HANDLE_VALUE) {
 		__INST(lastErrorNumber) = __MKSMALLINT(GetLastError());
 	    } else {
-		__INST(dirPointer) = dp = __MKOBJ(d); __STORE(self, dp);
+		__INST(dirPointer) = dp = __MKEXTERNALADDRESS(d); __STORE(self, dp);
 		entry = __MKSTRING( data.cFileName );
 		ok = true;
 	    }
@@ -673,5 +673,5 @@
 !DirectoryStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/DirStr.st,v 1.40 1997-09-24 03:45:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/DirStr.st,v 1.41 1997-10-06 13:27:34 cg Exp $'
 ! !
--- a/DirectoryStream.st	Sat Oct 04 19:01:30 1997 +0200
+++ b/DirectoryStream.st	Mon Oct 06 15:28:01 1997 +0200
@@ -104,7 +104,7 @@
 #  define Context __DEF_Context
 # endif
 
-# define __HANDLEVal(o)  (HANDLE)__MKCP(o)
+# define __HANDLEVal(o)  (HANDLE)__externalAddressVal(o)
 
 #endif /* WIN32 */
 
@@ -580,7 +580,7 @@
 	    if (d == NULL) {
 		__INST(lastErrorNumber) = __MKSMALLINT(errno);
 	    } else {
-		__INST(dirPointer) = dp = __MKOBJ(d); __STORE(self, dp);
+		__INST(dirPointer) = dp = __MKEXTERNALADDRESS(d); __STORE(self, dp);
 		ok = true;
 	    }
 	}
@@ -602,7 +602,7 @@
 	    if (d == INVALID_HANDLE_VALUE) {
 		__INST(lastErrorNumber) = __MKSMALLINT(GetLastError());
 	    } else {
-		__INST(dirPointer) = dp = __MKOBJ(d); __STORE(self, dp);
+		__INST(dirPointer) = dp = __MKEXTERNALADDRESS(d); __STORE(self, dp);
 		entry = __MKSTRING( data.cFileName );
 		ok = true;
 	    }
@@ -673,5 +673,5 @@
 !DirectoryStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/DirectoryStream.st,v 1.40 1997-09-24 03:45:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/DirectoryStream.st,v 1.41 1997-10-06 13:27:34 cg Exp $'
 ! !
--- a/ExtStream.st	Sat Oct 04 19:01:30 1997 +0200
+++ b/ExtStream.st	Mon Oct 06 15:28:01 1997 +0200
@@ -67,7 +67,7 @@
 
 #ifdef xxxWIN32
 # define NO_STDIO
-# define __HANDLEVal(o) 	(HFILE)(__MKCP(o))
+# define __HANDLEVal(o) 	(HFILE)(__externalAddressVal(o))
 # define READ(f, cp, n)		_lread((f), (cp), (n))
 # define WRITE(f, cp, n)	_lwrite((f), (cp), (n))
 # define FFLUSH(fp)		/* nothing */
@@ -1433,7 +1433,7 @@
 	(f = fdopen(__intVal(anInteger), __stringVal(openMode))) != 0
     ) {
 	__PROTECT__(self);
-	fp = __MKOBJ(f); 
+	fp = __MKEXTERNALADDRESS(f); 
 	__UNPROTECT__(self);
 	__INST(filePointer) = fp; __STORE(self, fp);
 	RETURN (self);
@@ -2754,7 +2754,7 @@
 	    __INST(lastErrorNumber) = __MKSMALLINT(errno);
 	    __INST(position) = nil;
 	} else {
-	    __INST(filePointer) = fp = __MKOBJ(f); __STORE(self, fp);
+	    __INST(filePointer) = fp = __MKEXTERNALADDRESS(f); __STORE(self, fp);
 	    __INST(position) = __MKSMALLINT(1);
 	    retVal = self;
 	}
@@ -2793,7 +2793,7 @@
         if (f == NULL) {
             __INST(lastErrorNumber) = __MKSMALLINT(errno);
         } else {
-            __INST(filePointer) = fp = __MKOBJ((INT)f); __STORE(self, fp);
+            __INST(filePointer) = fp = __MKEXTERNALADDRESS((INT)f); __STORE(self, fp);
             ok = true;
         }
     }
@@ -4169,6 +4169,6 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.145 1997-09-25 12:58:16 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.146 1997-10-06 13:28:01 cg Exp $'
 ! !
 ExternalStream initialize!
--- a/ExternalStream.st	Sat Oct 04 19:01:30 1997 +0200
+++ b/ExternalStream.st	Mon Oct 06 15:28:01 1997 +0200
@@ -67,7 +67,7 @@
 
 #ifdef xxxWIN32
 # define NO_STDIO
-# define __HANDLEVal(o) 	(HFILE)(__MKCP(o))
+# define __HANDLEVal(o) 	(HFILE)(__externalAddressVal(o))
 # define READ(f, cp, n)		_lread((f), (cp), (n))
 # define WRITE(f, cp, n)	_lwrite((f), (cp), (n))
 # define FFLUSH(fp)		/* nothing */
@@ -1433,7 +1433,7 @@
 	(f = fdopen(__intVal(anInteger), __stringVal(openMode))) != 0
     ) {
 	__PROTECT__(self);
-	fp = __MKOBJ(f); 
+	fp = __MKEXTERNALADDRESS(f); 
 	__UNPROTECT__(self);
 	__INST(filePointer) = fp; __STORE(self, fp);
 	RETURN (self);
@@ -2754,7 +2754,7 @@
 	    __INST(lastErrorNumber) = __MKSMALLINT(errno);
 	    __INST(position) = nil;
 	} else {
-	    __INST(filePointer) = fp = __MKOBJ(f); __STORE(self, fp);
+	    __INST(filePointer) = fp = __MKEXTERNALADDRESS(f); __STORE(self, fp);
 	    __INST(position) = __MKSMALLINT(1);
 	    retVal = self;
 	}
@@ -2793,7 +2793,7 @@
         if (f == NULL) {
             __INST(lastErrorNumber) = __MKSMALLINT(errno);
         } else {
-            __INST(filePointer) = fp = __MKOBJ((INT)f); __STORE(self, fp);
+            __INST(filePointer) = fp = __MKEXTERNALADDRESS((INT)f); __STORE(self, fp);
             ok = true;
         }
     }
@@ -4169,6 +4169,6 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.145 1997-09-25 12:58:16 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.146 1997-10-06 13:28:01 cg Exp $'
 ! !
 ExternalStream initialize!
hg/stx-libbasic