// File: /workspace/github_c_makefile_star2_O0/chatziko-k08[P]lecture-code/tests/../modules/UsingBTree/ADTSet.c
// Function: node_find_previous
static SetNode node_find_previous(SetNode set_node, CompareFunc compare) {  
	// Βρίσκουμε σε ποιον btree_node ανήκει ο set_node, και το index του μέσα σε αυτόν
	BTreeNode btree_node = set_node->owner;
	int index;
	for (index = 0; index < MAX_VALUES && btree_node->set_nodes[index] != set_node; index++)
		;
	assert(index < MAX_VALUES);		// βρέθηκε

	if (!is_leaf(btree_node))								// Αν είναι εσωτερικός κόμβος, επέστρεψε τον μέγιστο κόμβο 
		return node_find_max(btree_node->children[index]);	// από το αριστερό παιδί της διαχωριστική τιμής, που είναι ο set_node.

	// Ο κόμβος είναι φύλλο.

	if (index == 0) {    			// Ο set_node είναι πρώτος μέσα στο btree node
		// Ψάξε για κάποιον πρόγονο του κόμβου που να έχει τουλάχιστον 1 τιμή μικρότερη από την set_node.
		while (btree_node->parent != NULL && compare(set_node->value, btree_node->parent->set_nodes[0]->value) < 0)
			btree_node = btree_node->parent;

		if (btree_node->parent == NULL)  // Φτάσαμε στη ρίζα, οπότε ο set_node είναι η μικρότερη τιμή του δέντρου.
			return NULL;

		for (int i = btree_node->parent->count-1; i >= 0 ; i--)
			if (compare(set_node->value, btree_node->parent->set_nodes[i]->value) > 0)
				return btree_node->parent->set_nodes[i]; 		// Βρες & επέστρεψε τον set node του προγόνου, που είναι αμέσως μικρότερος από το set_node.
	}

	// Επέστρεψε τον αμέσως προηγούμενο set_node του φύλλου.
	return btree_node->set_nodes[index-1];
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x30, %rsp
movq %rdi, -0x10(%rbp)
movq %rsi, -0x18(%rbp)
movq -0x10(%rbp), %rax
movq 0x8(%rax), %rax
movq %rax, -0x20(%rbp)
movl $0x0, -0x24(%rbp)
xorl %eax, %eax
cmpl $0x4, -0x24(%rbp)
movb %al, -0x29(%rbp)
jge 0x6665
movq -0x20(%rbp), %rax
movslq -0x24(%rbp), %rcx
movq 0x40(%rax,%rcx,8), %rax
cmpq -0x10(%rbp), %rax
setne %al
movb %al, -0x29(%rbp)
movb -0x29(%rbp), %al
testb $0x1, %al
jne 0x666e
jmp 0x667b
jmp 0x6670
movl -0x24(%rbp), %eax
addl $0x1, %eax
movl %eax, -0x24(%rbp)
jmp 0x6643
cmpl $0x4, -0x24(%rbp)
jge 0x6683
jmp 0x66a2
leaq 0x2a04(%rip), %rdi      # 0x908e
leaq 0x2979(%rip), %rsi      # 0x900a
movl $0x1f2, %edx            # imm = 0x1F2
leaq 0x2a04(%rip), %rcx      # 0x90a1
callq 0x20f0
movq -0x20(%rbp), %rdi
callq 0x6d20
testb $0x1, %al
jne 0x66ca
movq -0x20(%rbp), %rax
movslq -0x24(%rbp), %rcx
movq 0x10(%rax,%rcx,8), %rdi
callq 0x61b0
movq %rax, -0x8(%rbp)
jmp 0x67af
cmpl $0x0, -0x24(%rbp)
jne 0x6799
jmp 0x66d6
movq -0x20(%rbp), %rcx
xorl %eax, %eax
cmpq $0x0, 0x8(%rcx)
movb %al, -0x2a(%rbp)
je 0x670b
movq -0x18(%rbp), %rax
movq -0x10(%rbp), %rcx
movq (%rcx), %rdi
movq -0x20(%rbp), %rcx
movq 0x8(%rcx), %rcx
movq 0x40(%rcx), %rcx
movq (%rcx), %rsi
callq *%rax
cmpl $0x0, %eax
setl %al
movb %al, -0x2a(%rbp)
movb -0x2a(%rbp), %al
testb $0x1, %al
jne 0x6714
jmp 0x6722
movq -0x20(%rbp), %rax
movq 0x8(%rax), %rax
movq %rax, -0x20(%rbp)
jmp 0x66d6
movq -0x20(%rbp), %rax
cmpq $0x0, 0x8(%rax)
jne 0x6737
movq $0x0, -0x8(%rbp)
jmp 0x67af
movq -0x20(%rbp), %rax
movq 0x8(%rax), %rax
movl (%rax), %eax
subl $0x1, %eax
movl %eax, -0x28(%rbp)
cmpl $0x0, -0x28(%rbp)
jl 0x6797
movq -0x18(%rbp), %rax
movq -0x10(%rbp), %rcx
movq (%rcx), %rdi
movq -0x20(%rbp), %rcx
movq 0x8(%rcx), %rcx
movslq -0x28(%rbp), %rdx
movq 0x40(%rcx,%rdx,8), %rcx
movq (%rcx), %rsi
callq *%rax
cmpl $0x0, %eax
jle 0x678a
movq -0x20(%rbp), %rax
movq 0x8(%rax), %rax
movslq -0x28(%rbp), %rcx
movq 0x40(%rax,%rcx,8), %rax
movq %rax, -0x8(%rbp)
jmp 0x67af
jmp 0x678c
movl -0x28(%rbp), %eax
addl $-0x1, %eax
movl %eax, -0x28(%rbp)
jmp 0x6747
jmp 0x6799
movq -0x20(%rbp), %rax
movl -0x24(%rbp), %ecx
subl $0x1, %ecx
movslq %ecx, %rcx
movq 0x40(%rax,%rcx,8), %rax
movq %rax, -0x8(%rbp)
movq -0x8(%rbp), %rax
addq $0x30, %rsp
popq %rbp
retq
nopl (%rax)