Browse Source

webidl: wasmjob: write forward interface definitions

mattias 3 năm trước cách đây
mục cha
commit
6bc34710c8

+ 4 - 0
packages/webidl/src/webidltowasmjob.pp

@@ -399,7 +399,11 @@ begin
   if D is TIDLDictionaryDefinition then
   if D is TIDLDictionaryDefinition then
     AddLn(GetName(D)+' = '+JOB_JSValueTypeNames[jjvkDictionary]+';')
     AddLn(GetName(D)+' = '+JOB_JSValueTypeNames[jjvkDictionary]+';')
   else
   else
+    begin
+    if (not D.IsPartial) and (D is TIDLInterfaceDefinition) then
+      AddLn(GetPasIntfName(D)+' = Interface;');
     Result:=inherited WriteForwardClassDef(D);
     Result:=inherited WriteForwardClassDef(D);
+    end;
 end;
 end;
 
 
 function TWebIDLToPasWasmJob.WriteFunctionDefinition(
 function TWebIDLToPasWasmJob.WriteFunctionDefinition(