paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-21 21:41:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

* FIn FOut FErr dispsoed at exit

Browse Source
This commit is contained in:
pierre 1999-05-01 23:45:07 +00:00
parent 5d5ec788e7
commit 6d37042bd8
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/text/fpredir.pas
View File

@ -570,12 +570,25 @@ end;
Initialize
*****************************************************************************}
var oldexit : pointer;
procedure RedirExit;
begin
exitproc:=oldexit;
Dispose(FIn); Dispose(FOut); Dispose(FErr);
end;
Begin
oldexit:=exitproc;
exitproc:=@RedirExit;
New(FIn); New(FOut); New(FErr);
End.
{
$Log$
Revision 1.16 1999-04-29 22:57:09 pierre
Revision 1.17 1999-05-01 23:45:07 pierre
* FIn FOut FErr dispsoed at exit
Revision 1.16 1999/04/29 22:57:09 pierre
+ added code for temporary disabling of redirection
Revision 1.15 1999/04/07 21:55:52 peter