浏览代码

* Standard handles are never closed on the Amiga.

carl 27 年之前
父节点
当前提交
c76f66e7f1
共有 1 个文件被更改,包括 3 次插入10 次删除
  1. 3 10
      rtl/amiga/printer.pp

+ 3 - 10
rtl/amiga/printer.pp

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