[PATCH 183/188] wasa relocation to be off by default

From 29bc72b3e6d157b88ea1df59f171b8cd019c3254 Mon Sep 17 00:00:00 2001
From: Dmitry Boyarintsev <[email protected]>
Date: Thu, 9 Apr 2020 13:19:40 -0400

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

utils/wasmbin/wasa.pas

@@ -16,7 +16,7 @@ type
 procedure DefaultParams(out p: TAsmParams);
 begin
   p.SrcFile := '';
-  p.Reloc := true;
+  p.Reloc := false;
   p.DstObjFile := '';
 end;
 
@@ -77,7 +77,8 @@ begin
         inc(i);
         if (i<=ParamCount) then
           p.DstObjFile:=ParamStr(i);
-      end;
+      end else if ls = '-r' then
+        p.Reloc := true;
     end else
       p.SrcFile := s;
     inc(i);