test_call.rs

// Copyright 2017 The Australian National University
//
// Licensed under the Apache License, Version 2.0 (the "License");
// you may not use this file except in compliance with the License.
// You may obtain a copy of the License at
//
//     http://www.apache.org/licenses/LICENSE-2.0
//
// Unless required by applicable law or agreed to in writing, software
// distributed under the License is distributed on an "AS IS" BASIS,
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
// See the License for the specific language governing permissions and
// limitations under the License.

extern crate libloading;

use mu::ast::types::*;
use mu::ast::ir::*;
use mu::ast::ptr::*;
use mu::ast::inst::*;
use mu::ast::op::*;
use mu::vm::*;
use mu::compiler::*;

use std::sync::Arc;
use mu::linkutils;
use mu::linkutils::aot;
use mu::utils::LinkedHashMap;

// NOTE: aarch64 has 2 more parameter registers than x86-64
// so it needs different test cases for stack arguments

#[test]
fn test_ccall_exit() {
    VM::start_logging_trace();

    let vm = Arc::new(ccall_exit());

    let compiler = Compiler::new(CompilerPolicy::default(), &vm);

    let func_id = vm.id_of("ccall_exit");
    {
        let funcs = vm.funcs().read().unwrap();
        let func = funcs.get(&func_id).unwrap().read().unwrap();
        let func_vers = vm.func_vers().read().unwrap();
        let mut func_ver = func_vers
            .get(&func.cur_ver.unwrap())
            .unwrap()
            .write()
            .unwrap();

        compiler.compile(&mut func_ver);
    }

    vm.set_primordial_thread(func_id, true, vec![]);
    backend::emit_context(&vm);

    let executable = aot::link_primordial(vec!["ccall_exit".to_string()], "ccall_exit_test", &vm);
    let output = linkutils::exec_path_nocheck(executable);

    assert!(output.status.code().is_some());

    let ret_code = output.status.code().unwrap();
    println!("return code: {}", ret_code);
    assert!(ret_code == 10);
}

pub fn gen_ccall_exit(
    arg: P<TreeNode>,
    func_ver: &mut MuFunctionVersion,
    vm: &VM
) -> Box<TreeNode> {
    typedef!((vm) int64 = mu_int(64));
    funcsig!((vm) exit_sig = (int64) -> ());
    typedef!((vm) ufp_exit = mu_ufuncptr(exit_sig));

    // .const @exit = EXTERN SYMBOL "exit"
    constdef!((vm) <ufp_exit> const_exit = Constant::ExternSym(C ("exit")));
    consta!((vm, func_ver) const_exit_local = const_exit);

    inst!((vm, func_ver) ret:
        EXPRCCALL (CallConvention::Foreign(ForeignFFI::C), is_abort: false) const_exit_local (arg)
    );

    ret
}

fn ccall_exit() -> VM {
    let vm = VM::new();

    typedef!((vm) int32 = mu_int(32));

    constdef!((vm) <int32> int32_10 = Constant::Int(10));
    constdef!((vm) <int32> int32_0  = Constant::Int(0));

    funcsig!((vm) ccall_exit_sig = () -> ());
    funcdecl!((vm) <ccall_exit_sig> ccall_exit);
    funcdef!((vm) <ccall_exit_sig> ccall_exit VERSION ccall_exit_v1);

    // %entry():
    block!((vm, ccall_exit_v1) blk_entry);

    // exprCCALL %const_exit (%const_int32_10)
    consta!((vm, ccall_exit_v1) int32_10_local = int32_10);
    let blk_entry_ccall = gen_ccall_exit(int32_10_local.clone(), &mut ccall_exit_v1, &vm);

    // RET
    inst!((vm, ccall_exit_v1) blk_entry_ret:
        RET
    );

    define_block!((vm, ccall_exit_v1) blk_entry() {
        blk_entry_ccall,
        blk_entry_ret
    });

    define_func_ver!((vm) ccall_exit_v1 (entry: blk_entry) {
        blk_entry
    });

    vm
}

#[test]
fn test_pass_1arg_by_stack() {
    build_and_run_test!(pass_1arg_by_stack AND foo7, pass_1arg_by_stack_test1);
}

#[cfg(target_arch = "aarch64")]
// aarch64 has 2 more parameter registers than x86-64 so we need to modify the test
fn pass_1arg_by_stack() -> VM {
    let vm = VM::new_with_opts("init_mu --disable-inline");

    typedef!((vm) int64 = mu_int(64));

    constdef!((vm) <int64> int64_0 = Constant::Int(0));
    constdef!((vm) <int64> int64_1 = Constant::Int(1));
    constdef!((vm) <int64> int64_2 = Constant::Int(2));

    // foo7
    funcsig!((vm) foo7_sig = (int64, int64, int64, int64, int64, int64, int64, int64, int64)
                                 -> (int64));
    funcdecl!((vm) <foo7_sig> foo7);
    funcdef!((vm) <foo7_sig> foo7 VERSION foo7_v1);

    // blk_entry
    ssa!((vm, foo7_v1) <int64> v0);
    ssa!((vm, foo7_v1) <int64> v1);
    ssa!((vm, foo7_v1) <int64> v2);
    ssa!((vm, foo7_v1) <int64> v3);
    ssa!((vm, foo7_v1) <int64> v4);
    ssa!((vm, foo7_v1) <int64> v5);
    ssa!((vm, foo7_v1) <int64> v6);
    ssa!((vm, foo7_v1) <int64> v7);
    ssa!((vm, foo7_v1) <int64> v8);
    block!((vm, foo7_v1) blk_entry);

    inst!((vm, foo7_v1) blk_entry_ret:
        RET (v8)
    );

    define_block!((vm, foo7_v1) blk_entry(v0, v1, v2, v3, v4, v5, v6, v7, v8) {
        blk_entry_ret
    });

    define_func_ver!((vm) foo7_v1 (entry: blk_entry) {blk_entry});

    // pass_1arg_by_stack
    funcsig!((vm) sig = () -> (int64));
    funcdecl!((vm) <sig> pass_1arg_by_stack);
    funcdef!((vm) <sig> pass_1arg_by_stack VERSION pass_1arg_by_stack_v1);

    typedef!((vm) type_funcref_foo7 = mu_funcref(foo7_sig));
    constdef!((vm) <type_funcref_foo7> const_funcref_foo7 = Constant::FuncRef(vm.id_of("foo7")));

    // blk_entry
    consta!((vm, pass_1arg_by_stack_v1) int64_0_local = int64_0);
    consta!((vm, pass_1arg_by_stack_v1) int64_1_local = int64_1);

    block!((vm, pass_1arg_by_stack_v1) blk_entry);
    block!((vm, pass_1arg_by_stack_v1) blk_main);
    inst!((vm, pass_1arg_by_stack_v1) blk_entry_branch:
        BRANCH blk_main (
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,

            int64_1_local
        )
    );

    define_block!((vm, pass_1arg_by_stack_v1) blk_entry() {blk_entry_branch});

    // blk_main
    ssa!((vm, pass_1arg_by_stack_v1) <int64> a0);
    ssa!((vm, pass_1arg_by_stack_v1) <int64> a1);
    ssa!((vm, pass_1arg_by_stack_v1) <int64> a2);
    ssa!((vm, pass_1arg_by_stack_v1) <int64> a3);
    ssa!((vm, pass_1arg_by_stack_v1) <int64> a4);
    ssa!((vm, pass_1arg_by_stack_v1) <int64> a5);
    ssa!((vm, pass_1arg_by_stack_v1) <int64> a6);
    ssa!((vm, pass_1arg_by_stack_v1) <int64> a7);
    ssa!((vm, pass_1arg_by_stack_v1) <int64> a8);

    consta!((vm, pass_1arg_by_stack_v1) const_funcref_foo7_local = const_funcref_foo7);
    ssa!((vm, pass_1arg_by_stack_v1) <int64> retval);
    inst!((vm, pass_1arg_by_stack_v1) blk_main_call:
        retval =
            EXPRCALL (CallConvention::Mu, is_abort: false)
            const_funcref_foo7_local (a0, a1, a2, a3, a4, a5, a6, a7, a8)
    );

    inst!((vm, pass_1arg_by_stack_v1) blk_main_ret:
        RET (retval)
    );

    define_block!((vm, pass_1arg_by_stack_v1) blk_main(a0, a1, a2, a3, a4, a5, a6, a7, a8) {
        blk_main_call,
        blk_main_ret
    });

    define_func_ver!((vm) pass_1arg_by_stack_v1 (entry: blk_entry) {
        blk_entry,
        blk_main
    });

    emit_test!((vm)
        pass_1arg_by_stack pass_1arg_by_stack_test1 pass_1arg_by_stack_test1_v1,
        RET Int,
        EQ,
        sig,
        RET int64(1u64),
    );

    vm
}

#[cfg(target_arch = "x86_64")]
fn pass_1arg_by_stack() -> VM {
    let vm = VM::new_with_opts("init_mu --disable-inline");

    typedef!((vm) int64 = mu_int(64));

    constdef!((vm) <int64> int64_0 = Constant::Int(0));
    constdef!((vm) <int64> int64_1 = Constant::Int(1));
    constdef!((vm) <int64> int64_2 = Constant::Int(2));

    // foo7
    funcsig!((vm) foo7_sig = (int64, int64, int64, int64, int64, int64, int64) -> (int64));
    funcdecl!((vm) <foo7_sig> foo7);
    funcdef!((vm) <foo7_sig> foo7 VERSION foo7_v1);

    // blk_entry
    ssa!((vm, foo7_v1) <int64> v0);
    ssa!((vm, foo7_v1) <int64> v1);
    ssa!((vm, foo7_v1) <int64> v2);
    ssa!((vm, foo7_v1) <int64> v3);
    ssa!((vm, foo7_v1) <int64> v4);
    ssa!((vm, foo7_v1) <int64> v5);
    ssa!((vm, foo7_v1) <int64> v6);
    block!((vm, foo7_v1) blk_entry);

    inst!((vm, foo7_v1) blk_entry_ret:
        RET (v6)
    );

    define_block!((vm, foo7_v1) blk_entry(v0, v1, v2, v3, v4, v5, v6) {
        blk_entry_ret
    });

    define_func_ver!((vm) foo7_v1 (entry: blk_entry) {blk_entry});

    // pass_1arg_by_stack
    funcsig!((vm) sig = () -> (int64));
    funcdecl!((vm) <sig> pass_1arg_by_stack);
    funcdef!((vm) <sig> pass_1arg_by_stack VERSION pass_1arg_by_stack_v1);

    typedef!((vm) type_funcref_foo7 = mu_funcref(foo7_sig));
    constdef!((vm) <type_funcref_foo7> const_funcref_foo7 = Constant::FuncRef(vm.id_of("foo7")));

    // blk_entry
    consta!((vm, pass_1arg_by_stack_v1) int64_0_local = int64_0);
    consta!((vm, pass_1arg_by_stack_v1) int64_1_local = int64_1);

    block!((vm, pass_1arg_by_stack_v1) blk_entry);
    block!((vm, pass_1arg_by_stack_v1) blk_main);
    inst!((vm, pass_1arg_by_stack_v1) blk_entry_branch:
        BRANCH blk_main (
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,

            int64_1_local
        )
    );

    define_block!((vm, pass_1arg_by_stack_v1) blk_entry() {blk_entry_branch});

    // blk_main
    ssa!((vm, pass_1arg_by_stack_v1) <int64> a0);
    ssa!((vm, pass_1arg_by_stack_v1) <int64> a1);
    ssa!((vm, pass_1arg_by_stack_v1) <int64> a2);
    ssa!((vm, pass_1arg_by_stack_v1) <int64> a3);
    ssa!((vm, pass_1arg_by_stack_v1) <int64> a4);
    ssa!((vm, pass_1arg_by_stack_v1) <int64> a5);
    ssa!((vm, pass_1arg_by_stack_v1) <int64> a6);

    consta!((vm, pass_1arg_by_stack_v1) const_funcref_foo7_local = const_funcref_foo7);
    ssa!((vm, pass_1arg_by_stack_v1) <int64> retval);
    inst!((vm, pass_1arg_by_stack_v1) blk_main_call:
        retval =
            EXPRCALL (CallConvention::Mu, is_abort: false)
            const_funcref_foo7_local (a0, a1, a2, a3, a4, a5, a6)
    );

    inst!((vm, pass_1arg_by_stack_v1) blk_main_ret:
        RET (retval)
    );

    define_block!((vm, pass_1arg_by_stack_v1) blk_main(a0, a1, a2, a3, a4, a5, a6) {
        blk_main_call,
        blk_main_ret
    });

    define_func_ver!((vm) pass_1arg_by_stack_v1 (entry: blk_entry) {
        blk_entry,
        blk_main
    });

    emit_test!((vm)
        pass_1arg_by_stack, pass_1arg_by_stack_test1, pass_1arg_by_stack_test1_v1,
        RET Int,
        EQ,
        sig,
        RET int64(1u64),
    );

    vm
}

#[test]
fn test_pass_2args_by_stack() {
    build_and_run_test!(pass_2args_by_stack AND foo8, pass_2args_by_stack_test1);
}

#[cfg(target_arch = "aarch64")]
// aarch64 has 2 more parameter registers than x86-64 so we need to modify the test
fn pass_2args_by_stack() -> VM {
    let vm = VM::new_with_opts("init_mu --disable-inline");

    typedef!((vm) int64 = mu_int(64));

    constdef!((vm) <int64> int64_0 = Constant::Int(0));
    constdef!((vm) <int64> int64_1 = Constant::Int(1));
    constdef!((vm) <int64> int64_2 = Constant::Int(2));

    // foo8
    funcsig!((vm) foo8_sig = (int64, int64, int64, int64, int64,
                                  int64, int64, int64, int64, int64) -> (int64));
    funcdecl!((vm) <foo8_sig> foo8);
    funcdef!((vm) <foo8_sig> foo8 VERSION foo8_v1);

    // blk_entry
    ssa!((vm, foo8_v1) <int64> v0);
    ssa!((vm, foo8_v1) <int64> v1);
    ssa!((vm, foo8_v1) <int64> v2);
    ssa!((vm, foo8_v1) <int64> v3);
    ssa!((vm, foo8_v1) <int64> v4);
    ssa!((vm, foo8_v1) <int64> v5);
    ssa!((vm, foo8_v1) <int64> v6);
    ssa!((vm, foo8_v1) <int64> v7);
    ssa!((vm, foo8_v1) <int64> v8);
    ssa!((vm, foo8_v1) <int64> v9);
    block!((vm, foo8_v1) blk_entry);

    inst!((vm, foo8_v1) blk_entry_ret:
        RET (v9)
    );

    define_block!((vm, foo8_v1) blk_entry(v0, v1, v2, v3, v4, v5, v6, v7, v8, v9) {
        blk_entry_ret
    });

    define_func_ver!((vm) foo8_v1 (entry: blk_entry) {blk_entry});

    // pass_2args_by_stack
    funcsig!((vm) sig = () -> (int64));
    funcdecl!((vm) <sig> pass_2args_by_stack);
    funcdef!((vm) <sig> pass_2args_by_stack VERSION pass_2args_by_stack_v1);

    typedef!((vm) type_funcref_foo8 = mu_funcref(foo8_sig));
    constdef!((vm) <type_funcref_foo8> const_funcref_foo8 = Constant::FuncRef(vm.id_of("foo8")));

    // blk_entry
    consta!((vm, pass_2args_by_stack_v1) int64_0_local = int64_0);
    consta!((vm, pass_2args_by_stack_v1) int64_1_local = int64_1);
    consta!((vm, pass_2args_by_stack_v1) int64_2_local = int64_2);

    block!((vm, pass_2args_by_stack_v1) blk_entry);
    block!((vm, pass_2args_by_stack_v1) blk_main);
    inst!((vm, pass_2args_by_stack_v1) blk_entry_branch:
        BRANCH blk_main (
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,

            int64_1_local,
            int64_2_local
        )
    );

    define_block!((vm, pass_2args_by_stack_v1) blk_entry() {blk_entry_branch});

    // blk_main
    ssa!((vm, pass_2args_by_stack_v1) <int64> a0);
    ssa!((vm, pass_2args_by_stack_v1) <int64> a1);
    ssa!((vm, pass_2args_by_stack_v1) <int64> a2);
    ssa!((vm, pass_2args_by_stack_v1) <int64> a3);
    ssa!((vm, pass_2args_by_stack_v1) <int64> a4);
    ssa!((vm, pass_2args_by_stack_v1) <int64> a5);
    ssa!((vm, pass_2args_by_stack_v1) <int64> a6);
    ssa!((vm, pass_2args_by_stack_v1) <int64> a7);
    ssa!((vm, pass_2args_by_stack_v1) <int64> a8);
    ssa!((vm, pass_2args_by_stack_v1) <int64> a9);

    consta!((vm, pass_2args_by_stack_v1) const_funcref_foo8_local = const_funcref_foo8);
    ssa!((vm, pass_2args_by_stack_v1) <int64> retval);
    inst!((vm, pass_2args_by_stack_v1) blk_main_call:
        retval =
            EXPRCALL (CallConvention::Mu, is_abort: false)
            const_funcref_foo8_local (a0, a1, a2, a3, a4, a5, a6, a7, a8, a9)
    );

    inst!((vm, pass_2args_by_stack_v1) blk_main_ret:
        RET (retval)
    );

    define_block!((vm, pass_2args_by_stack_v1) blk_main(a0, a1, a2, a3, a4, a5, a6, a7, a8, a9) {
        blk_main_call,
        blk_main_ret
    });

    define_func_ver!((vm) pass_2args_by_stack_v1 (entry: blk_entry) {
        blk_entry,
        blk_main
    });

    emit_test!((vm)
        pass_2args_by_stack pass_2args_by_stack_test1 pass_2args_by_stack_test1_v1,
        RET Int,
        EQ,
        sig,
        RET int64(2u64),
    );

    vm
}

#[cfg(target_arch = "x86_64")]
fn pass_2args_by_stack() -> VM {
    let vm = VM::new_with_opts("init_mu --disable-inline");

    typedef!((vm) int64 = mu_int(64));

    constdef!((vm) <int64> int64_0 = Constant::Int(0));
    constdef!((vm) <int64> int64_1 = Constant::Int(1));
    constdef!((vm) <int64> int64_2 = Constant::Int(2));

    // foo8
    funcsig!((vm) foo8_sig = (int64, int64, int64, int64, int64, int64, int64, int64)
                                 -> (int64));
    funcdecl!((vm) <foo8_sig> foo8);
    funcdef!((vm) <foo8_sig> foo8 VERSION foo8_v1);

    // blk_entry
    ssa!((vm, foo8_v1) <int64> v0);
    ssa!((vm, foo8_v1) <int64> v1);
    ssa!((vm, foo8_v1) <int64> v2);
    ssa!((vm, foo8_v1) <int64> v3);
    ssa!((vm, foo8_v1) <int64> v4);
    ssa!((vm, foo8_v1) <int64> v5);
    ssa!((vm, foo8_v1) <int64> v6);
    ssa!((vm, foo8_v1) <int64> v7);
    block!((vm, foo8_v1) blk_entry);

    inst!((vm, foo8_v1) blk_entry_ret:
        RET (v7)
    );

    define_block!((vm, foo8_v1) blk_entry(v0, v1, v2, v3, v4, v5, v6, v7) {
        blk_entry_ret
    });

    define_func_ver!((vm) foo8_v1 (entry: blk_entry) {blk_entry});

    // pass_2args_by_stack
    funcsig!((vm) sig = () -> (int64));
    funcdecl!((vm) <sig> pass_2args_by_stack);
    funcdef!((vm) <sig> pass_2args_by_stack VERSION pass_2args_by_stack_v1);

    typedef!((vm) type_funcref_foo8 = mu_funcref(foo8_sig));
    constdef!((vm) <type_funcref_foo8> const_funcref_foo8 = Constant::FuncRef(vm.id_of("foo8")));

    // blk_entry
    consta!((vm, pass_2args_by_stack_v1) int64_0_local = int64_0);
    consta!((vm, pass_2args_by_stack_v1) int64_1_local = int64_1);
    consta!((vm, pass_2args_by_stack_v1) int64_2_local = int64_2);

    block!((vm, pass_2args_by_stack_v1) blk_entry);
    block!((vm, pass_2args_by_stack_v1) blk_main);
    inst!((vm, pass_2args_by_stack_v1) blk_entry_branch:
        BRANCH blk_main (
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,

            int64_1_local,
            int64_2_local
        )
    );

    define_block!((vm, pass_2args_by_stack_v1) blk_entry() {blk_entry_branch});

    // blk_main
    ssa!((vm, pass_2args_by_stack_v1) <int64> a0);
    ssa!((vm, pass_2args_by_stack_v1) <int64> a1);
    ssa!((vm, pass_2args_by_stack_v1) <int64> a2);
    ssa!((vm, pass_2args_by_stack_v1) <int64> a3);
    ssa!((vm, pass_2args_by_stack_v1) <int64> a4);
    ssa!((vm, pass_2args_by_stack_v1) <int64> a5);
    ssa!((vm, pass_2args_by_stack_v1) <int64> a6);
    ssa!((vm, pass_2args_by_stack_v1) <int64> a7);

    consta!((vm, pass_2args_by_stack_v1) const_funcref_foo8_local = const_funcref_foo8);
    ssa!((vm, pass_2args_by_stack_v1) <int64> retval);
    inst!((vm, pass_2args_by_stack_v1) blk_main_call:
        retval =
            EXPRCALL (CallConvention::Mu, is_abort: false)
            const_funcref_foo8_local (a0, a1, a2, a3, a4, a5, a6, a7)
    );

    inst!((vm, pass_2args_by_stack_v1) blk_main_ret:
        RET (retval)
    );

    define_block!((vm, pass_2args_by_stack_v1) blk_main(a0, a1, a2, a3, a4, a5, a6, a7) {
        blk_main_call,
        blk_main_ret
    });

    define_func_ver!((vm) pass_2args_by_stack_v1 (entry: blk_entry) {
        blk_entry,
        blk_main
    });

    emit_test!((vm)
        pass_2args_by_stack, pass_2args_by_stack_test1, pass_2args_by_stack_test1_v1,
        RET Int,
        EQ,
        sig,
        RET int64(2u64),
    );

    vm
}

#[test]
fn test_pass_2_int8_args_by_stack() {
    build_and_run_test!(pass_2_int8_args_by_stack AND foo8, pass_2_int8_args_by_stack_test1);
}

#[cfg(target_arch = "aarch64")]
fn pass_2_int8_args_by_stack() -> VM {
    let vm = VM::new_with_opts("init_mu --disable-inline");

    typedef!((vm) int64 = mu_int(64));
    typedef!((vm) int8  = mu_int(8));

    constdef!((vm) <int64> int64_0 = Constant::Int(0));
    constdef!((vm) <int64> int64_1 = Constant::Int(1));
    constdef!((vm) <int64> int64_2 = Constant::Int(2));
    constdef!((vm) <int8>  int8_1 = Constant::Int(1));
    constdef!((vm) <int8>  int8_2 = Constant::Int(2));

    // foo8
    funcsig!((vm) foo8_sig = (int64, int64, int64, int64, int64,
                                  int64, int64, int64, int8, int8) -> (int64));
    funcdecl!((vm) <foo8_sig> foo8);
    funcdef!((vm) <foo8_sig> foo8 VERSION foo8_v1);

    // blk_entry
    ssa!((vm, foo8_v1) <int64> v0);
    ssa!((vm, foo8_v1) <int64> v1);
    ssa!((vm, foo8_v1) <int64> v2);
    ssa!((vm, foo8_v1) <int64> v3);
    ssa!((vm, foo8_v1) <int64> v4);
    ssa!((vm, foo8_v1) <int64> v5);
    ssa!((vm, foo8_v1) <int8> v6);
    ssa!((vm, foo8_v1) <int8> v7);
    ssa!((vm, foo8_v1) <int8> v8);
    ssa!((vm, foo8_v1) <int8> v9);
    block!((vm, foo8_v1) blk_entry);

    ssa!((vm, foo8_v1) <int64> res);
    inst!((vm, foo8_v1) blk_entry_zext:
        res = CONVOP (ConvOp::ZEXT) <int8 int64> v9
    );

    inst!((vm, foo8_v1) blk_entry_ret:
        RET (res)
    );

    define_block!((vm, foo8_v1) blk_entry(v0, v1, v2, v3, v4, v5, v6, v7, v8, v9) {
        blk_entry_zext,
        blk_entry_ret
    });

    define_func_ver!((vm) foo8_v1 (entry: blk_entry) {blk_entry});

    // pass_2_int8_args_by_stack
    funcsig!((vm) sig = () -> (int64));
    funcdecl!((vm) <sig> pass_2_int8_args_by_stack);
    funcdef!((vm) <sig> pass_2_int8_args_by_stack VERSION pass_2_int8_args_by_stack_v1);

    typedef!((vm) type_funcref_foo8 = mu_funcref(foo8_sig));
    constdef!((vm) <type_funcref_foo8> const_funcref_foo8 = Constant::FuncRef(vm.id_of("foo8")));

    // blk_entry
    consta!((vm, pass_2_int8_args_by_stack_v1) int64_0_local = int64_0);
    consta!((vm, pass_2_int8_args_by_stack_v1) int8_1_local  = int8_1);
    consta!((vm, pass_2_int8_args_by_stack_v1) int8_2_local  = int8_2);

    block!((vm, pass_2_int8_args_by_stack_v1) blk_entry);
    block!((vm, pass_2_int8_args_by_stack_v1) blk_main);
    inst!((vm, pass_2_int8_args_by_stack_v1) blk_entry_branch:
        BRANCH blk_main (
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,

            int8_1_local,
            int8_2_local
        )
    );

    define_block!((vm, pass_2_int8_args_by_stack_v1) blk_entry() {blk_entry_branch});

    // blk_main
    ssa!((vm, pass_2_int8_args_by_stack_v1) <int64> a0);
    ssa!((vm, pass_2_int8_args_by_stack_v1) <int64> a1);
    ssa!((vm, pass_2_int8_args_by_stack_v1) <int64> a2);
    ssa!((vm, pass_2_int8_args_by_stack_v1) <int64> a3);
    ssa!((vm, pass_2_int8_args_by_stack_v1) <int64> a4);
    ssa!((vm, pass_2_int8_args_by_stack_v1) <int64> a5);
    ssa!((vm, pass_2_int8_args_by_stack_v1) <int64> a6);
    ssa!((vm, pass_2_int8_args_by_stack_v1) <int64> a7);
    ssa!((vm, pass_2_int8_args_by_stack_v1) <int8> a8);
    ssa!((vm, pass_2_int8_args_by_stack_v1) <int8> a9);

    consta!((vm, pass_2_int8_args_by_stack_v1) const_funcref_foo8_local = const_funcref_foo8);
    ssa!((vm, pass_2_int8_args_by_stack_v1) <int64> retval);
    inst!((vm, pass_2_int8_args_by_stack_v1) blk_main_call:
        retval =
            EXPRCALL (CallConvention::Mu, is_abort: false)
            const_funcref_foo8_local (a0, a1, a2, a3, a4, a5, a6, a7, a8, a9)
    );

    inst!((vm, pass_2_int8_args_by_stack_v1) blk_main_ret:
        RET (retval)
    );

    define_block!((vm, pass_2_int8_args_by_stack_v1)
        blk_main(a0, a1, a2, a3, a4, a5, a6, a7, a8, a9) {
        blk_main_call,
        blk_main_ret
    });

    define_func_ver!((vm) pass_2_int8_args_by_stack_v1 (entry: blk_entry) {
        blk_entry,
        blk_main
    });

    emit_test! ((vm)
        pass_2_int8_args_by_stack, pass_2_int8_args_by_stack_test1,
        pass_2_int8_args_by_stack_test1_v1,
        RET Int,
        EQ,
        sig,
        RET int64(2u64),
    );

    vm
}

#[cfg(target_arch = "x86_64")]
fn pass_2_int8_args_by_stack() -> VM {
    let vm = VM::new_with_opts("init_mu --disable-inline");

    typedef!((vm) int64 = mu_int(64));
    typedef!((vm) int8  = mu_int(8));

    constdef!((vm) <int64> int64_0 = Constant::Int(0));
    constdef!((vm) <int64> int64_1 = Constant::Int(1));
    constdef!((vm) <int64> int64_2 = Constant::Int(2));
    constdef!((vm) <int8>  int8_1 = Constant::Int(1));
    constdef!((vm) <int8>  int8_2 = Constant::Int(2));

    // foo8
    funcsig!((vm) foo8_sig = (int64, int64, int64, int64, int64, int64, int8, int8) -> (int64));
    funcdecl!((vm) <foo8_sig> foo8);
    funcdef!((vm) <foo8_sig> foo8 VERSION foo8_v1);

    // blk_entry
    ssa!((vm, foo8_v1) <int64> v0);
    ssa!((vm, foo8_v1) <int64> v1);
    ssa!((vm, foo8_v1) <int64> v2);
    ssa!((vm, foo8_v1) <int64> v3);
    ssa!((vm, foo8_v1) <int64> v4);
    ssa!((vm, foo8_v1) <int64> v5);
    ssa!((vm, foo8_v1) <int8> v6);
    ssa!((vm, foo8_v1) <int8> v7);
    block!((vm, foo8_v1) blk_entry);

    ssa!((vm, foo8_v1) <int64> res);
    inst!((vm, foo8_v1) blk_entry_zext:
        res = CONVOP (ConvOp::ZEXT) <int8 int64> v7
    );

    inst!((vm, foo8_v1) blk_entry_ret:
        RET (res)
    );

    define_block!((vm, foo8_v1) blk_entry(v0, v1, v2, v3, v4, v5, v6, v7) {
        blk_entry_zext,
        blk_entry_ret
    });

    define_func_ver!((vm) foo8_v1 (entry: blk_entry) {blk_entry});

    // pass_2_int8_args_by_stack
    funcsig!((vm) sig = () -> (int64));
    funcdecl!((vm) <sig> pass_2_int8_args_by_stack);
    funcdef!((vm) <sig> pass_2_int8_args_by_stack VERSION pass_2_int8_args_by_stack_v1);

    typedef!((vm) type_funcref_foo8 = mu_funcref(foo8_sig));
    constdef!((vm) <type_funcref_foo8> const_funcref_foo8 = Constant::FuncRef(vm.id_of("foo8")));

    // blk_entry
    consta!((vm, pass_2_int8_args_by_stack_v1) int64_0_local = int64_0);
    consta!((vm, pass_2_int8_args_by_stack_v1) int8_1_local  = int8_1);
    consta!((vm, pass_2_int8_args_by_stack_v1) int8_2_local  = int8_2);

    block!((vm, pass_2_int8_args_by_stack_v1) blk_entry);
    block!((vm, pass_2_int8_args_by_stack_v1) blk_main);
    inst!((vm, pass_2_int8_args_by_stack_v1) blk_entry_branch:
        BRANCH blk_main (
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,

            int8_1_local,
            int8_2_local
        )
    );

    define_block!((vm, pass_2_int8_args_by_stack_v1) blk_entry() {blk_entry_branch});

    // blk_main
    ssa!((vm, pass_2_int8_args_by_stack_v1) <int64> a0);
    ssa!((vm, pass_2_int8_args_by_stack_v1) <int64> a1);
    ssa!((vm, pass_2_int8_args_by_stack_v1) <int64> a2);
    ssa!((vm, pass_2_int8_args_by_stack_v1) <int64> a3);
    ssa!((vm, pass_2_int8_args_by_stack_v1) <int64> a4);
    ssa!((vm, pass_2_int8_args_by_stack_v1) <int64> a5);
    ssa!((vm, pass_2_int8_args_by_stack_v1) <int8> a6);
    ssa!((vm, pass_2_int8_args_by_stack_v1) <int8> a7);

    consta!((vm, pass_2_int8_args_by_stack_v1) const_funcref_foo8_local = const_funcref_foo8);
    ssa!((vm, pass_2_int8_args_by_stack_v1) <int64> retval);
    inst!((vm, pass_2_int8_args_by_stack_v1) blk_main_call:
        retval =
            EXPRCALL (CallConvention::Mu, is_abort: false)
            const_funcref_foo8_local (a0, a1, a2, a3, a4, a5, a6, a7)
    );

    inst!((vm, pass_2_int8_args_by_stack_v1) blk_main_ret:
        RET (retval)
    );

    define_block!((vm, pass_2_int8_args_by_stack_v1) blk_main(a0, a1, a2, a3, a4, a5, a6, a7) {
        blk_main_call,
        blk_main_ret
    });

    define_func_ver!((vm) pass_2_int8_args_by_stack_v1 (entry: blk_entry) {
        blk_entry,
        blk_main
    });

    emit_test! ((vm)
        pass_2_int8_args_by_stack, pass_2_int8_args_by_stack_test1, pass_2_int8_args_by_stack_test1_v1,
        RET Int,
        EQ,
        sig,
        RET int64(2u64),
    );

    vm
}

#[test]
fn test_pass_mixed_args_by_stack() {
    build_and_run_test!(pass_mixed_args_by_stack AND foo8, pass_mixed_args_by_stack_test1);
}

#[cfg(target_arch = "aarch64")]
fn pass_mixed_args_by_stack() -> VM {
    let vm = VM::new_with_opts("init_mu --disable-inline");

    typedef!((vm) int64 = mu_int(64));
    typedef!((vm) int8  = mu_int(8));

    constdef!((vm) <int64> int64_0 = Constant::Int(0));
    constdef!((vm) <int64> int64_1 = Constant::Int(1));
    constdef!((vm) <int64> int64_2 = Constant::Int(2));
    constdef!((vm) <int8>  int8_1 = Constant::Int(1));
    constdef!((vm) <int8>  int8_2 = Constant::Int(2));

    // foo8
    funcsig!((vm) foo8_sig = (int64, int64, int64, int64, int64,
                                  int64, int64, int64, int8, int64) -> (int64));
    funcdecl!((vm) <foo8_sig> foo8);
    funcdef!((vm) <foo8_sig> foo8 VERSION foo8_v1);

    // blk_entry
    ssa!((vm, foo8_v1) <int64> v0);
    ssa!((vm, foo8_v1) <int64> v1);
    ssa!((vm, foo8_v1) <int64> v2);
    ssa!((vm, foo8_v1) <int64> v3);
    ssa!((vm, foo8_v1) <int64> v4);
    ssa!((vm, foo8_v1) <int64> v5);
    ssa!((vm, foo8_v1) <int64> v6);
    ssa!((vm, foo8_v1) <int64> v7);
    ssa!((vm, foo8_v1) <int8> v8);
    ssa!((vm, foo8_v1) <int64> v9);
    block!((vm, foo8_v1) blk_entry);

    ssa!((vm, foo8_v1) <int64> res);

    inst!((vm, foo8_v1) blk_entry_ret:
        RET (v9)
    );

    define_block!((vm, foo8_v1) blk_entry(v0, v1, v2, v3, v4, v5, v6, v7, v8, v9) {
        blk_entry_ret
    });

    define_func_ver!((vm) foo8_v1 (entry: blk_entry) {blk_entry});

    // pass_mixed_args_by_stack
    funcsig!((vm) sig = () -> (int64));
    funcdecl!((vm) <sig> pass_mixed_args_by_stack);
    funcdef!((vm) <sig> pass_mixed_args_by_stack VERSION pass_mixed_args_by_stack_v1);

    typedef!((vm) type_funcref_foo8 = mu_funcref(foo8_sig));
    constdef!((vm) <type_funcref_foo8> const_funcref_foo8 = Constant::FuncRef(vm.id_of("foo8")));

    // blk_entry
    consta!((vm, pass_mixed_args_by_stack_v1) int64_0_local = int64_0);
    consta!((vm, pass_mixed_args_by_stack_v1) int64_2_local = int64_2);
    consta!((vm, pass_mixed_args_by_stack_v1) int8_1_local  = int8_1);

    block!((vm, pass_mixed_args_by_stack_v1) blk_entry);
    block!((vm, pass_mixed_args_by_stack_v1) blk_main);
    inst!((vm, pass_mixed_args_by_stack_v1) blk_entry_branch:
        BRANCH blk_main (
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,

            int8_1_local,
            int64_2_local
        )
    );

    define_block!((vm, pass_mixed_args_by_stack_v1) blk_entry() {blk_entry_branch});

    // blk_main
    ssa!((vm, pass_mixed_args_by_stack_v1) <int64> a0);
    ssa!((vm, pass_mixed_args_by_stack_v1) <int64> a1);
    ssa!((vm, pass_mixed_args_by_stack_v1) <int64> a2);
    ssa!((vm, pass_mixed_args_by_stack_v1) <int64> a3);
    ssa!((vm, pass_mixed_args_by_stack_v1) <int64> a4);
    ssa!((vm, pass_mixed_args_by_stack_v1) <int64> a5);
    ssa!((vm, pass_mixed_args_by_stack_v1) <int64> a6);
    ssa!((vm, pass_mixed_args_by_stack_v1) <int64> a7);
    ssa!((vm, pass_mixed_args_by_stack_v1) <int8> a8);
    ssa!((vm, pass_mixed_args_by_stack_v1) <int64> a9);

    consta!((vm, pass_mixed_args_by_stack_v1) const_funcref_foo8_local = const_funcref_foo8);
    ssa!((vm, pass_mixed_args_by_stack_v1) <int64> retval);
    inst!((vm, pass_mixed_args_by_stack_v1) blk_main_call:
        retval =
            EXPRCALL (CallConvention::Mu, is_abort: false)
            const_funcref_foo8_local (a0, a1, a2, a3, a4, a5, a6, a7, a8, a9)
    );

    inst!((vm, pass_mixed_args_by_stack_v1) blk_main_ret:
        RET (retval)
    );

    define_block!((vm, pass_mixed_args_by_stack_v1)
        blk_main(a0, a1, a2, a3, a4, a5, a6, a7, a8, a9) {
        blk_main_call,
        blk_main_ret
    });

    define_func_ver!((vm) pass_mixed_args_by_stack_v1 (entry: blk_entry) {
        blk_entry,
        blk_main
    });

    emit_test!((vm)
        pass_mixed_args_by_stack pass_mixed_args_by_stack_test1 pass_mixed_args_by_stack_test1_v1,
        RET Int,
        EQ,
        sig,
        RET int64(2u64),
    );

    vm
}

#[cfg(target_arch = "x86_64")]
fn pass_mixed_args_by_stack() -> VM {
    let vm = VM::new_with_opts("init_mu --disable-inline");

    typedef!((vm) int64 = mu_int(64));
    typedef!((vm) int8  = mu_int(8));

    constdef!((vm) <int64> int64_0 = Constant::Int(0));
    constdef!((vm) <int64> int64_1 = Constant::Int(1));
    constdef!((vm) <int64> int64_2 = Constant::Int(2));
    constdef!((vm) <int8>  int8_1 = Constant::Int(1));
    constdef!((vm) <int8>  int8_2 = Constant::Int(2));

    // foo8
    funcsig!((vm) foo8_sig = (int64, int64, int64, int64, int64, int64, int8, int64)
                                 -> (int64));
    funcdecl!((vm) <foo8_sig> foo8);
    funcdef!((vm) <foo8_sig> foo8 VERSION foo8_v1);

    // blk_entry
    ssa!((vm, foo8_v1) <int64> v0);
    ssa!((vm, foo8_v1) <int64> v1);
    ssa!((vm, foo8_v1) <int64> v2);
    ssa!((vm, foo8_v1) <int64> v3);
    ssa!((vm, foo8_v1) <int64> v4);
    ssa!((vm, foo8_v1) <int64> v5);
    ssa!((vm, foo8_v1) <int8> v6);
    ssa!((vm, foo8_v1) <int64> v7);
    block!((vm, foo8_v1) blk_entry);

    ssa!((vm, foo8_v1) <int64> res);

    inst!((vm, foo8_v1) blk_entry_ret:
        RET (v7)
    );

    define_block!((vm, foo8_v1) blk_entry(v0, v1, v2, v3, v4, v5, v6, v7) {
        blk_entry_ret
    });

    define_func_ver!((vm) foo8_v1 (entry: blk_entry) {blk_entry});

    // pass_mixed_args_by_stack
    funcsig!((vm) sig = () -> (int64));
    funcdecl!((vm) <sig> pass_mixed_args_by_stack);
    funcdef!((vm) <sig> pass_mixed_args_by_stack VERSION pass_mixed_args_by_stack_v1);

    typedef!((vm) type_funcref_foo8 = mu_funcref(foo8_sig));
    constdef!((vm) <type_funcref_foo8> const_funcref_foo8 = Constant::FuncRef(vm.id_of("foo8")));

    // blk_entry
    consta!((vm, pass_mixed_args_by_stack_v1) int64_0_local = int64_0);
    consta!((vm, pass_mixed_args_by_stack_v1) int64_2_local = int64_2);
    consta!((vm, pass_mixed_args_by_stack_v1) int8_1_local  = int8_1);

    block!((vm, pass_mixed_args_by_stack_v1) blk_entry);
    block!((vm, pass_mixed_args_by_stack_v1) blk_main);
    inst!((vm, pass_mixed_args_by_stack_v1) blk_entry_branch:
        BRANCH blk_main (
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,
            int64_0_local,

            int8_1_local,
            int64_2_local
        )
    );

    define_block!((vm, pass_mixed_args_by_stack_v1) blk_entry() {blk_entry_branch});

    // blk_main
    ssa!((vm, pass_mixed_args_by_stack_v1) <int64> a0);
    ssa!((vm, pass_mixed_args_by_stack_v1) <int64> a1);
    ssa!((vm, pass_mixed_args_by_stack_v1) <int64> a2);
    ssa!((vm, pass_mixed_args_by_stack_v1) <int64> a3);
    ssa!((vm, pass_mixed_args_by_stack_v1) <int64> a4);
    ssa!((vm, pass_mixed_args_by_stack_v1) <int64> a5);
    ssa!((vm, pass_mixed_args_by_stack_v1) <int8> a6);
    ssa!((vm, pass_mixed_args_by_stack_v1) <int64> a7);

    consta!((vm, pass_mixed_args_by_stack_v1) const_funcref_foo8_local = const_funcref_foo8);
    ssa!((vm, pass_mixed_args_by_stack_v1) <int64> retval);
    inst!((vm, pass_mixed_args_by_stack_v1) blk_main_call:
        retval =
            EXPRCALL (CallConvention::Mu, is_abort: false)
            const_funcref_foo8_local (a0, a1, a2, a3, a4, a5, a6, a7)
    );

    inst!((vm, pass_mixed_args_by_stack_v1) blk_main_ret:
        RET (retval)
    );

    define_block!((vm, pass_mixed_args_by_stack_v1) blk_main(a0, a1, a2, a3, a4, a5, a6, a7) {
        blk_main_call,
        blk_main_ret
    });

    define_func_ver!((vm) pass_mixed_args_by_stack_v1 (entry: blk_entry) {
        blk_entry,
        blk_main
    });

    emit_test!((vm)
        pass_mixed_args_by_stack, pass_mixed_args_by_stack_test1, pass_mixed_args_by_stack_test1_v1,
        RET Int,
        EQ,
        sig,
        RET int64(2u64),
    );

    vm
}

#[test]
fn test_pass_fp_arg() {
    build_and_run_test!(pass_fp_arg AND foo, pass_fp_arg_test1);
    build_and_run_test!(pass_fp_arg AND foo, pass_fp_arg_test2);
}

fn pass_fp_arg() -> VM {
    let vm = VM::new_with_opts("init_mu --disable-inline");

    typedef!((vm) double = mu_double);

    // foo
    funcsig!((vm) foo_sig = (double) -> (double));
    funcdecl!((vm) <foo_sig> foo);
    funcdef!((vm) <foo_sig> foo VERSION foo_v1);

    // blk_entry
    ssa!((vm, foo_v1) <double> x);
    block!((vm, foo_v1) blk_entry);

    inst!((vm, foo_v1) blk_entry_ret:
        RET (x)
    );

    define_block!((vm, foo_v1) blk_entry(x) {
        blk_entry_ret
    });

    define_func_ver!((vm) foo_v1 (entry: blk_entry) {
        blk_entry
    });

    // pass_fp_arg
    funcsig!((vm) sig = (double) -> (double));
    funcdecl!((vm) <sig> pass_fp_arg);
    funcdef!((vm) <sig> pass_fp_arg VERSION pass_fp_arg_v1);

    typedef!((vm) type_funcref_foo = mu_funcref(foo_sig));
    constdef!((vm) <type_funcref_foo> const_funcref_foo = Constant::FuncRef(vm.id_of("foo")));

    // blk_entry
    ssa!((vm, pass_fp_arg_v1) <double> x);
    block!((vm, pass_fp_arg_v1) blk_entry);

    ssa!((vm, pass_fp_arg_v1) <double> res);
    consta!((vm, pass_fp_arg_v1) const_funcref_foo_local = const_funcref_foo);
    inst!((vm, pass_fp_arg_v1) blk_entry_call:
        res = EXPRCALL (CallConvention::Mu, is_abort: false) const_funcref_foo_local (x)
    );

    inst!((vm, pass_fp_arg_v1) blk_entry_ret:
        RET (res)
    );

    define_block!((vm, pass_fp_arg_v1) blk_entry(x) {
        blk_entry_call,
        blk_entry_ret
    });

    define_func_ver!((vm) pass_fp_arg_v1 (entry: blk_entry) {
        blk_entry
    });

    emit_test!((vm)
        pass_fp_arg, pass_fp_arg_test1, pass_fp_arg_test1_v1,
        Double RET Double,
        FOEQ,
        sig,
        double(0f64) RET double(0f64),
    );
    emit_test!((vm)
        pass_fp_arg, pass_fp_arg_test2, pass_fp_arg_test2_v1,
        Double RET Double,
        FOEQ,
        sig,
        double(3.14f64) RET double(3.14f64),
    );

    vm
}

#[test]
fn test_store_funcref() {
    build_and_run_test!(store_funcref AND foo, current_tester);
}

fn store_funcref() -> VM {
    let vm = VM::new();

    typedef!((vm) int64 = mu_int(64));
    constdef!((vm) <int64> int64_1 = Constant::Int(1));

    // foo
    funcsig!((vm) foo_sig = () -> (int64));
    funcdecl!((vm) <foo_sig> foo);
    funcdef!((vm) <foo_sig> foo VERSION foo_v1);

    block!((vm, foo_v1) blk_entry);
    consta!((vm, foo_v1) int64_1_local = int64_1);
    inst!((vm, foo_v1) blk_entry_ret:
        RET (int64_1_local)
    );

    define_block!((vm, foo_v1) blk_entry() {
        blk_entry_ret
    });

    define_func_ver!((vm) foo_v1(entry: blk_entry) {
        blk_entry
    });

    // store_funcref
    typedef!((vm) type_funcref_foo = mu_funcref(foo_sig));
    constdef!((vm) <type_funcref_foo> const_funcref_foo = Constant::FuncRef(vm.id_of("foo")));

    typedef!((vm) uptr_funcref_foo = mu_uptr(type_funcref_foo));

    funcsig!((vm) store_funcref_sig = (uptr_funcref_foo) -> (int64));
    funcdecl!((vm) <store_funcref_sig> store_funcref);
    funcdef!((vm) <store_funcref_sig> store_funcref VERSION store_funcref_v1);

    // blk_entry(loc):
    block!((vm, store_funcref_v1) blk_entry);
    ssa!((vm, store_funcref_v1) <uptr_funcref_foo> loc);

    // STORE funcref_foo loc
    consta!((vm, store_funcref_v1) const_funcref_foo_local = const_funcref_foo);
    inst!((vm, store_funcref_v1) blk_entry_store:
        STORE loc const_funcref_foo_local (is_ptr: true, order: MemoryOrder::Relaxed)
    );

    // f = LOAD loc
    ssa!((vm, store_funcref_v1) <type_funcref_foo> f);
    inst!((vm, store_funcref_v1) blk_entry_load:
        f = LOAD loc (is_ptr: true, order: MemoryOrder::Relaxed)
    );

    // res = EXPRCALL f ()
    ssa!((vm, store_funcref_v1) <int64> res);
    inst!((vm, store_funcref_v1) blk_entry_call:
        res = EXPRCALL (CallConvention::Mu, is_abort: false) f ()
    );

    // RET res
    inst!((vm, store_funcref_v1) blk_entry_ret:
        RET (res)
    );

    define_block!((vm, store_funcref_v1) blk_entry(loc) {
        blk_entry_store,
        blk_entry_load,
        blk_entry_call,
        blk_entry_ret
    });

    define_func_ver!((vm) store_funcref_v1 (entry: blk_entry) {
        blk_entry
    });