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

* Fix GetModule, cause of wrong class tree

Browse Source 
git-svn-id: trunk@31235 -
This commit is contained in:
michael 2015-07-26 11:40:28 +00:00
parent 722fdea993
commit 98e70ae3e6
1 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
packages/fcl-passrc/src/pastree.pp
View File

@ -1743,23 +1743,19 @@ begin
end;
function TPasElement.GetModule: TPasModule;
Var
p : TPaselement;
begin
if self is TPasPackage then
Result := nil
else
begin
if self is TPasModule then
begin
Result := TPasModule(Self);
while Assigned(Result) and not (Result is TPasModule) do
Result := TPasModule(Result.Parent);
end
else
begin
// typical case that this happens: symbol was loaded from .XCT
result:=nil;
end;
end;
begin
P:=Self;
While (P<>Nil) and Not (P is TPasModule) do
P:=P.Parent;
Result:=TPasModule(P);
end;
end;
function TPasElement.GetDeclaration(full: Boolean): string;