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

* fix from Peter for short_on_file_handles code

Browse Source
This commit is contained in:
Jonas Maebe 2001-05-07 11:53:21 +00:00
parent 739501ec59
commit 9f845fd10d
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/fppu.pas
View File

@ -1099,7 +1099,7 @@ uses
{$ifdef SHORT_ON_FILE_HANDLES} {$ifdef SHORT_ON_FILE_HANDLES}
if old_current_module.is_unit and if old_current_module.is_unit and
assigned(tppumodule(old_current_module).ppufile) then assigned(tppumodule(old_current_module).ppufile) then
tppumodule(old_current_module.ppufile).tempclose; tppumodule(old_current_module).ppufile.tempclose;
{$endif SHORT_ON_FILE_HANDLES} {$endif SHORT_ON_FILE_HANDLES}
{ now we can register the unit } { now we can register the unit }
current_module.loaded_from:=old_current_module; current_module.loaded_from:=old_current_module;
@ -1130,7 +1130,7 @@ uses
{$ifdef SHORT_ON_FILE_HANDLES} {$ifdef SHORT_ON_FILE_HANDLES}
if old_current_module.is_unit and if old_current_module.is_unit and
assigned(tppumodule(old_current_module).ppufile) then assigned(tppumodule(old_current_module).ppufile) then
tppumodule(old_current_module.ppufile).tempopen; tppumodule(old_current_module).ppufile.tempopen;
{$endif SHORT_ON_FILE_HANDLES} {$endif SHORT_ON_FILE_HANDLES}
{ we are back } { we are back }
current_module:=old_current_module; current_module:=old_current_module;
@ -1143,7 +1143,10 @@ uses
end. end.
{ {
$Log$ $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 * ppu object to class rewrite
* move ppu read and write stuff to fppu * move ppu read and write stuff to fppu