paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-07 05:27:13 +01:00
Code Issues Packages Projects Releases Wiki Activity

* write " as octal number as well in assembler output, it is more compatible

Browse Source
This commit is contained in:
florian 2025-01-03 17:38:25 +01:00
parent dc6057a112
commit 06f8ad2e3d
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/aggas.pas
View File

@ -1303,11 +1303,12 @@ implementation
end;
ch:=tai_string(hp).str[i-1];
case ch of
#0, {This can't be done by range, because a bug in FPC}
#1..#31,
#128..#255 : s:='\'+tostr(ord(ch) shr 6)+tostr((ord(ch) and 63) shr 3)+tostr(ord(ch) and 7);
'"' : s:='\"';
'\' : s:='\\';
#0, {This can't be done by range, because a bug in FPC}
#1..#31,
'"',#128..#255:
s:='\'+tostr(ord(ch) shr 6)+tostr((ord(ch) and 63) shr 3)+tostr(ord(ch) and 7);
'\':
s:='\\';
else
s:=ch;
end;