paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 11:09:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* line breaking

Browse Source 
git-svn-id: trunk@4461 -
This commit is contained in:
florian 2006-08-19 23:10:04 +00:00
parent 10f1762ae6
commit 794c13c58b
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/dbgstabs.pas
View File

@ -727,7 +727,10 @@ implementation
tostr(tarraydef(def).lowrange),tostr(tarraydef(def).highrange),def_stab_number(tarraydef(def).elementtype.def)]) tostr(tarraydef(def).lowrange),tostr(tarraydef(def).highrange),def_stab_number(tarraydef(def).elementtype.def)])
else else
// will only show highrange-lowrange+1 bits in gdb // 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 // 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)]); // 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 : procdef :