paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:49:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed memory leak in debug info generation for bitpacked records

Browse Source 
git-svn-id: trunk@7629 -
This commit is contained in:
Jonas Maebe 2007-06-10 22:02:11 +00:00
parent ebea7ac320
commit 9b198fb1d7
1 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/dbgstabs.pas
View File

@ -724,6 +724,9 @@ implementation
result:=state.stabstring; result:=state.stabstring;
end; end;
var
tempstr: pchar;
begin begin
result:=nil; result:=nil;
case def.typ of case def.typ of
@ -754,13 +757,16 @@ implementation
result:=def_stabstr_evaluate(def,'ar$1;$2;$3;$4',[def_stab_number(tarraydef(def).rangedef), result:=def_stabstr_evaluate(def,'ar$1;$2;$3;$4',[def_stab_number(tarraydef(def).rangedef),
tostr(tarraydef(def).lowrange),tostr(tarraydef(def).highrange),def_stab_number(tarraydef(def).elementdef)]) tostr(tarraydef(def).lowrange),tostr(tarraydef(def).highrange),def_stab_number(tarraydef(def).elementdef)])
else else
// will only show highrange-lowrange+1 bits in gdb begin
result:=def_stabstr_evaluate(def,'@s$1;@S;S$2',
[tostr(TConstExprInt(tarraydef(def).elepackedbitsize) * tarraydef(def).elecount),def_stabstr_evaluate(tarraydef(def).rangedef,'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).rangedef),tostr(tarraydef(def).lowrange),tostr(tarraydef(def).highrange),def_stab_number(tarraydef(def).elementdef)]); // result:=def_stabstr_evaluate(def,'ar$1;$2;$3;$4;@P;',[def_stab_number(tarraydef(def).rangedef),tostr(tarraydef(def).lowrange),tostr(tarraydef(def).highrange),def_stab_number(tarraydef(def).elementdef)]);
tempstr:=def_stabstr_evaluate(tarraydef(def).rangedef,'r${numberstring};$1;$2;',
[tostr(tarraydef(def).lowrange),tostr(tarraydef(def).highrange)]);
// 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),tempstr]);
freemem(tempstr);
end;
procdef : procdef :
result:=procdef_stabstr(tprocdef(def)); result:=procdef_stabstr(tprocdef(def));
procvardef : procvardef :