paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 21:48:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

Change ReplaceForbiddenAsmSymbolChars to use ansistrings to avoid shortstring overflow

Browse Source 
git-svn-id: trunk@29471 -
This commit is contained in:
pierre 2015-01-14 13:43:14 +00:00
parent 0abb3f3e02
commit ea3bc10fd1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/aasmbase.pas
View File

@ -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;