paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 17:19:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

webidl: wasmjob: create unique local var

Browse Source
This commit is contained in:
mattias 2022-06-28 23:23:11 +02:00
parent 623b723b11
commit c50ef1efcf
1 changed files with 62 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -331,10 +331,21 @@ end;
function TWebIDLToPasWasmJob.WriteFunctionDefinition(
aDef: TIDLFunctionDefinition): Boolean;
var
ArgNames: TStringList;
function CreateLocal(aName: string): string;
var
i: Integer;
begin
Result:=aName;
if ArgNames.IndexOf(Result)>=0 then
begin
i:=2;
while ArgNames.IndexOf(Result+IntToStr(i))>=0 do inc(i);
Result:=Result+IntToStr(i);
end;
ArgNames.Add(Result);
end;
Var
@ -415,54 +426,62 @@ begin
if not AddFuncBody then continue;
InvokeCode:='';
if RT<>'' then
InvokeCode:='Result:=';
VarSection:='';
TryCode:='';
FinallyCode:='';
Args:='';
for CurDef in ArgDefList do
begin
if Args<>'' then
Args:=Args+',';
ArgName:=GetName(ArgDef);
ArgType:=FindGlobalDef(ArgDef.ArgumentType.TypeName);
if (ArgType is TIDLFunctionDefinition) and (foCallBack in TIDLFunctionDefinition(ArgType).Options) then
ArgNames:=TStringList.Create;
try
for CurDef in ArgDefList do
ArgNames.Add(GetName(ArgDef));
InvokeCode:='';
if RT<>'' then
InvokeCode:='Result:=';
VarSection:='';
TryCode:='';
FinallyCode:='';
Args:='';
for CurDef in ArgDefList do
begin
LocalName:=CreateLocal('m');
VarSection:=VarSection+' '+LocalName+': TJOB_JSValueMethod;'+sLineBreak;
WrapperFn:='JOBCall'+GetName(TIDLFunctionDefinition(ArgType));
TryCode:=TryCode+' '+LocalName+':=TJOB_JSValueMethod.Create(TMethod('+ArgName+'),@'+WrapperFn+');'+sLineBreak;
FinallyCode:=FinallyCode+' '+LocalName+'.free;'+sLineBreak;
ArgName:=LocalName;
if Args<>'' then
Args:=Args+',';
ArgName:=GetName(ArgDef);
ArgType:=FindGlobalDef(ArgDef.ArgumentType.TypeName);
if (ArgType is TIDLFunctionDefinition) and (foCallBack in TIDLFunctionDefinition(ArgType).Options) then
begin
LocalName:=CreateLocal('m');
VarSection:=VarSection+' '+LocalName+': TJOB_JSValueMethod;'+sLineBreak;
WrapperFn:='JOBCall'+GetName(TIDLFunctionDefinition(ArgType));
TryCode:=TryCode+' '+LocalName+':=TJOB_JSValueMethod.Create(TMethod('+ArgName+'),@'+WrapperFn+');'+sLineBreak;
FinallyCode:=FinallyCode+' '+LocalName+'.free;'+sLineBreak;
ArgName:=LocalName;
end;
Args:=Args+ArgName;
end;
Args:=Args+ArgName;
end;
Args:=',['+Args+']';
Args:=',['+Args+']';
InvokeCode:=InvokeCode+InvokeName+'('''+aDef.Name+''''+Args+')';
InvokeCode:=InvokeCode+InvokeName+'('''+aDef.Name+''''+Args+')';
Code:=ProcKind+' '+aClassName+'.'+Sig+sLineBreak;
if VarSection<>'' then
Code:=Code+'var'+sLineBreak+VarSection;
Code:=Code+'begin'+sLineBreak;
if TryCode<>'' then
begin
Code:=Code+TryCode;
Code:=Code+' try'+sLineBreak;
Code:=Code+' '+InvokeCode+';'+sLineBreak;
Code:=Code+' finally'+sLineBreak;
Code:=Code+FinallyCode;
Code:=Code+' end;'+sLineBreak;
end
else
begin
Code:=Code+' '+InvokeCode+';'+sLineBreak;
end;
Code:=Code+'end;'+sLineBreak;
Code:=ProcKind+' '+aClassName+'.'+Sig+sLineBreak;
if VarSection<>'' then
Code:=Code+'var'+sLineBreak+VarSection;
Code:=Code+'begin'+sLineBreak;
if TryCode<>'' then
begin
Code:=Code+TryCode;
Code:=Code+' try'+sLineBreak;
Code:=Code+' '+InvokeCode+';'+sLineBreak;
Code:=Code+' finally'+sLineBreak;
Code:=Code+FinallyCode;
Code:=Code+' end;'+sLineBreak;
end
else
begin
Code:=Code+' '+InvokeCode+';'+sLineBreak;
end;
Code:=Code+'end;'+sLineBreak;
IncludeImplementationCode.Add(Code);
IncludeImplementationCode.Add(Code);
finally
ArgNames.Free;
end;
end;
Data.HasFuncBody:=true;