paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 07:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't generate debug info for class fields in generic types

Browse Source 
-> fixes failed compilation of webtbs/25600 with debug info
      (broken since 6 June, possibly because of r27874)
  * don't allocate class fields defined in generic types, as the
    only reason for this was to have valid debug info

git-svn-id: trunk@27928 -
This commit is contained in:
Jonas Maebe 2014-06-10 19:05:10 +00:00
parent e5647d5118
commit 145e9c1aae
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/dbgbase.pas
View File

@ -418,7 +418,9 @@ implementation
beforeappendsym(list,sym);
case sym.typ of
staticvarsym :
appendsym_staticvar(list,tstaticvarsym(sym));
if not assigned(tstaticvarsym(sym).fieldvarsym) or
not(df_generic in tdef(tstaticvarsym(sym).fieldvarsym.owner.defowner).defoptions) then
appendsym_staticvar(list,tstaticvarsym(sym));
unitsym:
appendsym_unit(list,tunitsym(sym));
labelsym :

6
compiler/pdecvar.pas
View File

@ -1797,10 +1797,8 @@ implementation
fieldvs:=tfieldvarsym(sc[i]);
fieldvs.visibility:=visibility;
hstaticvs:=make_field_static(recst,fieldvs);
{ for generics it would be better to disable the following,
but simply disabling it in that case breaks linking with
debug info }
cnodeutils.insertbssdata(hstaticvs);
if not parse_generic then
cnodeutils.insertbssdata(hstaticvs);
if vd_final in options then
hstaticvs.varspez:=vs_final;
end;