// File: /workspace/github_c_makefile_star2_O0/markdryan[P]subtilis/frontend/parser_array.c
// Function: prv_parse_numeric_initialiser
static void prv_parse_numeric_initialiser(subtilis_parser_t *p,
					  subtilis_token_t *t,
					  subtilis_exp_t *e,
					  const subtilis_array_desc_t *d,
					  subtilis_error_t *err)
{
	const char *tbuf;
	size_t id;
	int32_t dim;
	subtilis_exp_t *sizee = NULL;
	const subtilis_type_t *type = d->t;
	bool dynamic = false;
	size_t entries = 1;
	subtilis_type_t el_type;
	subtilis_type_t const_el_type;
	bool el_type_dbl;
	size_t max_elements = 1;
	size_t element_size;
	size_t reg;
	subtilis_ir_operand_t op1;
	subtilis_exp_t *maxe;
	uint8_t *buffer = NULL;
	size_t i = 0;

	e = subtilis_type_if_dup(e, err);
	if (err->type != SUBTILIS_ERROR_OK)
		return;

	do {
		dim = type->params.array.dims[i];
		if (dim == SUBTILIS_DYNAMIC_DIMENSION) {
			max_elements = SUBTILIS_CONFIG_CONSTANT_ARRAY_GRAN;
			dynamic = true;
			break;
		}
		max_elements *= (dim + 1);
		i++;
	} while (i < type->params.array.num_dims);

	subtilis_type_if_element_type(p, type, &el_type, err);
	if (err->type != SUBTILIS_ERROR_OK)
		goto free_e;

	subtilis_type_if_const_of(&el_type, &const_el_type, err);
	if (err->type != SUBTILIS_ERROR_OK)
		goto free_el_type;

	element_size = subtilis_type_if_size(&const_el_type, err);
	if (err->type != SUBTILIS_ERROR_OK)
		goto cleanup;

	buffer = malloc(max_elements * element_size);
	if (!buffer) {
		subtilis_error_set_oom(err);
		goto cleanup;
	}

	buffer = prv_append_const_el(p, e, &const_el_type, element_size, buffer,
				     0, &max_elements, err);
	e = NULL;
	if (err->type != SUBTILIS_ERROR_OK)
		goto cleanup;

	tbuf = subtilis_token_get_text(t);

	while ((t->type == SUBTILIS_TOKEN_OPERATOR) && !strcmp(tbuf, ",")) {
		if (!dynamic && (entries >= max_elements)) {
			subtilis_error_bad_element_count(
			    err, p->l->stream->name, p->l->line);
			goto cleanup;
		}

		e = subtilis_parser_expression(p, t, err);
		if (err->type != SUBTILIS_ERROR_OK)
			goto cleanup;

		buffer =
		    prv_append_const_el(p, e, &const_el_type, element_size,
					buffer, entries, &max_elements, err);
		e = NULL;
		if (err->type != SUBTILIS_ERROR_OK)
			goto cleanup;

		entries++;

		tbuf = subtilis_token_get_text(t);
	}

	if (dynamic) {
		maxe = subtilis_array_type_dynamic_size(p, d->reg, d->loc, err);
		if (err->type != SUBTILIS_ERROR_OK)
			goto cleanup;

		prv_check_initialiser_count(p, entries * element_size, d->reg,
					    maxe, err);
		if (err->type != SUBTILIS_ERROR_OK)
			goto cleanup;
	}

	el_type_dbl = const_el_type.type == SUBTILIS_TYPE_CONST_REAL;
	id = subtilis_constant_pool_add(p->prog->constant_pool, buffer,
					entries * element_size, el_type_dbl,
					err);
	if (err->type != SUBTILIS_ERROR_OK)
		goto cleanup;
	buffer = NULL;

	sizee = subtilis_exp_new_int32(entries * element_size, err);
	if (err->type != SUBTILIS_ERROR_OK)
		goto cleanup;

	sizee = subtilis_type_if_exp_to_var(p, sizee, err);
	if (err->type != SUBTILIS_ERROR_OK)
		goto cleanup;

	op1.integer = (int32_t)id;
	reg = subtilis_ir_section_add_instr2(p->current, SUBTILIS_OP_INSTR_LCA,
					     op1, err);
	if (err->type != SUBTILIS_ERROR_OK)
		goto cleanup;

	subtilis_reference_type_memcpy(p, d->reg, d->loc, reg,
				       sizee->exp.ir_op.reg, err);

free_e:
	subtilis_exp_delete(e);

free_el_type:
	subtilis_type_free(&el_type);

cleanup:
	subtilis_type_free(&const_el_type);
	subtilis_exp_delete(sizee);
	free(buffer);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x350, %rsp            # imm = 0x350
movq %rdi, -0x8(%rbp)
movq %rsi, -0x10(%rbp)
movq %rdx, -0x18(%rbp)
movq %rcx, -0x20(%rbp)
movq %r8, -0x28(%rbp)
movq $0x0, -0x48(%rbp)
movq -0x20(%rbp), %rax
movq 0x8(%rax), %rax
movq %rax, -0x50(%rbp)
movb $0x0, -0x51(%rbp)
movq $0x1, -0x60(%rbp)
movq $0x1, -0x300(%rbp)
movq $0x0, -0x328(%rbp)
movq $0x0, -0x330(%rbp)
movq -0x18(%rbp), %rdi
movq -0x28(%rbp), %rsi
callq 0x47d20
movq %rax, -0x18(%rbp)
movq -0x28(%rbp), %rax
cmpl $0x0, (%rax)
je 0x18f7f
jmp 0x193d5
jmp 0x18f81
movq -0x50(%rbp), %rax
movq -0x330(%rbp), %rcx
movl 0xc(%rax,%rcx,4), %eax
movl %eax, -0x3c(%rbp)
cmpl $-0x1, -0x3c(%rbp)
jne 0x18faa
movq $0x100, -0x300(%rbp) # imm = 0x100
movb $0x1, -0x51(%rbp)
jmp 0x18fe7
movl -0x3c(%rbp), %eax
addl $0x1, %eax
cltq
imulq -0x300(%rbp), %rax
movq %rax, -0x300(%rbp)
movq -0x330(%rbp), %rax
addq $0x1, %rax
movq %rax, -0x330(%rbp)
movq -0x330(%rbp), %rax
movq -0x50(%rbp), %rcx
movslq 0x8(%rcx), %rcx
cmpq %rcx, %rax
jb 0x18f81
movq -0x8(%rbp), %rdi
movq -0x50(%rbp), %rsi
movq -0x28(%rbp), %rcx
leaq -0x1a8(%rbp), %rdx
callq 0x47b70
movq -0x28(%rbp), %rax
cmpl $0x0, (%rax)
je 0x1900d
jmp 0x1939f
movq -0x28(%rbp), %rdx
leaq -0x1a8(%rbp), %rdi
leaq -0x2f0(%rbp), %rsi
callq 0x47ae0
movq -0x28(%rbp), %rax
cmpl $0x0, (%rax)
je 0x19032
jmp 0x193a8
movq -0x28(%rbp), %rsi
leaq -0x2f0(%rbp), %rdi
callq 0x47420
movq %rax, -0x308(%rbp)
movq -0x28(%rbp), %rax
cmpl $0x0, (%rax)
je 0x19057
jmp 0x193b4
movq -0x300(%rbp), %rdi
imulq -0x308(%rbp), %rdi
callq 0x121b0
movq %rax, -0x328(%rbp)
cmpq $0x0, -0x328(%rbp)
jne 0x1909b
movq -0x28(%rbp), %rdi
movl $0x1, %esi
leaq 0x91471(%rip), %rdx     # 0xaa4fd
movl $0x24f, %ecx            # imm = 0x24F
callq 0x158e0
jmp 0x193b4
movq -0x8(%rbp), %rdi
movq -0x18(%rbp), %rsi
movq -0x308(%rbp), %rcx
movq -0x328(%rbp), %r8
movq -0x28(%rbp), %rax
leaq -0x2f0(%rbp), %rdx
xorl %r9d, %r9d
leaq -0x300(%rbp), %r10
movq %r10, (%rsp)
movq %rax, 0x8(%rsp)
callq 0x1a290
movq %rax, -0x328(%rbp)
movq $0x0, -0x18(%rbp)
movq -0x28(%rbp), %rax
cmpl $0x0, (%rax)
je 0x190f1
jmp 0x193b4
movq -0x10(%rbp), %rdi
callq 0x12d70
movq %rax, -0x30(%rbp)
movq -0x10(%rbp), %rcx
xorl %eax, %eax
cmpl $0x2, (%rcx)
movb %al, -0x331(%rbp)
jne 0x1912d
movq -0x30(%rbp), %rdi
leaq 0x9148f(%rip), %rsi     # 0xaa5a9
callq 0x12140
cmpl $0x0, %eax
setne %al
xorb $-0x1, %al
movb %al, -0x331(%rbp)
movb -0x331(%rbp), %al
testb $0x1, %al
jne 0x1913c
jmp 0x1921c
testb $0x1, -0x51(%rbp)
jne 0x19184
movq -0x60(%rbp), %rax
cmpq -0x300(%rbp), %rax
jb 0x19184
movq -0x28(%rbp), %rdi
movq -0x8(%rbp), %rax
movq (%rax), %rax
movq 0x30(%rax), %rdx
movq -0x8(%rbp), %rax
movq (%rax), %rax
movl 0x38(%rax), %ecx
movl $0x47, %esi
leaq 0x91389(%rip), %r8      # 0xaa4fd
movl $0x25e, %r9d            # imm = 0x25E
callq 0x15930
jmp 0x193b4
movq -0x8(%rbp), %rdi
movq -0x10(%rbp), %rsi
movq -0x28(%rbp), %rdx
callq 0x24a20
movq %rax, -0x18(%rbp)
movq -0x28(%rbp), %rax
cmpl $0x0, (%rax)
je 0x191a7
jmp 0x193b4
movq -0x8(%rbp), %rdi
movq -0x18(%rbp), %rsi
movq -0x308(%rbp), %rcx
movq -0x328(%rbp), %r8
movq -0x60(%rbp), %r9
movq -0x28(%rbp), %rax
leaq -0x2f0(%rbp), %rdx
leaq -0x300(%rbp), %r10
movq %r10, (%rsp)
movq %rax, 0x8(%rsp)
callq 0x1a290
movq %rax, -0x328(%rbp)
movq $0x0, -0x18(%rbp)
movq -0x28(%rbp), %rax
cmpl $0x0, (%rax)
je 0x191fe
jmp 0x193b4
movq -0x60(%rbp), %rax
addq $0x1, %rax
movq %rax, -0x60(%rbp)
movq -0x10(%rbp), %rdi
callq 0x12d70
movq %rax, -0x30(%rbp)
jmp 0x190fe
testb $0x1, -0x51(%rbp)
je 0x1928c
movq -0x8(%rbp), %rdi
movq -0x20(%rbp), %rax
movq 0x10(%rax), %rsi
movq -0x20(%rbp), %rax
movq 0x18(%rax), %rdx
movq -0x28(%rbp), %rcx
callq 0x5ffd0
movq %rax, -0x320(%rbp)
movq -0x28(%rbp), %rax
cmpl $0x0, (%rax)
je 0x19254
jmp 0x193b4
movq -0x8(%rbp), %rdi
movq -0x60(%rbp), %rsi
imulq -0x308(%rbp), %rsi
movq -0x20(%rbp), %rax
movq 0x10(%rax), %rdx
movq -0x320(%rbp), %rcx
movq -0x28(%rbp), %r8
callq 0x1a3c0
movq -0x28(%rbp), %rax
cmpl $0x0, (%rax)
je 0x1928a
jmp 0x193b4
jmp 0x1928c
cmpl $0x0, -0x2f0(%rbp)
sete %al
andb $0x1, %al
movb %al, -0x2f1(%rbp)
movq -0x8(%rbp), %rax
movq 0x58(%rax), %rax
movq 0x28(%rax), %rdi
movq -0x328(%rbp), %rsi
movq -0x60(%rbp), %rdx
imulq -0x308(%rbp), %rdx
movb -0x2f1(%rbp), %al
movq -0x28(%rbp), %r8
andb $0x1, %al
movzbl %al, %ecx
callq 0x3d290
movq %rax, -0x38(%rbp)
movq -0x28(%rbp), %rax
cmpl $0x0, (%rax)
je 0x192e3
jmp 0x193b4
movq $0x0, -0x328(%rbp)
movq -0x60(%rbp), %rax
imulq -0x308(%rbp), %rax
movl %eax, %edi
movq -0x28(%rbp), %rsi
callq 0x37800
movq %rax, -0x48(%rbp)
movq -0x28(%rbp), %rax
cmpl $0x0, (%rax)
je 0x19317
jmp 0x193b4
movq -0x8(%rbp), %rdi
movq -0x48(%rbp), %rsi
movq -0x28(%rbp), %rdx
callq 0x47c10
movq %rax, -0x48(%rbp)
movq -0x28(%rbp), %rax
cmpl $0x0, (%rax)
je 0x19337
jmp 0x193b4
movq -0x38(%rbp), %rax
movl %eax, -0x318(%rbp)
movq -0x8(%rbp), %rax
movq 0x48(%rax), %rdi
movq -0x28(%rbp), %rcx
movq -0x318(%rbp), %rdx
movl $0x7d, %esi
callq 0x38490
movq %rax, -0x310(%rbp)
movq -0x28(%rbp), %rax
cmpl $0x0, (%rax)
je 0x19370
jmp 0x193b4
movq -0x8(%rbp), %rdi
movq -0x20(%rbp), %rax
movq 0x10(%rax), %rsi
movq -0x20(%rbp), %rax
movq 0x18(%rax), %rdx
movq -0x310(%rbp), %rcx
movq -0x48(%rbp), %rax
movq 0x148(%rax), %r8
movq -0x28(%rbp), %r9
callq 0x6da60
movq -0x18(%rbp), %rdi
callq 0x36ee0
leaq -0x1a8(%rbp), %rdi
callq 0x3e100
leaq -0x2f0(%rbp), %rdi
callq 0x3e100
movq -0x48(%rbp), %rdi
callq 0x36ee0
movq -0x328(%rbp), %rdi
callq 0x12290
addq $0x350, %rsp            # imm = 0x350
popq %rbp
retq
nop