// File: /workspace/github_c_makefile_star2_O1/Liutos[P]Eloquent/interp.c
// Function: interp_execute_function
static value_kind_t interp_execute_function(interp_t *interp, value_t *f, ast_t *args, value_t **value)
{
    int arity = VALUE_FUNC_ARITY(f);
    int nargs = ast_cons_length(args);
    if (nargs != arity) {
        if (value != NULL)
            *value = value_error_newf("Line %d, column %d: Incorrect number of arguments. Expecting %d but get %d", args->line, args->column, arity, nargs);
        return VALUE_ERROR;
    }
    if (VALUE_FUNC_ISBIF(f))
        return interp_execute_bif(interp, f, args, value);
    else
        return interp_execute_udf(interp, f, args, value);
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x28, %rsp
movq %rcx, %r14
movq %rdx, %r13
movq %rsi, %r15
movq %rdi, %rbp
movl 0x10(%rsi), %ebx
movq %rdx, %rdi
callq 0x5b0e
cmpl %ebx, %eax
jne 0x40fa
movq %r14, 0x8(%rsp)
cmpl $0x0, 0x8(%r15)
movq %r15, 0x18(%rsp)
je 0x412b
callq 0x6282
movq %rax, (%rsp)
leaq 0x10(%rsp), %r12
xorl %r14d, %r14d
movl (%r13), %r15d
cmpl $0x2, %r15d
je 0x40b1
movq 0x10(%r13), %rsi
movq $0x0, 0x10(%rsp)
movq %rbp, %rdi
movq %r12, %rdx
callq 0x39cb
movl %eax, %ebx
movq 0x10(%rsp), %rsi
cmpl $0x2, %eax
jne 0x4097
movq %rsi, %r14
jmp 0x40a4
movq (%rsp), %rdi
callq 0x62ba
movq 0x18(%r13), %r13
cmpl $0x2, %ebx
jne 0x4064
movq $0x0, (%rsp)
cmpl $0x2, %r15d
movq 0x18(%rsp), %r15
jne 0x41c3
movl 0x10(%r15), %esi
cmpl $0x2, %esi
je 0x4323
cmpl $0x1, %esi
je 0x42f6
testl %esi, %esi
jne 0x4399
movq %rbp, %rdi
movq %r15, %rsi
xorl %edx, %edx
xorl %eax, %eax
callq 0x43bb
movq 0x20(%rbp), %rdi
callq *0x20(%r15)
jmp 0x4368
movl $0x2, %ebp
testq %r14, %r14
je 0x4388
movl 0x4(%r13), %esi
movl 0x8(%r13), %edx
leaq 0x33c4(%rip), %rdi      # 0x74db
movl %ebx, %ecx
movl %eax, %r8d
xorl %eax, %eax
callq 0x2596
movq %rax, (%r14)
jmp 0x4388
movq 0x18(%r15), %rdi
callq 0x55f7
movq %rax, (%rsp)
movq 0x20(%r15), %r12
movq $0x0, 0x20(%rsp)
movl (%r12), %r14d
cmpl $0x1, %r14d
jne 0x41a4
movq 0x10(%r12), %r15
movq 0x10(%r13), %rsi
movq $0x0, 0x10(%rsp)
movq %rbp, %rdi
leaq 0x10(%rsp), %rdx
callq 0x39cb
movl %eax, %ebx
cmpl $0x2, %eax
jne 0x4181
movq 0x10(%rsp), %rax
movq %rax, 0x20(%rsp)
jmp 0x419f
movq 0x10(%r15), %rax
movq (%rax), %rsi
movq 0x10(%rsp), %rdx
movq (%rsp), %rdi
callq 0x567a
movq 0x18(%r12), %r12
movq 0x18(%r13), %r13
cmpl $0x2, %ebx
jne 0x4145
cmpl $0x1, %r14d
jne 0x41d8
movq 0x8(%rsp), %rax
testq %rax, %rax
movq 0x20(%rsp), %rcx
je 0x41bc
movq %rcx, (%rax)
movl (%rcx), %ebp
jmp 0x4388
movq 0x8(%rsp), %rax
testq %rax, %rax
je 0x41d0
movq %r14, (%rax)
movl (%r14), %ebp
jmp 0x4388
movq 0x10(%rbp), %rdi
movq 0x18(%rsp), %r12
movq %r12, %rsi
xorl %edx, %edx
callq 0x5e20
testq %rax, %rax
movq 0x8(%rsp), %r15
je 0x42a3
movq %rax, %rbx
movq %rbp, %rdi
callq 0x45dc
movq 0x6dc5(%rip), %r14      # 0xafd0
movq (%r14), %rdi
movl (%rbp), %edx
leaq 0x333a(%rip), %rsi      # 0x7552
xorl %eax, %eax
callq 0x20d0
movq (%r14), %rsi
movq (%rbx), %rdi
callq 0x2070
movq (%r14), %rsi
movl $0x28, %edi
callq 0x20a0
movq 0x20(%r12), %rbx
cmpl $0x2, (%rbx)
je 0x428a
leaq 0x3021(%rip), %r13      # 0x7269
movq 0x10(%rbx), %rax
movq 0x10(%rax), %rax
movq (%rax), %rsi
movq (%rsp), %rdi
callq 0x57f3
movq (%r14), %rsi
movq %rax, %rdi
callq 0x2755
movq 0x18(%rbx), %rbx
cmpl $0x2, (%rbx)
je 0x4285
movq (%r14), %rcx
movl $0x2, %esi
movl $0x1, %edx
movq %r13, %rdi
callq 0x2140
cmpl $0x2, (%rbx)
jne 0x4248
movq (%r14), %rcx
leaq 0x2fd8(%rip), %rdi      # 0x726c
movl $0x2, %esi
movl $0x1, %edx
callq 0x2140
incl (%rbp)
movq 0x18(%rbp), %rbx
movq 0x20(%rbp), %rdi
movq (%rsp), %rax
movq %rax, 0x18(%rbp)
callq 0x55f7
movq %rax, 0x20(%rbp)
movq 0x28(%r12), %rsi
movq %rbp, %rdi
movq %r15, %rdx
callq 0x3c7f
movq %rbp, %rdi
movl %eax, %ebp
decl (%rdi)
movq %rbx, 0x18(%rdi)
movq 0x20(%rdi), %rax
movq 0x18(%rax), %rax
movq %rax, 0x20(%rdi)
movq (%r15), %rdx
movq %r12, %rsi
callq 0x4540
jmp 0x4388
movq (%rsp), %rdi
xorl %esi, %esi
callq 0x637e
movq %rax, %rbx
movq %rbp, %rdi
movq %r15, %rsi
movq %rax, %rdx
xorl %ecx, %ecx
xorl %eax, %eax
callq 0x43bb
movq 0x20(%rbp), %rdi
movq %rbx, %rsi
callq *0x20(%r15)
jmp 0x4368
movq (%rsp), %r14
movq %r14, %rdi
xorl %esi, %esi
callq 0x637e
movq %rax, %rbx
movl $0x1, %esi
movq %r14, %rdi
callq 0x637e
movq %rax, %r12
movq %rbp, %rdi
movq %r15, %rsi
movq %rbx, %rdx
movq %rax, %rcx
xorl %r8d, %r8d
xorl %eax, %eax
callq 0x43bb
movq 0x20(%rbp), %rdi
movq %rbx, %rsi
movq %r12, %rdx
callq *0x20(%r15)
movq %rax, %rbx
movq 0x8(%rsp), %r14
movq %rbp, %rdi
movq %r15, %rsi
movq %rax, %rdx
callq 0x4540
testq %r14, %r14
je 0x4386
movq %rbx, (%r14)
movl (%rbx), %ebp
movl %ebp, %eax
addq $0x28, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
movl $0x2, %ebp
movq 0x8(%rsp), %rbx
testq %rbx, %rbx
je 0x4388
leaq 0x3177(%rip), %rdi      # 0x7526
xorl %eax, %eax
callq 0x2596
movq %rax, (%rbx)
jmp 0x4388