Kaynağa Gözat

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 ay önce
ebeveyn
işleme
61d004122d
1 değiştirilmiş dosya ile 1 ekleme ve 10 silme
  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