// File: jvanns[P]verbatim/sub/lmdb/libraries/liblmdb/mdb.c
// Function: mdb_page_touch
static int
mdb_page_touch(MDB_cursor *mc)
{
	MDB_page *mp = mc->mc_pg[mc->mc_top], *np;
	MDB_txn *txn = mc->mc_txn;
	MDB_cursor *m2, *m3;
	pgno_t	pgno;
	int rc;

	if (!F_ISSET(mp->mp_flags, P_DIRTY)) {
		if (txn->mt_flags & MDB_TXN_SPILLS) {
			np = NULL;
			rc = mdb_page_unspill(txn, mp, &np);
			if (rc)
				goto fail;
			if (np)
				goto done;
		}
		if ((rc = mdb_midl_need(&txn->mt_free_pgs, 1)) ||
			(rc = mdb_page_alloc(mc, 1, &np)))
			goto fail;
		pgno = np->mp_pgno;
		DPRINTF(("touched db %d page %"Z"u -> %"Z"u", DDBI(mc),
			mp->mp_pgno, pgno));
		mdb_cassert(mc, mp->mp_pgno != pgno);
		mdb_midl_xappend(txn->mt_free_pgs, mp->mp_pgno);
		/* Update the parent page, if any, to point to the new page */
		if (mc->mc_top) {
			MDB_page *parent = mc->mc_pg[mc->mc_top-1];
			MDB_node *node = NODEPTR(parent, mc->mc_ki[mc->mc_top-1]);
			SETPGNO(node, pgno);
		} else {
			mc->mc_db->md_root = pgno;
		}
	} else if (txn->mt_parent && !IS_SUBP(mp)) {
		MDB_ID2 mid, *dl = txn->mt_u.dirty_list;
		pgno = mp->mp_pgno;
		/* If txn has a parent, make sure the page is in our
		 * dirty list.
		 */
		if (dl[0].mid) {
			unsigned x = mdb_mid2l_search(dl, pgno);
			if (x <= dl[0].mid && dl[x].mid == pgno) {
				if (mp != dl[x].mptr) { /* bad cursor? */
					mc->mc_flags &= ~(C_INITIALIZED|C_EOF);
					txn->mt_flags |= MDB_TXN_ERROR;
					return MDB_CORRUPTED;
				}
				return 0;
			}
		}
		mdb_cassert(mc, dl[0].mid < MDB_IDL_UM_MAX);
		/* No - copy it */
		np = mdb_page_malloc(txn, 1);
		if (!np)
			return ENOMEM;
		mid.mid = pgno;
		mid.mptr = np;
		rc = mdb_mid2l_insert(dl, &mid);
		mdb_cassert(mc, rc == 0);
	} else {
		return 0;
	}

	mdb_page_copy(np, mp, txn->mt_env->me_psize);
	np->mp_pgno = pgno;
	np->mp_flags |= P_DIRTY;

done:
	/* Adjust cursors pointing to mp */
	mc->mc_pg[mc->mc_top] = np;
	m2 = txn->mt_cursors[mc->mc_dbi];
	if (mc->mc_flags & C_SUB) {
		for (; m2; m2=m2->mc_next) {
			m3 = &m2->mc_xcursor->mx_cursor;
			if (m3->mc_snum < mc->mc_snum) continue;
			if (m3->mc_pg[mc->mc_top] == mp)
				m3->mc_pg[mc->mc_top] = np;
		}
	} else {
		for (; m2; m2=m2->mc_next) {
			if (m2->mc_snum < mc->mc_snum) continue;
			if (m2->mc_pg[mc->mc_top] == mp) {
				m2->mc_pg[mc->mc_top] = np;
				if ((mc->mc_db->md_flags & MDB_DUPSORT) &&
					IS_LEAF(np) &&
					m2->mc_ki[mc->mc_top] == mc->mc_ki[mc->mc_top])
				{
					MDB_node *leaf = NODEPTR(np, mc->mc_ki[mc->mc_top]);
					if (!(leaf->mn_flags & F_SUBDATA))
						m2->mc_xcursor->mx_cursor.mc_pg[0] = NODEDATA(leaf);
				}
			}
		}
	}
	return 0;

fail:
	txn->mt_flags |= MDB_TXN_ERROR;
	return rc;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x90, %rsp
movq %rdi, -0x10(%rbp)
movq -0x10(%rbp), %rax
movq -0x10(%rbp), %rcx
movzwl 0x42(%rcx), %ecx
movq 0x48(%rax,%rcx,8), %rax
movq %rax, -0x18(%rbp)
movq -0x10(%rbp), %rax
movq 0x18(%rax), %rax
movq %rax, -0x28(%rbp)
movq -0x18(%rbp), %rax
movzwl 0xa(%rax), %eax
andl $0x10, %eax
cmpl $0x10, %eax
je 0xf616
movq -0x28(%rbp), %rax
movl 0x7c(%rax), %eax
andl $0x8, %eax
cmpl $0x0, %eax
je 0xf4b8
movq $0x0, -0x20(%rbp)
movq -0x28(%rbp), %rdi
movq -0x18(%rbp), %rsi
leaq -0x20(%rbp), %rdx
callq 0xa900
movl %eax, -0x44(%rbp)
cmpl $0x0, -0x44(%rbp)
je 0xf4aa
jmp 0xf9bb
cmpq $0x0, -0x20(%rbp)
je 0xf4b6
jmp 0xf7de
jmp 0xf4b8
movq -0x28(%rbp), %rdi
addq $0x28, %rdi
movl $0x1, %esi
callq 0x127b0
movl %eax, -0x44(%rbp)
cmpl $0x0, %eax
jne 0xf4ec
movq -0x10(%rbp), %rdi
movl $0x1, %esi
leaq -0x20(%rbp), %rdx
callq 0x9fa0
movl %eax, -0x44(%rbp)
cmpl $0x0, %eax
je 0xf4f1
jmp 0xf9bb
movq -0x20(%rbp), %rax
movq (%rax), %rax
movq %rax, -0x40(%rbp)
movq -0x18(%rbp), %rax
movq (%rax), %rax
cmpq -0x40(%rbp), %rax
je 0xf50b
jmp 0xf537
movq -0x10(%rbp), %rax
movq 0x18(%rax), %rax
movq 0x20(%rax), %rdi
leaq 0x84aa(%rip), %rsi      # 0x179c8
leaq 0x84b7(%rip), %rdx      # 0x179dc
leaq 0x7ee3(%rip), %rcx      # 0x1740f
movl $0x95a, %r8d            # imm = 0x95A
callq 0x133a0
jmp 0xf539
movq -0x28(%rbp), %rax
movq 0x28(%rax), %rax
movq %rax, -0x50(%rbp)
movq -0x50(%rbp), %rcx
movq (%rcx), %rax
addq $0x1, %rax
movq %rax, (%rcx)
movq %rax, -0x58(%rbp)
movq -0x18(%rbp), %rax
movq (%rax), %rdx
movq -0x50(%rbp), %rax
movq -0x58(%rbp), %rcx
movq %rdx, (%rax,%rcx,8)
movq -0x10(%rbp), %rax
cmpw $0x0, 0x42(%rax)
je 0xf601
movq -0x10(%rbp), %rax
movq -0x10(%rbp), %rcx
movzwl 0x42(%rcx), %ecx
subl $0x1, %ecx
movslq %ecx, %rcx
movq 0x48(%rax,%rcx,8), %rax
movq %rax, -0x60(%rbp)
movq -0x60(%rbp), %rax
movq -0x60(%rbp), %rcx
movq -0x10(%rbp), %rdx
movq -0x10(%rbp), %rsi
movzwl 0x42(%rsi), %esi
subl $0x1, %esi
movslq %esi, %rsi
movzwl 0x148(%rdx,%rsi,2), %edx
movzwl 0x10(%rcx,%rdx,2), %ecx
movslq %ecx, %rcx
addq %rcx, %rax
movq %rax, -0x68(%rbp)
movq -0x40(%rbp), %rax
andq $0xffff, %rax           # imm = 0xFFFF
movw %ax, %cx
movq -0x68(%rbp), %rax
movw %cx, (%rax)
movq -0x40(%rbp), %rax
shrq $0x10, %rax
movw %ax, %cx
movq -0x68(%rbp), %rax
movw %cx, 0x2(%rax)
movq -0x40(%rbp), %rax
shrq $0x20, %rax
movw %ax, %cx
movq -0x68(%rbp), %rax
movw %cx, 0x4(%rax)
jmp 0xf611
movq -0x40(%rbp), %rcx
movq -0x10(%rbp), %rax
movq 0x28(%rax), %rax
movq %rcx, 0x28(%rax)
jmp 0xf7ac
movq -0x28(%rbp), %rax
cmpq $0x0, (%rax)
je 0xf79e
movq -0x18(%rbp), %rax
movzwl 0xa(%rax), %eax
andl $0x40, %eax
cmpl $0x40, %eax
je 0xf79e
movq -0x28(%rbp), %rax
movq 0x48(%rax), %rax
movq %rax, -0x80(%rbp)
movq -0x18(%rbp), %rax
movq (%rax), %rax
movq %rax, -0x40(%rbp)
movq -0x80(%rbp), %rax
cmpq $0x0, (%rax)
je 0xf6e8
movq -0x80(%rbp), %rdi
movq -0x40(%rbp), %rsi
callq 0x130f0
movl %eax, -0x84(%rbp)
movl -0x84(%rbp), %eax
movq -0x80(%rbp), %rcx
cmpq (%rcx), %rax
ja 0xf6e6
movq -0x80(%rbp), %rax
movl -0x84(%rbp), %ecx
shlq $0x4, %rcx
addq %rcx, %rax
movq (%rax), %rax
cmpq -0x40(%rbp), %rax
jne 0xf6e6
movq -0x18(%rbp), %rax
movq -0x80(%rbp), %rcx
movl -0x84(%rbp), %edx
shlq $0x4, %rdx
addq %rdx, %rcx
cmpq 0x8(%rcx), %rax
je 0xf6da
movq -0x10(%rbp), %rax
movl 0x44(%rax), %ecx
andl $-0x4, %ecx
movl %ecx, 0x44(%rax)
movq -0x28(%rbp), %rax
movl 0x7c(%rax), %ecx
orl $0x2, %ecx
movl %ecx, 0x7c(%rax)
movl $0xffff87b4, -0x4(%rbp) # imm = 0xFFFF87B4
jmp 0xf9ce
movl $0x0, -0x4(%rbp)
jmp 0xf9ce
jmp 0xf6e8
movq -0x80(%rbp), %rax
cmpq $0x1ffff, (%rax)        # imm = 0x1FFFF
jae 0xf6f7
jmp 0xf723
movq -0x10(%rbp), %rax
movq 0x18(%rax), %rax
movq 0x20(%rax), %rdi
leaq 0x82e1(%rip), %rsi      # 0x179eb
leaq 0x82cb(%rip), %rdx      # 0x179dc
leaq 0x7cf7(%rip), %rcx      # 0x1740f
movl $0x975, %r8d            # imm = 0x975
callq 0x133a0
movq -0x28(%rbp), %rdi
movl $0x1, %esi
callq 0xaae0
movq %rax, -0x20(%rbp)
cmpq $0x0, -0x20(%rbp)
jne 0xf748
movl $0xc, -0x4(%rbp)
jmp 0xf9ce
movq -0x40(%rbp), %rax
movq %rax, -0x78(%rbp)
movq -0x20(%rbp), %rax
movq %rax, -0x70(%rbp)
movq -0x80(%rbp), %rdi
leaq -0x78(%rbp), %rsi
callq 0x131e0
movl %eax, -0x44(%rbp)
cmpl $0x0, -0x44(%rbp)
jne 0xf770
jmp 0xf79c
movq -0x10(%rbp), %rax
movq 0x18(%rax), %rax
movq 0x20(%rax), %rdi
leaq 0x8283(%rip), %rsi      # 0x17a06
leaq 0x8252(%rip), %rdx      # 0x179dc
leaq 0x7c7e(%rip), %rcx      # 0x1740f
movl $0x97d, %r8d            # imm = 0x97D
callq 0x133a0
jmp 0xf7aa
movl $0x0, -0x4(%rbp)
jmp 0xf9ce
jmp 0xf7ac
movq -0x20(%rbp), %rdi
movq -0x18(%rbp), %rsi
movq -0x28(%rbp), %rax
movq 0x20(%rax), %rax
movl 0x10(%rax), %edx
callq 0xfd30
movq -0x40(%rbp), %rcx
movq -0x20(%rbp), %rax
movq %rcx, (%rax)
movq -0x20(%rbp), %rax
movzwl 0xa(%rax), %ecx
orl $0x10, %ecx
movw %cx, 0xa(%rax)
movq -0x20(%rbp), %rdx
movq -0x10(%rbp), %rax
movq -0x10(%rbp), %rcx
movzwl 0x42(%rcx), %ecx
movq %rdx, 0x48(%rax,%rcx,8)
movq -0x28(%rbp), %rax
movq 0x68(%rax), %rax
movq -0x10(%rbp), %rcx
movl 0x20(%rcx), %ecx
movq (%rax,%rcx,8), %rax
movq %rax, -0x30(%rbp)
movq -0x10(%rbp), %rax
movl 0x44(%rax), %eax
andl $0x4, %eax
cmpl $0x0, %eax
je 0xf884
jmp 0xf81b
cmpq $0x0, -0x30(%rbp)
je 0xf87f
movq -0x30(%rbp), %rax
movq 0x10(%rax), %rax
movq %rax, -0x38(%rbp)
movq -0x38(%rbp), %rax
movzwl 0x40(%rax), %eax
movq -0x10(%rbp), %rcx
movzwl 0x40(%rcx), %ecx
cmpl %ecx, %eax
jge 0xf844
jmp 0xf872
movq -0x38(%rbp), %rax
movq -0x10(%rbp), %rcx
movzwl 0x42(%rcx), %ecx
movq 0x48(%rax,%rcx,8), %rax
cmpq -0x18(%rbp), %rax
jne 0xf870
movq -0x20(%rbp), %rdx
movq -0x38(%rbp), %rax
movq -0x10(%rbp), %rcx
movzwl 0x42(%rcx), %ecx
movq %rdx, 0x48(%rax,%rcx,8)
jmp 0xf872
movq -0x30(%rbp), %rax
movq (%rax), %rax
movq %rax, -0x30(%rbp)
jmp 0xf81b
jmp 0xf9b2
jmp 0xf886
cmpq $0x0, -0x30(%rbp)
je 0xf9b0
movq -0x30(%rbp), %rax
movzwl 0x40(%rax), %eax
movq -0x10(%rbp), %rcx
movzwl 0x40(%rcx), %ecx
cmpl %ecx, %eax
jge 0xf8aa
jmp 0xf9a0
movq -0x30(%rbp), %rax
movq -0x10(%rbp), %rcx
movzwl 0x42(%rcx), %ecx
movq 0x48(%rax,%rcx,8), %rax
cmpq -0x18(%rbp), %rax
jne 0xf99e
movq -0x20(%rbp), %rdx
movq -0x30(%rbp), %rax
movq -0x10(%rbp), %rcx
movzwl 0x42(%rcx), %ecx
movq %rdx, 0x48(%rax,%rcx,8)
movq -0x10(%rbp), %rax
movq 0x28(%rax), %rax
movzwl 0x4(%rax), %eax
andl $0x4, %eax
cmpl $0x0, %eax
je 0xf99c
movq -0x20(%rbp), %rax
movzwl 0xa(%rax), %eax
andl $0x2, %eax
cmpl $0x2, %eax
jne 0xf99c
movq -0x30(%rbp), %rax
movq -0x10(%rbp), %rcx
movzwl 0x42(%rcx), %ecx
movzwl 0x148(%rax,%rcx,2), %eax
movq -0x10(%rbp), %rcx
movq -0x10(%rbp), %rdx
movzwl 0x42(%rdx), %edx
movzwl 0x148(%rcx,%rdx,2), %ecx
cmpl %ecx, %eax
jne 0xf99c
movq -0x20(%rbp), %rax
movq -0x20(%rbp), %rcx
movq -0x10(%rbp), %rdx
movq -0x10(%rbp), %rsi
movzwl 0x42(%rsi), %esi
movzwl 0x148(%rdx,%rsi,2), %edx
movzwl 0x10(%rcx,%rdx,2), %ecx
movslq %ecx, %rcx
addq %rcx, %rax
movq %rax, -0x90(%rbp)
movq -0x90(%rbp), %rax
movzwl 0x4(%rax), %eax
andl $0x2, %eax
cmpl $0x0, %eax
jne 0xf99a
movq -0x90(%rbp), %rcx
addq $0x8, %rcx
movq -0x90(%rbp), %rax
movzwl 0x6(%rax), %eax
cltq
addq %rax, %rcx
movq -0x30(%rbp), %rax
movq 0x10(%rax), %rax
movq %rcx, 0x48(%rax)
jmp 0xf99c
jmp 0xf99e
jmp 0xf9a0
movq -0x30(%rbp), %rax
movq (%rax), %rax
movq %rax, -0x30(%rbp)
jmp 0xf886
jmp 0xf9b2
movl $0x0, -0x4(%rbp)
jmp 0xf9ce
movq -0x28(%rbp), %rax
movl 0x7c(%rax), %ecx
orl $0x2, %ecx
movl %ecx, 0x7c(%rax)
movl -0x44(%rbp), %eax
movl %eax, -0x4(%rbp)
movl -0x4(%rbp), %eax
addq $0x90, %rsp
popq %rbp
retq
nopw (%rax,%rax)