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

* WebAssembly internal linker: also don't remove unused data sections if

Browse Source 
smartlinking is turned off.
This commit is contained in:
Nikolay Nikolov 2024-09-15 08:59:04 +03:00
parent 36ecb2b5da
commit aba44452f3
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/ogwasm.pas
View File

@ -4388,7 +4388,10 @@ implementation
with DataSegments[i] do
if Active then
begin
CurrSec:=ObjData.createsection(SegName,1 shl SegAlignment,[oso_Data,oso_load,oso_write],false);
if not (cs_link_smart in current_settings.globalswitches) then
CurrSec:=ObjData.createsection(SegName,1 shl SegAlignment,[oso_Data,oso_load,oso_write,oso_keep],false)
else
CurrSec:=ObjData.createsection(SegName,1 shl SegAlignment,[oso_Data,oso_load,oso_write],false);
CurrSec.DataPos:=DataPos;
CurrSec.MemPos:=Offset;
CurrSec.Size:=Len;