paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 18:07:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from Bart Broersma to silence warning (bug ID 34285)

Browse Source 
git-svn-id: trunk@43137 -
This commit is contained in:
michael 2019-10-06 07:49:13 +00:00
parent dd2d1bf68b
commit dc96e41047
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
utils/ptopu.pp
View File

@ -190,7 +190,7 @@ Type
Procedure PPSymbol;
Procedure Gobble(terminators: keysymset);
Procedure RShift(currmsym: keysymbol);
Procedure RShiftIndent(currmsym: keysymbol);
Procedure RShiftIndent{$ifdef debug}(currmsym: keysymbol){$endif debug};
Function ReadConfigFile: Boolean;
Public
Constructor Create;
@ -959,7 +959,7 @@ Procedure TprettyPrinter.RShift(currmsym: keysymbol);
{$endif debug}
END; { of RShift }
Procedure TprettyPrinter.RShiftIndent(currmsym: keysymbol);
Procedure TprettyPrinter.RShiftIndent{$ifdef debug}(currmsym: keysymbol){$endif debug};
{ Move right, stacking margin positions }
BEGIN
{$ifdef debug}
@ -1384,7 +1384,7 @@ Begin
IF inbytab IN sets^.selected THEN
RShift(currsym^.name)
else IF inbyindent IN sets^.selected THEN
RShiftIndent(currsym^.name);
RShiftIndent{$ifdef debug}(currsym^.name){$endif debug};
IF gobsym IN sets^.selected THEN Gobble(sets^.terminators);
IF crafter IN sets^.selected THEN CrPending := TRUE
END;