[PATCH 013/188] update command line processing

From a79fdce109fc6f48cdd1d0d4cfe98f445981203f Mon Sep 17 00:00:00 2001
From: Dmitry Boyarintsev <[email protected]>
Date: Thu, 26 Sep 2019 09:57:47 -0400

git-svn-id: branches/wasm@46009 -

utils/wasmbin/wasmtool.lpi

@@ -51,6 +51,14 @@
       <IncludeFiles Value="$(ProjOutDir)"/>
       <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
     </SearchPaths>
+    <Linking>
+      <Debugging>
+        <DebugInfoType Value="dsDwarf2"/>
+      </Debugging>
+    </Linking>
+    <Other>
+      <CustomOptions Value="-Oodfa"/>
+    </Other>
   </CompilerOptions>
   <Debugging>
     <Exceptions Count="3">

utils/wasmbin/wasmtool.lpr

@@ -41,9 +41,11 @@ var
 begin
   for i:=0 to acts.Count-1 do begin
     ta := TToolActions(acts[i]);
+    writeln('i=',i);
     if ta.action = ACT_EXPORTRENAME then begin
       ExportRename(inputFn, ta.paramsFn);
     end else if ta.action = ACT_SYMBOLFLAG then begin
+      ChangeSymbolFlag(inputFn, ta.paramsFn);
     end;
   end;
 end;
@@ -96,7 +98,6 @@ begin
   end;
 
   try
-    ParseParams;
     acts := TList.Create;
     try
       ParseParams;

utils/wasmbin/wasmtoolutils.pas

@@ -11,7 +11,7 @@ function ChangeSymbolFlagStream(st: TStream; syms: TStrings): Boolean;
 procedure ChangeSymbolFlag(const fn, symfn: string);
 
 procedure ExportRenameSym(var x: TExportSection; syms: TStrings);
-function ExportRenameProcesss(st, dst: TStream; syms: TStrings): Boolean;
+function ExportRenameProcess(st, dst: TStream; syms: TStrings): Boolean;
 procedure ExportRename(const fn, symfn: string);
 
 implementation
@@ -82,7 +82,7 @@ begin
   end;
 end;
 
-function ExportRenameProcesss(st, dst: TStream; syms: TStrings): Boolean;
+function ExportRenameProcess(st, dst: TStream; syms: TStrings): Boolean;
 var
   dw  : LongWord;
   ofs : int64;
@@ -142,7 +142,8 @@ begin
     if (symfn <> '') and fileExists(symfn) then
       syms.LoadFromFile(symfn);
 
-    ExportRenameProcesss(fs, dst, syms);
+    writeln('ExportRenameProcess');
+    ExportRenameProcess(fs, dst, syms);
 
     fs.Position:=0;
     dst.Position:=0;