paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 09:19:23 +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 } start till here of the non-local entry code as second argument }
s:=', .-'; s:=', .-';
if replaceforbidden then 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 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; end;
ait_weak: ait_weak:
begin begin