Browse Source

Fix constant string stabx writing

git-svn-id: trunk@27626 -
pierre 11 years ago
parent
commit
b258b6dc04
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/dbgstabs.pas

+ 1 - 1
compiler/dbgstabs.pas

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