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

* set in_second_load flag before resetting the module, this is

Browse Source 
required to skip some checkings
This commit is contained in:
peter 2002-10-04 20:13:10 +00:00
parent 06a83acad6
commit 26bf52612f
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/fppu.pas
View File

@ -1251,15 +1251,15 @@ uses
if assigned(hp) then if assigned(hp) then
begin begin
current_module:=hp; current_module:=hp;
{ remove the old unit }
loaded_units.remove(hp);
hp.reset;
{ try to reopen ppu }
hp.search_unit(s,fn,false);
{ try to load the unit a second time first } { try to load the unit a second time first }
current_module.in_second_load:=true;
Message1(unit_u_second_load_unit,current_module.modulename^); Message1(unit_u_second_load_unit,current_module.modulename^);
second_time:=true; second_time:=true;
current_module.in_second_load:=true;
{ remove the old unit }
loaded_units.remove(current_module);
current_module.reset;
{ try to reopen ppu }
tppumodule(current_module).search_unit(s,fn,false);
end end
else else
{ generates a new unit info record } { generates a new unit info record }
@ -1317,7 +1317,11 @@ uses
end. end.
{ {
$Log$ $Log$
Revision 1.23 2002-08-19 19:36:42 peter Revision 1.24 2002-10-04 20:13:10 peter
* set in_second_load flag before resetting the module, this is
required to skip some checkings
Revision 1.23 2002/08/19 19:36:42 peter
* More fixes for cross unit inlining, all tnodes are now implemented * More fixes for cross unit inlining, all tnodes are now implemented
* Moved pocall_internconst to po_internconst because it is not a * Moved pocall_internconst to po_internconst because it is not a
calling type at all and it conflicted when inlining of these small calling type at all and it conflicted when inlining of these small