WIN32 - do open and close with non-interruptable wrap calls.
authorStefan Vogel <sv@exept.de>
Tue, 09 Feb 2010 15:23:17 +0100
changeset 12711 01e4a803ebfc
parent 12710 4e68b877e9fd
child 12712 c1b3b5846541
WIN32 - do open and close with non-interruptable wrap calls.
FileStream.st
--- a/FileStream.st	Tue Feb 09 15:23:16 2010 +0100
+++ b/FileStream.st	Tue Feb 09 15:23:17 2010 +0100
@@ -1272,7 +1272,7 @@
                 strncpy(_aPathName, __stringVal(pathName), MAXPATHLEN-1); _aPathName[MAXPATHLEN-1] = '\0';
                 do {
                     __threadErrno = 0;
-                    handle = STX_API_CALL7( "CreateFileA", CreateFileA, _aPathName, access, share, &sa, create, attr, 0 /* hTempl */);
+                    handle = STX_API_NOINT_CALL7( "CreateFileA", CreateFileA, _aPathName, access, share, &sa, create, attr, 0 /* hTempl */);
                     if (__threadErrno == EINTR) {
                         handle = INVALID_HANDLE_VALUE;
                     }
@@ -1290,7 +1290,7 @@
 
                 do {
                     __threadErrno = 0;
-                    handle = STX_API_CALL7( "CreateFileW", CreateFileW, _aPathName, access, share, &sa, create, attr, 0 /* hTempl */);
+                    handle = STX_API_NOINT_CALL7( "CreateFileW", CreateFileW, _aPathName, access, share, &sa, create, attr, 0 /* hTempl */);
                     if (__threadErrno == EINTR) {
                         handle = INVALID_HANDLE_VALUE;
                     }
@@ -1693,11 +1693,11 @@
 !FileStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.141 2010-02-09 13:42:54 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.142 2010-02-09 14:23:17 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.141 2010-02-09 13:42:54 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.142 2010-02-09 14:23:17 stefan Exp $'
 ! !
 
 FileStream initialize!