// File: /workspace/github_c_makefile_star2_O0/markdryan[P]subtilis/arch/arm32/arm_heap.c
// Function: subtilis_arm_heap_init
void subtilis_arm_heap_init(subtilis_arm_section_t *arm_s,
			    subtilis_error_t *err)
{
	size_t loop_label;
	subtilis_arm_stran_instr_t *stran;
	subtilis_arm_br_instr_t *br;
	subtilis_arm_instr_t *instr;
	const subtilis_arm_reg_t heap_start = 1;
	const subtilis_arm_reg_t slots_counter = 2;
	const subtilis_arm_reg_t heap_size = 3;
	const subtilis_arm_reg_t zero = 4;

	loop_label = arm_s->label_counter++;

	subtilis_arm_add_mov_imm(arm_s, SUBTILIS_ARM_CCODE_AL, false,
				 slots_counter, subtilis_arm_heap_max_slot,
				 err);
	if (err->type != SUBTILIS_ERROR_OK)
		return;

	subtilis_arm_add_mov_imm(arm_s, SUBTILIS_ARM_CCODE_AL, false, zero, 0,
				 err);
	if (err->type != SUBTILIS_ERROR_OK)
		return;

	/*
	 * Loop to zero out the first subtilis_arm_heap_max_slot slots.
	 * When the heap is first initialised there's only one block in
	 * the final slot that holds all the data.
	 */

	subtilis_arm_section_add_label(arm_s, loop_label, err);
	if (err->type != SUBTILIS_ERROR_OK)
		return;

	subtilis_arm_add_sub_imm(arm_s, SUBTILIS_ARM_CCODE_AL, false,
				 slots_counter, slots_counter, 1, err);
	if (err->type != SUBTILIS_ERROR_OK)
		return;

	instr =
	    subtilis_arm_section_add_instr(arm_s, SUBTILIS_ARM_INSTR_STR, err);
	if (err->type != SUBTILIS_ERROR_OK)
		return;
	stran = &instr->operands.stran;

	stran->ccode = SUBTILIS_ARM_CCODE_AL;
	stran->dest = zero;
	stran->base = heap_start;
	stran->offset.type = SUBTILIS_ARM_OP2_SHIFTED;
	stran->offset.op.shift.reg = slots_counter;
	stran->offset.op.shift.type = SUBTILIS_ARM_SHIFT_LSL;
	stran->offset.op.shift.shift.integer = 2;
	stran->offset.op.shift.shift_reg = false;
	stran->pre_indexed = true;
	stran->write_back = false;
	stran->subtract = false;
	stran->byte = false;

	subtilis_arm_add_cmp_imm(arm_s, SUBTILIS_ARM_INSTR_CMP,
				 SUBTILIS_ARM_CCODE_AL, slots_counter, 0, err);
	if (err->type != SUBTILIS_ERROR_OK)
		return;

	instr =
	    subtilis_arm_section_add_instr(arm_s, SUBTILIS_ARM_INSTR_B, err);
	if (err->type != SUBTILIS_ERROR_OK)
		return;

	br = &instr->operands.br;
	br->ccode = SUBTILIS_ARM_CCODE_GT;
	br->link = false;
	br->target.label = loop_label;

	subtilis_arm_add_add_imm(arm_s, SUBTILIS_ARM_CCODE_AL, false,
				 heap_start, heap_start,
				 subtilis_arm_heap_max_slots * 4, err);
	if (err->type != SUBTILIS_ERROR_OK)
		return;

	subtilis_arm_add_sub_imm(arm_s, SUBTILIS_ARM_CCODE_AL, false, heap_size,
				 heap_size, subtilis_arm_heap_max_slots * 4,
				 err);
	if (err->type != SUBTILIS_ERROR_OK)
		return;

	/*
	 * The size of the first and only slot must be divisible by the
	 * size of the smallest slot, currently 32 bytes.
	 */

	subtilis_arm_add_data_imm(
	    arm_s, SUBTILIS_ARM_INSTR_BIC, SUBTILIS_ARM_CCODE_AL, false,
	    heap_size, heap_size, (1 << subtilis_arm_heap_min_slot_shift) - 1,
	    err);
	if (err->type != SUBTILIS_ERROR_OK)
		return;

	/*
	 * Initialise heap with on entry in the final slot.
	 */

	instr =
	    subtilis_arm_section_add_instr(arm_s, SUBTILIS_ARM_INSTR_STR, err);
	if (err->type != SUBTILIS_ERROR_OK)
		return;
	stran = &instr->operands.stran;

	stran->ccode = SUBTILIS_ARM_CCODE_AL;
	stran->dest = heap_start;
	stran->base = heap_start;
	stran->offset.type = SUBTILIS_ARM_OP2_I32;
	stran->offset.op.integer = 4;
	stran->pre_indexed = true;
	stran->write_back = false;
	stran->subtract = true;
	stran->byte = false;

	/*
	 * Set up one and only block.  Start by storing its size
	 */

	instr =
	    subtilis_arm_section_add_instr(arm_s, SUBTILIS_ARM_INSTR_STR, err);
	if (err->type != SUBTILIS_ERROR_OK)
		return;
	stran = &instr->operands.stran;

	stran->ccode = SUBTILIS_ARM_CCODE_AL;
	stran->dest = heap_size;
	stran->base = heap_start;
	stran->offset.type = SUBTILIS_ARM_OP2_I32;
	stran->offset.op.integer = 0;
	stran->pre_indexed = true;
	stran->write_back = false;
	stran->subtract = false;
	stran->byte = false;

	/*
	 * Zero out the next pointer.
	 */

	instr =
	    subtilis_arm_section_add_instr(arm_s, SUBTILIS_ARM_INSTR_STR, err);
	if (err->type != SUBTILIS_ERROR_OK)
		return;
	stran = &instr->operands.stran;

	stran->ccode = SUBTILIS_ARM_CCODE_AL;
	stran->dest = zero;
	stran->base = heap_start;
	stran->offset.type = SUBTILIS_ARM_OP2_I32;
	stran->offset.op.integer = 4;
	stran->pre_indexed = true;
	stran->write_back = false;
	stran->subtract = false;
	stran->byte = false;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x70, %rsp
movq %rdi, -0x8(%rbp)
movq %rsi, -0x10(%rbp)
movq $0x1, -0x38(%rbp)
movq $0x2, -0x40(%rbp)
movq $0x3, -0x48(%rbp)
movq $0x4, -0x50(%rbp)
movq -0x8(%rbp), %rcx
movq 0x10(%rcx), %rax
movq %rax, %rdx
addq $0x1, %rdx
movq %rdx, 0x10(%rcx)
movq %rax, -0x18(%rbp)
movq -0x8(%rbp), %rdi
movq -0x10(%rbp), %rax
movl $0xd, %esi
movl $0xf, %edx
movl $0xe, %ecx
xorl %r8d, %r8d
movl $0x2, %r9d
movl $0xc, (%rsp)
movq %rax, 0x8(%rsp)
callq 0x71b10
movq -0x10(%rbp), %rax
cmpl $0x0, (%rax)
je 0x8da66
jmp 0x8de8c
movq -0x8(%rbp), %rdi
movq -0x10(%rbp), %rax
movl $0xd, %esi
movl $0xf, %edx
movl $0xe, %ecx
xorl %r8d, %r8d
movl $0x4, %r9d
movl $0x0, (%rsp)
movq %rax, 0x8(%rsp)
callq 0x71b10
movq -0x10(%rbp), %rax
cmpl $0x0, (%rax)
je 0x8daa5
jmp 0x8de8c
movq -0x8(%rbp), %rdi
movq -0x18(%rbp), %rsi
movq -0x10(%rbp), %rdx
callq 0x70850
movq -0x10(%rbp), %rax
cmpl $0x0, (%rax)
je 0x8dac4
jmp 0x8de8c
movq -0x8(%rbp), %rdi
movq -0x10(%rbp), %rax
movl $0x2, %esi
movl $0x4, %edx
movl $0xe, %ecx
xorl %r8d, %r8d
movl $0x2, %r9d
movq $0x2, (%rsp)
movl $0x1, 0x8(%rsp)
movq %rax, 0x10(%rsp)
callq 0x71640
movq -0x10(%rbp), %rax
cmpl $0x0, (%rax)
je 0x8db0c
jmp 0x8de8c
movq -0x8(%rbp), %rdi
movq -0x10(%rbp), %rdx
movl $0x13, %esi
callq 0x70b50
movq %rax, -0x30(%rbp)
movq -0x10(%rbp), %rax
cmpl $0x0, (%rax)
je 0x8db30
jmp 0x8de8c
movq -0x30(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x20(%rbp)
movq -0x20(%rbp), %rax
movl $0xe, (%rax)
movq -0x20(%rbp), %rax
movq $0x4, 0x8(%rax)
movq -0x20(%rbp), %rax
movq $0x1, 0x10(%rax)
movq -0x20(%rbp), %rax
movl $0x2, 0x18(%rax)
movq -0x20(%rbp), %rax
movq $0x2, 0x20(%rax)
movq -0x20(%rbp), %rax
movl $0x0, 0x28(%rax)
movq -0x20(%rbp), %rax
movl $0x2, 0x30(%rax)
movq -0x20(%rbp), %rax
movb $0x0, 0x38(%rax)
movq -0x20(%rbp), %rax
movb $0x1, 0x40(%rax)
movq -0x20(%rbp), %rax
movb $0x0, 0x41(%rax)
movq -0x20(%rbp), %rax
movb $0x0, 0x42(%rax)
movq -0x20(%rbp), %rax
movb $0x0, 0x43(%rax)
movq -0x8(%rbp), %rdi
movq -0x10(%rbp), %r9
movl $0xa, %esi
movl $0xe, %edx
movl $0x2, %ecx
xorl %r8d, %r8d
callq 0x72620
movq -0x10(%rbp), %rax
cmpl $0x0, (%rax)
je 0x8dbe0
jmp 0x8de8c
movq -0x8(%rbp), %rdi
movq -0x10(%rbp), %rdx
movl $0x16, %esi
callq 0x70b50
movq %rax, -0x30(%rbp)
movq -0x10(%rbp), %rax
cmpl $0x0, (%rax)
je 0x8dc04
jmp 0x8de8c
movq -0x30(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x28(%rbp)
movq -0x28(%rbp), %rax
movl $0xc, (%rax)
movq -0x28(%rbp), %rax
movb $0x0, 0x4(%rax)
movq -0x18(%rbp), %rcx
movq -0x28(%rbp), %rax
movq %rcx, 0x10(%rax)
movq -0x8(%rbp), %rdi
movq -0x10(%rbp), %rax
movl $0x4, %esi
movl $0x2, %edx
movl $0xe, %ecx
xorl %r8d, %r8d
movl $0x1, %r9d
movq $0x1, (%rsp)
movl $0x34, 0x8(%rsp)
movq %rax, 0x10(%rsp)
callq 0x71640
movq -0x10(%rbp), %rax
cmpl $0x0, (%rax)
je 0x8dc76
jmp 0x8de8c
movq -0x8(%rbp), %rdi
movq -0x10(%rbp), %rax
movl $0x2, %esi
movl $0x4, %edx
movl $0xe, %ecx
xorl %r8d, %r8d
movl $0x3, %r9d
movq $0x3, (%rsp)
movl $0x34, 0x8(%rsp)
movq %rax, 0x10(%rsp)
callq 0x71640
movq -0x10(%rbp), %rax
cmpl $0x0, (%rax)
je 0x8dcbe
jmp 0x8de8c
movq -0x8(%rbp), %rdi
movq -0x10(%rbp), %rax
movl $0xe, %edx
xorl %ecx, %ecx
movl $0x3, %r9d
movl %edx, %esi
movq %r9, %r8
movl $0x1f, (%rsp)
movq %rax, 0x8(%rsp)
callq 0x71cd0
movq -0x10(%rbp), %rax
cmpl $0x0, (%rax)
je 0x8dcf7
jmp 0x8de8c
movq -0x8(%rbp), %rdi
movq -0x10(%rbp), %rdx
movl $0x13, %esi
callq 0x70b50
movq %rax, -0x30(%rbp)
movq -0x10(%rbp), %rax
cmpl $0x0, (%rax)
je 0x8dd1b
jmp 0x8de8c
movq -0x30(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x20(%rbp)
movq -0x20(%rbp), %rax
movl $0xe, (%rax)
movq -0x20(%rbp), %rax
movq $0x1, 0x8(%rax)
movq -0x20(%rbp), %rax
movq $0x1, 0x10(%rax)
movq -0x20(%rbp), %rax
movl $0x1, 0x18(%rax)
movq -0x20(%rbp), %rax
movl $0x4, 0x20(%rax)
movq -0x20(%rbp), %rax
movb $0x1, 0x40(%rax)
movq -0x20(%rbp), %rax
movb $0x0, 0x41(%rax)
movq -0x20(%rbp), %rax
movb $0x1, 0x42(%rax)
movq -0x20(%rbp), %rax
movb $0x0, 0x43(%rax)
movq -0x8(%rbp), %rdi
movq -0x10(%rbp), %rdx
movl $0x13, %esi
callq 0x70b50
movq %rax, -0x30(%rbp)
movq -0x10(%rbp), %rax
cmpl $0x0, (%rax)
je 0x8dda3
jmp 0x8de8c
movq -0x30(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x20(%rbp)
movq -0x20(%rbp), %rax
movl $0xe, (%rax)
movq -0x20(%rbp), %rax
movq $0x3, 0x8(%rax)
movq -0x20(%rbp), %rax
movq $0x1, 0x10(%rax)
movq -0x20(%rbp), %rax
movl $0x1, 0x18(%rax)
movq -0x20(%rbp), %rax
movl $0x0, 0x20(%rax)
movq -0x20(%rbp), %rax
movb $0x1, 0x40(%rax)
movq -0x20(%rbp), %rax
movb $0x0, 0x41(%rax)
movq -0x20(%rbp), %rax
movb $0x0, 0x42(%rax)
movq -0x20(%rbp), %rax
movb $0x0, 0x43(%rax)
movq -0x8(%rbp), %rdi
movq -0x10(%rbp), %rdx
movl $0x13, %esi
callq 0x70b50
movq %rax, -0x30(%rbp)
movq -0x10(%rbp), %rax
cmpl $0x0, (%rax)
je 0x8de28
jmp 0x8de8c
movq -0x30(%rbp), %rax
addq $0x8, %rax
movq %rax, -0x20(%rbp)
movq -0x20(%rbp), %rax
movl $0xe, (%rax)
movq -0x20(%rbp), %rax
movq $0x4, 0x8(%rax)
movq -0x20(%rbp), %rax
movq $0x1, 0x10(%rax)
movq -0x20(%rbp), %rax
movl $0x1, 0x18(%rax)
movq -0x20(%rbp), %rax
movl $0x4, 0x20(%rax)
movq -0x20(%rbp), %rax
movb $0x1, 0x40(%rax)
movq -0x20(%rbp), %rax
movb $0x0, 0x41(%rax)
movq -0x20(%rbp), %rax
movb $0x0, 0x42(%rax)
movq -0x20(%rbp), %rax
movb $0x0, 0x43(%rax)
addq $0x70, %rsp
popq %rbp
retq
nopw %cs:(%rax,%rax)