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

* skip program when checking loaded_units for a unit

Browse Source
This commit is contained in:
peter 2001-05-19 21:08:59 +00:00
parent fb16b1c012
commit 24f64c776f
1 changed files with 30 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/fppu.pas
View File

@ -1035,6 +1035,11 @@ uses
hp.do_reload:=false;
break;
end;
{ only check for units. The main program is also
as a unit in the loaded_units list. We simply need
to ignore this entry (PFV) }
if hp.is_unit then
begin
{ the unit is already registered }
{ and this means that the unit }
{ is already compiled }
@ -1061,6 +1066,7 @@ uses
end;
end;
break;
end;
end
else if copy(hp.modulename^,1,8)=ups then
dummy:=hp;
@ -1143,7 +1149,10 @@ uses
end.
{
$Log$
Revision 1.5 2001-05-19 13:22:47 peter
Revision 1.6 2001-05-19 21:08:59 peter
* skip program when checking loaded_units for a unit
Revision 1.5 2001/05/19 13:22:47 peter
* fixed crash with invalid ppu version detected
Revision 1.4 2001/05/09 14:11:10 jonas