Selaa lähdekoodia

Fix constant string stabx writing

git-svn-id: trunk@27626 -
pierre 11 vuotta sitten
vanhempi
commit
b258b6dc04
1 muutettua tiedostoa jossa 1 lisäystä ja 1 poistoa
  1. 1 1
      compiler/dbgstabs.pas

+ 1 - 1
compiler/dbgstabs.pas

@@ -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;