Преглед на файлове

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

From b9a718eb8a2aecb209dea027690f6f8b99bf0b88 Mon Sep 17 00:00:00 2001
From: Dmitry Boyarintsev <[email protected]>
Date: Tue, 26 Nov 2019 10:09:12 -0500

git-svn-id: branches/wasm@45958 -
nickysn преди 5 години
родител
ревизия
b81bc87120
променени са 1 файла, в които са добавени 2 реда и са изтрити 2 реда
  1. 2 2
      compiler/systems/t_wasm.pas

+ 2 - 2
compiler/systems/t_wasm.pas

@@ -107,7 +107,7 @@ begin
 
 
   cmdstr := cmdstr + ' --no-entry --allow-undefined';
   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
    begin
      { only remove non global symbols and debugging info for a library }
      { only remove non global symbols and debugging info for a library }
      cmdstr := cmdstr + ' --strip-all';
      cmdstr := cmdstr + ' --strip-all';
@@ -126,7 +126,7 @@ begin
 
 
   SplitBinCmd(Info.DllCmd[2],binstr,cmdstr);
   SplitBinCmd(Info.DllCmd[2],binstr,cmdstr);
   Replace(cmdstr,'$INPUT',current_module.objfilename );
   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);
   DoExec(FindUtil(utilsprefix+binstr),cmdstr,false,false);
 
 
   MakeSharedLibrary:=success;
   MakeSharedLibrary:=success;