ソースを参照

* line breaking

git-svn-id: trunk@4461 -
florian 19 年 前
コミット
794c13c58b
1 ファイル変更4 行追加1 行削除
  1. 4 1
      compiler/dbgstabs.pas

+ 4 - 1
compiler/dbgstabs.pas

@@ -727,7 +727,10 @@ implementation
                  tostr(tarraydef(def).lowrange),tostr(tarraydef(def).highrange),def_stab_number(tarraydef(def).elementtype.def)])
             else
               // will only show highrange-lowrange+1 bits in gdb
-              result:=def_stabstr_evaluate(def,'@s$1;@S;S$2',[tostr(TConstExprInt(tarraydef(def).elepackedbitsize) * tarraydef(def).elecount),def_stabstr_evaluate(tarraydef(def).rangetype.def,'r${numberstring};$1;$2;',[tostr(tarraydef(def).lowrange),tostr(tarraydef(def).highrange)])]);
+              result:=def_stabstr_evaluate(def,'@s$1;@S;S$2',
+                [tostr(TConstExprInt(tarraydef(def).elepackedbitsize) * tarraydef(def).elecount),def_stabstr_evaluate(tarraydef(def).rangetype.def,'r${numberstring};$1;$2;',
+                  [tostr(tarraydef(def).lowrange),tostr(tarraydef(def).highrange)
+                ])]);
 // the @P seems to be ignored by gdb
 //              result:=def_stabstr_evaluate(def,'ar$1;$2;$3;$4;@P;',[def_stab_number(tarraydef(def).rangetype.def),tostr(tarraydef(def).lowrange),tostr(tarraydef(def).highrange),def_stab_number(tarraydef(def).elementtype.def)]);
           procdef :