projects
/
haskell-directory.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
declare blkcmp() static
[haskell-directory.git]
/
cbits
/
runProcess.c
diff --git
a/cbits/runProcess.c
b/cbits/runProcess.c
index
0a69421
..
b89e130
100644
(file)
--- a/
cbits/runProcess.c
+++ b/
cbits/runProcess.c
@@
-216,7
+216,7
@@
int waitForProcess (ProcHandle handle)
else
if (WIFSIGNALED(wstat))
{
else
if (WIFSIGNALED(wstat))
{
- errno = EINTR;
+ return wstat;
}
else
{
}
else
{
@@
-518,8
+518,6
@@
terminateProcess (ProcHandle handle)
maperrno();
return -1;
}
maperrno();
return -1;
}
-
- CloseHandle((HANDLE) handle);
return 0;
}
return 0;
}
@@
-535,8
+533,6
@@
getProcessExitCode (ProcHandle handle, int *pExitCode)
maperrno();
return -1;
}
maperrno();
return -1;
}
-
- CloseHandle((HANDLE) handle);
return 1;
}
return 1;
}
@@
-555,8
+551,6
@@
waitForProcess (ProcHandle handle)
maperrno();
return -1;
}
maperrno();
return -1;
}
-
- CloseHandle((HANDLE) handle);
return retCode;
}
return retCode;
}