paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 16:20:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: tests: namespace prefixes

Browse Source 
git-svn-id: trunk@54736 -
This commit is contained in:
mattias 2017-04-26 09:32:36 +00:00
parent e4895d2fd0
commit 2d51c08884
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/tests/laztests/tunitdots.main.pas
View File

@ -11,8 +11,8 @@ uses
implementation
begin
unitdots.dot.test{declaration:unitdots.dot.test}:=3;
unitdots.dot.foo{declaration:unitdots.dot.foo}:=4;
unitdots{declaration:tunitdots.main.unitdots}.dot{declaration:tunitdots.main.unitdots.dot}.test{declaration:unitdots.dot.test}:=3;
unitdots{declaration:tunitdots.main.unitdots}.dot{declaration:tunitdots.main.unitdots.dot}.foo{declaration:unitdots.dot.foo}:=4;
//unitdots.dot.bar:='5'; fail!
unitdots.my{declaration:unitdots.my}:=false;
end.

8
components/codetools/tests/testfinddeclaration.pas
View File

@ -167,6 +167,14 @@ procedure TCustomTestFindDeclaration.FindDeclarations(Filename: string);
PrependPath(Tool.ExtractProcName(Node,[]),Result);
ctnProperty:
PrependPath(Tool.ExtractPropName(Node,false),Result);
ctnUseUnitNamespace,ctnUseUnitClearName:
begin
PrependPath(GetIdentifier(@Tool.Src[Node.StartPos]),Result);
if Node.PriorBrother<>nil then begin
Node:=Node.PriorBrother;
continue;
end;
end;
//else debugln(['NodeAsPath ',Node.DescAsString]);
end;
Node:=Node.Parent;