WIN32 - do open and close with non-interruptable wrap calls.
--- 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!