Browse Source

* override GetCodeSize, GetDataSize and GetBssSize in TInternalLinkerWasi to avoid crash

Nikolay Nikolov 1 year ago
parent
commit
340499dd3a
1 changed files with 22 additions and 0 deletions
  1. 22 0
      compiler/systems/t_wasi.pas

+ 22 - 0
compiler/systems/t_wasi.pas

@@ -77,6 +77,10 @@ type
   TInternalLinkerWasi=class(tinternallinker)
   protected
     procedure DefaultLinkScript;override;
+
+    function GetCodeSize(aExeOutput: TExeOutput): QWord;override;
+    function GetDataSize(aExeOutput: TExeOutput): QWord;override;
+    function GetBssSize(aExeOutput: TExeOutput): QWord;override;
   public
     constructor create;override;
 
@@ -289,6 +293,24 @@ begin
   {TODO}
 end;
 
+function TInternalLinkerWasi.GetCodeSize(aExeOutput: TExeOutput): QWord;
+begin
+  {TODO}
+  Result:=0;
+end;
+
+function TInternalLinkerWasi.GetDataSize(aExeOutput: TExeOutput): QWord;
+begin
+  {TODO}
+  Result:=0;
+end;
+
+function TInternalLinkerWasi.GetBssSize(aExeOutput: TExeOutput): QWord;
+begin
+  {TODO}
+  Result:=0;
+end;
+
 constructor TInternalLinkerWasi.create;
 begin
   inherited create;