paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-08 05:48:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Allow to compile for worker

Browse Source
This commit is contained in:
Michael Van Canneyt 2024-11-07 15:08:10 +01:00
parent 028405d67f
commit 2d0fc5940a
1 changed files with 13 additions and 4 deletions

17
packages/job/src/job_browser.pp
View File

@ -17,9 +17,9 @@ interface
uses
{$IFDEF FPC_DOTTEDUNITS}
System.SysUtils, System.Types, JSApi.JS, BrowserApi.Web, Wasi.Env, JOB.Shared;
System.SysUtils, System.Types, JSApi.JS, BrowserApi.WebOrWorker, BrowserApi.Web, Wasi.Env, JOB.Shared;
{$ELSE}
sysutils, types, js, web, wasienv, JOB_Shared;
sysutils, types, js, weborworker, {$IFNDEF JOB_WORKER} web, {$ELSE} webworker, {$ENDIF} wasienv, JOB_Shared;
{$ENDIF}
Type
@ -195,13 +195,13 @@ begin
FGlobalObjects:=TJSArray.new;
FGlobalObjects.push(nil); // allocate FGlobalObjects[0]
FGlobalNames:=TJSObject.new;
{$IFNDEF JOB_WORKER}
RegisterGlobalObject(document,'document');
RegisterGlobalObject(window,'window');
RegisterGlobalObject(console,'console');
RegisterGlobalObject(CSS,'CSS');
{$IFDEF WORKER}
RegisterGlobalObject(caches,'caches');
{$ENDIF}
RegisterGlobalObject(console,'console');
RegisterGlobalObject(TJSObject,'Object');
RegisterGlobalObject(TJSFunction,'Function');
RegisterGlobalObject(TJSDate,'Date');
@ -590,6 +590,11 @@ begin
Result:=JOBResult_Object;
end;
{$IFDEF JOB_WORKER}
var
Self_ : TJSDedicatedWorkerGlobalScope; external name 'self';
{$ENDIF}
function TJSObjectBridge.GetObjectConstructor(aObjectName : String): TJSFunction;
var
@ -598,7 +603,11 @@ var
begin
Result:=Nil;
if aObjectName<>'' then
{$IFDEF JOB_WORKER}
fn:=self_[aObjectName];
{$ELSE}
fn:=Window[aObjectName];
{$ENDIF}
if jstypeof(fn)<>'function' then
exit;
Result:=TJSFunction(fn);