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

* Standard handles are never closed on the Amiga.

Browse Source
This commit is contained in:
carl 1998-07-06 15:08:54 +00:00
parent bb21590124
commit c76f66e7f1
1 changed files with 3 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/amiga/printer.pp
View File

@ -22,19 +22,12 @@ var
implementation implementation
var
old_exit : pointer;
procedure printer_exit;
begin
close(lst);
exitproc:=old_exit;
end;
begin begin
assign(lst,'prt:'); assign(lst,'prt:');
rewrite(lst); rewrite(lst);
old_exit:=exitproc;
exitproc:=@printer_exit;
end. end.
{
$Log :printer.pp,v $
}