paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-20 12:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: clean up

Browse Source 
git-svn-id: trunk@26154 -
This commit is contained in:
mattias 2010-06-16 22:34:05 +00:00
parent 433b03a717
commit cde3a2dc45
2 changed files with 4 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/chmhelp/packages/idehelp/chmhelppkg.pas
View File

@ -1,13 +1,13 @@
{ This file was automatically created by Lazarus. Do not edit!
This source is only used to compile and install the package.
This source is only used to compile and install the package.
}
unit ChmHelpPkg;
unit chmhelppkg;
interface
uses
LazChmHelp, LazarusPackageIntf;
LazChmHelp, LazarusPackageIntf;
implementation

13
components/codetools/finddeclarationtool.pas
View File

@ -3923,17 +3923,6 @@ var
PosTree.Add(p);
end;
procedure AddCodePosition(const NewCodePos: TCodeXYPosition);
var
AddCodePos: PCodeXYPosition;
begin
if ListOfPCodeXYPosition=nil then ListOfPCodeXYPosition:=TFPList.Create;
New(AddCodePos);
AddCodePos^:=NewCodePos;
ListOfPCodeXYPosition.Add(AddCodePos);
//debugln('TFindDeclarationTool.FindReferences.AddCodePosition line=',dbgs(NewCodePos.Y),' col=',dbgs(NewCodePos.X));
end;
procedure ReadIdentifier(IsComment: boolean);
var
IdentEndPos: LongInt;
@ -4267,7 +4256,7 @@ begin
while AVLNode<>nil do begin
StartPos:=PChar(AVLNode.Data)-PChar(Pointer(Src))+1;
if CleanPosToCaret(StartPos,ReferencePos) then
AddCodePosition(ReferencePos);
AddCodePosition(ListOfPCodeXYPosition,ReferencePos);
AVLNode:=PosTree.FindPrecessor(AVLNode);
end;
end;