paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-05 22:50:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed circular uses which looped forever

Browse Source
This commit is contained in:
peter 1998-09-30 12:11:52 +00:00
parent 2cd812215b
commit f4e51979ab
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pmodules.pas
View File

@ -340,7 +340,7 @@ unit pmodules;
else
begin
{ recompile the unit ? }
if (not current_module^.in_implementation) and (hp^.in_implementation) then
if (not current_module^.in_implementation) and (not hp^.in_implementation) then
Message(unit_f_circular_unit_reference);
end;
break;
@ -982,7 +982,10 @@ unit pmodules;
end.
{
$Log$
Revision 1.56 1998-09-28 11:22:15 pierre
Revision 1.57 1998-09-30 12:11:52 peter
* fixed circular uses which looped forever
Revision 1.56 1998/09/28 11:22:15 pierre
* did not compile for browser
* merge from fixes