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

* escape #127 under all circumstances (it's not printable)

Browse Source 
git-svn-id: branches/jvmbackend@18559 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:10:21 +00:00
parent b370314194
commit 0fa1c9bbdd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/agjasmin.pas
View File

@ -214,7 +214,7 @@ implementation
ord('"'),ord('\'):
result:=result+'\'+chr(w[i]);
else if (w[i]<32) or
(w[i]>127) then
(w[i]>=127) then
result:=result+'\u'+hexstr(w[i],4)
else
result:=result+char(w[i]);