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

[PATCH 81/83] fix the use of sharedlibname to exe name

Browse Source 
From b9a718eb8a2aecb209dea027690f6f8b99bf0b88 Mon Sep 17 00:00:00 2001
From: Dmitry Boyarintsev <skalogryz.lists@gmail.com>
Date: Tue, 26 Nov 2019 10:09:12 -0500

git-svn-id: branches/wasm@45958 -
This commit is contained in:
nickysn 2020-07-29 19:22:01 +00:00
parent 7e421eed3c
commit b81bc87120
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/systems/t_wasm.pas
View File

@ -107,7 +107,7 @@ begin
cmdstr := cmdstr + ' --no-entry --allow-undefined';
if success and (cs_link_strip in current_settings.globalswitches) then
if (cs_link_strip in current_settings.globalswitches) then
begin
{ only remove non global symbols and debugging info for a library }
cmdstr := cmdstr + ' --strip-all';
@ -126,7 +126,7 @@ begin
SplitBinCmd(Info.DllCmd[2],binstr,cmdstr);
Replace(cmdstr,'$INPUT',current_module.objfilename );
Replace(cmdstr,'$EXE',maybequoted(current_module.sharedlibfilename));
Replace(cmdstr,'$EXE',maybequoted(current_module.exefilename));
DoExec(FindUtil(utilsprefix+binstr),cmdstr,false,false);
MakeSharedLibrary:=success;