paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 12:52:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed find references

Browse Source 
git-svn-id: trunk@34842 -
This commit is contained in:
mattias 2012-01-21 15:07:55 +00:00
parent 9238bba3a6
commit 0d8546c33a
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/codetools/finddeclarationtool.pas
View File

@ -4297,6 +4297,7 @@ var
MinPos, MaxPos: Integer;
CursorNode: TCodeTreeNode;
UnitStartFound, Found: Boolean;
StartPos: integer;
procedure AddReference(ACleanPos: integer);
var
@ -4334,7 +4335,7 @@ var
Node:=Node.FirstChild;
end;
procedure ReadIdentifier(StartPos: integer; IsComment: boolean);
procedure ReadIdentifier(IsComment: boolean);
var
IdentStartPos: Integer;
IdentEndPos: integer;
@ -4417,7 +4418,6 @@ var
var
CommentLvl: Integer;
InStrConst: Boolean;
StartPos: Integer;
//CommentStart: LongInt;
begin
StartPos:=MinPos;
@ -4441,7 +4441,7 @@ var
end;
'a'..'z','A'..'Z','_':
if not InStrConst then begin
ReadIdentifier(StartPos,true);
ReadIdentifier(true);
dec(StartPos);
end;
'''':
@ -4467,7 +4467,7 @@ var
break;
'a'..'z','A'..'Z','_':
if not InStrConst then begin
ReadIdentifier(StartPos,true);
ReadIdentifier(true);
dec(StartPos);
end;
'''':
@ -4493,7 +4493,7 @@ var
if Src[StartPos-1]='*' then break;
'a'..'z','A'..'Z','_':
if not InStrConst then begin
ReadIdentifier(StartPos,true);
ReadIdentifier(true);
dec(StartPos);
end;
'''':
@ -4507,7 +4507,7 @@ var
end;
'a'..'z','A'..'Z','_':
ReadIdentifier(StartPos,false);
ReadIdentifier(false);
'''':
begin
@ -4709,7 +4709,6 @@ var
var
UseNode: TCodeTreeNode;
AVLNode: TAVLTreeNode;
StartPos: integer;
begin
Result:=false;
//debugln('FindReferences ',MainFilename,' CursorPos=',CursorPos.Code.Filename,' x=',dbgs(CursorPos.X),' y=',dbgs(CursorPos.Y),' SkipComments=',dbgs(SkipComments));