Explorar el Código

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 hace 9 meses
padre
commit
61d004122d
Se han modificado 1 ficheros con 1 adiciones y 10 borrados
  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