|
@@ -35,7 +35,7 @@ uses
|
|
|
cfileutl, cutils, cclasses,
|
|
|
|
|
|
import, export, aasmdata, aasmcpu,
|
|
|
- fmodule, ogbase,
|
|
|
+ fmodule, ogbase, ogwasm,
|
|
|
|
|
|
symconst, symsym, symdef, symcpu,
|
|
|
|
|
@@ -72,6 +72,15 @@ type
|
|
|
function MakeSharedLibrary:boolean;override;
|
|
|
end;
|
|
|
|
|
|
+ { TInternalLinkerWasi }
|
|
|
+
|
|
|
+ TInternalLinkerWasi=class(tinternallinker)
|
|
|
+ protected
|
|
|
+ procedure DefaultLinkScript;override;
|
|
|
+ public
|
|
|
+ constructor create;override;
|
|
|
+ end;
|
|
|
+
|
|
|
|
|
|
implementation
|
|
|
|
|
@@ -271,6 +280,19 @@ begin
|
|
|
//inherited generatelib;
|
|
|
end;
|
|
|
|
|
|
+{ TInternalLinkerWasi }
|
|
|
+
|
|
|
+procedure TInternalLinkerWasi.DefaultLinkScript;
|
|
|
+begin
|
|
|
+ {TODO}
|
|
|
+end;
|
|
|
+
|
|
|
+constructor TInternalLinkerWasi.create;
|
|
|
+begin
|
|
|
+ inherited create;
|
|
|
+ CObjInput:=TWasmObjInput;
|
|
|
+end;
|
|
|
+
|
|
|
initialization
|
|
|
RegisterTarget(system_wasm32_wasi_info);
|
|
|
RegisterImport(system_wasm32_wasi, timportlibwasi);
|