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

* Put string with unit name into sec_rodata_norel (other strings are already there since r23017, this one was missed).

Browse Source 
git-svn-id: trunk@24821 -
This commit is contained in:
sergei 2013-06-08 22:59:18 +00:00
parent cd5255c147
commit 5fe8b516d4
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/cresstr.pas
View File

@ -139,10 +139,10 @@ uses
R : TResourceStringItem; R : TResourceStringItem;
begin begin
{ Put resourcestrings in a new objectfile. Putting it in multiple files { Put resourcestrings in a new objectfile. Putting it in multiple files
makes the linking too dependent on the linker script requiring a SORT(*) for makes the linking too dependent on the linker script requiring a SORT(*) for
the data sections } the data sections }
maybe_new_object_file(current_asmdata.asmlists[al_const]); maybe_new_object_file(current_asmdata.asmlists[al_const]);
new_section(current_asmdata.asmlists[al_const],sec_data,make_mangledname('RESSTRTABLE',current_module.localsymtable,''),sizeof(pint)); new_section(current_asmdata.asmlists[al_const],sec_rodata_norel,make_mangledname('RESSTRTABLE',current_module.localsymtable,''),sizeof(pint));
maybe_new_object_file(current_asmdata.asmlists[al_resourcestrings]); maybe_new_object_file(current_asmdata.asmlists[al_resourcestrings]);
new_section(current_asmdata.asmlists[al_resourcestrings],sec_data,make_mangledname('RESSTR',current_module.localsymtable,'1_START'),sizeof(pint)); new_section(current_asmdata.asmlists[al_resourcestrings],sec_data,make_mangledname('RESSTR',current_module.localsymtable,'1_START'),sizeof(pint));