ソースを参照

Fix WasiFetch1.lpr to compile

1. adjust to new dotted unit names (Job.Shared, Job.JS)

2. and do not export JOBCallback (not necessary anymore, see analogous commit to other examples in https://gitlab.com/freepascal.org/fpc/pas2js/-/commit/80f9f00aa30e7fcb9214631096c57c1031eeb622 and talk in https://gitlab.com/freepascal.org/fpc/pas2js/-/issues/39288 )
Michalis Kamburelis 9 ヶ月 前
コミット
61d004122d
1 ファイル変更1 行追加10 行削除
  1. 1 10
      demo/wasienv/fetch/WasiFetch1.lpr

+ 1 - 10
demo/wasienv/fetch/WasiFetch1.lpr

@@ -5,7 +5,7 @@ library WasiFetch1;
 {$codepage UTF8}
 
 uses
-  SysUtils, Classes, JOB_Shared, JOB_Web, JOB_JS, Variants;
+  SysUtils, Classes, JOB.Shared, JOB_Web, JOB.JS, Variants;
 
 type
 
@@ -164,15 +164,6 @@ begin
   writeln('TWasmApp.Run END');
 end;
 
-// workaround: fpc wasm does not yet support exporting functions from units
-function JOBCallback(const Func: TJOBCallback; Data, Code: Pointer; Args: PByte): PByte;
-begin
-  Result:=JOB_JS.JOBCallback(Func,Data,Code,Args);
-end;
-
-exports
-  JOBCallback;
-
 var
   Application: TWasmApp;
 begin