paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-03 14:50:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed stabs debug info for bitpacked records

Browse Source 
git-svn-id: trunk@7634 -
This commit is contained in:
Jonas Maebe 2007-06-12 09:32:02 +00:00
parent af97f3350b
commit a087bb50d0
1 changed files with 14 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/dbgstabs.pas
View File

@ -350,13 +350,21 @@ implementation
spec:='/0'
else
spec:='';
varsize:=tfieldvarsym(p).vardef.size;
{ open arrays made overflows !! }
if varsize>$fffffff then
varsize:=$fffffff;
newrec:=def_stabstr_evaluate(nil,'$1:$2,$3,$4;',[GetSymName(tfieldvarsym(p)),
if (tabstractrecordsymtable(tsym(p).owner).usefieldalignment<>bit_alignment) then
begin
varsize:=tfieldvarsym(p).vardef.size;
{ open arrays made overflows !! }
{ how can a record/object/class contain an open array? (JM) }
if varsize>$fffffff then
varsize:=$fffffff;
newrec:=def_stabstr_evaluate(nil,'$1:$2,$3,$4;',[GetSymName(tfieldvarsym(p)),
spec+def_stab_number(tfieldvarsym(p).vardef),
tostr(TConstExprInt(tfieldvarsym(p).fieldoffset)*8),tostr(varsize*8)]);
tostr(TConstExprInt(tfieldvarsym(p).fieldoffset)*8),tostr(varsize*8)])
end
else
newrec:=def_stabstr_evaluate(nil,'$1:$2,$3,$4;',[GetSymName(tfieldvarsym(p)),
spec+def_stab_number(tfieldvarsym(p).vardef),
tostr(TConstExprInt(tfieldvarsym(p).fieldoffset)),tostr(tfieldvarsym(p).vardef.packedbitsize)]);
if state^.stabsize+strlen(newrec)>=state^.staballoc-256 then
begin
inc(state^.staballoc,strlen(newrec)+64);