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

* Reset DosError to zero !

Browse Source
This commit is contained in:
pierre 2000-05-17 10:19:53 +00:00
parent 7d79adcecc
commit d93fdbe5f9
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/text/fpredir.pas
View File

@ -545,9 +545,9 @@ End;
procedure RedirDisableAll; procedure RedirDisableAll;
begin begin
If RedirChangedIn and InRedirDisabled then If RedirChangedIn and not InRedirDisabled then
DisableRedirIn; DisableRedirIn;
If RedirChangedOut and OutRedirDisabled then If RedirChangedOut and not OutRedirDisabled then
DisableRedirOut; DisableRedirOut;
If RedirChangedError and not ErrorRedirDisabled then If RedirChangedError and not ErrorRedirDisabled then
DisableRedirError; DisableRedirError;
@ -685,6 +685,7 @@ end;
StoreInherit:=ExecInheritsHandles; StoreInherit:=ExecInheritsHandles;
ExecInheritsHandles:=true; ExecInheritsHandles:=true;
{$endif win32} {$endif win32}
DosError:=0;
Dos.Exec (ProgName, ComLine); Dos.Exec (ProgName, ComLine);
{$ifdef win32} {$ifdef win32}
ExecInheritsHandles:=StoreInherit; ExecInheritsHandles:=StoreInherit;
@ -717,7 +718,10 @@ Begin
End. End.
{ {
$Log$ $Log$
Revision 1.24 1999-11-10 17:10:59 pierre Revision 1.25 2000-05-17 10:19:53 pierre
* Reset DosError to zero !
Revision 1.24 1999/11/10 17:10:59 pierre
+ DosExecute to interface + DosExecute to interface
Revision 1.23 1999/09/22 13:03:27 pierre Revision 1.23 1999/09/22 13:03:27 pierre