diff --git a/compiler/wasm32/cpupara.pas b/compiler/wasm32/cpupara.pas index bdda79fe1e..cb32b451fe 100644 --- a/compiler/wasm32/cpupara.pas +++ b/compiler/wasm32/cpupara.pas @@ -35,6 +35,7 @@ interface { tcpuparamanager } tcpuparamanager=class(TParaManager) + function has_strict_proc_signature: boolean; override; function get_saved_registers_int(calloption: tproccalloption): tcpuregisterarray;override; function keep_para_array_range(varspez: tvarspez; def: tdef; calloption: tproccalloption): boolean; override; function push_addr_param(varspez:tvarspez;def : tdef;calloption : tproccalloption) : boolean;override; @@ -64,6 +65,12 @@ implementation hlcgobj; + function tcpuparamanager.has_strict_proc_signature: boolean; + begin + Result:=true; + end; + + function tcpuparamanager.get_saved_registers_int(calloption: tproccalloption): tcpuregisterarray; const { dummy, not used for WebAssembly }