paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 02:29:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

webidl: property get array

Browse Source
This commit is contained in:
mattias 2022-07-27 08:20:39 +02:00
parent 92944e7b5e
commit 6007752ff3
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
packages/webidl/src/webidltowasmjob.pp
View File

@ -724,7 +724,11 @@ begin
Call:=FuncName+'(aMethod)('+Params+')';
case ResolvedReturnTypeName of
'': GetFunc:='Result:=H.AllocUndefined('+Call+');';
'':
begin
Code:=Code+' '+Call+';'+sLineBreak;
GetFunc:='Result:=H.AllocUndefined;';
end;
'Boolean': GetFunc:='Result:=H.AllocBool('+Call+');';
'ShortInt',
'Byte',
@ -801,9 +805,14 @@ begin
'UnicodeString': ReadFuncName:='ReadJSPropertyUnicodeString';
'TJOB_JSValue': ReadFuncName:='ReadJSPropertyValue';
else
ObjClassName:=GetName(AttrType);
if ObjClassName='' then
ObjClassName:=IntfToPasClassName(AttrTypeName);
if AttrType is TIDLSequenceTypeDefDefinition then
ObjClassName:=ClassPrefix+'Array'+ClassSuffix
else
begin
ObjClassName:=GetName(AttrType);
if ObjClassName='' then
ObjClassName:=IntfToPasClassName(AttrTypeName);
end;
Call:='ReadJSPropertyObject('''+Attr.Name+''','+ObjClassName+') as '+AttrTypeName;
end;