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

codetools: fixed TStandardCodeTool.ExtractOperand for endpos

Browse Source 
git-svn-id: trunk@21982 -
This commit is contained in:
mattias 2009-10-02 09:30:11 +00:00
parent 90d1f4c944
commit 19a53151f7
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/stdcodetools.pas
View File

@ -3509,12 +3509,12 @@ begin
Node:=FindDeepestNodeAtPos(CleanPos,true); Node:=FindDeepestNodeAtPos(CleanPos,true);
StartPos:=FindStartOfTerm(CleanPos,NodeTermInType(Node)); StartPos:=FindStartOfTerm(CleanPos,NodeTermInType(Node));
if StartPos<1 then exit; if StartPos<1 then exit;
if WithPostTokens then EndPos:=FindEndOfTerm(CleanPos,false,WithAsOperator);
EndPos:=FindEndOfTerm(CleanPos,false,WithAsOperator) if not WithPostTokens then begin
else begin
MoveCursorToCleanPos(CleanPos); MoveCursorToCleanPos(CleanPos);
ReadNextAtom; ReadNextAtom;
EndPos:=CurPos.EndPos; if CurPos.EndPos<EndPos then
EndPos:=CurPos.EndPos;
end; end;
if EndPos<1 then exit; if EndPos<1 then exit;
Operand:=ExtractCode(StartPos,EndPos,[phpCommentsToSpace]); Operand:=ExtractCode(StartPos,EndPos,[phpCommentsToSpace]);