// File: tsoding[P]wcc/src/./wcc_wat_compiler.cpp
// Function: Wat_Compiler::compile_func_body(Block*)
S_Expr *Wat_Compiler::compile_func_body(Block *block)
{
    S_Expr *local_var_def_section = nullptr;
    S_Expr *local_var_def_init = nullptr;

    while (block && block->statement.kind == Statement_Kind::Local_Var_Def) {
        auto var_ident = wat_ident(block->statement.local_var_def.def.name);

        local_var_def_section = append(
            local_var_def_section,
            list(list(atom("local"_sv),
                      var_ident,
                      wat_name_of_type(block->statement.local_var_def.def.type))));

        local_var_def_init = append(
            local_var_def_init,
            list(list(atom("set_local"_sv),
                      var_ident,
                      compile_expression(block->statement.local_var_def.value))));

        block = block->next;
    }

    return append(local_var_def_section, local_var_def_init, compile_block(block));
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0xb0, %rsp
movq %rdi, -0x8(%rbp)
movq %rsi, -0x10(%rbp)
movq -0x8(%rbp), %rax
movq %rax, -0x60(%rbp)
movq $0x0, -0x18(%rbp)
movq $0x0, -0x20(%rbp)
xorl %eax, %eax
cmpq $0x0, -0x10(%rbp)
movb %al, -0x61(%rbp)
je 0x9024
movq -0x10(%rbp), %rax
cmpl $0x0, (%rax)
sete %al
movb %al, -0x61(%rbp)
movb -0x61(%rbp), %al
testb $0x1, %al
jne 0x9030
jmp 0x9181
movq -0x60(%rbp), %rdi
movq -0x10(%rbp), %rax
movq 0x10(%rax), %rcx
movq %rcx, -0x38(%rbp)
movq 0x18(%rax), %rax
movq %rax, -0x30(%rbp)
movq -0x38(%rbp), %rsi
movq -0x30(%rbp), %rdx
callq 0x6920
movq %rax, -0x28(%rbp)
movq -0x18(%rbp), %rax
movq %rax, -0x88(%rbp)
leaq 0x5f0e(%rip), %rdi      # 0xef79
movl $0x5, %esi
callq 0x12e0
movq -0x60(%rbp), %rdi
movq %rax, -0x48(%rbp)
movq %rdx, -0x40(%rbp)
movq -0x48(%rbp), %rsi
movq -0x40(%rbp), %rdx
callq 0xb5c0
movq -0x60(%rbp), %rdi
movq %rax, -0x98(%rbp)
movq -0x28(%rbp), %rax
movq %rax, -0x90(%rbp)
movq -0x10(%rbp), %rax
movl 0x20(%rax), %esi
callq 0x69a0
movq -0x98(%rbp), %rsi
movq -0x90(%rbp), %rdx
movq -0x60(%rbp), %rdi
movq %rax, %rcx
callq 0xb6d0
movq -0x60(%rbp), %rdi
movq %rax, %rsi
callq 0xba10
movq -0x88(%rbp), %rsi
movq -0x60(%rbp), %rdi
movq %rax, %rdx
callq 0xb8f0
movq %rax, -0x18(%rbp)
movq -0x20(%rbp), %rax
movq %rax, -0x70(%rbp)
leaq 0x6bce(%rip), %rdi      # 0xfcca
movl $0x9, %esi
callq 0x12e0
movq -0x60(%rbp), %rdi
movq %rax, -0x58(%rbp)
movq %rdx, -0x50(%rbp)
movq -0x58(%rbp), %rsi
movq -0x50(%rbp), %rdx
callq 0xb5c0
movq -0x60(%rbp), %rdi
movq %rax, -0x80(%rbp)
movq -0x28(%rbp), %rax
movq %rax, -0x78(%rbp)
movq -0x10(%rbp), %rax
movq 0x28(%rax), %rsi
callq 0x70d0
movq -0x80(%rbp), %rsi
movq -0x78(%rbp), %rdx
movq -0x60(%rbp), %rdi
movq %rax, %rcx
callq 0xb6d0
movq -0x60(%rbp), %rdi
movq %rax, %rsi
callq 0xba10
movq -0x60(%rbp), %rdi
movq -0x70(%rbp), %rsi
movq %rax, %rdx
callq 0xb8f0
movq %rax, -0x20(%rbp)
movq -0x10(%rbp), %rax
movq 0x30(%rax), %rax
movq %rax, -0x10(%rbp)
jmp 0x900b
movq -0x60(%rbp), %rdi
movq -0x18(%rbp), %rax
movq %rax, -0xa8(%rbp)
movq -0x20(%rbp), %rax
movq %rax, -0xa0(%rbp)
movq -0x10(%rbp), %rsi
callq 0x8f30
movq -0x60(%rbp), %rdi
movq -0xa8(%rbp), %rsi
movq -0xa0(%rbp), %rdx
movq %rax, %rcx
callq 0xbab0
addq $0xb0, %rsp
popq %rbp
retq
nopw (%rax,%rax)