瀏覽代碼

* fix from Peter for short_on_file_handles code

Jonas Maebe 24 年之前
父節點
當前提交
9f845fd10d
共有 1 個文件被更改,包括 6 次插入3 次删除
  1. 6 3
      compiler/fppu.pas

+ 6 - 3
compiler/fppu.pas

@@ -1099,7 +1099,7 @@ uses
 {$ifdef SHORT_ON_FILE_HANDLES}
             if old_current_module.is_unit and
                assigned(tppumodule(old_current_module).ppufile) then
-              tppumodule(old_current_module.ppufile).tempclose;
+              tppumodule(old_current_module).ppufile.tempclose;
 {$endif SHORT_ON_FILE_HANDLES}
           { now we can register the unit }
             current_module.loaded_from:=old_current_module;
@@ -1130,7 +1130,7 @@ uses
 {$ifdef SHORT_ON_FILE_HANDLES}
          if old_current_module.is_unit and
             assigned(tppumodule(old_current_module).ppufile) then
-           tppumodule(old_current_module.ppufile).tempopen;
+           tppumodule(old_current_module).ppufile.tempopen;
 {$endif SHORT_ON_FILE_HANDLES}
          { we are back }
          current_module:=old_current_module;
@@ -1143,7 +1143,10 @@ uses
 end.
 {
   $Log$
-  Revision 1.1  2001-05-06 14:49:17  peter
+  Revision 1.2  2001-05-07 11:53:21  jonas
+    * fix from Peter for short_on_file_handles code
+
+  Revision 1.1  2001/05/06 14:49:17  peter
     * ppu object to class rewrite
     * move ppu read and write stuff to fppu