paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 00:01:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Reset DosError in Exec reported by Kovacs Attila Zoltan

Browse Source
This commit is contained in:
pierre 2000-05-12 05:51:43 +00:00
parent 020d9bfd97
commit 3c17f030b5
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/dmisc.pas
View File

@ -352,7 +352,9 @@ begin
begin
DosError:=Last2DosError(GetLastError);
exit;
end;
end
else
DosError:=0;
Proc:=PI.hProcess;
CloseHandle(PI.hThread);
if WaitForSingleObject(Proc, Infinite) <> $ffffffff then
@ -854,7 +856,10 @@ End;
end.
{
$Log$
Revision 1.8 2000-05-11 09:56:20 pierre
Revision 1.9 2000-05-12 05:51:43 pierre
* Reset DosError in Exec reported by Kovacs Attila Zoltan
Revision 1.8 2000/05/11 09:56:20 pierre
* fixed several compare problems between longints and
const > $80000000 that are treated as int64 constanst
by Delphi reported by Kovacs Attila Zoltan