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

* handle the export and import of resourcestring symbols for packages

Browse Source 
git-svn-id: trunk@34187 -
This commit is contained in:
svenbarth 2016-07-22 16:03:59 +00:00
parent ccb4b23949
commit cbbbe8927e
1 changed files with 24 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/pkgutil.pas
View File

@ -172,11 +172,15 @@ implementation
{ ignore: }
unitsym,
syssym,
constsym,
namespacesym,
propertysym,
enumsym:
;
constsym:
begin
if tconstsym(sym).consttyp=constresourcestring then
varexport(make_mangledname('RESSTR',tsym(sym).owner,tsym(sym).name));
end;
typesym:
begin
case ttypesym(sym).typedef.typ of
@ -657,6 +661,13 @@ implementation
staticvarsym:
if tstaticvarsym(psym).mangledname=symname then
found:=true;
constsym:
begin
if tconstsym(psym).consttyp<>constresourcestring then
internalerror(2016072202);
if make_mangledname('RESSTR',psym.owner,psym.name)=symname then
found:=true;
end;
else
internalerror(2014101003);
end;
@ -720,7 +731,11 @@ implementation
for i:=0 to syms.count-1 do
begin
sym:=tsymentry(syms[i]);
if not (sym.typ in [staticvarsym,procsym]) then
if not (sym.typ in [staticvarsym,procsym,constsym]) or
(
(sym.typ=constsym) and
(tconstsym(sym).consttyp<>constresourcestring)
) then
continue;
if alreadyloaded.indexof(sym)>=0 then
continue;
@ -750,6 +765,13 @@ implementation
if unitentry^.module=module then
begin
case sym.typ of
constsym:
begin
if tconstsym(sym).consttyp<>constresourcestring then
internalerror(2016072201);
name:=make_mangledname('RESSTR',sym.owner,sym.name);
current_module.addexternalimport(pkgentry^.package.pplfilename,name,name+suffix_indirect,0,true,false);
end;
staticvarsym:
begin
name:=tstaticvarsym(sym).mangledname;