mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-13 10:29:17 +02:00
* dosexitcode finally works correct
This commit is contained in:
parent
86a9551dcb
commit
dceffc9557
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user