From 598da1936e0f95aeadea62ed77cd1eaae45f43dc Mon Sep 17 00:00:00 2001
From: Sven/Sarah Barth <pascaldragon@gmail.com>
Date: Tue, 14 Jun 2022 14:33:21 +0200
Subject: [PATCH] * change ChangeMessageVerbosity from String to AnsiString as
 long parameters might be passed to it

---
 compiler/verbose.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/verbose.pas b/compiler/verbose.pas
index ba4eba246e..7f6716626c 100644
--- a/compiler/verbose.pas
+++ b/compiler/verbose.pas
@@ -83,7 +83,7 @@ interface
     procedure RestoreLocalVerbosity(pstate : pmessagestaterecord);
     procedure FreeLocalVerbosity(var fstate : pmessagestaterecord);
 
-    function ChangeMessageVerbosity(s: string; var i: integer;state:tmsgstate): boolean;
+    function ChangeMessageVerbosity(s: ansistring; var i: integer;state:tmsgstate): boolean;
     procedure ShowStatus;
     function  ErrorCount:longint;
     procedure SetErrorFlags(const s:string);
@@ -218,9 +218,9 @@ implementation
           end;
       end;
 
-    function ChangeMessageVerbosity(s: string; var i : integer;state:tmsgstate): boolean;
+    function ChangeMessageVerbosity(s: ansistring; var i : integer;state:tmsgstate): boolean;
       var
-        tok  : string;
+        tok  : ansistring;
         msgnr, code : longint;
       begin
         { delete everything up to and including 'm' }