From dc96e41047e375a9d77eeeac8d1318e107b92b2f Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 6 Oct 2019 07:49:13 +0000
Subject: [PATCH] * Patch from Bart Broersma to silence warning (bug ID 34285)

git-svn-id: trunk@43137 -
---
 utils/ptopu.pp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/utils/ptopu.pp b/utils/ptopu.pp
index 213c78a7b0..1ba01f16bc 100644
--- a/utils/ptopu.pp
+++ b/utils/ptopu.pp
@@ -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;