paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 17:57:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
From 29bc72b3e6d157b88ea1df59f171b8cd019c3254 Mon Sep 17 00:00:00 2001
From: Dmitry Boyarintsev <skalogryz.lists@gmail.com>
Date: Thu, 9 Apr 2020 13:19:40 -0400

git-svn-id: branches/wasm@46179 -
This commit is contained in:
nickysn 2020-08-03 13:02:14 +00:00
parent 6af6930763
commit 0e4e94dfe2
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
utils/wasmbin/wasa.pas
View File

@ -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);