// File: /workspace/github_c_makefile_star2_O0/martincameron[P]towntalk/towntalk.c
// Function: evaluate_function_expression
static enum result evaluate_function_expression( struct expression *this,
	struct variables *vars, struct variable *result ) {
	struct expression *parameter = this->parameters;
	struct environment *env = vars->func->env;
	struct variable var = { 0, NULL };
	struct function *func;
	struct element *elem, key = { { 1, "$function", 9, ELEMENT }, NULL, NULL, 0 };
	char message[ 128 ] = "";
	enum result ret = evaluate_element( parameter, vars, &var, 0 );
	if( ret ) {
		elem = ( struct element * ) var.string_value;
		if( ( size_t ) &ret < env->stack_limit ) {
			ret = throw_stack_overflow( vars, this );
		} else {
			key.line = this->line;
			validate_syntax( "({0", elem, &key, env, message );
			if( message[ 0 ] == 0 ) {
				func = parse_function( elem, NULL, vars->func, message );
				if( func ) {
					if( parameter->evaluate != evaluate_string_literal_expression ) {
						unref_string( func->file );
						func->file = &func->str;
					}
					if( parse_function_body( func, vars, message ) ) {
						result->string_value = &func->str;
					} else {
						unref_string( &func->str );
						ret = throw( vars, this, 0, message );
					}
				} else {
					ret = throw( vars, this, 0, message );
				}
			} else {
				ret = throw( vars, this, 0, message );
			}
		}
		dispose_temporary( &var );
	}
	return ret;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x110, %rsp            # imm = 0x110
movq %rdi, -0x8(%rbp)
movq %rsi, -0x10(%rbp)
movq %rdx, -0x18(%rbp)
movq -0x8(%rbp), %rax
movq 0x8(%rax), %rax
movq %rax, -0x20(%rbp)
movq -0x10(%rbp), %rax
movq 0x18(%rax), %rax
movq 0x40(%rax), %rax
movq %rax, -0x28(%rbp)
leaq -0x38(%rbp), %rdi
xorl %esi, %esi
movl $0x10, %edx
callq 0x30f0
leaq -0x78(%rbp), %rdi
leaq 0xd972(%rip), %rsi      # 0x20d80
movl $0x30, %edx
callq 0x3170
leaq -0x100(%rbp), %rdi
xorl %esi, %esi
movl $0x80, %edx
callq 0x30f0
movq -0x20(%rbp), %rdi
movq -0x10(%rbp), %rsi
leaq -0x38(%rbp), %rdx
xorl %ecx, %ecx
callq 0x5050
movl %eax, -0x104(%rbp)
cmpl $0x0, -0x104(%rbp)
je 0x1359d
movq -0x30(%rbp), %rax
movq %rax, -0x48(%rbp)
leaq -0x104(%rbp), %rax
movq -0x28(%rbp), %rcx
cmpq (%rcx), %rax
jae 0x13481
movq -0x10(%rbp), %rdi
movq -0x8(%rbp), %rsi
callq 0x5f50
movl %eax, -0x104(%rbp)
jmp 0x13594
movq -0x8(%rbp), %rax
movl (%rax), %eax
movl %eax, -0x50(%rbp)
movq -0x48(%rbp), %rsi
movq -0x28(%rbp), %rcx
leaq -0x100(%rbp), %r8
leaq 0x9157(%rip), %rdi      # 0x1c5f7
leaq -0x78(%rbp), %rdx
callq 0x8430
movsbl -0x100(%rbp), %eax
cmpl $0x0, %eax
jne 0x13576
movq -0x48(%rbp), %rdi
movq -0x10(%rbp), %rax
movq 0x18(%rax), %rdx
leaq -0x100(%rbp), %rcx
xorl %eax, %eax
movl %eax, %esi
callq 0x9280
movq %rax, -0x40(%rbp)
cmpq $0x0, -0x40(%rbp)
je 0x13558
movq -0x20(%rbp), %rax
leaq -0xf73b(%rip), %rcx     # 0x3db0
cmpq %rcx, 0x18(%rax)
je 0x1350a
movq -0x40(%rbp), %rax
movq 0x28(%rax), %rdi
callq 0x3c20
movq -0x40(%rbp), %rcx
movq -0x40(%rbp), %rax
movq %rcx, 0x28(%rax)
movq -0x40(%rbp), %rdi
movq -0x10(%rbp), %rsi
leaq -0x100(%rbp), %rdx
callq 0x9700
cmpl $0x0, %eax
je 0x13531
movq -0x40(%rbp), %rcx
movq -0x18(%rbp), %rax
movq %rcx, 0x8(%rax)
jmp 0x13556
movq -0x40(%rbp), %rdi
callq 0x3c20
movq -0x10(%rbp), %rdi
movq -0x8(%rbp), %rsi
leaq -0x100(%rbp), %rcx
xorl %edx, %edx
callq 0x4330
movl %eax, -0x104(%rbp)
jmp 0x13574
movq -0x10(%rbp), %rdi
movq -0x8(%rbp), %rsi
leaq -0x100(%rbp), %rcx
xorl %edx, %edx
callq 0x4330
movl %eax, -0x104(%rbp)
jmp 0x13592
movq -0x10(%rbp), %rdi
movq -0x8(%rbp), %rsi
leaq -0x100(%rbp), %rcx
xorl %edx, %edx
callq 0x4330
movl %eax, -0x104(%rbp)
jmp 0x13594
leaq -0x38(%rbp), %rdi
callq 0x3ce0
movl -0x104(%rbp), %eax
addq $0x110, %rsp            # imm = 0x110
popq %rbp
retq
nopl (%rax)