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

codetools: fixed LineColIsOutSide

Browse Source 
git-svn-id: trunk@40929 -
This commit is contained in:
mattias 2013-04-29 10:08:49 +00:00
parent 497c1f77e0
commit b6a35980e9
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/codetools/identcompletiontool.pas
View File

@ -2536,6 +2536,7 @@ begin
// context behind // context behind
if (IdentEndPos<SrcLen) then begin if (IdentEndPos<SrcLen) then begin
MoveCursorToCleanPos(IdentEndPos); MoveCursorToCleanPos(IdentEndPos);
//debugln(['TIdentCompletionTool.GatherIdentifiers "',dbgstr(Src,IdentStartPos,IdentEndPos-IdentStartPos),'"']);
InFrontOfDirective:=(CurPos.StartPos<SrcLen) and (Src[CurPos.StartPos]='{') InFrontOfDirective:=(CurPos.StartPos<SrcLen) and (Src[CurPos.StartPos]='{')
and (Src[CurPos.StartPos+1]='$'); and (Src[CurPos.StartPos+1]='$');
ReadNextAtom; ReadNextAtom;

2
components/codetools/sourcelog.pas
View File

@ -781,7 +781,7 @@ begin
if (Line=FLineCount+1) if (Line=FLineCount+1)
and ((Column>1) or (FSource='') or (not (FSource[FSrcLen] in [#10,#13]))) then and ((Column>1) or (FSource='') or (not (FSource[FSrcLen] in [#10,#13]))) then
exit; exit;
Result:=true; Result:=false;
end; end;
function TSourceLog.LineColIsSpace(Line, Column: integer): boolean; function TSourceLog.LineColIsSpace(Line, Column: integer): boolean;