// File: /workspace/github_c_makefile_star2_O0/Yamsman[P]scc/src/parse.c
// Function: parse_expr_primary
ast_n *parse_expr_primary(lexer *lx) {
	ast_n *node;
	token t = lex_peek(lx);
	switch (t.type) {
		case TOK_IDENT: //TODO: improve handling of undefined variables
			lex_adv(lx);
			symbol *s = symtable_search(lx->stb, t.dat.sval);
			node = astn_new(EXPR, EXPR_IDENT, t);
			if (s != NULL) {
				node->dat.expr.sym = s;
			} else {
				c_error(&t.loc, "Undeclared variable \"%s\"\n", t.dat.sval);
			}
			free(t.dat.sval);

			return node;
		case TOK_CONST:
			lex_adv(lx);
			node = astn_new(EXPR, EXPR_CONST, t);
			return node;
		case TOK_STR:
			lex_adv(lx);
			node = astn_new(EXPR, EXPR_STR, t);
			return node;
		case TOK_LPR:
			lex_adv(lx);
			
			//Check for a cast expression
			if (is_type_spec(lx, lex_peek(lx))) {
				lex_unget(lx, make_tok_node(lex_peek(lx)));
				lex_unget(lx, make_tok_node(t));
				break;
			}
			
			node = parse_expr(lx);
			lex_adv(lx); //expect ')'
			return node;
	}
	return NULL;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x100, %rsp            # imm = 0x100
movq %rdi, -0x10(%rbp)
movq -0x10(%rbp), %rsi
leaq -0x48(%rbp), %rdi
callq 0x9790
movl -0x48(%rbp), %eax
movl %eax, -0xb4(%rbp)
subl $0x7, %eax
je 0xd8b9
jmp 0xd770
movl -0xb4(%rbp), %eax
subl $0x33, %eax
je 0xd833
jmp 0xd781
movl -0xb4(%rbp), %eax
subl $0x34, %eax
je 0xd876
jmp 0xd792
movl -0xb4(%rbp), %eax
subl $0x35, %eax
jne 0xd9b6
jmp 0xd7a3
movq -0x10(%rbp), %rdi
callq 0x97e0
movq -0x10(%rbp), %rax
movq 0x60(%rax), %rdi
movq -0x28(%rbp), %rsi
callq 0xfb60
movq %rax, -0x50(%rbp)
movups -0x48(%rbp), %xmm0
movups -0x38(%rbp), %xmm1
movups -0x28(%rbp), %xmm2
movq %rsp, %rax
movups %xmm2, 0x20(%rax)
movups %xmm1, 0x10(%rax)
movups %xmm0, (%rax)
movl $0x1, %edi
movl $0x24, %esi
callq 0x3350
movq %rax, -0x18(%rbp)
cmpq $0x0, -0x50(%rbp)
je 0xd803
movq -0x50(%rbp), %rcx
movq -0x18(%rbp), %rax
movq %rcx, 0x18(%rax)
jmp 0xd81d
leaq -0x48(%rbp), %rdi
addq $0x8, %rdi
movq -0x28(%rbp), %rdx
leaq 0x58b5(%rip), %rsi      # 0x130cb
movb $0x0, %al
callq 0x3880
movq -0x28(%rbp), %rdi
callq 0x3030
movq -0x18(%rbp), %rax
movq %rax, -0x8(%rbp)
jmp 0xd9be
movq -0x10(%rbp), %rdi
callq 0x97e0
movups -0x48(%rbp), %xmm0
movups -0x38(%rbp), %xmm1
movups -0x28(%rbp), %xmm2
movq %rsp, %rax
movups %xmm2, 0x20(%rax)
movups %xmm1, 0x10(%rax)
movups %xmm0, (%rax)
movl $0x1, %edi
movl $0x25, %esi
callq 0x3350
movq %rax, -0x18(%rbp)
movq -0x18(%rbp), %rax
movq %rax, -0x8(%rbp)
jmp 0xd9be
movq -0x10(%rbp), %rdi
callq 0x97e0
movups -0x48(%rbp), %xmm0
movups -0x38(%rbp), %xmm1
movups -0x28(%rbp), %xmm2
movq %rsp, %rax
movups %xmm2, 0x20(%rax)
movups %xmm1, 0x10(%rax)
movups %xmm0, (%rax)
movl $0x1, %edi
movl $0x26, %esi
callq 0x3350
movq %rax, -0x18(%rbp)
movq -0x18(%rbp), %rax
movq %rax, -0x8(%rbp)
jmp 0xd9be
movq -0x10(%rbp), %rdi
callq 0x97e0
movq -0x10(%rbp), %rax
movq %rax, -0xc0(%rbp)
movq -0x10(%rbp), %rsi
leaq -0x80(%rbp), %rdi
callq 0x9790
movq -0xc0(%rbp), %rdi
movups -0x80(%rbp), %xmm0
movups -0x70(%rbp), %xmm1
movups -0x60(%rbp), %xmm2
movq %rsp, %rax
movups %xmm2, 0x20(%rax)
movups %xmm1, 0x10(%rax)
movups %xmm0, (%rax)
callq 0x9a20
cmpl $0x0, %eax
je 0xd996
movq -0x10(%rbp), %rax
movq %rax, -0xd0(%rbp)
movq -0x10(%rbp), %rsi
leaq -0xb0(%rbp), %rdi
callq 0x9790
movups -0xb0(%rbp), %xmm0
movups -0xa0(%rbp), %xmm1
movups -0x90(%rbp), %xmm2
movq %rsp, %rax
movups %xmm2, 0x20(%rax)
movups %xmm1, 0x10(%rax)
movups %xmm0, (%rax)
callq 0x9aa0
movq -0xd0(%rbp), %rdi
movq %rax, %rsi
callq 0x99d0
movq -0x10(%rbp), %rax
movq %rax, -0xc8(%rbp)
movups -0x48(%rbp), %xmm0
movups -0x38(%rbp), %xmm1
movups -0x28(%rbp), %xmm2
movq %rsp, %rax
movups %xmm2, 0x20(%rax)
movups %xmm1, 0x10(%rax)
movups %xmm0, (%rax)
callq 0x9aa0
movq -0xc8(%rbp), %rdi
movq %rax, %rsi
callq 0x99d0
jmp 0xd9b6
movq -0x10(%rbp), %rdi
callq 0xc0a0
movq %rax, -0x18(%rbp)
movq -0x10(%rbp), %rdi
callq 0x97e0
movq -0x18(%rbp), %rax
movq %rax, -0x8(%rbp)
jmp 0xd9be
movq $0x0, -0x8(%rbp)
movq -0x8(%rbp), %rax
addq $0x100, %rsp            # imm = 0x100
popq %rbp
retq
nopl (%rax,%rax)