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

codetools: clean up

Browse Source 
git-svn-id: trunk@48644 -
This commit is contained in:
mattias 2015-04-06 16:37:01 +00:00
parent 7ab1cdbe1f
commit a2e0bd3f68
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/stdcodetools.pas
View File

@ -260,7 +260,7 @@ type
function GuessMisplacedIfdefEndif(const CursorPos: TCodeXYPosition; function GuessMisplacedIfdefEndif(const CursorPos: TCodeXYPosition;
out NewPos: TCodeXYPosition; out NewTopLine: integer): boolean; out NewPos: TCodeXYPosition; out NewTopLine: integer): boolean;
function FindEnclosingIncludeDirective(const CursorPos: TCodeXYPosition; function FindEnclosingIncludeDirective(const CursorPos: TCodeXYPosition;
out NewPos: TCodeXYPosition; var NewTopLine: integer): boolean; out NewPos: TCodeXYPosition; out NewTopLine: integer): boolean;
function FindModeDirective(DoBuildTree: boolean; function FindModeDirective(DoBuildTree: boolean;
out ACleanPos: integer): boolean; out ACleanPos: integer): boolean;
function FindResourceDirective(DoBuildTree: boolean; function FindResourceDirective(DoBuildTree: boolean;
@ -6256,12 +6256,14 @@ begin
end; end;
function TStandardCodeTool.FindEnclosingIncludeDirective( function TStandardCodeTool.FindEnclosingIncludeDirective(
const CursorPos: TCodeXYPosition; out NewPos: TCodeXYPosition; const CursorPos: TCodeXYPosition; out NewPos: TCodeXYPosition; out
var NewTopLine: integer): boolean; NewTopLine: integer): boolean;
var var
CleanCursorPos, LinkIndex, NewCleanPos: integer; CleanCursorPos, LinkIndex, NewCleanPos: integer;
begin begin
Result:=false; Result:=false;
NewPos:=CleanCodeXYPosition;
NewTopLine:=-1;
try try
BuildTreeAndGetCleanPos(trTillCursor,lsrEnd,CursorPos,CleanCursorPos, BuildTreeAndGetCleanPos(trTillCursor,lsrEnd,CursorPos,CleanCursorPos,
[btSetIgnoreErrorPos]); [btSetIgnoreErrorPos]);