paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 14:49:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* duplicate names fixed

Browse Source 
git-svn-id: trunk@2437 -
This commit is contained in:
peter 2006-02-05 01:57:23 +00:00
parent c3d89885c2
commit f7d546ed5f
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
utils/fpdoc/dglobals.pp
View File

@ -595,24 +595,24 @@ var
var
DotPos, DotPos2, i: Integer;
s: String;
Package: TPasPackage;
HPackage: TPasPackage;
Module: TPasModule;
begin
// Find or create package
DotPos := Pos('.', AName);
s := Copy(AName, 1, DotPos - 1);
Package := nil;
HPackage := nil;
for i := 0 to FPackages.Count - 1 do
if CompareText(TPasPackage(FPackages[i]).Name, s) = 0 then
begin
Package := TPasPackage(FPackages[i]);
HPackage := TPasPackage(FPackages[i]);
break;
end;
if not Assigned(Package) then
if not Assigned(HPackage) then
begin
Package := TPasPackage(inherited CreateElement(TPasPackage, s, nil,
HPackage := TPasPackage(inherited CreateElement(TPasPackage, s, nil,
'', 0));
FPackages.Add(Package);
FPackages.Add(HPackage);
end;
// Find or create module
@ -622,17 +622,17 @@ var
until AName[DotPos2] = '.';
s := Copy(AName, DotPos + 1, DotPos2 - DotPos - 1);
Module := nil;
for i := 0 to Package.Modules.Count - 1 do
if CompareText(TPasModule(Package.Modules[i]).Name, s) = 0 then
for i := 0 to HPackage.Modules.Count - 1 do
if CompareText(TPasModule(HPackage.Modules[i]).Name, s) = 0 then
begin
Module := TPasModule(Package.Modules[i]);
Module := TPasModule(HPackage.Modules[i]);
break;
end;
if not Assigned(Module) then
begin
Module := TPasModule.Create(s, Package);
Module := TPasModule.Create(s, HPackage);
Module.InterfaceSection := TPasSection.Create('', Module);
Package.Modules.Add(Module);
HPackage.Modules.Add(Module);
end;
// Create node for class