LLM4Binary/decompile-bench-makefile huggingface dataset:
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: isdoublez
int
isdoublez(struct atom *p)
{
	if (car(p) == symbol(ADD)) {

		if (lengthf(p) != 3)
			return 0;

		if (!isdouble(cadr(p))) // x
			return 0;

		p = caddr(p);
	}

	if (car(p) != symbol(MULTIPLY))
		return 0;

	if (lengthf(p) != 3)
		return 0;

	if (!isdouble(cadr(p))) // y
		return 0;

	p = caddr(p);

	if (car(p) != symbol(POWER))
		return 0;

	if (!isminusone(cadr(p)))
		return 0;

	if (!isequalq(caddr(p), 1, 2))
		return 0;

	return 1;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
movb 0x10(%rdi), %cl
cmpb $0x1, %cl
leaq 0x34640(%rip), %rax     # 0x40a00
movq %rax, %rdx
cmoveq %rdi, %rdx
movq (%rdx), %rdx
cmpq 0x36ecf(%rip), %rdx     # 0x432a0
je 0xc50e
movb 0x10(%rdi), %cl
cmpb $0x1, %cl
setne %dl
movq %rdi, %rsi
cmovneq %rax, %rsi
movq (%rsi), %rsi
cmpq 0x36eb7(%rip), %rsi     # 0x432a8
setne %sil
orb %dl, %sil
jne 0xc58a
movl $0x3, %edx
movq %rdi, %rsi
movq 0x8(%rsi), %rsi
decl %edx
cmpb $0x1, 0x10(%rsi)
je 0xc406
testl %edx, %edx
jne 0xc58a
addq $0x8, %rdi
cmpb $0x1, %cl
cmovneq %rax, %rdi
movq (%rdi), %rcx
movb 0x10(%rcx), %dl
cmpb $0x1, %dl
movq %rax, %rsi
cmoveq %rcx, %rsi
movq (%rsi), %rsi
cmpb $0x5, 0x10(%rsi)
jne 0xc58a
addq $0x8, %rcx
cmpb $0x1, %dl
movq %rax, %rsi
cmoveq %rcx, %rsi
movq (%rsi), %rsi
cmpb $0x1, 0x10(%rsi)
movq %rax, %rsi
jne 0xc46d
cmpb $0x1, %dl
leaq 0x3459a(%rip), %rdx     # 0x40a00
cmoveq %rcx, %rdx
movq (%rdx), %rsi
movq (%rsi), %rcx
movb 0x10(%rcx), %dl
cmpb $0x1, %dl
cmoveq %rcx, %rax
movq (%rax), %rax
cmpq 0x36e2c(%rip), %rax     # 0x432b0
jne 0xc58a
addq $0x8, %rcx
cmpb $0x1, %dl
leaq 0x34568(%rip), %rbx     # 0x40a00
cmovneq %rbx, %rcx
movq (%rcx), %r14
movb 0x10(%r14), %r15b
cmpb $0x1, %r15b
movq %rbx, %rax
cmoveq %r14, %rax
movq (%rax), %rdi
movl $0xffffffff, %esi       # imm = 0xFFFFFFFF
movl $0x1, %edx
callq 0xcb82
testl %eax, %eax
je 0xc58a
addq $0x8, %r14
cmpb $0x1, %r15b
movq %rbx, %rax
cmoveq %r14, %rax
movq (%rax), %rax
cmpb $0x1, 0x10(%rax)
jne 0xc4f2
cmpb $0x1, %r15b
leaq 0x34515(%rip), %rax     # 0x40a00
cmoveq %r14, %rax
movq (%rax), %rbx
movq (%rbx), %rdi
movl $0x1, %esi
movl $0x2, %edx
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0xcb82
cmpb $0x1, %cl
jne 0xc58a
movl $0x3, %edx
movq %rdi, %rsi
movq 0x8(%rsi), %rsi
decl %edx
cmpb $0x1, 0x10(%rsi)
je 0xc51b
testl %edx, %edx
jne 0xc58a
addq $0x8, %rdi
cmpb $0x1, %cl
leaq 0x344c7(%rip), %rcx     # 0x40a00
cmovneq %rcx, %rdi
movq (%rdi), %rdx
movb 0x10(%rdx), %sil
cmpb $0x1, %sil
movq %rcx, %rdi
cmoveq %rdx, %rdi
movq (%rdi), %rdi
cmpb $0x5, 0x10(%rdi)
jne 0xc58a
addq $0x8, %rdx
cmpb $0x1, %sil
movq %rcx, %rdi
cmoveq %rdx, %rdi
movq (%rdi), %rdi
cmpb $0x1, 0x10(%rdi)
jne 0xc582
cmpb $0x1, %sil
leaq 0x34485(%rip), %rcx     # 0x40a00
cmoveq %rdx, %rcx
movq (%rcx), %rcx
movq (%rcx), %rdi
jmp 0xc3d7
xorl %eax, %eax
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: isequalq
int
isequalq(struct atom *p, int a, int b)
{
	int sign;
	if (isrational(p)) {
		if (a < 0) {
			sign = MMINUS;
			a = -a;
		} else
			sign = MPLUS;
		return p->sign == sign && MEQUAL(p->u.q.a, a) && MEQUAL(p->u.q.b, b);
	}
	if (isdouble(p))
		return p->u.d == (double) a / b;
	return 0;
}

// Assembly:
movzbl 0x10(%rdi), %eax
cmpl $0x5, %eax
je 0xcbc8
cmpl $0x4, %eax
jne 0xcbc4
movl %esi, %eax
negl %eax
cmovsl %esi, %eax
shrl $0x1f, %esi
movzbl 0x12(%rdi), %ecx
cmpl %ecx, %esi
jne 0xcbc4
pushq %rbp
movq %rsp, %rbp
movq (%rdi), %rcx
cmpl $0x1, -0x4(%rcx)
jne 0xcbe3
cmpl %eax, (%rcx)
jne 0xcbe3
movq 0x8(%rdi), %rax
cmpl $0x1, -0x4(%rax)
jne 0xcbe3
cmpl %edx, (%rax)
sete %al
jmp 0xcbe5
xorl %eax, %eax
jmp 0xcbe6
cvtsi2sd %esi, %xmm0
cvtsi2sd %edx, %xmm1
divsd %xmm1, %xmm0
cmpeqsd (%rdi), %xmm0
movq %xmm0, %rax
andl $0x1, %eax
jmp 0xcbe6
xorl %eax, %eax
popq %rbp
movzbl %al, %eax
retq
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: arccosh
void
arccosh(void)
{
	int i, n;
	double d;
	struct atom *p1;

	p1 = pop();

	if (istensor(p1)) {
		p1 = copy_tensor(p1);
		n = p1->u.tensor->nelem;
		for (i = 0; i < n; i++) {
			push(p1->u.tensor->elem[i]);
			arccosh();
			p1->u.tensor->elem[i] = pop();
		}
		push(p1);
		return;
	}

	if (isdouble(p1)) {
		push(p1);
		d = pop_double();
		if (d >= 1.0) {
			d = acosh(d);
			push_double(d);
			return;
		}
	}

	// arccosh(z) = log(sqrt(z^2 - 1) + z)

	if (isdouble(p1) || isdoublez(p1)) {
		push(p1);
		push(p1);
		multiply();
		push_double(-1.0);
		add();
		sqrtfunc();
		push(p1);
		add();
		logfunc();
		return;
	}

	if (isplusone(p1)) {
		push_integer(0);
		return;
	}

	if (car(p1) == symbol(COSH)) {
		push(cadr(p1));
		return;
	}

	push_symbol(ARCCOSH);
	push(p1);
	list(2);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
callq 0x8b78
movq %rax, %rbx
movzbl 0x10(%rax), %eax
cmpl $0x5, %eax
je 0xcc9c
cmpl $0x7, %eax
jne 0xccb7
movq %rbx, %rdi
callq 0x953d
movq %rax, %rbx
movq (%rax), %rax
movslq 0x64(%rax), %r14
testq %r14, %r14
jle 0xcc94
xorl %r15d, %r15d
movq (%rbx), %rax
movq 0x68(%rax,%r15,8), %rdi
callq 0x8b01
callq 0xcc33
callq 0x8b78
movq (%rbx), %rcx
movq %rax, 0x68(%rcx,%r15,8)
incq %r15
cmpq %r15, %r14
jne 0xcc6d
movq %rbx, %rdi
jmp 0xcd86
movq %rbx, %rdi
callq 0x8b01
callq 0x9086
ucomisd 0x1945f(%rip), %xmm0    # 0x26110
jae 0xcd48
movb 0x10(%rbx), %r14b
cmpb $0x5, %r14b
je 0xccd1
movq %rbx, %rdi
callq 0xc3a9
testl %eax, %eax
je 0xcd69
movq %rbx, %rdi
callq 0x8b01
movq %rbx, %rdi
callq 0x8b01
movl $0x2, %edi
callq 0xa8bb
callq 0x74ec
movb $0x5, 0x10(%rax)
movabsq $-0x4010000000000000, %rcx # imm = 0xBFF0000000000000
movq %rcx, (%rax)
movq %rax, %rdi
callq 0x8b01
movl $0x2, %edi
callq 0xa975
movl $0x1, %edi
movl $0x2, %esi
callq 0xa1f4
callq 0xa234
movq %rbx, %rdi
callq 0x8b01
movl $0x2, %edi
callq 0xa975
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0xc5b0
callq 0x7340
movsd %xmm0, -0x20(%rbp)
callq 0x74ec
movb $0x5, 0x10(%rax)
movsd -0x20(%rbp), %xmm0
movsd %xmm0, (%rax)
movq %rax, %rdi
jmp 0xcd86
movq %rbx, %rdi
movl $0x1, %esi
movl $0x1, %edx
callq 0xcb82
testl %eax, %eax
je 0xcd95
movq 0x313ba(%rip), %rdi     # 0x3e140
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x8b01
cmpb $0x1, %r14b
leaq 0x33c60(%rip), %rax     # 0x40a00
movq %rax, %rcx
cmoveq %rbx, %rcx
movq (%rcx), %rcx
cmpq 0x31a47(%rip), %rcx     # 0x3e7f8
je 0xcddb
movq 0x313c6(%rip), %rdi     # 0x3e180
callq 0x8b01
movq %rbx, %rdi
callq 0x8b01
movl $0x2, %edi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x8ad9
addq $0x8, %rbx
cmpb $0x1, %r14b
cmovneq %rax, %rbx
movq (%rbx), %rcx
cmpb $0x1, 0x10(%rcx)
cmoveq %rcx, %rax
movq (%rax), %rdi
jmp 0xcd86
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: arcsinh
void
arcsinh(void)
{
	int i, n;
	double d;
	struct atom *p1;

	p1 = pop();

	if (istensor(p1)) {
		p1 = copy_tensor(p1);
		n = p1->u.tensor->nelem;
		for (i = 0; i < n; i++) {
			push(p1->u.tensor->elem[i]);
			arcsinh();
			p1->u.tensor->elem[i] = pop();
		}
		push(p1);
		return;
	}

	if (isdouble(p1)) {
		push(p1);
		d = pop_double();
		d = asinh(d);
		push_double(d);
		return;
	}

	// arcsinh(z) = log(sqrt(z^2 + 1) + z)

	if (isdoublez(p1)) {
		push(p1);
		push(p1);
		multiply();
		push_double(1.0);
		add();
		sqrtfunc();
		push(p1);
		add();
		logfunc();
		return;
	}

	if (iszero(p1)) {
		push(p1);
		return;
	}

	// arcsinh(-x) = -arcsinh(x)

	if (isnegativeterm(p1)) {
		push(p1);
		negate();
		arcsinh();
		negate();
		return;
	}

	if (car(p1) == symbol(SINH)) {
		push(cadr(p1));
		return;
	}

	push_symbol(ARCSINH);
	push(p1);
	list(2);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
callq 0x8b78
movq %rax, %rbx
movzbl 0x10(%rax), %r14d
cmpl $0x5, %r14d
je 0xd142
cmpl $0x7, %r14d
jne 0xd173
movq %rbx, %rdi
callq 0x953d
movq %rax, %rbx
movq (%rax), %rax
movslq 0x64(%rax), %r14
testq %r14, %r14
jle 0xd1ff
xorl %r15d, %r15d
movq (%rbx), %rax
movq 0x68(%rax,%r15,8), %rdi
callq 0x8b01
callq 0xd0d5
callq 0x8b78
movq (%rbx), %rcx
movq %rax, 0x68(%rcx,%r15,8)
incq %r15
cmpq %r15, %r14
jne 0xd116
jmp 0xd1ff
movq %rbx, %rdi
callq 0x8b01
callq 0x9086
callq 0x73b0
movsd %xmm0, -0x20(%rbp)
callq 0x74ec
movb $0x5, 0x10(%rax)
movsd -0x20(%rbp), %xmm0
movsd %xmm0, (%rax)
movq %rax, %rdi
jmp 0xd202
movq %rbx, %rdi
callq 0xc3a9
movq %rbx, %rdi
testl %eax, %eax
je 0xd1f6
callq 0x8b01
movq %rbx, %rdi
callq 0x8b01
movl $0x2, %edi
callq 0xa8bb
callq 0x74ec
movb $0x5, 0x10(%rax)
movabsq $0x3ff0000000000000, %rcx # imm = 0x3FF0000000000000
movq %rcx, (%rax)
movq %rax, %rdi
callq 0x8b01
movl $0x2, %edi
callq 0xa975
movl $0x1, %edi
movl $0x2, %esi
callq 0xa1f4
callq 0xa234
movq %rbx, %rdi
callq 0x8b01
movl $0x2, %edi
callq 0xa975
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0xc5b0
callq 0xaece
testl %eax, %eax
je 0xd211
movq %rbx, %rdi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x8b01
movq %rbx, %rdi
callq 0xa813
testl %eax, %eax
je 0xd260
movq %rbx, %rdi
callq 0x8b01
movq 0x1041c4(%rip), %rdi    # 0x1113f0
callq 0x8b01
movl $0x2, %edi
callq 0xa8bb
callq 0xd0d5
movq 0x1041a9(%rip), %rdi    # 0x1113f0
callq 0x8b01
movl $0x2, %edi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0xa8bb
cmpb $0x1, %r14b
leaq 0x33795(%rip), %rax     # 0x40a00
movq %rax, %rcx
cmoveq %rbx, %rcx
movq (%rcx), %rcx
cmpq 0x3474c(%rip), %rcx     # 0x419c8
je 0xd2a6
movq 0x30f0b(%rip), %rdi     # 0x3e190
callq 0x8b01
movq %rbx, %rdi
callq 0x8b01
movl $0x2, %edi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x8ad9
addq $0x8, %rbx
cmpb $0x1, %r14b
cmovneq %rax, %rbx
movq (%rbx), %rcx
cmpb $0x1, 0x10(%rcx)
cmoveq %rcx, %rax
movq (%rax), %rdi
jmp 0xd202
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: eval_arctan
void
eval_arctan(struct atom *p1)
{
	push(cadr(p1));
	evalf();

	p1 = cddr(p1);

	if (iscons(p1)) {
		push(car(p1));
		evalf();
	} else
		push_integer(1);

	arctan();
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
movq %rdi, %rbx
leaq 0x8(%rdi), %r14
cmpb $0x1, 0x10(%rdi)
leaq 0x3371f(%rip), %r15     # 0x40a00
movq %r15, %rax
cmoveq %r14, %rax
movq (%rax), %rax
cmpb $0x1, 0x10(%rax)
cmovneq %r15, %rax
movq (%rax), %rdi
callq 0x8b01
callq 0x95e2
cmpb $0x1, 0x10(%rbx)
cmovneq %r15, %r14
movq (%r14), %rax
leaq 0x8(%rax), %rcx
cmpb $0x1, 0x10(%rax)
cmovneq %r15, %rcx
movq (%rcx), %rax
cmpb $0x1, 0x10(%rax)
jne 0xd32f
movq (%rax), %rdi
callq 0x8b01
callq 0x95e2
jmp 0xd33b
movq 0xf97a2(%rip), %rdi     # 0x106ad8
callq 0x8b01
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0xd34a
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: eval_arg
void
eval_arg(struct atom *p1)
{
	push(cadr(p1));
	evalf();
	polar(); // normalize
	argfunc();
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
cmpb $0x1, 0x10(%rdi)
leaq 0x8(%rdi), %rax
leaq 0x32d88(%rip), %rcx     # 0x40a00
cmovneq %rcx, %rax
movq (%rax), %rax
cmpb $0x1, 0x10(%rax)
cmoveq %rax, %rcx
movq (%rcx), %rdi
callq 0x8b01
callq 0x95e2
callq 0xdc9f
popq %rbp
jmp 0xddb0
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: polar
void
polar(void)
{
	int i, n;
	struct atom *p1, *p2;

	p1 = pop();

	if (istensor(p1)) {
		p1 = copy_tensor(p1);
		n = p1->u.tensor->nelem;
		for (i = 0; i < n; i++) {
			push(p1->u.tensor->elem[i]);
			polar();
			p1->u.tensor->elem[i] = pop();
		}
		push(p1);
		return;
	}

	push(p1);
	magfunc();
	push(p1);
	argfunc();
	p2 = pop();
	if (isdouble(p2)) {
		push_double(p2->u.d / M_PI);
		push_symbol(PI);
		push(imaginaryunit);
		multiply_factors(3);
	} else {
		// the result of arg is arctan
		push(p2);
		push(imaginaryunit);
		multiply();
	}
	expfunc();
	multiply();
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
callq 0x8b78
movq %rax, %rbx
cmpb $0x7, 0x10(%rax)
jne 0xdd0a
movq %rbx, %rdi
callq 0x953d
movq %rax, %rbx
movq (%rax), %rax
movslq 0x64(%rax), %r14
testq %r14, %r14
jle 0xdcf8
xorl %r15d, %r15d
movq (%rbx), %rax
movq 0x68(%rax,%r15,8), %rdi
callq 0x8b01
callq 0xdc9f
callq 0x8b78
movq (%rbx), %rcx
movq %rax, 0x68(%rcx,%r15,8)
incq %r15
cmpq %r15, %r14
jne 0xdcd1
movq %rbx, %rdi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x8b01
movq %rbx, %rdi
callq 0x8b01
callq 0xe8e3
movq %rbx, %rdi
callq 0x8b01
callq 0xddb0
callq 0x8b78
movl $0x2, %ebx
cmpb $0x5, 0x10(%rax)
jne 0xdd6b
movsd (%rax), %xmm0
divsd 0x183e0(%rip), %xmm0    # 0x26120
movsd %xmm0, -0x20(%rbp)
callq 0x74ec
movb $0x5, 0x10(%rax)
movsd -0x20(%rbp), %xmm0
movsd %xmm0, (%rax)
movq %rax, %rdi
callq 0x8b01
movl $0x3, %ebx
movq 0x332e5(%rip), %rax     # 0x41050
movq %rax, %rdi
callq 0x8b01
movq 0xf8d66(%rip), %rdi     # 0x106ae0
callq 0x8b01
movl %ebx, %edi
callq 0xa8bb
movq 0x3553b(%rip), %rdi     # 0x432c8
callq 0x8b01
callq 0xad38
callq 0xa234
movl $0x2, %edi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0xa8bb
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: argfunc
void
argfunc(void)
{
	int i, n;
	struct atom *p1, *p2, *num, *den;

	p1 = pop();

	if (istensor(p1)) {
		p1 = copy_tensor(p1);
		n = p1->u.tensor->nelem;
		for (i = 0; i < n; i++) {
			push(p1->u.tensor->elem[i]);
			argfunc();
			p1->u.tensor->elem[i] = pop();
		}
		push(p1);
		return;
	}

	push(p1);
	numden();
	num = pop();
	den = pop();
	push(num);
	arg_nib();
	push(den);
	arg_nib();
	subtract();

	p2 = pop();

	if (hasdouble(p1) && findf(p2, symbol(PI))) {
		push(p2);
		push_symbol(PI);
		push_double(M_PI);
		subst();
		evalf();
	} else
		push(p2);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
callq 0x8b78
movq %rax, %rbx
cmpb $0x7, 0x10(%rax)
jne 0xde11
movq %rbx, %rdi
callq 0x953d
movq %rax, %rbx
movq (%rax), %rax
movslq 0x64(%rax), %r14
testq %r14, %r14
jle 0xde09
xorl %r15d, %r15d
movq (%rbx), %rax
movq 0x68(%rax,%r15,8), %rdi
callq 0x8b01
callq 0xddb0
callq 0x8b78
movq (%rbx), %rcx
movq %rax, 0x68(%rcx,%r15,8)
incq %r15
cmpq %r15, %r14
jne 0xdde2
movq %rbx, %rdi
jmp 0xded8
movq %rbx, %rdi
callq 0x8b01
callq 0xdee7
callq 0x8b78
movq %rax, %r14
callq 0x8b78
movq %rax, %r15
movq %r14, %rdi
callq 0x8b01
callq 0xdf72
movq %r15, %rdi
callq 0x8b01
callq 0xdf72
movq 0x1035a1(%rip), %rdi    # 0x1113f0
callq 0x8b01
movl $0x2, %edi
callq 0xa8bb
movl $0x2, %edi
callq 0xa975
callq 0x8b78
movq %rax, %r14
movq %rbx, %rdi
callq 0xe24b
testl %eax, %eax
je 0xded5
movq 0x331cd(%rip), %rsi     # 0x41050
movq %r14, %rdi
callq 0x8bd3
testl %eax, %eax
je 0xded5
movq %r14, %rdi
callq 0x8b01
movq 0x331b2(%rip), %rdi     # 0x41050
callq 0x8b01
callq 0x74ec
movb $0x5, 0x10(%rax)
movabsq $0x400921fb54442d18, %rcx # imm = 0x400921FB54442D18
movq %rcx, (%rax)
movq %rax, %rdi
callq 0x8b01
callq 0x9402
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x95e2
movq %r14, %rdi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x8b01
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: numden
void
numden(void)
{
	struct atom *p0, *p1, *p2;

	p1 = pop();
	p2 = one;

	while (numden_find_divisor(p1)) {
		p0 = pop();
		push(p0);
		push(p1);
		numden_cancel_factor();
		p1 = pop();
		push(p0);
		push(p2);
		multiply();
		p2 = pop();
	}

	push(p2);
	push(p1);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
callq 0x8b78
movq %rax, %rbx
movq 0xf8bd8(%rip), %r14     # 0x106ad8
movq %rax, %rdi
callq 0x24a02
testl %eax, %eax
je 0xdf58
callq 0x8b78
movq %rax, %r15
movq %rax, %rdi
callq 0x8b01
movq %rbx, %rdi
callq 0x8b01
callq 0x24a8c
callq 0x8b78
movq %rax, %rbx
movq %r15, %rdi
callq 0x8b01
movq %r14, %rdi
callq 0x8b01
movl $0x2, %edi
callq 0xa8bb
callq 0x8b78
movq %rax, %r14
movq %rbx, %rdi
jmp 0xdf03
movq %r14, %rdi
callq 0x8b01
movq %rbx, %rdi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x8b01
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: hasdouble
int
hasdouble(struct atom *p)
{
	if (iscons(p)) {
		p = cdr(p);
		while (iscons(p)) {
			if (hasdouble(car(p)))
				return 1;
			p = cdr(p);
		}
		return 0;
	}
	return isdouble(p);
}

// Assembly:
movb 0x10(%rdi), %cl
cmpb $0x1, %cl
jne 0xe279
pushq %rbp
movq %rsp, %rbp
pushq %rbx
pushq %rax
movq %rdi, %rbx
movq 0x8(%rbx), %rbx
cmpb $0x1, 0x10(%rbx)
jne 0xe282
movq (%rbx), %rdi
callq 0xe24b
testl %eax, %eax
je 0xe25c
movl $0x1, %eax
jmp 0xe284
xorl %eax, %eax
cmpb $0x5, %cl
sete %al
retq
xorl %eax, %eax
addq $0x8, %rsp
popq %rbx
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: imag
void
imag(void)
{
	int i, n;
	struct atom *p1;

	p1 = pop();

	if (istensor(p1)) {
		p1 = copy_tensor(p1);
		n = p1->u.tensor->nelem;
		for (i = 0; i < n; i++) {
			push(p1->u.tensor->elem[i]);
			imag();
			p1->u.tensor->elem[i] = pop();
		}
		push(p1);
		return;
	}

	push(p1);
	rect();
	p1 = pop();
	push_rational(-1, 2);
	push(imaginaryunit);
	push(p1);
	push(p1);
	conjfunc();
	subtract();
	multiply_factors(3);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
callq 0x8b78
cmpb $0x7, 0x10(%rax)
jne 0xe2f3
movq %rax, %rdi
callq 0x953d
movq %rax, %rbx
movq (%rax), %rax
movslq 0x64(%rax), %r14
testq %r14, %r14
jle 0xe2e1
xorl %r15d, %r15d
movq (%rbx), %rax
movq 0x68(%rax,%r15,8), %rdi
callq 0x8b01
callq 0xe28b
callq 0x8b78
movq (%rbx), %rcx
movq %rax, 0x68(%rcx,%r15,8)
incq %r15
cmpq %r15, %r14
jne 0xe2ba
movq %rbx, %rdi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x8b01
movq %rax, %rdi
callq 0x8b01
callq 0x145aa
callq 0x8b78
movq %rax, %rbx
movl $0xffffffff, %edi       # imm = 0xFFFFFFFF
movl $0x2, %esi
callq 0xa1f4
movq 0xf87c2(%rip), %rdi     # 0x106ae0
callq 0x8b01
movq %rbx, %rdi
callq 0x8b01
movq %rbx, %rdi
callq 0x8b01
callq 0xed50
callq 0x95e2
movq 0x1030ac(%rip), %rdi    # 0x1113f0
callq 0x8b01
movl $0x2, %edi
callq 0xa8bb
movl $0x2, %edi
callq 0xa975
movl $0x3, %edi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0xa8bb
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: real
void
real(void)
{
	int i, n;
	struct atom *p1;

	p1 = pop();

	if (istensor(p1)) {
		p1 = copy_tensor(p1);
		n = p1->u.tensor->nelem;
		for (i = 0; i < n; i++) {
			push(p1->u.tensor->elem[i]);
			real();
			p1->u.tensor->elem[i] = pop();
		}
		push(p1);
		return;
	}

	push(p1);
	rect();
	p1 = pop();
	push(p1);
	push(p1);
	conjfunc();
	add();
	push_rational(1, 2);
	multiply();
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
callq 0x8b78
cmpb $0x7, 0x10(%rax)
jne 0xe3d9
movq %rax, %rdi
callq 0x953d
movq %rax, %rbx
movq (%rax), %rax
movslq 0x64(%rax), %r14
testq %r14, %r14
jle 0xe3c7
xorl %r15d, %r15d
movq (%rbx), %rax
movq 0x68(%rax,%r15,8), %rdi
callq 0x8b01
callq 0xe371
callq 0x8b78
movq (%rbx), %rcx
movq %rax, 0x68(%rcx,%r15,8)
incq %r15
cmpq %r15, %r14
jne 0xe3a0
movq %rbx, %rdi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x8b01
movq %rax, %rdi
callq 0x8b01
callq 0x145aa
callq 0x8b78
movq %rax, %rbx
movq %rax, %rdi
callq 0x8b01
movq %rbx, %rdi
callq 0x8b01
callq 0xed50
callq 0x95e2
movl $0x2, %edi
callq 0xa975
movl $0x1, %edi
movl $0x2, %esi
callq 0xa1f4
movl $0x2, %edi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0xa8bb
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: get_binding
struct atom *
get_binding(struct atom *p1)
{
	struct atom *p2;
	if (!isusersymbol(p1))
		stopf("symbol error");
	p2 = binding[p1->u.usym.index];
	if (p2 == NULL || p2 == symbol(NIL))
		p2 = p1; // symbol binds to itself
	return p2;
}

// Assembly:
cmpb $0x3, 0x10(%rdi)
jne 0xe492
movl 0x8(%rdi), %eax
leaq 0xf8678(%rip), %rcx     # 0x106af0
movq (%rcx,%rax,8), %rcx
cmpq 0x3257d(%rip), %rcx     # 0x40a00
movq %rcx, %rax
cmoveq %rdi, %rax
testq %rcx, %rcx
cmoveq %rdi, %rax
retq
pushq %rbp
movq %rsp, %rbp
leaq 0x1cadd(%rip), %rdi     # 0x2af7a
callq 0x77c8
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: ceilingfunc
void
ceilingfunc(void)
{
	int i, n;
	uint32_t *a, *b;
	double d;
	struct atom *p1;

	p1 = pop();

	if (istensor(p1)) {
		p1 = copy_tensor(p1);
		n = p1->u.tensor->nelem;
		for (i = 0; i < n; i++) {
			push(p1->u.tensor->elem[i]);
			ceilingfunc();
			p1->u.tensor->elem[i] = pop();
		}
		push(p1);
		return;
	}

	if (isinteger(p1)) {
		push(p1);
		return;
	}

	if (isrational(p1)) {
		a = mdiv(p1->u.q.a, p1->u.q.b);
		b = mint(1);
		if (isnegativenumber(p1))
			push_bignum(MMINUS, a, b);
		else {
			push_bignum(MPLUS, a, b);
			push_integer(1);
			add();
		}
		return;
	}

	if (isdouble(p1)) {
		push(p1);
		d = pop_double();
		d = ceil(d);
		push_double(d);
		return;
	}

	push_symbol(CEILING);
	push(p1);
	list(2);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
callq 0x8b78
movq %rax, %rbx
movzbl 0x10(%rax), %eax
cmpl $0x4, %eax
je 0xe562
cmpl $0x5, %eax
je 0xe5b4
cmpl $0x7, %eax
jne 0xe5ef
movq %rbx, %rdi
callq 0x953d
movq %rax, %rbx
movq (%rax), %rax
movslq 0x64(%rax), %r14
testq %r14, %r14
jle 0xe571
xorl %r15d, %r15d
movq (%rbx), %rax
movq 0x68(%rax,%r15,8), %rdi
callq 0x8b01
callq 0xe4f2
callq 0x8b78
movq (%rbx), %rcx
movq %rax, 0x68(%rcx,%r15,8)
incq %r15
cmpq %r15, %r14
jne 0xe539
jmp 0xe571
movq 0x8(%rbx), %rcx
cmpl $0x1, -0x4(%rcx)
jne 0xe576
cmpl $0x1, (%rcx)
jne 0xe576
movq %rbx, %rdi
jmp 0xe5e0
cmpl $0x5, %eax
je 0xe5b4
cmpl $0x4, %eax
jne 0xe5ef
movq (%rbx), %rdi
movq 0x8(%rbx), %rsi
callq 0x8049
movq %rax, %r14
movl $0x1, %edi
callq 0x7ad5
movzbl 0x10(%rbx), %ecx
cmpl $0x5, %ecx
je 0xe617
cmpl $0x4, %ecx
jne 0xe640
cmpb $0x1, 0x12(%rbx)
sete %cl
jmp 0xe622
movq %rbx, %rdi
callq 0x8b01
callq 0x9086
callq 0x7370
movsd %xmm0, -0x20(%rbp)
callq 0x74ec
movb $0x5, 0x10(%rax)
movsd -0x20(%rbp), %xmm0
movsd %xmm0, (%rax)
movq %rax, %rdi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x8b01
movq 0x301ba(%rip), %rdi     # 0x3e7b0
callq 0x8b01
movq %rbx, %rdi
callq 0x8b01
movl $0x2, %edi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x8ad9
xorpd %xmm0, %xmm0
ucomisd (%rbx), %xmm0
seta %cl
testb %cl, %cl
je 0xe640
movl $0x1, %edi
movq %r14, %rsi
movq %rax, %rdx
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0xb9f7
xorl %edi, %edi
movq %r14, %rsi
movq %rax, %rdx
callq 0xb9f7
movq 0xf8484(%rip), %rdi     # 0x106ad8
callq 0x8b01
movl $0x2, %edi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0xa975
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: eval_check
void
eval_check(struct atom *p1)
{
	push(cadr(p1));
	evalp();
	p1 = pop();
	if (iszero(p1))
		stopf("check");
	push_symbol(NIL); // no result is printed
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
cmpb $0x1, 0x10(%rdi)
leaq 0x8(%rdi), %rax
leaq 0x32380(%rip), %rcx     # 0x40a00
cmovneq %rcx, %rax
movq (%rax), %rax
cmpb $0x1, 0x10(%rax)
cmoveq %rax, %rcx
movq (%rcx), %rdi
callq 0x8b01
callq 0x9ae6
callq 0x8b78
movq %rax, %rdi
callq 0xaece
testl %eax, %eax
jne 0xe6ba
movq 0x3234c(%rip), %rdi     # 0x40a00
popq %rbp
jmp 0x8b01
leaq 0x17b7d(%rip), %rdi     # 0x2623e
callq 0x77c8
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: eval_clear
void
eval_clear(struct atom *p1)
{
	int i;

	(void) p1; // silence compiler

	save_symbol(symbol(TRACE));
	save_symbol(symbol(TTY));

	for (i = 0; i < 27 * BUCKETSIZE; i++) {
		binding[i] = NULL;
		usrfunc[i] = NULL;
	}

	run_init_script();

	restore_symbol();
	restore_symbol();

	if (gc_level == eval_level)
		gc();

	push_symbol(NIL); // result
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
movq 0x3364f(%rip), %rdi     # 0x41d20
callq 0xe73e
movq 0x33653(%rip), %rdi     # 0x41d30
callq 0xe73e
leaq 0xf8407(%rip), %rdi     # 0x106af0
movl $0x5460, %edx           # imm = 0x5460
xorl %esi, %esi
callq 0x7130
leaq 0xfd854(%rip), %rdi     # 0x10bf50
movl $0x5460, %edx           # imm = 0x5460
xorl %esi, %esi
callq 0x7130
movq 0x2acb9(%rip), %rdi     # 0x393c8
callq 0x1e047
callq 0xe7a4
callq 0xe7a4
movl 0xf839c(%rip), %eax     # 0x106ac0
cmpl 0xf839a(%rip), %eax     # 0x106ac4
jne 0xe731
callq 0x75c4
movq 0x322c8(%rip), %rdi     # 0x40a00
popq %rbp
jmp 0x8b01
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: restore_symbol
void
restore_symbol(void)
{
	struct atom *p1, *p2, *p3;
	p3 = pop();
	p2 = pop();
	p1 = pop();
	set_symbol(p1, p2, p3);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r14
pushq %rbx
callq 0x8b78
movq %rax, %rbx
callq 0x8b78
movq %rax, %r14
callq 0x8b78
cmpb $0x3, 0x10(%rax)
jne 0xe7e7
movl 0x8(%rax), %ecx
leaq 0xf8320(%rip), %rdx     # 0x106af0
movq %r14, (%rdx,%rcx,8)
movl 0x8(%rax), %eax
leaq 0xfd772(%rip), %rcx     # 0x10bf50
movq %rbx, (%rcx,%rax,8)
popq %rbx
popq %r14
popq %rbp
retq
leaq 0x1c78c(%rip), %rdi     # 0x2af7a
callq 0x77c8
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: clockfunc
void
clockfunc(void)
{
	int i, n;
	struct atom *p1;

	p1 = pop();

	if (istensor(p1)) {
		p1 = copy_tensor(p1);
		n = p1->u.tensor->nelem;
		for (i = 0; i < n; i++) {
			push(p1->u.tensor->elem[i]);
			clockfunc();
			p1->u.tensor->elem[i] = pop();
		}
		push(p1);
		return;
	}

	push(p1);
	magfunc();

	push_integer(-1); // base

	push(p1);
	argfunc();
	push_symbol(PI);
	divide();

	power();

	multiply();
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
callq 0x8b78
movq %rax, %rbx
cmpb $0x7, 0x10(%rax)
jne 0xe893
movq %rbx, %rdi
callq 0x953d
movq %rax, %rbx
movq (%rax), %rax
movslq 0x64(%rax), %r14
testq %r14, %r14
jle 0xe881
xorl %r15d, %r15d
movq (%rbx), %rax
movq 0x68(%rax,%r15,8), %rdi
callq 0x8b01
callq 0xe828
callq 0x8b78
movq (%rbx), %rcx
movq %rax, 0x68(%rcx,%r15,8)
incq %r15
cmpq %r15, %r14
jne 0xe85a
movq %rbx, %rdi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x8b01
movq %rbx, %rdi
callq 0x8b01
callq 0xe8e3
movq 0x102b49(%rip), %rdi    # 0x1113f0
callq 0x8b01
movq %rbx, %rdi
callq 0x8b01
callq 0xddb0
movq 0x32790(%rip), %rdi     # 0x41050
callq 0x8b01
callq 0xd9a4
callq 0xa234
movl $0x2, %edi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0xa8bb
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: magfunc
void
magfunc(void)
{
	int i, n;
	struct atom *p1, *num, *den;

	p1 = pop();

	if (istensor(p1)) {
		p1 = copy_tensor(p1);
		n = p1->u.tensor->nelem;
		for (i = 0; i < n; i++) {
			push(p1->u.tensor->elem[i]);
			magfunc();
			p1->u.tensor->elem[i] = pop();
		}
		push(p1);
		return;
	}

	// use numden to handle (a + i b) / (c + i d)

	push(p1);
	numden();
	num = pop();
	den = pop();
	push(num);
	magfunc_nib();
	push(den);
	magfunc_nib();
	divide();
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
callq 0x8b78
cmpb $0x7, 0x10(%rax)
jne 0xe94b
movq %rax, %rdi
callq 0x953d
movq %rax, %rbx
movq (%rax), %rax
movslq 0x64(%rax), %r14
testq %r14, %r14
jle 0xe939
xorl %r15d, %r15d
movq (%rbx), %rax
movq 0x68(%rax,%r15,8), %rdi
callq 0x8b01
callq 0xe8e3
callq 0x8b78
movq (%rbx), %rcx
movq %rax, 0x68(%rcx,%r15,8)
incq %r15
cmpq %r15, %r14
jne 0xe912
movq %rbx, %rdi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x8b01
movq %rax, %rdi
callq 0x8b01
callq 0xdee7
callq 0x8b78
movq %rax, %rbx
callq 0x8b78
movq %rax, %r14
movq %rbx, %rdi
callq 0x8b01
callq 0x17850
movq %r14, %rdi
callq 0x8b01
callq 0x17850
movq 0x102a67(%rip), %rdi    # 0x1113f0
callq 0x8b01
callq 0xa234
movl $0x2, %edi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0xa8bb
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: eval_cofactor
void
eval_cofactor(struct atom *p1)
{
	int i, j;
	struct atom *p2;

	push(cadr(p1));
	evalf();
	p2 = pop();

	push(caddr(p1));
	evalf();
	i = pop_integer();

	push(cadddr(p1));
	evalf();
	j = pop_integer();

	if (!issquarematrix(p2))
		stopf("cofactor: square matrix expected");

	if (i < 1 || i > p2->u.tensor->dim[0] || j < 0 || j > p2->u.tensor->dim[1])
		stopf("cofactor: index err");

	push(p2);

	minormatrix(i, j);

	det();

	if ((i + j) % 2)
		negate();
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
movq %rdi, %r14
leaq 0x8(%rdi), %r12
cmpb $0x1, 0x10(%rdi)
leaq 0x3203c(%rip), %r15     # 0x40a00
movq %r15, %rax
cmoveq %r12, %rax
movq (%rax), %rax
cmpb $0x1, 0x10(%rax)
cmovneq %r15, %rax
movq (%rax), %rdi
callq 0x8b01
callq 0x95e2
callq 0x8b78
cmpb $0x1, 0x10(%r14)
movq %r15, %rcx
cmoveq %r12, %rcx
movq %rax, %rbx
movq (%rcx), %rax
movb 0x10(%rax), %cl
addq $0x8, %rax
cmpb $0x1, %cl
movq %r15, %rdx
cmoveq %rax, %rdx
movq (%rdx), %rdx
cmpb $0x1, 0x10(%rdx)
movq %r15, %rdx
jne 0xea28
cmpb $0x1, %cl
leaq 0x31fdf(%rip), %rcx     # 0x40a00
cmoveq %rax, %rcx
movq (%rcx), %rdx
movq (%rdx), %rdi
callq 0x8b01
callq 0x95e2
callq 0xeb5b
cmpb $0x1, 0x10(%r14)
cmovneq %r15, %r12
movl %eax, %r14d
movq (%r12), %rax
movb 0x10(%rax), %cl
addq $0x8, %rax
cmpb $0x1, %cl
movq %r15, %rdx
cmoveq %rax, %rdx
movq (%rdx), %rdx
cmpb $0x1, 0x10(%rdx)
movq %r15, %rdx
jne 0xea7c
cmpb $0x1, %cl
leaq 0x31f8f(%rip), %rdx     # 0x40a00
cmoveq %rax, %rdx
movq (%rdx), %rdx
addq $0x8, %rdx
movq (%rdx), %rdx
cmpb $0x1, 0x10(%rdx)
jne 0xeab7
cmpb $0x1, %cl
leaq 0x31f71(%rip), %rdx     # 0x40a00
movq %rdx, %rsi
cmoveq %rax, %rsi
movq (%rsi), %rsi
cmpb $0x1, 0x10(%rsi)
jne 0xeab4
cmpb $0x1, %cl
leaq 0x31f57(%rip), %rcx     # 0x40a00
cmoveq %rax, %rcx
movq (%rcx), %rdx
addq $0x8, %rdx
movq (%rdx), %r15
movq (%r15), %rdi
callq 0x8b01
callq 0x95e2
callq 0xeb5b
cmpb $0x7, 0x10(%rbx)
jne 0xeb43
movl %eax, %r15d
movq (%rbx), %rax
cmpl $0x2, (%rax)
jne 0xeb43
movl 0x4(%rax), %ecx
cmpl 0x8(%rax), %ecx
jne 0xeb43
testl %r14d, %r14d
jle 0xeb4f
movq (%rbx), %rax
cmpl 0x4(%rax), %r14d
jg 0xeb4f
testl %r15d, %r15d
js 0xeb4f
cmpl 0x8(%rax), %r15d
jg 0xeb4f
movq %rbx, %rdi
callq 0x8b01
movl %r14d, %edi
movl %r15d, %esi
callq 0xeba4
callq 0xbd03
addl %r14d, %r15d
testb $0x1, %r15b
jne 0xeb25
popq %rbx
popq %r12
popq %r14
popq %r15
popq %rbp
retq
movq 0x1028c4(%rip), %rdi    # 0x1113f0
callq 0x8b01
movl $0x2, %edi
popq %rbx
popq %r12
popq %r14
popq %r15
popq %rbp
jmp 0xa8bb
leaq 0x176fa(%rip), %rdi     # 0x26244
callq 0x77c8
leaq 0x1770f(%rip), %rdi     # 0x26265
callq 0x77c8
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: pop_integer
int
pop_integer(void)
{
	int n;
	struct atom *p;

	p = pop();

	if (!issmallinteger(p))
		stopf("small integer expected");

	if (isrational(p)) {
		n = p->u.q.a[0];
		if (isnegativenumber(p))
			n = -n;
	} else
		n = (int) p->u.d;

	return n;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %rbx
pushq %rax
callq 0x8b78
movq %rax, %rbx
movq %rax, %rdi
callq 0x1433e
testl %eax, %eax
je 0xeb98
cmpb $0x4, 0x10(%rbx)
jne 0xeb8d
movq (%rbx), %rax
movl (%rax), %ecx
movl %ecx, %eax
negl %eax
cmpb $0x1, 0x12(%rbx)
cmovnel %ecx, %eax
jmp 0xeb91
cvttsd2si (%rbx), %eax
addq $0x8, %rsp
popq %rbx
popq %rbp
retq
leaq 0x1c38e(%rip), %rdi     # 0x2af2d
callq 0x77c8
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: minormatrix
void
minormatrix(int row, int col)
{
	int i, j, k, m, n;
	struct atom *p1, *p2;

	p2 = symbol(NIL); // silence compiler

	p1 = pop();

	n = p1->u.tensor->dim[0];
	m = p1->u.tensor->dim[1];

	if (n == 2 && m == 2) {
		if (row == 1) {
			if (col == 1)
				push(p1->u.tensor->elem[3]);
			else
				push(p1->u.tensor->elem[2]);
		} else {
			if (col == 1)
				push(p1->u.tensor->elem[1]);
			else
				push(p1->u.tensor->elem[0]);
		}
		return;
	}

	if (n == 2)
		p2 = alloc_vector(m - 1);

	if (m == 2)
		p2 = alloc_vector(n - 1);

	if (n > 2 && m > 2)
		p2 = alloc_matrix(n - 1, m - 1);

	row--;
	col--;

	k = 0;

	for (i = 0; i < n; i++) {

		if (i == row)
			continue;

		for (j = 0; j < m; j++) {

			if (j == col)
				continue;

			p2->u.tensor->elem[k++] = p1->u.tensor->elem[m * i + j];
		}
	}

	push(p2);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x18, %rsp
movl %esi, %ebx
movl %edi, %r14d
movq 0x31e3f(%rip), %r12     # 0x40a00
callq 0x8b78
movq %rax, %r15
movq (%rax), %rax
movl 0x4(%rax), %r13d
movl 0x8(%rax), %ecx
movl %r13d, %edx
xorl $0x2, %edx
movl %ecx, %esi
xorl $0x2, %esi
orl %edx, %esi
jne 0xec03
xorl %ecx, %ecx
cmpl $0x1, %r14d
sete %cl
xorl %edx, %edx
cmpl $0x1, %ebx
sete %dl
shll $0x4, %ecx
leal (%rcx,%rdx,8), %ecx
movq 0x68(%rcx,%rax), %r12
jmp 0xed00
movq %r14, -0x38(%rbp)
movl %ecx, %r14d
cmpl $0x2, %r13d
jne 0xec32
leal -0x1(%r14), %edi
movl %edi, -0x2c(%rbp)
callq 0x7850
movq %rax, %r12
movq (%rax), %rax
movl $0x1, (%rax)
movq (%r12), %rax
movl -0x2c(%rbp), %ecx
movl %ecx, 0x4(%rax)
cmpl $0x2, %r14d
jne 0xec5a
leal -0x1(%r13), %edi
movl %edi, -0x2c(%rbp)
callq 0x7850
movq %rax, %r12
movq (%rax), %rax
movl $0x1, (%rax)
movq (%r12), %rax
movl -0x2c(%rbp), %ecx
movl %ecx, 0x4(%rax)
cmpl $0x3, %r13d
setge %al
cmpl $0x3, %r14d
setge %cl
andb %al, %cl
cmpb $0x1, %cl
jne 0xeca5
leal -0x1(%r13), %eax
movl %eax, -0x30(%rbp)
leal -0x1(%r14), %edi
movl %edi, -0x2c(%rbp)
imull %eax, %edi
callq 0x7850
movq %rax, %r12
movq (%rax), %rax
movl $0x2, (%rax)
movq (%r12), %rax
movl -0x30(%rbp), %ecx
movl %ecx, 0x4(%rax)
movq (%r12), %rax
movl -0x2c(%rbp), %ecx
movl %ecx, 0x8(%rax)
testl %r13d, %r13d
movq -0x38(%rbp), %r11
jle 0xed00
decl %ebx
decl %r11d
leaq (,%r14,8), %rax
xorl %ecx, %ecx
movl $0x68, %edx
xorl %esi, %esi
cmpq %r11, %rcx
je 0xecf5
testl %r14d, %r14d
jle 0xecf5
xorl %edi, %edi
cmpq %rdi, %rbx
je 0xeced
movq (%r15), %r8
addq %rdx, %r8
movq (%r8,%rdi,8), %r8
movq (%r12), %r9
movslq %esi, %r10
incl %esi
movq %r8, 0x68(%r9,%r10,8)
incq %rdi
cmpq %rdi, %r14
jne 0xecd0
incq %rcx
addq %rax, %rdx
cmpq %r13, %rcx
jne 0xecc4
movq %r12, %rdi
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x8b01
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: conjfunc_subst
void
conjfunc_subst(void)
{
	int h, i, n;
	struct atom *p1;

	p1 = pop();

	if (istensor(p1)) {
		p1 = copy_tensor(p1);
		n = p1->u.tensor->nelem;
		for (i = 0; i < n; i++) {
			push(p1->u.tensor->elem[i]);
			conjfunc_subst();
			p1->u.tensor->elem[i] = pop();
		}
		push(p1);
		return;
	}

	// (-1) ^ expr

	if (car(p1) == symbol(POWER) && isminusone(cadr(p1))) {
		push_symbol(POWER);
		push_integer(-1);
		push(caddr(p1));
		negate();
		list(3);
		return;
	}

	if (iscons(p1)) {
		h = tos;
		push(car(p1));
		p1 = cdr(p1);
		while (iscons(p1)) {
			push(car(p1));
			conjfunc_subst();
			p1 = cdr(p1);
		}
		list(tos - h);
		return;
	}

	push(p1);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
callq 0x8b78
movq %rax, %rbx
movzbl 0x10(%rax), %r12d
cmpl $0x1, %r12d
je 0xedc5
cmpl $0x7, %r12d
jne 0xedbe
movq %rbx, %rdi
callq 0x953d
movq %rax, %rbx
movq (%rax), %rax
movslq 0x64(%rax), %r14
testq %r14, %r14
jle 0xee1e
xorl %r15d, %r15d
movq (%rbx), %rax
movq 0x68(%rax,%r15,8), %rdi
callq 0x8b01
callq 0xed50
callq 0x8b78
movq (%rbx), %rcx
movq %rax, 0x68(%rcx,%r15,8)
incq %r15
cmpq %r15, %r14
jne 0xed95
jmp 0xee1e
leaq 0x31c3b(%rip), %rax     # 0x40a00
movq 0x344e4(%rip), %r14     # 0x432b0
cmpq %r14, (%rax)
je 0xee42
cmpb $0x1, %r12b
jne 0xee1e
movl 0x2b4da(%rip), %r14d    # 0x3a2b8
movq (%rbx), %rdi
callq 0x8b01
movq %rbx, %rax
addq $0x8, %rax
cmpb $0x1, 0x10(%rbx)
leaq 0x31c08(%rip), %rbx     # 0x40a00
cmovneq %rbx, %rax
movq (%rax), %r15
cmpb $0x1, 0x10(%r15)
jne 0xee34
movq (%r15), %rdi
callq 0x8b01
callq 0xed50
leaq 0x8(%r15), %rax
cmpb $0x1, 0x10(%r15)
jmp 0xedf8
movq %rbx, %rdi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x8b01
movl 0x2b47e(%rip), %edi     # 0x3a2b8
subl %r14d, %edi
jmp 0xeeeb
leaq 0x8(%rbx), %r13
cmpb $0x1, %r12b
leaq 0x31baf(%rip), %r15     # 0x40a00
movq %r15, %rax
cmoveq %r13, %rax
movq (%rax), %rax
cmpb $0x1, 0x10(%rax)
cmovneq %r15, %rax
movq (%rax), %rdi
movl $0xffffffff, %esi       # imm = 0xFFFFFFFF
movl $0x1, %edx
callq 0xcb82
testl %eax, %eax
je 0xedd1
movq %r14, %rdi
callq 0x8b01
movq 0x102564(%rip), %rdi    # 0x1113f0
callq 0x8b01
cmpb $0x1, 0x10(%rbx)
cmovneq %r15, %r13
movq (%r13), %rax
movb 0x10(%rax), %cl
addq $0x8, %rax
cmpb $0x1, %cl
movq %r15, %rdx
cmoveq %rax, %rdx
movq (%rdx), %rdx
cmpb $0x1, 0x10(%rdx)
jne 0xeec8
cmpb $0x1, %cl
leaq 0x31b3f(%rip), %rcx     # 0x40a00
cmoveq %rax, %rcx
movq (%rcx), %r15
movq (%r15), %rdi
callq 0x8b01
movq 0x102519(%rip), %rdi    # 0x1113f0
callq 0x8b01
movl $0x2, %edi
callq 0xa8bb
movl $0x3, %edi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x8ad9
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: eval_contract
void
eval_contract(struct atom *p1)
{
	push(cadr(p1));
	evalf();

	p1 = cddr(p1);

	if (!iscons(p1)) {
		push_integer(1);
		push_integer(2);
		contract();
		return;
	}

	while (iscons(p1)) {
		push(car(p1));
		evalf();
		push(cadr(p1));
		evalf();
		contract();
		p1 = cddr(p1);
	}
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
movq %rdi, %rbx
leaq 0x8(%rdi), %r15
cmpb $0x1, 0x10(%rdi)
leaq 0x31ae6(%rip), %r14     # 0x40a00
movq %r14, %rax
cmoveq %r15, %rax
movq (%rax), %rax
cmpb $0x1, 0x10(%rax)
cmovneq %r14, %rax
movq (%rax), %rdi
callq 0x8b01
callq 0x95e2
cmpb $0x1, 0x10(%rbx)
cmovneq %r14, %r15
movq (%r15), %rax
leaq 0x8(%rax), %rcx
cmpb $0x1, 0x10(%rax)
cmovneq %r14, %rcx
movq (%rcx), %rbx
cmpb $0x1, 0x10(%rbx)
je 0xefd1
movq 0xf7b78(%rip), %rdi     # 0x106ad8
callq 0x8b01
movl $0x2, %edi
callq 0xacbe
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0xefe2
movq (%rbx), %rdi
callq 0x8b01
callq 0x95e2
cmpb $0x1, 0x10(%rbx)
leaq 0x8(%rbx), %r15
movq %r14, %rax
cmoveq %r15, %rax
movq (%rax), %rax
cmpb $0x1, 0x10(%rax)
cmovneq %r14, %rax
movq (%rax), %rdi
callq 0x8b01
callq 0x95e2
callq 0xefe2
cmpb $0x1, 0x10(%rbx)
cmovneq %r14, %r15
movq (%r15), %rax
leaq 0x8(%rax), %rcx
cmpb $0x1, 0x10(%rax)
cmovneq %r14, %rcx
movq (%rcx), %rbx
cmpb $0x1, 0x10(%rbx)
je 0xef7e
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: cosfunc_sum
void
cosfunc_sum(struct atom *p1)
{
	struct atom *p2, *p3;
	p2 = cdr(p1);
	while (iscons(p2)) {
		push_integer(2);
		push(car(p2));
		multiply();
		push_symbol(PI);
		divide();
		p3 = pop();
		if (isinteger(p3)) {
			push(p1);
			push(car(p2));
			subtract();
			p3 = pop();
			push(p3);
			cosfunc();
			push(car(p2));
			cosfunc();
			multiply();
			push(p3);
			sinfunc();
			push(car(p2));
			sinfunc();
			multiply();
			subtract();
			return;
		}
		p2 = cdr(p2);
	}
	push_symbol(COS);
	push(p1);
	list(2);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
movq %rdi, %rbx
cmpb $0x1, 0x10(%rdi)
leaq 0x8(%rdi), %rax
leaq 0x31203(%rip), %r14     # 0x40a00
cmovneq %r14, %rax
movq (%rax), %r15
cmpb $0x1, 0x10(%r15)
jne 0xf89b
leaq 0x10(%r15), %r12
movl $0x2, %edi
callq 0xacbe
cmpb $0x1, 0x10(%r15)
movq %r14, %rax
cmoveq %r15, %rax
movq (%rax), %rdi
callq 0x8b01
movl $0x2, %edi
callq 0xa8bb
movq 0x3180e(%rip), %rdi     # 0x41050
callq 0x8b01
movq 0x101ba2(%rip), %rdi    # 0x1113f0
callq 0x8b01
callq 0xa234
movl $0x2, %edi
callq 0xa8bb
callq 0x8b78
cmpb $0x4, 0x10(%rax)
jne 0xf87c
movq 0x8(%rax), %rax
cmpl $0x1, -0x4(%rax)
jne 0xf87c
cmpl $0x1, (%rax)
je 0xf8c1
addq $0x8, %r15
cmpb $0x1, (%r12)
cmovneq %r14, %r15
movq (%r15), %r15
leaq 0x10(%r15), %r12
cmpb $0x1, 0x10(%r15)
je 0xf813
movq 0x2ef4e(%rip), %rdi     # 0x3e7f0
callq 0x8b01
movq %rbx, %rdi
callq 0x8b01
movl $0x2, %edi
popq %rbx
popq %r12
popq %r14
popq %r15
popq %rbp
jmp 0x8ad9
movq %rbx, %rdi
callq 0x8b01
cmpb $0x1, (%r12)
movq %r14, %rax
cmoveq %r15, %rax
movq (%rax), %rdi
callq 0x8b01
movq 0x101b0c(%rip), %rdi    # 0x1113f0
callq 0x8b01
movl $0x2, %edi
callq 0xa8bb
movl $0x2, %edi
callq 0xa975
callq 0x8b78
movq %rax, %rbx
movq %rax, %rdi
callq 0x8b01
callq 0xf2ab
cmpb $0x1, (%r12)
movq %r14, %rax
cmoveq %r15, %rax
movq (%rax), %rdi
callq 0x8b01
callq 0xf2ab
movl $0x2, %edi
callq 0xa8bb
movq %rbx, %rdi
callq 0x8b01
callq 0xfade
cmpb $0x1, (%r12)
cmoveq %r15, %r14
movq (%r14), %rdi
callq 0x8b01
callq 0xfade
movl $0x2, %edi
callq 0xa8bb
movq 0x101a87(%rip), %rdi    # 0x1113f0
callq 0x8b01
movl $0x2, %edi
callq 0xa8bb
movl $0x2, %edi
popq %rbx
popq %r12
popq %r14
popq %r15
popq %rbp
jmp 0xa975
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: modfunc
void
modfunc(void)
{
	int i, n;
	double d1, d2;
	struct atom *p1, *p2;

	p2 = pop();
	p1 = pop();

	if (istensor(p1)) {
		p1 = copy_tensor(p1);
		n = p1->u.tensor->nelem;
		for (i = 0; i < n; i++) {
			push(p1->u.tensor->elem[i]);
			push(p2);
			modfunc();
			p1->u.tensor->elem[i] = pop();
		}
		push(p1);
		return;
	}

	if (!isnum(p1) || !isnum(p2) || iszero(p2)) {
		push_symbol(MOD);
		push(p1);
		push(p2);
		list(3);
		return;
	}

	if (isrational(p1) && isrational(p2)) {
		mod_rationals(p1, p2);
		return;
	}

	push(p1);
	d1 = pop_double();

	push(p2);
	d2 = pop_double();

	push_double(fmod(d1, d2));
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
subq $0x10, %rsp
callq 0x8b78
movq %rax, %rbx
callq 0x8b78
movq %rax, %r14
movb 0x10(%rax), %r15b
movzbl %r15b, %eax
leal -0x4(%rax), %ecx
cmpl $0x2, %ecx
jae 0xfa02
movb 0x10(%rbx), %r12b
movl %r12d, %eax
andb $-0x2, %al
cmpb $0x4, %al
jne 0xfa64
movq %rbx, %rdi
callq 0xaece
testl %eax, %eax
jne 0xfa64
xorb $0x4, %r15b
xorb $0x4, %r12b
movq %r14, %rdi
orb %r15b, %r12b
jne 0xfa96
movq %rbx, %rsi
addq $0x10, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
popq %rbp
jmp 0x17e5d
cmpl $0x7, %eax
jne 0xfa64
movq %r14, %rdi
callq 0x953d
movq %rax, %r14
movq (%rax), %rax
movslq 0x64(%rax), %r15
testq %r15, %r15
jle 0xfa50
xorl %r12d, %r12d
movq (%r14), %rax
movq 0x68(%rax,%r12,8), %rdi
callq 0x8b01
movq %rbx, %rdi
callq 0x8b01
callq 0xf98a
callq 0x8b78
movq (%r14), %rcx
movq %rax, 0x68(%rcx,%r12,8)
incq %r12
cmpq %r12, %r15
jne 0xfa21
movq %r14, %rdi
addq $0x10, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
popq %rbp
jmp 0x8b01
movq 0x30c8d(%rip), %rdi     # 0x406f8
callq 0x8b01
movq %r14, %rdi
callq 0x8b01
movq %rbx, %rdi
callq 0x8b01
movl $0x3, %edi
addq $0x10, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
popq %rbp
jmp 0x8ad9
callq 0x8b01
callq 0x9086
movsd %xmm0, -0x28(%rbp)
movq %rbx, %rdi
callq 0x8b01
callq 0x9086
movaps %xmm0, %xmm1
movsd -0x28(%rbp), %xmm0
callq 0x7160
movsd %xmm0, -0x28(%rbp)
callq 0x74ec
movb $0x5, 0x10(%rax)
movsd -0x28(%rbp), %xmm0
movsd %xmm0, (%rax)
movq %rax, %rdi
jmp 0xfa53
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: coshfunc
void
coshfunc(void)
{
	int i, n;
	double d;
	struct atom *p1;

	p1 = pop();

	if (istensor(p1)) {
		p1 = copy_tensor(p1);
		n = p1->u.tensor->nelem;
		for (i = 0; i < n; i++) {
			push(p1->u.tensor->elem[i]);
			coshfunc();
			p1->u.tensor->elem[i] = pop();
		}
		push(p1);
		return;
	}

	if (isdouble(p1)) {
		push(p1);
		d = pop_double();
		d = cosh(d);
		push_double(d);
		return;
	}

	// cosh(z) = 1/2 exp(z) + 1/2 exp(-z)

	if (isdoublez(p1)) {
		push_rational(1, 2);
		push(p1);
		expfunc();
		push(p1);
		negate();
		expfunc();
		add();
		multiply();
		return;
	}

	if (iszero(p1)) {
		push_integer(1);
		return;
	}

	// cosh(-x) = cosh(x)

	if (isnegativeterm(p1)) {
		push(p1);
		negate();
		coshfunc();
		return;
	}

	if (car(p1) == symbol(ARCCOSH)) {
		push(cadr(p1));
		return;
	}

	push_symbol(COSH);
	push(p1);
	list(2);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
callq 0x8b78
movq %rax, %rbx
movzbl 0x10(%rax), %r14d
cmpl $0x5, %r14d
je 0x100e0
cmpl $0x7, %r14d
je 0x10111
movq %rbx, %rdi
callq 0xc3a9
testl %eax, %eax
jne 0x1015a
movq %rbx, %rdi
callq 0xaece
testl %eax, %eax
jne 0x101d9
movq %rbx, %rdi
callq 0xa813
testl %eax, %eax
je 0x101e2
movq %rbx, %rdi
callq 0x8b01
movq 0x101321(%rip), %rdi    # 0x1113f0
callq 0x8b01
movl $0x2, %edi
callq 0xa8bb
jmp 0x10073
movq %rbx, %rdi
callq 0x8b01
callq 0x9086
callq 0x7220
movsd %xmm0, -0x20(%rbp)
callq 0x74ec
movb $0x5, 0x10(%rax)
movsd -0x20(%rbp), %xmm0
movsd %xmm0, (%rax)
movq %rax, %rdi
jmp 0x10242
movq %rbx, %rdi
callq 0x953d
movq %rax, %rbx
movq (%rax), %rax
movslq 0x64(%rax), %r14
testq %r14, %r14
jle 0x10152
xorl %r15d, %r15d
movq (%rbx), %rax
movq 0x68(%rax,%r15,8), %rdi
callq 0x8b01
callq 0x10069
callq 0x8b78
movq (%rbx), %rcx
movq %rax, 0x68(%rcx,%r15,8)
incq %r15
cmpq %r15, %r14
jne 0x1012b
movq %rbx, %rdi
jmp 0x10242
movl $0x1, %edi
movl $0x2, %esi
callq 0xa1f4
movq %rbx, %rdi
callq 0x8b01
movq 0x33150(%rip), %rdi     # 0x432c8
callq 0x8b01
callq 0xad38
callq 0xa234
movq %rbx, %rdi
callq 0x8b01
movq 0x10125a(%rip), %rdi    # 0x1113f0
callq 0x8b01
movl $0x2, %edi
callq 0xa8bb
movq 0x3311c(%rip), %rdi     # 0x432c8
callq 0x8b01
callq 0xad38
callq 0xa234
movl $0x2, %edi
callq 0xa975
movl $0x2, %edi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0xa8bb
movq 0xf68f8(%rip), %rdi     # 0x106ad8
jmp 0x10242
cmpb $0x1, %r14b
leaq 0x30813(%rip), %rax     # 0x40a00
movq %rax, %rcx
cmoveq %rbx, %rcx
movq (%rcx), %rcx
cmpq 0x2df82(%rip), %rcx     # 0x3e180
je 0x10228
movq 0x2e5f1(%rip), %rdi     # 0x3e7f8
callq 0x8b01
movq %rbx, %rdi
callq 0x8b01
movl $0x2, %edi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x8ad9
addq $0x8, %rbx
cmpb $0x1, %r14b
cmovneq %rax, %rbx
movq (%rbx), %rcx
cmpb $0x1, 0x10(%rcx)
cmoveq %rcx, %rax
movq (%rax), %rdi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x8b01