paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-09 20:49:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fix constant string stabx writing

Browse Source 
git-svn-id: trunk@27626 -
This commit is contained in:
pierre 2014-04-21 21:02:55 +00:00
parent 65f75791ea
commit b258b6dc04
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/dbgstabs.pas
View File

@ -1583,7 +1583,7 @@ implementation
if target_dbg.id=dbg_stabs then
st:='s'''+backspace_quote(octal_quote(strpas(pchar(sym.value.valueptr)),[#0..#9,#11,#12,#14..#31,'''']),['"','\',#10,#13])+''''
else
st:='s'''+stabx_quote_const(octal_quote(strpas(pchar(sym.value.valueptr)),[#0..#9,#11,#12,#14..#31,'''']))
st:='s'''+stabx_quote_const(octal_quote(strpas(pchar(sym.value.valueptr)),[#0..#9,#11,#12,#14..#31,'''']))+''''
else
st:='<constant string too long>';
end;