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

wasmjob: added AllocJSValue

Browse Source
This commit is contained in:
mattias 2022-07-26 16:21:54 +02:00
parent 600c131157
commit 67ecbfcb0d
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
demo/wasienv/dom/job_js.pas
View File

@ -149,6 +149,7 @@ type
function AllocIntf(Intf: IJSObject): PByte;
function AllocObject(Obj: TJSObject): PByte;
function AllocObjId(ObjId: TJOBObjectID): PByte;
function AllocJSValue(Value: TJOB_JSValue): PByte;
end;
TJOBCallback = function(const aMethod: TMethod; var H: TJOBCallbackHelper): PByte;
@ -1363,6 +1364,21 @@ begin
PJOBObjectID(Result+1)^:=ObjId;
end;
function TJOBCallbackHelper.AllocJSValue(Value: TJOB_JSValue): PByte;
begin
if Value=nil then
exit(AllocUndefined);
case Value.Kind of
jjvkUndefined: Result:=AllocUndefined;
jjvkBoolean: Result:=AllocBool(TJOB_Boolean(Value).Value);
jjvkDouble: Result:=AllocDouble(TJOB_Double(Value).Value);
jjvkString: Result:=AllocString(TJOB_String(Value).Value);
jjvkObject: Result:=AllocIntf(TJOB_Object(Value).Value);
else
raise EJSArgParse.Create('AllocJSValue unsupported: '+JOB_JSValueKindNames[Value.Kind]);
end;
end;
{ TJOB_JSValue }
constructor TJOB_JSValue.Create(aKind: TJOB_JSValueKind);