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

* override the IN node for WebAssembly and avoid generating jump tables for the

Browse Source 
IN nodes on that target

git-svn-id: branches/wasm@48176 -
This commit is contained in:
nickysn 2021-01-18 21:37:39 +00:00
parent 374882455b
commit ec7fbcb271
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/wasm32/nwasmset.pas
View File

@ -30,6 +30,13 @@ interface
type
{ twasminnode }
twasminnode = class(tcginnode)
protected
function checkgenjumps(out setparts: Tsetparts; out numparts: byte; out use_small: boolean): boolean;override;
end;
{ twasmcasenode }
twasmcasenode = class(tcgcasenode)
@ -58,6 +65,15 @@ implementation
symtype,
pass_2,defutil,verbose,constexp;
{*****************************************************************************
TWASMINNODE
*****************************************************************************}
function twasminnode.checkgenjumps(out setparts: Tsetparts; out numparts: byte; out use_small: boolean): boolean;
begin
result:=false;
end;
{*****************************************************************************
TWASMCASENODE
*****************************************************************************}
@ -481,5 +497,6 @@ implementation
end;
begin
cinnode:=twasminnode;
ccasenode:=twasmcasenode;
end.