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

* fixed insertion of typed constants twice in bss after r18723

Browse Source 
for non-jvm targets (and once using a mangled name for global
    variables rather than for typed constants)

git-svn-id: branches/jvmbackend@18794 -
This commit is contained in:
Jonas Maebe 2011-08-20 20:37:14 +00:00
parent 7da5987d03
commit 1d2748fa69
2 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/pdecvar.pas
View File

@ -1762,6 +1762,7 @@ 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);
cnodeutils.insertbssdata(hstaticvs);
if vd_final in options then if vd_final in options then
hstaticvs.varspez:=vs_final; hstaticvs.varspez:=vs_final;
end; end;

1
compiler/symcreat.pas
View File

@ -1165,7 +1165,6 @@ implementation
{$else jvm} {$else jvm}
include(hstaticvs.symoptions,sp_internal); include(hstaticvs.symoptions,sp_internal);
tabstractrecordsymtable(recst).get_unit_symtable.insert(hstaticvs); tabstractrecordsymtable(recst).get_unit_symtable.insert(hstaticvs);
cnodeutils.insertbssdata(hstaticvs);
{$endif jvm} {$endif jvm}
{ generate the symbol for the access } { generate the symbol for the access }
sl:=tpropaccesslist.create; sl:=tpropaccesslist.create;