Quellcode durchsuchen

Second trial to fix commit 48688

git-svn-id: trunk@48691 -
pierre vor 4 Jahren
Ursprung
Commit
acf2567bda
1 geänderte Dateien mit 2 neuen und 1 gelöschten Zeilen
  1. 2 1
      compiler/dbgstabs.pas

+ 2 - 1
compiler/dbgstabs.pas

@@ -1613,7 +1613,8 @@ implementation
                 begin
                 begin
                   setlength(ss,sym.value.len);
                   setlength(ss,sym.value.len);
                   for i:=0 to sym.value.len-1 do
                   for i:=0 to sym.value.len-1 do
-                    ss[i_1]:=pchar(sym.value.valueptr)[i];
+                    ss[i+1]:=pchar(sym.value.valueptr)[i];
+                  if target_dbg.id=dbg_stabs then
                     st:='s'''+backspace_quote(octal_quote(ss,[#0..#9,#11,#12,#14..#31,'''']),['"','\',#10,#13])+''''
                     st:='s'''+backspace_quote(octal_quote(ss,[#0..#9,#11,#12,#14..#31,'''']),['"','\',#10,#13])+''''
                   else
                   else
                     st:='s'''+stabx_quote_const(octal_quote(ss,[#0..#9,#11,#12,#14..#31,'''']))+'''';
                     st:='s'''+stabx_quote_const(octal_quote(ss,[#0..#9,#11,#12,#14..#31,'''']))+'''';