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

* WebAssembly: micro optimization in the invoke helper - omit the last 'return' instruction

Browse Source
This commit is contained in:
Nikolay Nikolov 2025-02-09 20:12:57 +02:00
parent 8790c4303a
commit 55aa5ac129
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ogwasm.pas
View File

@ -6001,7 +6001,7 @@ implementation
Sec: TObjSection;
IndirectFunctionTableMap: array of Integer;
procedure InvokeFuncType(typidx: Integer);
procedure InvokeFuncType(typidx: Integer; islast: Boolean);
var
ft: TWasmFuncType;
i, nextofs: Integer;
@ -6118,8 +6118,9 @@ implementation
internalerror(2025012501);
end;
end;
{ return }
Sec.writeUInt8($0F);
if not islast then
{ return }
Sec.writeUInt8($0F);
end;
function FuncIdx2TypeIdx(fi: Integer): Integer;
@ -6252,7 +6253,7 @@ implementation
begin
{ end }
Sec.writeUInt8($0B);
InvokeFuncType(InvokableTypeIndices[i]);
InvokeFuncType(InvokableTypeIndices[i],i=(Length(InvokableTypeIndices)-1));
end;
{ end }