paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-03 14:57:36 +01: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 EncodeUleb128(a: qword;out buf) : byte;
function EncodeSleb128(a: int64;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 } { dummy default noop callback }
procedure default_global_used; procedure default_global_used;
@ -350,7 +350,7 @@ implementation
end; end;
function ReplaceForbiddenAsmSymbolChars(const s: string): string; function ReplaceForbiddenAsmSymbolChars(const s: ansistring): ansistring;
var var
i : longint; i : longint;
rchar: char; rchar: char;