paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-11-22 05:09:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fix WasiFetch1.lpr to compile

Browse Source 
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 80f9f00aa3 and talk in https://gitlab.com/freepascal.org/fpc/pas2js/-/issues/39288 )
This commit is contained in:
Michalis Kamburelis 2024-12-03 13:08:22 +01:00
parent eb745094b0
commit 61d004122d
1 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
demo/wasienv/fetch/WasiFetch1.lpr
View File

@ -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