paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-06 02:27:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: useanalyzer: do not export resourcestrings

Browse Source
This commit is contained in:
mattias 2019-10-25 09:36:22 +00:00
parent f8d57c149c
commit 598d4e8ba7
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/packages/fcl-passrc/src/pasuseanalyzer.pas
View File

@ -1282,7 +1282,10 @@ begin
UseVariable(TPasVariable(Decl),rraNone,true);
end
else if C=TPasResString then
UseResourcestring(TPasResString(Decl))
begin
if OnlyExports then continue;
UseResourcestring(TPasResString(Decl));
end
else
RaiseNotSupported(20170306165213,Decl);
end;

2
compiler/packages/fcl-passrc/tests/tcuseanalyzer.pas
View File

@ -836,9 +836,9 @@ begin
StartProgram(false);
Add([
'resourcestring',
'resourcestring',
' {#a_used}a = ''txt'';',
' {#b_used}b = ''foo'';',
' {#c_notused}c = ''bar'';',
'procedure {#DoIt_used}DoIt(s: string);',
'var',
' {#d_used}d: string;',