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

* make not of public assembler symbols for variables and classes if necessary

Browse Source 
git-svn-id: trunk@34291 -
This commit is contained in:
svenbarth 2016-08-12 14:19:11 +00:00
parent 20cbdf75ea
commit bf3c7144b0
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/pdecvar.pas
View File

@ -60,7 +60,7 @@ implementation
{$endif}
fmodule,htypechk,
{ pass 1 }
node,pass_1,aasmdata,
node,pass_1,aasmbase,aasmdata,
ncon,nmat,nadd,ncal,nset,ncnv,ninl,nld,nflw,nmem,nutils,
{ codegen }
ncgutil,ngenutil,
@ -1498,6 +1498,8 @@ implementation
not(vo_is_typed_const in vs.varoptions) and
not(vo_is_external in vs.varoptions) then
cnodeutils.insertbssdata(tstaticvarsym(vs));
if vo_is_public in vs.varoptions then
current_module.add_public_asmsym(vs.mangledname,AB_GLOBAL,AT_DATA);
end;
first:=false;

3
compiler/ptconst.pas
View File

@ -124,6 +124,9 @@ implementation
end;
end;
if vo_is_public in sym.varoptions then
current_module.add_public_asmsym(sym.mangledname,AB_GLOBAL,AT_DATA);
if not(target_info.system in systems_typed_constants_node_init) then
begin
{ only now get the final asmlist, because inserting the symbol