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

codetools: CheckAndImproveExpr_Brackets: fixed setting Changed

Browse Source 
git-svn-id: trunk@48648 -
This commit is contained in:
mattias 2015-04-06 16:40:52 +00:00
parent 6b40ae4e5d
commit 3bf0f2e328
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/directivestree.pas
View File

@ -734,6 +734,7 @@ begin
if AtomIs(')') then begin
ToPos:=SrcPos;
DebugLn(['TCompilerDirectivesTree.CheckAndImproveExpr_Brackets removing unneeded brackets']);
Changed:=true;
Replace(FromPos,ToPos,GetIdentifier(@Src[NameStart]));
MoveCursorToPos(FromPos);
end;
@ -1830,7 +1831,7 @@ procedure TCompilerDirectivesTree.ReduceCompilerDirectives(
end;
procedure CheckMacroInExpression(Node: TCodeTreeNode; NameStart: integer;
Complex: boolean; var Changed: boolean);
Complex: boolean; var {%H-}Changed: boolean);
var
MacroNode: TCompilerMacroStats;
begin
@ -2313,7 +2314,10 @@ var
begin
if Code=nil then
exit('P='+IntToStr(p));
Result:=Code.Filename;
if WithFilename then
Result:=Code.Filename
else
Result:='';
Code.AbsoluteToLineCol(p,Line,Column);
Result+='('+IntToStr(Line)+','+IntToStr(Column)+')';
end;