// File: /workspace/github_c_makefile_star2_O1/martincameron[P]towntalk/towntalk.c
// Function: parse_if_statement
static struct element* parse_if_statement( struct element *elem,
	struct function *func, struct variables *vars, struct statement *prev, char *message ) {
	struct expression expr;
	struct element *next = elem->next;
	struct statement block = { 0 }, *stmt = calloc( 1, sizeof( struct block_statement ) );
	if( stmt ) {
		stmt->dispose = dispose_block_statement;
		prev->next = stmt;
		expr.next = NULL;
		next = parse_expression( next, func, vars, &expr, message );
		if( expr.next ) {
			stmt->source = expr.next;
			stmt->execute = execute_if_statement;
			if( expr.next->evaluate == evaluate_arithmetic_expression
				&& strchr( "!<(=)>", expr.next->index ) && expr.next->parameters->evaluate == evaluate_local ) {
					if( expr.next->parameters->next->evaluate == evaluate_local ) {
						stmt->local = expr.next->parameters->index;
						( ( struct block_statement * ) stmt )->rhs = expr.next->parameters->next->index;
						( ( struct block_statement * ) stmt )->oper = expr.next->index;
						stmt->execute = execute_if_local_statement;
					} else if( expr.next->parameters->next->evaluate == evaluate_number_literal_expression ) {
						stmt->local = expr.next->parameters->index;
						( ( struct block_statement * ) stmt )->num = ( ( struct value_expression * ) expr.next->parameters->next )->num;
						( ( struct block_statement * ) stmt )->oper = expr.next->index;
						stmt->execute = execute_if_const_statement;
					}
			} else if( expr.next->evaluate == evaluate_local ) {
				stmt->local = expr.next->index;
				stmt->execute = execute_if_const_statement;
			}
			if( next->child ) {
				parse_keywords_indexed( func->env->statements_index, next->child, func, vars, &block, message );
				( ( struct block_statement * ) stmt )->if_block = block.next;
			}
			if( message[ 0 ] == 0 ) {
				next = next->next;
				if( next && is_keyword( next->str.string, "else" ) ) {
					if( next->next && ( next->next->str.string[ 0 ] == '{' || is_keyword( next->next->str.string, "if" ) ) ) {
						next = next->next;
						block.next = NULL;
						if( next->child ) {
							parse_keywords_indexed( func->env->statements_index, next->child, func, vars, &block, message );
							if( message[ 0 ] == 0 ) {
								next = next->next;
							}
						} else {
							validate_syntax( "x{", next->next, next, func->env, message );
							if( message[ 0 ] == 0 ) {
								next = parse_if_statement( next, func, vars, &block, message );
							}
						}
						( ( struct block_statement * ) stmt )->else_block = block.next;
					} else {
						sprintf( message, "Expected '{' or 'if' after 'else' on line %d.", next->line );
					}
				}
			}
		}
	} else {
		strcpy( message, OUT_OF_MEMORY );
	}
	return next;
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x58, %rsp
movq %r8, %rbx
movq %rcx, %rbp
movq %rdx, %r15
movq %rsi, %r12
movq 0x20(%rdi), %r13
xorps %xmm0, %xmm0
movaps %xmm0, 0x20(%rsp)
movaps %xmm0, 0x10(%rsp)
movq $0x0, 0x30(%rsp)
movl $0x1, %edi
movl $0x48, %esi
callq 0x3130
testq %rax, %rax
je 0xa9f1
movq %rax, %r14
leaq -0x64e8(%rip), %rax     # 0x43b8
movq %rax, 0x18(%r14)
movq %r14, 0x20(%rbp)
leaq 0x38(%rsp), %rbp
movq $0x0, 0x10(%rbp)
movq %r13, %rdi
movq %r12, %rsi
movq %r15, %rdx
movq %rbp, %rcx
movq %rbx, %r8
callq 0x4f9b
movq %rax, %r13
movq 0x10(%rbp), %rbp
testq %rbp, %rbp
je 0xaa00
movq %r12, 0x8(%rsp)
movq %r15, %r12
movq %rbp, 0x8(%r14)
leaq 0xcd0(%rip), %rax       # 0xb5bc
movq %rax, 0x10(%r14)
movq 0x18(%rbp), %r15
leaq -0x5d51(%rip), %rax     # 0x4baa
cmpq %rax, %r15
je 0xaa12
leaq -0x66fe(%rip), %rax     # 0x420d
cmpq %rax, %r15
movq %r12, %r15
movq 0x8(%rsp), %r12
jne 0xa929
movl 0x4(%rbp), %eax
movl %eax, (%r14)
leaq 0xdf5(%rip), %rax       # 0xb71a
movq %rax, 0x10(%r14)
movq 0x18(%r13), %rsi
testq %rsi, %rsi
je 0xa959
movq 0x40(%r12), %rdi
subq $-0x80, %rdi
leaq 0x10(%rsp), %rbp
movq %r12, %rdx
movq %r15, %rcx
movq %rbp, %r8
movq %rbx, %r9
callq 0x6fe6
movq 0x20(%rbp), %rax
movq %rax, 0x28(%r14)
cmpb $0x0, (%rbx)
jne 0xaa00
movq 0x20(%r13), %r13
testq %r13, %r13
je 0xaa87
movq 0x8(%r13), %rdi
leaq 0x8483(%rip), %rsi      # 0x12dfd
callq 0x66af
testl %eax, %eax
je 0xaa00
movq 0x20(%r13), %rbp
testq %rbp, %rbp
je 0xaa8f
movq 0x8(%rbp), %rdi
cmpb $0x7b, (%rdi)
je 0xa9ad
leaq 0x8310(%rip), %rsi      # 0x12cb0
callq 0x66af
testl %eax, %eax
je 0xaa8f
movq $0x0, 0x30(%rsp)
movq 0x18(%rbp), %rsi
testq %rsi, %rsi
je 0xaad2
movq 0x40(%r12), %rdi
subq $-0x80, %rdi
leaq 0x10(%rsp), %r8
movq %r12, %rdx
movq %r15, %rcx
movq %rbx, %r9
callq 0x6fe6
cmpb $0x0, (%rbx)
jne 0xab0b
movq 0x20(%rbp), %rbp
jmp 0xab0b
movq 0xe778(%rip), %rsi      # 0x19170
movq %rbx, %rdi
callq 0x3070
movq %r13, %rax
addq $0x58, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
movl 0x4(%rbp), %esi
leaq 0x83da(%rip), %rdi      # 0x12df6
movl $0x7, %edx
movl %esi, 0x4(%rsp)
callq 0x3110
testq %rax, %rax
je 0xa904
movq 0x8(%rbp), %rax
leaq -0x6831(%rip), %rdx     # 0x420d
cmpq %rdx, 0x18(%rax)
jne 0xa904
movq 0x10(%rax), %rcx
movq 0x18(%rcx), %rsi
cmpq %rdx, %rsi
je 0xaaa9
leaq -0x6f92(%rip), %rdx     # 0x3aca
cmpq %rdx, %rsi
movq %r12, %r15
movq 0x8(%rsp), %r12
jne 0xa929
movl 0x4(%rax), %eax
movl %eax, (%r14)
movl 0x28(%rcx), %eax
movl %eax, 0x40(%r14)
movl 0x4(%rsp), %eax
movl %eax, 0x38(%r14)
jmp 0xa91e
xorl %r13d, %r13d
jmp 0xaa00
movl 0x28(%r13), %edx
leaq 0x8368(%rip), %rsi      # 0x12e02
movq %rbx, %rdi
xorl %eax, %eax
callq 0x3200
jmp 0xaa00
movl 0x4(%rax), %eax
movl %eax, (%r14)
movl 0x4(%rcx), %eax
movl %eax, 0x3c(%r14)
movl 0x4(%rsp), %eax
movl %eax, 0x38(%r14)
leaq 0xb7e(%rip), %rax       # 0xb643
movq %r12, %r15
movq 0x8(%rsp), %r12
jmp 0xa925
movq 0x20(%rbp), %rsi
movq 0x40(%r12), %rcx
leaq 0x81d1(%rip), %rdi      # 0x12cb3
movq %rbp, %rdx
movq %rbx, %r8
callq 0x66f3
cmpb $0x0, (%rbx)
jne 0xab0b
leaq 0x10(%rsp), %rcx
movq %rbp, %rdi
movq %r12, %rsi
movq %r15, %rdx
movq %rbx, %r8
callq 0xa84a
movq %rax, %rbp
movq 0x30(%rsp), %rax
movq %rax, 0x30(%r14)
movq %rbp, %r13
jmp 0xaa00