* dosexitcode finally works correct

This commit is contained in:
peter 2000-03-19 18:48:19 +00:00
parent 86a9551dcb
commit dceffc9557

View File

@ -324,8 +324,9 @@ var
Procedure Exec (Const Path: PathStr; Const ComLine: ComStr);
var
pid : longint;
status : integer;
status : longint;
Begin
LastDosExitCode:=0;
pid:=Fork;
if pid=0 then
begin
@ -908,7 +909,10 @@ End.
{
$Log$
Revision 1.18 2000-03-16 15:23:02 marco
Revision 1.19 2000-03-19 18:48:19 peter
* dosexitcode finally works correct
Revision 1.18 2000/03/16 15:23:02 marco
* Added one BSD conditional (uname not supported)
Revision 1.17 2000/02/09 16:59:31 peter