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

* typo fixed for win32

Browse Source
This commit is contained in:
peter 1999-09-22 09:03:58 +00:00
parent 00b063c621
commit 518654d1b0
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/text/fpredir.pas
View File

@ -536,12 +536,12 @@ end;
Shell(Progname+' '+Comline); Shell(Progname+' '+Comline);
{$else} {$else}
{$ifdef win32} {$ifdef win32}
StoreInherit:=ExecInheritsHandles; StoreInherit:=ExecInheritedHandles;
ExecInheritsHandles:=true; ExecInheritedHandles:=true;
{$endif win32} {$endif win32}
Dos.Exec (ProgName, ComLine); Dos.Exec (ProgName, ComLine);
{$ifdef win32} {$ifdef win32}
ExecInheritsHandles:=StoreInherit; ExecInheritedHandles:=StoreInherit;
{$endif win32} {$endif win32}
{$endif} {$endif}
IOStatus:=DosError; IOStatus:=DosError;
@ -716,7 +716,10 @@ Begin
End. End.
{ {
$Log$ $Log$
Revision 1.21 1999-09-21 11:28:22 pierre Revision 1.22 1999-09-22 09:03:58 peter
* typo fixed for win32
Revision 1.21 1999/09/21 11:28:22 pierre
+ Redir for win32 + Redir for win32
Revision 1.20 1999/08/05 16:54:36 peter Revision 1.20 1999/08/05 16:54:36 peter