paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 05:11:37 +01: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 Initialize
*****************************************************************************} *****************************************************************************}
var oldexit : pointer;
procedure RedirExit;
begin
exitproc:=oldexit;
Dispose(FIn); Dispose(FOut); Dispose(FErr);
end;
Begin Begin
oldexit:=exitproc;
exitproc:=@RedirExit;
New(FIn); New(FOut); New(FErr); New(FIn); New(FOut); New(FErr);
End. End.
{ {
$Log$ $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 + added code for temporary disabling of redirection
Revision 1.15 1999/04/07 21:55:52 peter Revision 1.15 1999/04/07 21:55:52 peter