diff options
author | redman <redman@noemail.net> | 1999-04-21 20:08:17 (GMT) |
---|---|---|
committer | redman <redman@noemail.net> | 1999-04-21 20:08:17 (GMT) |
commit | e68d1ec62a9b8409b1267727c1f0b768cf3b610e (patch) | |
tree | b034b66986b8c1e3a7b065bf1ac1a4fd83bc8686 /win/stub16.c | |
parent | a25fa4a4d88708ff1dcf8d5d4baaa8a231bb6e81 (diff) | |
download | tcl-e68d1ec62a9b8409b1267727c1f0b768cf3b610e.zip tcl-e68d1ec62a9b8409b1267727c1f0b768cf3b610e.tar.gz tcl-e68d1ec62a9b8409b1267727c1f0b768cf3b610e.tar.bz2 |
Merge with 8.1.0 branch
FossilOrigin-Name: 6691fd23e6d5f2ec0d1f457a8387fc02bf2f6d85
Diffstat (limited to 'win/stub16.c')
-rw-r--r-- | win/stub16.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/win/stub16.c b/win/stub16.c index 44e18d6..b4d53ef 100644 --- a/win/stub16.c +++ b/win/stub16.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: stub16.c,v 1.2 1998/09/14 18:40:19 stanton Exp $ + * RCS: @(#) $Id: stub16.c,v 1.3 1999/04/21 20:10:09 redman Exp $ */ #define STRICT @@ -132,9 +132,9 @@ main() WaitForInputIdle(pi.hProcess, 5000); WaitForSingleObject(pi.hProcess, INFINITE); + GetExitCodeProcess(pi.hProcess, &result); CloseHandle(pi.hProcess); CloseHandle(pi.hThread); - result = 0; if (hFileOutput != INVALID_HANDLE_VALUE) { SetFilePointer(hFileOutput, 0, 0, FILE_BEGIN); |