Change ReplaceForbiddenAsmSymbolChars to use ansistrings to avoid shortstring overflow

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@29471 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 2 insertions, 2 deletions

diff --git a/compiler/aasmbase.pas b/compiler/aasmbase.pas
index 0e268ea78f..3ad293ec61 100644
--- a/compiler/aasmbase.pas
+++ b/compiler/aasmbase.pas
@@ -199,7 +199,7 @@ interface
     function EncodeUleb128(a: qword;out buf) : byte;
     function EncodeSleb128(a: int64;out buf) : byte;
 
-    function ReplaceForbiddenAsmSymbolChars(const s: string): string;
+    function ReplaceForbiddenAsmSymbolChars(const s: ansistring): ansistring;
 
     { dummy default noop callback }
     procedure default_global_used;
@@ -350,7 +350,7 @@ implementation
       end;
 
 
-    function ReplaceForbiddenAsmSymbolChars(const s: string): string;
+    function ReplaceForbiddenAsmSymbolChars(const s: ansistring): ansistring;
       var
         i : longint;
         rchar: char;