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

* avoid string truncation for ait_symbolpair in assembler writer

Browse Source 
git-svn-id: trunk@30199 -
This commit is contained in:
Jonas Maebe 2015-03-14 18:35:34 +00:00
parent fb27dff638
commit 9a73c9a460
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/aggas.pas
View File

@ -1366,9 +1366,17 @@ implementation
start till here of the non-local entry code as second argument }
s:=', .-';
if replaceforbidden then
AsmWriteLn(ReplaceForbiddenAsmSymbolChars(tai_symbolpair(hp).sym^)+s+ReplaceForbiddenAsmSymbolChars(tai_symbolpair(hp).value^))
begin
{ avoid string truncation }
AsmWrite(ReplaceForbiddenAsmSymbolChars(tai_symbolpair(hp).sym^)+s);
AsmWriteLn(ReplaceForbiddenAsmSymbolChars(tai_symbolpair(hp).value^));
end
else
AsmWriteLn(tai_symbolpair(hp).sym^+s+tai_symbolpair(hp).value^);
begin
{ avoid string truncation }
AsmWrite(tai_symbolpair(hp).sym^+s);
AsmWriteLn(tai_symbolpair(hp).value^);
end;
end;
ait_weak:
begin