From 794c13c58b9d5833fb873c256a49dd3678f4d86b Mon Sep 17 00:00:00 2001 From: florian Date: Sat, 19 Aug 2006 23:10:04 +0000 Subject: [PATCH] * line breaking git-svn-id: trunk@4461 - --- compiler/dbgstabs.pas | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/compiler/dbgstabs.pas b/compiler/dbgstabs.pas index b731dae31b..8b0e854122 100644 --- a/compiler/dbgstabs.pas +++ b/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 :