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

fcl-passrc: useanalyzer: do not export resourcestrings

Browse Source 
git-svn-id: trunk@43310 -
This commit is contained in:
Mattias Gaertner 2019-10-25 09:35:45 +00:00
parent 2d20151446
commit acc72f01a1
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1404,7 +1404,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 if C=TPasAttributes then
// attributes are never used directly
else

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

@ -842,9 +842,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;',