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

+ show a "linking" message before invoking the linker for the wasm32-embedded target

Browse Source
This commit is contained in:
Nikolay Nikolov 2022-07-15 16:09:52 +03:00
parent 46dcd4da76
commit dba189f4af
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/systems/t_embed.pas
View File

@ -2172,8 +2172,10 @@ function TLinkerEmbedded_Wasm.MakeSharedLibrary: boolean;
tmp : TCmdStrListItem; tmp : TCmdStrListItem;
tempFileName : ansistring; tempFileName : ansistring;
begin begin
//Result := true; Result:=false;
//Result:=inherited MakeSharedLibrary; if not(cs_link_nolink in current_settings.globalswitches) then
Message1(exec_i_linking,current_module.sharedlibfilename);
mapstr:=''; mapstr:='';
if (cs_link_map in current_settings.globalswitches) then if (cs_link_map in current_settings.globalswitches) then
mapstr:='-Map '+maybequoted(ChangeFileExt(current_module.sharedlibfilename,'.map')); mapstr:='-Map '+maybequoted(ChangeFileExt(current_module.sharedlibfilename,'.map'));