// File: jvanns[P]verbatim/sub/lmdb/libraries/liblmdb/mdb.c
// Function: mdb_update_key
static int
mdb_update_key(MDB_cursor *mc, MDB_val *key)
{
	MDB_page		*mp;
	MDB_node		*node;
	char			*base;
	size_t			 len;
	int				 delta, ksize, oksize;
	indx_t			 ptr, i, numkeys, indx;
	DKBUF;

	indx = mc->mc_ki[mc->mc_top];
	mp = mc->mc_pg[mc->mc_top];
	node = NODEPTR(mp, indx);
	ptr = mp->mp_ptrs[indx];
#if MDB_DEBUG
	{
		MDB_val	k2;
		char kbuf2[DKBUF_MAXKEYSIZE*2+1];
		k2.mv_data = NODEKEY(node);
		k2.mv_size = node->mn_ksize;
		DPRINTF(("update key %u (ofs %u) [%s] to [%s] on page %"Z"u",
			indx, ptr,
			mdb_dkey(&k2, kbuf2),
			DKEY(key),
			mp->mp_pgno));
	}
#endif

	/* Sizes must be 2-byte aligned. */
	ksize = EVEN(key->mv_size);
	oksize = EVEN(node->mn_ksize);
	delta = ksize - oksize;

	/* Shift node contents if EVEN(key length) changed. */
	if (delta) {
		if (delta > 0 && SIZELEFT(mp) < delta) {
			pgno_t pgno;
			/* not enough space left, do a delete and split */
			DPRINTF(("Not enough room, delta = %d, splitting...", delta));
			pgno = NODEPGNO(node);
			mdb_node_del(mc, 0);
			return mdb_page_split(mc, key, NULL, pgno, MDB_SPLIT_REPLACE);
		}

		numkeys = NUMKEYS(mp);
		for (i = 0; i < numkeys; i++) {
			if (mp->mp_ptrs[i] <= ptr)
				mp->mp_ptrs[i] -= delta;
		}

		base = (char *)mp + mp->mp_upper + PAGEBASE;
		len = ptr - mp->mp_upper + NODESIZE;
		memmove(base - delta, base, len);
		mp->mp_upper -= delta;

		node = NODEPTR(mp, indx);
	}

	/* But even if no shift was needed, update ksize */
	if (node->mn_ksize != key->mv_size)
		node->mn_ksize = key->mv_size;

	if (key->mv_size)
		memcpy(NODEKEY(node), key->mv_data, key->mv_size);

	return MDB_SUCCESS;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x60, %rsp
movq %rdi, -0x10(%rbp)
movq %rsi, -0x18(%rbp)
movq -0x10(%rbp), %rax
movq -0x10(%rbp), %rcx
movzwl 0x42(%rcx), %ecx
movw 0x148(%rax,%rcx,2), %ax
movw %ax, -0x4c(%rbp)
movq -0x10(%rbp), %rax
movq -0x10(%rbp), %rcx
movzwl 0x42(%rcx), %ecx
movq 0x48(%rax,%rcx,8), %rax
movq %rax, -0x20(%rbp)
movq -0x20(%rbp), %rax
movq -0x20(%rbp), %rcx
movzwl -0x4c(%rbp), %edx
movzwl 0x10(%rcx,%rdx,2), %ecx
movslq %ecx, %rcx
addq %rcx, %rax
movq %rax, -0x28(%rbp)
movq -0x20(%rbp), %rax
movzwl -0x4c(%rbp), %ecx
movw 0x10(%rax,%rcx,2), %ax
movw %ax, -0x46(%rbp)
movq -0x18(%rbp), %rax
movq (%rax), %rax
addq $0x1, %rax
andq $-0x2, %rax
movl %eax, -0x40(%rbp)
movq -0x28(%rbp), %rax
movzwl 0x6(%rax), %eax
addl $0x1, %eax
andl $-0x2, %eax
movl %eax, -0x44(%rbp)
movl -0x40(%rbp), %eax
subl -0x44(%rbp), %eax
movl %eax, -0x3c(%rbp)
cmpl $0x0, -0x3c(%rbp)
je 0x9f3c
cmpl $0x0, -0x3c(%rbp)
jle 0x9e66
movq -0x20(%rbp), %rax
movzwl 0xe(%rax), %eax
movq -0x20(%rbp), %rcx
movzwl 0xc(%rcx), %ecx
subl %ecx, %eax
movzwl %ax, %eax
cmpl -0x3c(%rbp), %eax
jge 0x9e66
movq -0x28(%rbp), %rax
movzwl (%rax), %eax
movq -0x28(%rbp), %rcx
movzwl 0x2(%rcx), %ecx
shlq $0x10, %rcx
orq %rcx, %rax
movq -0x28(%rbp), %rcx
movzwl 0x4(%rcx), %ecx
shlq $0x20, %rcx
orq %rcx, %rax
movq %rax, -0x58(%rbp)
movq -0x10(%rbp), %rdi
xorl %esi, %esi
callq 0xa4b0
movq -0x10(%rbp), %rdi
movq -0x18(%rbp), %rsi
movq -0x58(%rbp), %rcx
xorl %eax, %eax
movl %eax, %edx
movl $0x40000, %r8d          # imm = 0x40000
callq 0xaff0
movl %eax, -0x4(%rbp)
jmp 0x9f8c
movq -0x20(%rbp), %rax
movzwl 0xc(%rax), %eax
subl $0x10, %eax
shrl %eax
movw %ax, -0x4a(%rbp)
movw $0x0, -0x48(%rbp)
movzwl -0x48(%rbp), %eax
movzwl -0x4a(%rbp), %ecx
cmpl %ecx, %eax
jge 0x9ec5
movq -0x20(%rbp), %rax
movzwl -0x48(%rbp), %ecx
movzwl 0x10(%rax,%rcx,2), %eax
movzwl -0x46(%rbp), %ecx
cmpl %ecx, %eax
jg 0x9eb5
movl -0x3c(%rbp), %esi
movq -0x20(%rbp), %rax
movzwl -0x48(%rbp), %ecx
movzwl 0x10(%rax,%rcx,2), %edx
subl %esi, %edx
movw %dx, 0x10(%rax,%rcx,2)
jmp 0x9eb7
movw -0x48(%rbp), %ax
addw $0x1, %ax
movw %ax, -0x48(%rbp)
jmp 0x9e7d
movq -0x20(%rbp), %rax
movq -0x20(%rbp), %rcx
movzwl 0xe(%rcx), %ecx
movslq %ecx, %rcx
addq %rcx, %rax
movq %rax, -0x30(%rbp)
movzwl -0x46(%rbp), %eax
movq -0x20(%rbp), %rcx
movzwl 0xe(%rcx), %ecx
subl %ecx, %eax
cltq
addq $0x8, %rax
movq %rax, -0x38(%rbp)
movq -0x30(%rbp), %rdi
movslq -0x3c(%rbp), %rcx
xorl %eax, %eax
subq %rcx, %rax
addq %rax, %rdi
movq -0x30(%rbp), %rsi
movq -0x38(%rbp), %rdx
callq 0x22c0
movl -0x3c(%rbp), %edx
movq -0x20(%rbp), %rax
movzwl 0xe(%rax), %ecx
subl %edx, %ecx
movw %cx, 0xe(%rax)
movq -0x20(%rbp), %rax
movq -0x20(%rbp), %rcx
movzwl -0x4c(%rbp), %edx
movzwl 0x10(%rcx,%rdx,2), %ecx
movslq %ecx, %rcx
addq %rcx, %rax
movq %rax, -0x28(%rbp)
movq -0x28(%rbp), %rax
movzwl 0x6(%rax), %eax
movq -0x18(%rbp), %rcx
cmpq (%rcx), %rax
je 0x9f5f
movq -0x18(%rbp), %rax
movq (%rax), %rax
movw %ax, %cx
movq -0x28(%rbp), %rax
movw %cx, 0x6(%rax)
movq -0x18(%rbp), %rax
cmpq $0x0, (%rax)
je 0x9f85
movq -0x28(%rbp), %rdi
addq $0x8, %rdi
movq -0x18(%rbp), %rax
movq 0x8(%rax), %rsi
movq -0x18(%rbp), %rax
movq (%rax), %rdx
callq 0x2230
movl $0x0, -0x4(%rbp)
movl -0x4(%rbp), %eax
addq $0x60, %rsp
popq %rbp
retq
nopw %cs:(%rax,%rax)