Răsfoiți Sursa

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 luni în urmă
părinte
comite
61d004122d
1 a modificat fișierele cu 1 adăugiri și 10 ștergeri
  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