paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-05 01:49:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

* revert revision 21251 for pdecvar.pas: not generating the bss-data for the static symbol for a generic breaks linking with debug info enabled; I'll need to find a better solution to avoid unneeded use of space (luckily it wasn't needed to fix any bug ^^)

Browse Source 
git-svn-id: trunk@21264 -
This commit is contained in:
svenbarth 2012-05-09 12:02:41 +00:00
parent db955f842f
commit def357287e
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/pdecvar.pas
View File

@ -1773,7 +1773,9 @@ implementation
fieldvs:=tfieldvarsym(sc[i]); fieldvs:=tfieldvarsym(sc[i]);
fieldvs.visibility:=visibility; fieldvs.visibility:=visibility;
hstaticvs:=make_field_static(recst,fieldvs); hstaticvs:=make_field_static(recst,fieldvs);
if not parse_generic then { 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); cnodeutils.insertbssdata(hstaticvs);
if vd_final in options then if vd_final in options then
hstaticvs.varspez:=vs_final; hstaticvs.varspez:=vs_final;