LLM4Binary/decompile-bench-makefile huggingface dataset:
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: combine_factors_nib
int
combine_factors_nib(int i, int j)
{
	struct atom *p1, *p2, *BASE1, *EXPO1, *BASE2, *EXPO2;

	p1 = stack[i];
	p2 = stack[j];

	if (car(p1) == symbol(POWER)) {
		BASE1 = cadr(p1);
		EXPO1 = caddr(p1);
	} else {
		BASE1 = p1;
		EXPO1 = one;
	}

	if (car(p2) == symbol(POWER)) {
		BASE2 = cadr(p2);
		EXPO2 = caddr(p2);
	} else {
		BASE2 = p2;
		EXPO2 = one;
	}

	if (!equal(BASE1, BASE2))
		return 0;

	if (isdouble(BASE2))
		BASE1 = BASE2; // if mixed rational and double, use double

	push_symbol(POWER);
	push(BASE1);
	push(EXPO1);
	push(EXPO2);
	add();
	list(3);

	stack[i] = pop();

	return 1;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movslq %edi, %r13
leaq 0x2b235(%rip), %rcx     # 0x415b0
movq (%rcx,%r13,8), %rbx
movslq %esi, %rax
movq (%rcx,%rax,8), %r14
movb 0x10(%rbx), %cl
cmpb $0x1, %cl
leaq 0x2865d(%rip), %rax     # 0x3e9f0
movq %rax, %rdi
cmoveq %rbx, %rdi
movq 0x2aeff(%rip), %rsi     # 0x412a0
leaq 0xee720(%rip), %rdx     # 0x104ac8
cmpq %rsi, (%rdi)
je 0x163b2
movq %rdx, %rcx
jmp 0x163ef
addq $0x8, %rbx
cmpb $0x1, %cl
leaq 0x28630(%rip), %rcx     # 0x3e9f0
cmovneq %rcx, %rbx
movq (%rbx), %rdi
cmpb $0x1, 0x10(%rdi)
jne 0x163dc
movq (%rdi), %rbx
movq 0x8(%rdi), %rdi
cmpb $0x1, 0x10(%rdi)
je 0x163ec
jmp 0x163ef
movq 0x2860d(%rip), %rdi     # 0x3e9f0
cmpb $0x1, 0x10(%rdi)
movq %rdi, %rbx
jne 0x163ef
movq %rdi, %rcx
movb 0x10(%r14), %dil
cmpb $0x1, %dil
movq %rax, %r8
cmoveq %r14, %r8
cmpq %rsi, (%r8)
je 0x1647b
movq %rdx, %rax
movq (%rcx), %r12
movq (%rax), %r15
movq %rbx, %rdi
movq %r14, %rsi
callq 0x8760
movl %eax, %ecx
xorl %eax, %eax
testl %ecx, %ecx
jne 0x1646c
cmpb $0x5, 0x10(%r14)
cmoveq %r14, %rbx
movq 0x2ae71(%rip), %rdi     # 0x412a0
callq 0x861b
movq %rbx, %rdi
callq 0x861b
movq %r12, %rdi
callq 0x861b
movq %r15, %rdi
callq 0x861b
callq 0xa1f6
pushq $0x3
popq %rdi
callq 0x85eb
callq 0x868d
leaq 0x2b14b(%rip), %rcx     # 0x415b0
movq %rax, (%rcx,%r13,8)
pushq $0x1
popq %rax
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
addq $0x8, %r14
cmpb $0x1, %dil
cmovneq %rax, %r14
movq (%r14), %rdx
cmpb $0x1, 0x10(%rdx)
jne 0x164a6
movq (%rdx), %r14
movq 0x8(%rdx), %rdx
cmpb $0x1, 0x10(%rdx)
je 0x16403
jmp 0x16406
movq 0x28543(%rip), %rdx     # 0x3e9f0
cmpb $0x1, 0x10(%rdx)
movq %rdx, %r14
je 0x16403
jmp 0x16406
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: cmp_factors_provisional
int
cmp_factors_provisional(struct atom *p1, struct atom *p2)
{
	if (car(p1) == symbol(POWER))
		p1 = cadr(p1); // p1 = base

	if (car(p2) == symbol(POWER))
		p2 = cadr(p2); // p2 = base

	return cmp(p1, p2);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
movb 0x10(%rdi), %dl
cmpb $0x1, %dl
leaq 0x28510(%rip), %rax     # 0x3e9f0
movq %rax, %r8
cmoveq %rdi, %r8
movq 0x2adb2(%rip), %rcx     # 0x412a0
cmpq %rcx, (%r8)
jne 0x1650c
addq $0x8, %rdi
cmpb $0x1, %dl
cmovneq %rax, %rdi
movq (%rdi), %rdx
cmpb $0x1, 0x10(%rdx)
cmovneq %rax, %rdx
movq (%rdx), %rdi
movb 0x10(%rsi), %dl
cmpb $0x1, %dl
movq %rax, %r8
cmoveq %rsi, %r8
cmpq %rcx, (%r8)
jne 0x16537
addq $0x8, %rsi
cmpb $0x1, %dl
cmovneq %rax, %rsi
movq (%rsi), %rcx
cmpb $0x1, 0x10(%rcx)
cmoveq %rcx, %rax
movq (%rax), %rsi
popq %rbp
jmp 0x8760
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: order_factor
int
order_factor(struct atom *p)
{
	if (isnum(p))
		return 1;

	if (p == symbol(EXP1))
		return 5;

	if (car(p) == symbol(DERIVATIVE) || car(p) == symbol(D_LOWER))
		return 6;

	if (car(p) == symbol(POWER)) {

		p = cadr(p); // p = base

		if (isminusone(p))
			return 3;

		if (isnum(p))
			return 2;

		if (p == symbol(EXP1))
			return 5;

		if (car(p) == symbol(DERIVATIVE) || car(p) == symbol(D_LOWER))
			return 6;
	}

	return 4;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movb 0x10(%rdi), %al
movl %eax, %ecx
andb $-0x2, %cl
cmpb $0x4, %cl
jne 0x1656d
pushq $0x1
popq %rbx
jmp 0x165b9
movq 0x2ad44(%rip), %r13     # 0x412b8
pushq $0x5
popq %rbx
cmpq %rdi, %r13
je 0x165b9
cmpb $0x1, %al
leaq 0x2846b(%rip), %r12     # 0x3e9f0
movq %r12, %rcx
cmoveq %rdi, %rcx
movq (%rcx), %rcx
movq 0x2653a(%rip), %r14     # 0x3cad0
pushq $0x6
popq %rdx
cmpq %r14, %rcx
je 0x165b7
movq 0x26513(%rip), %r15     # 0x3cab8
cmpq %r15, %rcx
je 0x165b7
cmpq 0x2acef(%rip), %rcx     # 0x412a0
je 0x165ca
pushq $0x4
jmp 0x1656a
movl %edx, %ebx
movl %ebx, %eax
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
addq $0x8, %rdi
cmpb $0x1, %al
cmovneq %r12, %rdi
movq (%rdi), %rax
cmpb $0x1, 0x10(%rax)
cmovneq %r12, %rax
movq (%rax), %rdi
movq %rdi, -0x30(%rbp)
callq 0xbfac
testl %eax, %eax
je 0x165f6
pushq $0x3
jmp 0x1656a
movq -0x30(%rbp), %rsi
movb 0x10(%rsi), %al
movl %eax, %ecx
andb $-0x2, %cl
cmpb $0x4, %cl
jne 0x1660e
pushq $0x2
jmp 0x1656a
cmpq %r13, %rsi
pushq $0x6
popq %rdx
je 0x165b9
cmpb $0x1, %al
cmoveq %rsi, %r12
movq (%r12), %rax
cmpq %r14, %rax
sete %cl
cmpq %r15, %rax
sete %al
orb %cl, %al
movl %edx, %ebx
je 0x165b3
jmp 0x165b9
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: multiply_rationals
void
multiply_rationals(struct atom *p1, struct atom *p2)
{
	int sign;
	uint32_t *a, *b, *c;

	if (iszero(p1) || iszero(p2)) {
		push_integer(0);
		return;
	}

	if (p1->sign == p2->sign)
		sign = MPLUS;
	else
		sign = MMINUS;

	if (isinteger(p1) && isinteger(p2)) {
		push_bignum(sign, mmul(p1->u.q.a, p2->u.q.a), mint(1));
		return;
	}

	a = mmul(p1->u.q.a, p2->u.q.a);
	b = mmul(p1->u.q.b, p2->u.q.b);
	c = mgcd(a, b);
	push_bignum(sign, mdiv(a, c), mdiv(b, c));

	mfree(a);
	mfree(b);
	mfree(c);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rsi, %r14
movq %rdi, %r15
callq 0xa641
testl %eax, %eax
jne 0x1665d
movq %r14, %rdi
callq 0xa641
testl %eax, %eax
je 0x16672
xorl %edi, %edi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0xa426
movb 0x12(%r15), %al
xorl %ebx, %ebx
cmpb 0x12(%r14), %al
setne %bl
movq %r15, %rdi
callq 0x8b5d
testl %eax, %eax
je 0x166c8
movq %r14, %rdi
callq 0x8b5d
testl %eax, %eax
je 0x166c8
movq (%r15), %rdi
movq (%r14), %rsi
callq 0x7a22
movq %rax, %r14
pushq $0x1
popq %rdi
callq 0x7a09
movl %ebx, %edi
movq %r14, %rsi
movq %rax, %rdx
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0xb015
movq (%r15), %rdi
movq (%r14), %rsi
callq 0x7a22
movq %rax, %r12
movq 0x8(%r15), %rdi
movq 0x8(%r14), %rsi
callq 0x7a22
movq %rax, %r14
movq %r12, %rdi
movq %rax, %rsi
callq 0x832b
movq %rax, %r15
movq %r12, %rdi
movq %rax, %rsi
callq 0x7e20
movq %rax, %r13
movq %r14, %rdi
movq %r15, %rsi
callq 0x7e20
movl %ebx, %edi
movq %r13, %rsi
movq %rax, %rdx
callq 0xb015
movq %r12, %rdi
callq 0x7ad9
movq %r14, %rdi
callq 0x7ad9
movq %r15, %rdi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x7ad9
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: any_radical_factors
int
any_radical_factors(int h)
{
	int i;
	for (i = h; i < tos; i++)
		if (isradical(stack[i]))
			return 1;
	return 0;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
movslq 0x21b56(%rip), %r14     # 0x382a8
movslq %edi, %r15
leaq 0x2ae54(%rip), %rax     # 0x415b0
leaq (%rax,%r15,8), %r12
pushq $0x1
popq %rbx
cmpq %r14, %r15
jge 0x1677e
movq (%r12), %rdi
callq 0x16ac4
incq %r15
addq $0x8, %r12
testl %eax, %eax
je 0x16763
jmp 0x16780
xorl %ebx, %ebx
movl %ebx, %eax
popq %rbx
popq %r12
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: reduce_radical_double
struct atom *
reduce_radical_double(int h, struct atom *COEF)
{
	int i;
	double a, b, c;
	struct atom *p1;

	c = COEF->u.d;

	for (i = h; i < tos; i++) {

		p1 = stack[i];

		if (isradical(p1)) {

			push(cadr(p1)); // base
			a = pop_double();

			push(caddr(p1)); // exponent
			b = pop_double();

			c = c * pow(a, b); // a > 0 by isradical above

			slice(i, 1); // remove factor

			i--; // use same index again
		}
	}

	push_double(c);
	COEF = pop();

	return COEF;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x18, %rsp
movl %edi, %ebx
movsd (%rsi), %xmm0
movsd %xmm0, -0x30(%rbp)
movl 0x218ca(%rip), %r14d    # 0x382a8
leaq 0x2abcb(%rip), %r12     # 0x415b0
leaq 0x28004(%rip), %r13     # 0x3e9f0
cmpl %r14d, %ebx
jge 0x16aa7
movslq %ebx, %rax
movq (%r12,%rax,8), %r15
movq %r15, %rdi
callq 0x16ac4
testl %eax, %eax
je 0x16aa0
cmpb $0x1, 0x10(%r15)
leaq 0x8(%r15), %r14
movq %r13, %rax
cmoveq %r14, %rax
movq (%rax), %rax
cmpb $0x1, 0x10(%rax)
cmovneq %r13, %rax
movq (%rax), %rdi
callq 0x861b
callq 0x8ae1
cmpb $0x1, 0x10(%r15)
cmovneq %r13, %r14
movsd %xmm0, -0x38(%rbp)
movq (%r14), %rax
cmpb $0x1, 0x10(%rax)
jne 0x16a51
movq 0x8(%rax), %rax
jmp 0x16a58
movq 0x27f98(%rip), %rax     # 0x3e9f0
cmpb $0x1, 0x10(%rax)
movq %r13, %rcx
jne 0x16a64
movq %rax, %rcx
movq (%rcx), %rdi
callq 0x861b
callq 0x8ae1
movapd %xmm0, %xmm1
movsd -0x38(%rbp), %xmm0
callq 0x70d0
movsd -0x30(%rbp), %xmm1
mulsd %xmm0, %xmm1
movsd %xmm1, -0x30(%rbp)
movl %ebx, %edi
pushq $0x1
popq %rsi
callq 0xa55e
decl %ebx
movl 0x21808(%rip), %r14d    # 0x382a8
incl %ebx
jmp 0x169ec
movsd -0x30(%rbp), %xmm0
callq 0xaf59
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x868d
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: multiply_noexpand
void
multiply_noexpand(void)
{
	int t;
	t = expanding;
	expanding = 0;
	multiply();
	expanding = t;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %rbx
pushq %rax
movl 0xedf4d(%rip), %ebx     # 0x104ac0
andl $0x0, 0xedf46(%rip)     # 0x104ac0
callq 0x9fae
movl %ebx, 0xedf3b(%rip)     # 0x104ac0
addq $0x8, %rsp
popq %rbx
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: eval_noexpand
void
eval_noexpand(struct atom *p1)
{
	int t;

	t = expanding;
	expanding = 0;

	push(cadr(p1));
	evalf();

	expanding = t;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %rbx
pushq %rax
movl 0xedf17(%rip), %ebx     # 0x104ac0
andl $0x0, 0xedf10(%rip)     # 0x104ac0
cmpb $0x1, 0x10(%rdi)
leaq 0x8(%rdi), %rax
leaq 0x27e31(%rip), %rcx     # 0x3e9f0
cmovneq %rcx, %rax
movq (%rax), %rax
cmpb $0x1, 0x10(%rax)
cmoveq %rax, %rcx
movq (%rcx), %rdi
callq 0x861b
callq 0x8fbb
movl %ebx, 0xededf(%rip)     # 0x104ac0
addq $0x8, %rsp
popq %rbx
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: eval_not
void
eval_not(struct atom *p1)
{
	push(cadr(p1));
	evalp();
	p1 = pop();
	if (iszero(p1))
		push_integer(1);
	else
		push_integer(0);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
cmpb $0x1, 0x10(%rdi)
leaq 0x8(%rdi), %rax
leaq 0x27df5(%rip), %rcx     # 0x3e9f0
cmovneq %rcx, %rax
movq (%rax), %rax
cmpb $0x1, 0x10(%rax)
cmoveq %rax, %rcx
movq (%rcx), %rdi
callq 0x861b
callq 0x940b
callq 0x868d
movq %rax, %rdi
callq 0xa641
movl %eax, %edi
popq %rbp
jmp 0xa426
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: eval_nroots
void
eval_nroots(struct atom *p1)
{
	push(cadr(p1));
	evalf();

	p1 = cddr(p1);

	if (iscons(p1)) {
		push(car(p1));
		evalf();
	} else
		push_symbol(X_LOWER);

	nroots();
}

// 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 0x27da8(%rip), %r15     # 0x3e9f0
movq %r15, %rax
cmoveq %r14, %rax
movq (%rax), %rax
cmpb $0x1, 0x10(%rax)
cmovneq %r15, %rax
movq (%rax), %rdi
callq 0x861b
callq 0x8fbb
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 0x16c96
movq (%rax), %rdi
callq 0x861b
callq 0x8fbb
jmp 0x16ca2
movq 0x29c9b(%rip), %rdi     # 0x40938
callq 0x861b
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x16cb1
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: coeffs
void
coeffs(struct atom *P, struct atom *X)
{
	struct atom *C;

	for (;;) {

		push(P);
		push(X);
		push_integer(0);
		subst();
		evalf();
		C = pop();

		push(C);

		push(P);
		push(C);
		subtract();
		P = pop();

		if (iszero(P))
			break;

		push(P);
		push(X);
		divide();
		P = pop();
	}
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
movq %rsi, %rbx
movq %rdi, %r14
movq %r14, %rdi
callq 0x861b
movq %rbx, %rdi
callq 0x861b
xorl %edi, %edi
callq 0xa426
callq 0x8de5
callq 0x8fbb
callq 0x868d
movq %rax, %r15
movq %rax, %rdi
callq 0x861b
movq %r14, %rdi
callq 0x861b
movq %r15, %rdi
callq 0x861b
callq 0xb07f
callq 0x868d
movq %rax, %r14
movq %rax, %rdi
callq 0xa641
testl %eax, %eax
jne 0x17065
movq %r14, %rdi
callq 0x861b
movq %rbx, %rdi
callq 0x861b
callq 0xca0b
callq 0x868d
movq %rax, %r14
jmp 0x16fec
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: nreduce
void
nreduce(double cr[], double ci[], int n, double ar, double ai)
{
	int k;

	// divide

	for (k = n - 1; k > 0; k--) {
		cr[k - 1] += cr[k] * ar - ci[k] * ai;
		ci[k - 1] += ci[k] * ar + cr[k] * ai;
	}

	if (zabs(cr[0], ci[0]) > DELTA)
		stopf("nroots: residual error"); // not a root

	// shift

	for (k = 0; k < n - 1; k++) {
		cr[k] = cr[k + 1];
		ci[k] = ci[k + 1];
	}
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
decl %edx
movq %rdx, %rax
testl %eax, %eax
jle 0x17355
movsd (%rdi,%rax,8), %xmm2
movsd (%rsi,%rax,8), %xmm3
mulsd %xmm1, %xmm3
movapd %xmm2, %xmm4
mulsd %xmm0, %xmm4
subsd %xmm3, %xmm4
addsd -0x8(%rdi,%rax,8), %xmm4
movsd %xmm4, -0x8(%rdi,%rax,8)
mulsd %xmm1, %xmm2
movsd (%rsi,%rax,8), %xmm3
mulsd %xmm0, %xmm3
addsd %xmm2, %xmm3
addsd -0x8(%rsi,%rax,8), %xmm3
movsd %xmm3, -0x8(%rsi,%rax,8)
decq %rax
jmp 0x17309
movsd (%rdi), %xmm0
movsd (%rsi), %xmm1
mulsd %xmm1, %xmm1
mulsd %xmm0, %xmm0
addsd %xmm1, %xmm0
sqrtsd %xmm0, %xmm0
ucomisd 0xbe13(%rip), %xmm0     # 0x23188
ja 0x173a0
xorl %eax, %eax
testl %edx, %edx
cmovlel %eax, %edx
cmpq %rax, %rdx
je 0x1739e
movsd 0x8(%rdi,%rax,8), %xmm0
movsd %xmm0, (%rdi,%rax,8)
movsd 0x8(%rsi,%rax,8), %xmm0
movsd %xmm0, (%rsi,%rax,8)
incq %rax
jmp 0x1737e
popq %rbp
retq
leaq 0x1057d(%rip), %rdi     # 0x27924
callq 0x7756
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: fata
void
fata(double cr[], double ci[], int n, double ar, double ai, double *far, double *fai)
{
	int k;
	double xr, xi, yr, yi;

	yr = cr[n - 1];
	yi = ci[n - 1];

	for (k = n - 2; k >= 0; k--) {

		// x = a * y

		xr = ar * yr - ai * yi;
		xi = ar * yi + ai * yr;

		// y = x + c

		yr = xr + cr[k];
		yi = xi + ci[k];
	}

	*far = yr;
	*fai = yi;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
movslq %edx, %rax
movsd -0x8(%rdi,%rax,8), %xmm2
movsd -0x8(%rsi,%rax,8), %xmm3
addl $-0x2, %eax
testl %eax, %eax
js 0x17425
movapd %xmm0, %xmm4
mulsd %xmm3, %xmm4
mulsd %xmm1, %xmm3
movapd %xmm0, %xmm5
mulsd %xmm2, %xmm5
subsd %xmm3, %xmm5
mulsd %xmm1, %xmm2
addsd %xmm4, %xmm2
movl %eax, %edx
addsd (%rdi,%rdx,8), %xmm5
movapd %xmm2, %xmm3
addsd (%rsi,%rdx,8), %xmm3
decl %eax
movapd %xmm5, %xmm2
jmp 0x173e9
movsd %xmm2, (%rcx)
movsd %xmm3, (%r8)
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: eval_number
void
eval_number(struct atom *p1)
{
	push(cadr(p1));
	evalf();

	p1 = pop();

	if (isnum(p1))
		push_integer(1);
	else
		push_integer(0);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
cmpb $0x1, 0x10(%rdi)
leaq 0x8(%rdi), %rax
leaq 0x27597(%rip), %rcx     # 0x3e9f0
cmovneq %rcx, %rax
movq (%rax), %rax
cmpb $0x1, 0x10(%rax)
cmoveq %rax, %rcx
movq (%rcx), %rdi
callq 0x861b
callq 0x8fbb
callq 0x868d
movb 0x10(%rax), %al
andb $-0x2, %al
xorl %edi, %edi
cmpb $0x4, %al
sete %dil
popq %rbp
jmp 0xa426
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: eval_outer
void
eval_outer(struct atom *p1)
{
	push(cadr(p1));
	evalf();
	p1 = cddr(p1);
	while (iscons(p1)) {
		push(car(p1));
		evalf();
		outer();
		p1 = cdr(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 0x274b1(%rip), %r14     # 0x3e9f0
movq %r14, %rax
cmoveq %r15, %rax
movq (%rax), %rax
cmpb $0x1, 0x10(%rax)
cmovneq %r14, %rax
movq (%rax), %rdi
callq 0x861b
callq 0x8fbb
cmpb $0x1, 0x10(%rbx)
cmovneq %r14, %r15
movq (%r15), %rbx
leaq 0x8(%rbx), %rax
cmpb $0x1, 0x10(%rbx)
cmovneq %r14, %rax
movq (%rax), %rbx
cmpb $0x1, 0x10(%rbx)
jne 0x17592
movq (%rbx), %rdi
callq 0x861b
callq 0x8fbb
callq 0x1759d
jmp 0x17569
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: outer
void
outer(void)
{
	int i, j, k, n, ncol, nrow;
	struct atom *p1, *p2, *p3;

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

	if (!istensor(p1) || !istensor(p2)) {
		push(p1);
		push(p2);
		multiply();
		return;
	}

	if (p1->u.tensor->ndim + p2->u.tensor->ndim > MAXDIM)
		stopf("outer: rank exceeds max");

	// sync diffs

	nrow = p1->u.tensor->nelem;
	ncol = p2->u.tensor->nelem;

	p3 = alloc_tensor(nrow * ncol);

	for (i = 0; i < nrow; i++)
		for (j = 0; j < ncol; j++) {
			push(p1->u.tensor->elem[i]);
			push(p2->u.tensor->elem[j]);
			multiply();
			p3->u.tensor->elem[i * ncol + j] = pop();
		}

	// dim info

	p3->u.tensor->ndim = p1->u.tensor->ndim + p2->u.tensor->ndim;

	k = 0;

	n = p1->u.tensor->ndim;

	for (i = 0; i < n; i++)
		p3->u.tensor->dim[k++] = p1->u.tensor->dim[i];

	n = p2->u.tensor->ndim;

	for (i = 0; i < n; i++)
		p3->u.tensor->dim[k++] = p2->u.tensor->dim[i];

	push(p3);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x28, %rsp
callq 0x868d
movq %rax, %rbx
callq 0x868d
movq %rax, -0x30(%rbp)
cmpb $0x7, 0x10(%rax)
jne 0x1767a
cmpb $0x7, 0x10(%rbx)
jne 0x1767a
movq -0x30(%rbp), %rax
movq (%rax), %rax
movq (%rbx), %rcx
movl (%rcx), %edx
addl (%rax), %edx
cmpl $0x19, %edx
jge 0x1772a
movq %rbx, %r15
movl 0x64(%rax), %ebx
movslq 0x64(%rcx), %r14
movl %r14d, %edi
imull %ebx, %edi
callq 0x77da
movq %rax, -0x38(%rbp)
xorl %r12d, %r12d
testl %r14d, %r14d
movl $0x0, %r13d
cmovgl %r14d, %r13d
testl %ebx, %ebx
cmovlel %r12d, %ebx
movq %rbx, -0x48(%rbp)
shlq $0x3, %r14
movq %r14, -0x40(%rbp)
pushq $0x68
popq %rbx
cmpq -0x48(%rbp), %r12
je 0x1769e
xorl %r14d, %r14d
cmpq %r14, %r13
je 0x17671
movq -0x30(%rbp), %rax
movq (%rax), %rax
movq 0x68(%rax,%r12,8), %rdi
callq 0x861b
movq (%r15), %rax
movq 0x68(%rax,%r14,8), %rdi
callq 0x861b
callq 0x9fae
callq 0x868d
movq -0x38(%rbp), %rcx
movq (%rcx), %rcx
addq %rbx, %rcx
movq %rax, (%rcx,%r14,8)
incq %r14
jmp 0x17631
incq %r12
addq -0x40(%rbp), %rbx
jmp 0x17628
movq -0x30(%rbp), %rdi
callq 0x861b
movq %rbx, %rdi
callq 0x861b
addq $0x28, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x9fae
movq -0x30(%rbp), %rdx
movq (%rdx), %rax
movq (%r15), %rcx
movl (%rcx), %ecx
addl (%rax), %ecx
movq -0x38(%rbp), %rax
movq (%rax), %rax
movl %ecx, (%rax)
movq (%rdx), %rax
movl (%rax), %eax
xorl %ecx, %ecx
testl %eax, %eax
cmovlel %ecx, %eax
cmpq %rcx, %rax
je 0x176e1
movq -0x30(%rbp), %rdx
movq (%rdx), %rdx
movl 0x4(%rdx,%rcx,4), %edx
movq -0x38(%rbp), %rsi
movq (%rsi), %rsi
movl %edx, 0x4(%rsi,%rcx,4)
incq %rcx
jmp 0x176c1
movq (%r15), %rcx
movl (%rcx), %ecx
xorl %edx, %edx
testl %ecx, %ecx
cmovlel %edx, %ecx
leaq 0x4(,%rax,4), %rax
cmpq %rdx, %rcx
je 0x17713
movq (%r15), %rsi
movl 0x4(%rsi,%rdx,4), %esi
movq -0x38(%rbp), %rdi
movq (%rdi), %rdi
addq %rax, %rdi
movl %esi, (%rdi,%rdx,4)
incq %rdx
jmp 0x176f5
movq -0x38(%rbp), %rdi
addq $0x28, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x861b
leaq 0x1020a(%rip), %rdi     # 0x2793b
callq 0x7756
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: eval_power
void
eval_power(struct atom *p1)
{
	int t;
	struct atom *p2;

	expanding--; // undo expanding++ in evalf

	// base

	push(cadr(p1));

	// exponent

	push(caddr(p1));
	evalg();
	dupl();
	p2 = pop();

	// if exponent is negative then evaluate base without expanding

	swap();
	if (isnegativenumber(p2)) {
		t = expanding;
		expanding = 0;
		evalg();
		expanding = t;
	} else
		evalg();
	swap();

	power();

	expanding++;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
decl 0xed345(%rip)           # 0x104ac0
movq %rdi, %rbx
leaq 0x8(%rdi), %r15
cmpb $0x1, 0x10(%rdi)
leaq 0x27263(%rip), %r14     # 0x3e9f0
movq %r14, %rax
cmoveq %r15, %rax
movq (%rax), %rax
cmpb $0x1, 0x10(%rax)
cmovneq %r14, %rax
movq (%rax), %rdi
callq 0x861b
cmpb $0x1, 0x10(%rbx)
cmovneq %r14, %r15
movq (%r15), %rax
cmpb $0x1, 0x10(%rax)
jne 0x177be
movq 0x8(%rax), %rax
jmp 0x177c5
movq 0x2722b(%rip), %rax     # 0x3e9f0
cmpb $0x1, 0x10(%rax)
jne 0x177ce
movq %rax, %r14
movq (%r14), %rdi
callq 0x861b
callq 0x8f7d
callq 0x17833
callq 0x868d
movq %rax, %rbx
callq 0xa49b
movq %rbx, %rdi
callq 0x8c2a
testl %eax, %eax
je 0x17813
movl 0xed2c1(%rip), %ebx     # 0x104ac0
andl $0x0, 0xed2ba(%rip)     # 0x104ac0
callq 0x8f7d
movl %ebx, 0xed2af(%rip)     # 0x104ac0
jmp 0x17818
callq 0x8f7d
callq 0xa49b
callq 0x9a87
incl 0xed298(%rip)           # 0x104ac0
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: power_sum
void
power_sum(struct atom *BASE, struct atom *EXPO)
{
	int h, i, n;
	struct atom *p1, *p2;

	if (iscomplexnumber(BASE) && isnum(EXPO)) {
		power_complex_number(BASE, EXPO);
		return;
	}

	if (expanding == 0 || !issmallinteger(EXPO) || isnegativenumber(EXPO)) {
		push_symbol(POWER);
		push(BASE);
		push(EXPO);
		list(3);
		return;
	}

	push(EXPO);
	n = pop_integer();

	// square the sum first (prevents infinite loop through multiply)

	h = tos;

	p1 = cdr(BASE);

	while (iscons(p1)) {
		p2 = cdr(BASE);
		while (iscons(p2)) {
			push(car(p1));
			push(car(p2));
			multiply();
			p2 = cdr(p2);
		}
		p1 = cdr(p1);
	}

	add_terms(tos - h);

	// continue up to power n

	for (i = 2; i < n; i++) {
		push(BASE);
		multiply();
	}
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rsi, %r14
movq %rdi, %rbx
callq 0x18f80
testl %eax, %eax
je 0x17e20
movb 0x10(%r14), %al
andb $-0x2, %al
cmpb $0x4, %al
jne 0x17e20
movq %rbx, %rdi
movq %r14, %rsi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x1902d
cmpl $0x0, 0xecc99(%rip)     # 0x104ac0
je 0x17e41
movq %r14, %rdi
callq 0x126ab
testl %eax, %eax
je 0x17e41
movq %r14, %rdi
callq 0x8c2a
testl %eax, %eax
je 0x17e73
movq 0x29458(%rip), %rdi     # 0x412a0
callq 0x861b
movq %rbx, %rdi
callq 0x861b
movq %r14, %rdi
callq 0x861b
pushq $0x3
popq %rdi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x85eb
movq %r14, %rdi
callq 0x861b
callq 0xd9d9
movl %eax, -0x30(%rbp)
movl 0x2041f(%rip), %eax     # 0x382a8
movl %eax, -0x2c(%rbp)
leaq 0x8(%rbx), %r12
cmpb $0x1, 0x10(%rbx)
leaq 0x26b55(%rip), %r14     # 0x3e9f0
movq %r14, %r13
cmoveq %r12, %r13
movq (%r13), %r13
cmpb $0x1, 0x10(%r13)
jne 0x17f0e
cmpb $0x1, 0x10(%rbx)
movq %r14, %r15
cmoveq %r12, %r15
movq (%r15), %r15
cmpb $0x1, 0x10(%r15)
movb 0x10(%r13), %al
jne 0x17f02
cmpb $0x1, %al
movq %r14, %rax
cmoveq %r13, %rax
movq (%rax), %rdi
callq 0x861b
cmpb $0x1, 0x10(%r15)
movq %r14, %rax
cmoveq %r15, %rax
movq (%rax), %rdi
callq 0x861b
callq 0x9fae
cmpb $0x1, 0x10(%r15)
je 0x17efc
movq %r14, %r15
jmp 0x17eb8
addq $0x8, %r15
jmp 0x17eb8
addq $0x8, %r13
cmpb $0x1, %al
cmovneq %r14, %r13
jmp 0x17ea2
movl 0x20394(%rip), %edi     # 0x382a8
subl -0x2c(%rbp), %edi
callq 0xa0fd
pushq $0x2
popq %r14
movl -0x30(%rbp), %r15d
cmpl %r15d, %r14d
jge 0x17f3b
movq %rbx, %rdi
callq 0x861b
callq 0x9fae
incl %r14d
jmp 0x17f24
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: power_double
void
power_double(struct atom *BASE, struct atom *EXPO)
{
	double base, d, expo;

	push(BASE);
	base = pop_double();

	push(EXPO);
	expo = pop_double();

	if (base > 0.0 || expo == floor(expo)) {
		d = pow(base, expo);
		push_double(d);
		return;
	}

	// BASE is negative and EXPO is fractional

	power_minusone(EXPO);

	if (base == -1.0)
		return;

	d = pow(-base, expo);
	push_double(d);

	multiply();
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %rbx
subq $0x18, %rsp
movq %rsi, %rbx
callq 0x861b
callq 0x8ae1
movapd %xmm0, -0x20(%rbp)
movq %rbx, %rdi
callq 0x861b
callq 0x8ae1
movsd %xmm0, -0x10(%rbp)
callq 0x72f0
movsd -0x10(%rbp), %xmm1
xorpd %xmm2, %xmm2
movapd -0x20(%rbp), %xmm3
ucomisd %xmm2, %xmm3
movapd %xmm3, %xmm2
ja 0x17fbc
ucomisd %xmm0, %xmm1
jne 0x17f9c
jnp 0x17fbc
movq %rbx, %rdi
callq 0x18200
movapd -0x20(%rbp), %xmm1
ucomisd 0xb197(%rip), %xmm1     # 0x23148
jne 0x17fd0
jp 0x17fd0
addq $0x18, %rsp
popq %rbx
popq %rbp
retq
movapd %xmm2, %xmm0
callq 0x70d0
addq $0x18, %rsp
popq %rbx
popq %rbp
jmp 0xaf59
movapd 0xb138(%rip), %xmm0     # 0x23110
xorpd %xmm1, %xmm0
movsd -0x10(%rbp), %xmm1
callq 0x70d0
callq 0xaf59
addq $0x18, %rsp
popq %rbx
popq %rbp
jmp 0x9fae
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: power_minusone
void
power_minusone(struct atom *EXPO)
{
	// optimization for i

	if (isequalq(EXPO, 1, 2)) {
		push(imaginaryunit);
		return;
	}

	// root is an odd number?

	if (isrational(EXPO) && EXPO->u.q.b[0] & 1) {
		if (EXPO->u.q.a[0] & 1)
			push_integer(-1);
		else
			push_integer(1);
		return;
	}

	if (isrational(EXPO)) {
		normalize_clock_rational(EXPO);
		return;
	}

	if (isdouble(EXPO)) {
		normalize_clock_double(EXPO);
		rect();
		return;
	}

	push_symbol(POWER);
	push_integer(-1);
	push(EXPO);
	list(3);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %rbx
pushq %rax
movq %rdi, %rbx
pushq $0x1
popq %rsi
pushq $0x2
popq %rdx
callq 0xbf44
testl %eax, %eax
je 0x1822a
movq 0xec8b1(%rip), %rdi     # 0x104ad0
addq $0x8, %rsp
popq %rbx
popq %rbp
jmp 0x861b
movzbl 0x10(%rbx), %eax
cmpl $0x5, %eax
je 0x1824f
cmpl $0x4, %eax
jne 0x18262
movq 0x8(%rbx), %rax
testb $0x1, (%rax)
jne 0x1828c
movq %rbx, %rdi
addq $0x8, %rsp
popq %rbx
popq %rbp
jmp 0x182a6
movq %rbx, %rdi
callq 0x184db
addq $0x8, %rsp
popq %rbx
popq %rbp
jmp 0x128dd
movq 0x29037(%rip), %rdi     # 0x412a0
callq 0x861b
pushq $-0x1
popq %rdi
callq 0xa426
movq %rbx, %rdi
callq 0x861b
pushq $0x3
popq %rdi
addq $0x8, %rsp
popq %rbx
popq %rbp
jmp 0x85eb
movq (%rbx), %rax
testb $0x1, (%rax)
jne 0x18298
pushq $0x1
jmp 0x1829a
pushq $-0x1
popq %rdi
addq $0x8, %rsp
popq %rbx
popq %rbp
jmp 0xa426
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: isdenormalpolar
int
isdenormalpolar(struct atom *p)
{
	if (car(p) == symbol(ADD)) {
		p = cdr(p);
		while (iscons(p)) {
			if (isdenormalpolarterm(car(p)))
				return 1;
			p = cdr(p);
		}
		return 0;
	}

	return isdenormalpolarterm(p);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
movq %rdi, %rbx
cmpb $0x1, 0x10(%rdi)
leaq 0x26307(%rip), %r15     # 0x3e9f0
movq %r15, %rcx
cmoveq %rdi, %rcx
sete %al
movq (%rcx), %rcx
cmpq 0x28b93(%rip), %rcx     # 0x41290
je 0x18711
movq %rbx, %rdi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x1881a
pushq $0x1
popq %r14
addq $0x8, %rbx
testb $0x1, %al
cmoveq %r15, %rbx
movq (%rbx), %rbx
cmpb $0x1, 0x10(%rbx)
jne 0x1873d
movq (%rbx), %rdi
callq 0x1881a
testl %eax, %eax
jne 0x18740
cmpb $0x1, 0x10(%rbx)
sete %al
jmp 0x18715
xorl %r14d, %r14d
movl %r14d, %eax
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: normalize_polar
void
normalize_polar(struct atom *EXPO)
{
	int h;
	struct atom *p1;
	if (car(EXPO) == symbol(ADD)) {
		h = tos;
		p1 = cdr(EXPO);
		while (iscons(p1)) {
			EXPO = car(p1);
			if (isdenormalpolarterm(EXPO))
				normalize_polar_term(EXPO);
			else {
				push_symbol(POWER);
				push_symbol(EXP1);
				push(EXPO);
				list(3);
			}
			p1 = cdr(p1);
		}
		multiply_factors(tos - h);
	} else
		normalize_polar_term(EXPO);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rdi, %rbx
cmpb $0x1, 0x10(%rdi)
leaq 0x26286(%rip), %r12     # 0x3e9f0
movq %r12, %rcx
cmoveq %rdi, %rcx
sete %al
movq (%rcx), %rcx
cmpq 0x28b12(%rip), %rcx     # 0x41290
je 0x18796
movq %rbx, %rdi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x18a14
movl 0x1fb0b(%rip), %r13d    # 0x382a8
pushq $0x3
popq %r14
addq $0x8, %rbx
testb $0x1, %al
cmoveq %r12, %rbx
movq (%rbx), %rbx
cmpb $0x1, 0x10(%rbx)
jne 0x187fe
movq (%rbx), %r15
movq %r15, %rdi
callq 0x1881a
testl %eax, %eax
je 0x187cd
movq %r15, %rdi
callq 0x18a14
jmp 0x187f5
movq 0x28acc(%rip), %rdi     # 0x412a0
callq 0x861b
movq 0x28ad8(%rip), %rdi     # 0x412b8
callq 0x861b
movq %r15, %rdi
callq 0x861b
movl %r14d, %edi
callq 0x85eb
cmpb $0x1, 0x10(%rbx)
sete %al
jmp 0x187a1
movl 0x1faa4(%rip), %edi     # 0x382a8
subl %r13d, %edi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0xa04c
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: isdenormalpolarterm
int
isdenormalpolarterm(struct atom *p)
{
	if (car(p) != symbol(MULTIPLY))
		return 0;

	if (lengthf(p) == 3 && isimaginaryunit(cadr(p)) && caddr(p) == symbol(PI))
		return 1; // exp(i pi)

	if (lengthf(p) != 4 || !isnum(cadr(p)) || !isimaginaryunit(caddr(p)) || cadddr(p) != symbol(PI))
		return 0;

	p = cadr(p); // p = coeff of term

	if (isnegativenumber(p))
		return 1; // p < 0

	push(p);
	push_rational(-1, 2);
	add();
	p = pop();

	if (!isnegativenumber(p))
		return 1; // p >= 1/2

	return 0;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
movb 0x10(%rdi), %r12b
cmpb $0x1, %r12b
leaq 0x261bc(%rip), %r15     # 0x3e9f0
movq %r15, %rax
cmoveq %rdi, %rax
movq (%rax), %rax
xorl %ebx, %ebx
cmpq 0x28a51(%rip), %rax     # 0x41298
je 0x18854
movl %ebx, %eax
popq %rbx
popq %r12
popq %r14
popq %r15
popq %rbp
retq
movq %rdi, %r14
callq 0x86c3
cmpl $0x4, %eax
je 0x188a3
cmpl $0x3, %eax
jne 0x18849
addq $0x8, %r14
cmpb $0x1, %r12b
cmovneq %r15, %r14
movq (%r14), %r14
movb 0x10(%r14), %r12b
cmpb $0x1, %r12b
movq %r15, %rax
cmoveq %r14, %rax
movq (%rax), %rdi
callq 0x13d3d
testl %eax, %eax
je 0x18849
cmpb $0x1, %r12b
jne 0x1892a
movq 0x8(%r14), %rax
jmp 0x18931
addq $0x8, %r14
cmpb $0x1, %r12b
leaq 0x2613e(%rip), %rax     # 0x3e9f0
cmovneq %rax, %r14
movq (%r14), %r15
movb 0x10(%r15), %r12b
cmpb $0x1, %r12b
jne 0x188db
movq (%r15), %rcx
movb 0x10(%rcx), %cl
andb $-0x2, %cl
cmpb $0x4, %cl
jne 0x18849
movq 0x8(%r15), %rcx
jmp 0x188fb
movq 0x2610e(%rip), %rcx     # 0x3e9f0
movzbl 0x10(%rcx), %ecx
cmpl $0x4, %ecx
je 0x18904
cmpl $0x5, %ecx
jne 0x18849
movq 0x260f5(%rip), %rcx     # 0x3e9f0
cmpb $0x1, 0x10(%rcx)
jne 0x18904
movq %rcx, %rax
movq (%rax), %rdi
callq 0x13d3d
testl %eax, %eax
je 0x18849
cmpb $0x1, %r12b
jne 0x1894f
movq 0x8(%r15), %rax
cmpb $0x1, 0x10(%rax)
jne 0x18970
movq 0x8(%rax), %rax
jmp 0x18977
movq 0x260bf(%rip), %rax     # 0x3e9f0
cmpb $0x1, 0x10(%rax)
jne 0x1893a
movq %rax, %r15
movq (%r15), %rax
cmpq 0x266fc(%rip), %rax     # 0x3f040
jne 0x18849
jmp 0x189dd
movq 0x2609a(%rip), %r14     # 0x3e9f0
cmpb $0x1, 0x10(%r14)
jne 0x18996
movq 0x8(%r14), %rax
cmpb $0x1, 0x10(%rax)
jne 0x1898d
movq 0x26082(%rip), %rax     # 0x3e9f0
jmp 0x18981
movq 0x26079(%rip), %rax     # 0x3e9f0
cmpb $0x1, 0x10(%rax)
jne 0x1898d
movq 0x8(%r15), %rax
cmpb $0x1, 0x10(%rax)
jne 0x189a5
addq $0x8, %rax
jmp 0x189ac
leaq 0x2605c(%rip), %rax     # 0x3e9f0
jmp 0x189af
cmpq 0x266a3(%rip), %r14     # 0x3f040
jne 0x18849
jmp 0x189d1
leaq 0x26044(%rip), %rax     # 0x3e9f0
movq (%rax), %rax
movq (%rax), %rax
cmpq 0x26687(%rip), %rax     # 0x3f040
jne 0x18849
cmpb $0x1, %r12b
leaq 0x26026(%rip), %rax     # 0x3e9f0
cmoveq %r15, %rax
movq (%rax), %r14
movq %r14, %rdi
callq 0x8c2a
testl %eax, %eax
je 0x189e5
pushq $0x1
popq %rbx
jmp 0x18849
movq %r14, %rdi
callq 0x861b
pushq $-0x1
popq %rdi
pushq $0x2
popq %rsi
callq 0x9a47
callq 0xa1f6
callq 0x868d
movq %rax, %rdi
callq 0x8c2a
movl %eax, %ebx
xorl $0x1, %ebx
jmp 0x18849
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: normalize_polar_term
void
normalize_polar_term(struct atom *EXPO)
{
	struct atom *R;

	// exp(i pi) = -1

	if (lengthf(EXPO) == 3) {
		push_integer(-1);
		return;
	}

	R = cadr(EXPO); // R = coeff of term

	if (isrational(R))
		normalize_polar_term_rational(R);
	else
		normalize_polar_term_double(R);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %rbx
pushq %rax
movq %rdi, %rbx
callq 0x86c3
cmpl $0x3, %eax
jne 0x18a35
pushq $-0x1
popq %rdi
addq $0x8, %rsp
popq %rbx
popq %rbp
jmp 0xa426
leaq 0x8(%rbx), %rax
cmpb $0x1, 0x10(%rbx)
leaq 0x25fac(%rip), %rcx     # 0x3e9f0
cmovneq %rcx, %rax
movq (%rax), %rax
cmpb $0x1, 0x10(%rax)
cmoveq %rax, %rcx
movq (%rcx), %rdi
cmpb $0x4, 0x10(%rdi)
jne 0x18a67
addq $0x8, %rsp
popq %rbx
popq %rbp
jmp 0x18a72
addq $0x8, %rsp
popq %rbx
popq %rbp
jmp 0x18d05
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: power_complex_double
void
power_complex_double(struct atom *X, struct atom *Y, struct atom *EXPO)
{
	double expo, r, theta, x, y;

	push(EXPO);
	expo = pop_double();

	push(X);
	x = pop_double();

	push(Y);
	y = pop_double();

	r = hypot(x, y);
	theta = atan2(y, x);

	r = pow(r, expo);
	theta = expo * theta;

	x = r * cos(theta);
	y = r * sin(theta);

	push_double(x);
	push_double(y);
	push(imaginaryunit);
	multiply();
	add();
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r14
pushq %rbx
subq $0x20, %rsp
movq %rsi, %rbx
movq %rdi, %r14
movq %rdx, %rdi
callq 0x861b
callq 0x8ae1
movsd %xmm0, -0x28(%rbp)
movq %r14, %rdi
callq 0x861b
callq 0x8ae1
movsd %xmm0, -0x18(%rbp)
movq %rbx, %rdi
callq 0x861b
callq 0x8ae1
movaps %xmm0, %xmm1
movsd %xmm0, -0x30(%rbp)
movsd -0x18(%rbp), %xmm0
callq 0x72a0
movsd %xmm0, -0x20(%rbp)
movsd -0x30(%rbp), %xmm0
movsd -0x18(%rbp), %xmm1
callq 0x7290
movsd %xmm0, -0x18(%rbp)
movsd -0x20(%rbp), %xmm0
movsd -0x28(%rbp), %xmm1
callq 0x70d0
movsd %xmm0, -0x20(%rbp)
movsd -0x18(%rbp), %xmm0
mulsd -0x28(%rbp), %xmm0
movsd %xmm0, -0x18(%rbp)
callq 0x7170
mulsd -0x20(%rbp), %xmm0
movsd %xmm0, -0x28(%rbp)
movsd -0x18(%rbp), %xmm0
callq 0x72e0
mulsd -0x20(%rbp), %xmm0
movsd %xmm0, -0x18(%rbp)
movsd -0x28(%rbp), %xmm0
callq 0xaf59
movsd -0x18(%rbp), %xmm0
callq 0xaf59
movq 0xeb6d2(%rip), %rdi     # 0x104ad0
callq 0x861b
callq 0x9fae
addq $0x20, %rsp
popq %rbx
popq %r14
popq %rbp
jmp 0xa1f6
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: power_complex_rational
void
power_complex_rational(struct atom *X, struct atom *Y, struct atom *EXPO)
{
	// calculate sqrt(X^2 + Y^2) ^ (1/2 * EXPO)

	push(X);
	push(X);
	multiply();
	push(Y);
	push(Y);
	multiply();
	add();
	push_rational(1, 2);
	push(EXPO);
	multiply();
	power();

	// calculate (-1) ^ (EXPO * arctan(Y, X) / pi)

	push(Y);
	push(X);
	arctan();
	push_symbol(PI);
	divide();
	push(EXPO);
	multiply();
	EXPO = pop();
	power_minusone(EXPO);

	// result = sqrt(X^2 + Y^2) ^ (1/2 * EXPO) * (-1) ^ (EXPO * arctan(Y, X) / pi)

	multiply();
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
movq %rdx, %rbx
movq %rsi, %r15
movq %rdi, %r14
callq 0x861b
movq %r14, %rdi
callq 0x861b
callq 0x9fae
movq %r15, %rdi
callq 0x861b
movq %r15, %rdi
callq 0x861b
callq 0x9fae
callq 0xa1f6
pushq $0x1
popq %rdi
pushq $0x2
popq %rsi
callq 0x9a47
movq %rbx, %rdi
callq 0x861b
callq 0x9fae
callq 0x9a87
movq %r15, %rdi
callq 0x861b
movq %r14, %rdi
callq 0x861b
callq 0xc5ea
movq 0x25bb3(%rip), %rdi     # 0x3f040
callq 0x861b
callq 0xca0b
movq %rbx, %rdi
callq 0x861b
callq 0x9fae
callq 0x868d
movq %rax, %rdi
callq 0x18200
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x9fae
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: power_complex_plus
void
power_complex_plus(struct atom *X, struct atom *Y, int n)
{
	int i;
	struct atom *PX, *PY;

	PX = X;
	PY = Y;

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

		push(PX);
		push(X);
		multiply();
		push(PY);
		push(Y);
		multiply();
		subtract();

		push(PX);
		push(Y);
		multiply();
		push(PY);
		push(X);
		multiply();
		add();

		PY = pop();
		PX = pop();
	}

	// X + i*Y

	push(PX);
	push(imaginaryunit);
	push(PY);
	multiply();
	add();
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movl %edx, -0x2c(%rbp)
movq %rsi, %r14
movq %rdi, %r15
pushq $0x1
popq %rbx
movq %rdi, %r13
movq %rsi, %r12
movq %r13, %rdi
callq 0x861b
cmpl -0x2c(%rbp), %ebx
jge 0x19557
movq %r15, %rdi
callq 0x861b
callq 0x9fae
movq %r12, %rdi
callq 0x861b
movq %r14, %rdi
callq 0x861b
callq 0x9fae
callq 0xb07f
movq %r13, %rdi
callq 0x861b
movq %r14, %rdi
callq 0x861b
callq 0x9fae
movq %r12, %rdi
callq 0x861b
movq %r15, %rdi
callq 0x861b
callq 0x9fae
callq 0xa1f6
callq 0x868d
movq %rax, %r12
callq 0x868d
movq %rax, %r13
incl %ebx
jmp 0x194e0
movq 0xeb572(%rip), %rdi     # 0x104ad0
callq 0x861b
movq %r12, %rdi
callq 0x861b
callq 0x9fae
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0xa1f6
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: power_complex_minus
void
power_complex_minus(struct atom *X, struct atom *Y, int n)
{
	int i;
	struct atom *PX, *PY, *R;

	// R = X^2 + Y^2

	push(X);
	push(X);
	multiply();
	push(Y);
	push(Y);
	multiply();
	add();
	R = pop();

	// X = X / R

	push(X);
	push(R);
	divide();
	X = pop();

	// Y = -Y / R

	push(Y);
	negate();
	push(R);
	divide();
	Y = pop();

	PX = X;
	PY = Y;

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

		push(PX);
		push(X);
		multiply();
		push(PY);
		push(Y);
		multiply();
		subtract();

		push(PX);
		push(Y);
		multiply();
		push(PY);
		push(X);
		multiply();
		add();

		PY = pop();
		PX = pop();
	}

	// X + i*Y

	push(PX);
	push(imaginaryunit);
	push(PY);
	multiply();
	add();
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movl %edx, -0x2c(%rbp)
movq %rsi, %r15
movq %rdi, %r14
callq 0x861b
movq %r14, %rdi
callq 0x861b
callq 0x9fae
movq %r15, %rdi
callq 0x861b
movq %r15, %rdi
callq 0x861b
callq 0x9fae
callq 0xa1f6
callq 0x868d
movq %rax, %r12
movq %r14, %rdi
callq 0x861b
movq %r12, %rdi
callq 0x861b
callq 0xca0b
callq 0x868d
movq %rax, %r14
movq %r15, %rdi
callq 0x861b
callq 0x975f
movq %r12, %rdi
callq 0x861b
callq 0xca0b
pushq $0x1
popq %rbx
callq 0x868d
movq %rax, %r15
movq %r14, %r13
movq %rax, %r12
movq %r13, %rdi
callq 0x861b
cmpl -0x2c(%rbp), %ebx
jge 0x1968d
movq %r14, %rdi
callq 0x861b
callq 0x9fae
movq %r12, %rdi
callq 0x861b
movq %r15, %rdi
callq 0x861b
callq 0x9fae
callq 0xb07f
movq %r13, %rdi
callq 0x861b
movq %r15, %rdi
callq 0x861b
callq 0x9fae
movq %r12, %rdi
callq 0x861b
movq %r14, %rdi
callq 0x861b
callq 0x9fae
callq 0xa1f6
callq 0x868d
movq %rax, %r12
callq 0x868d
movq %rax, %r13
incl %ebx
jmp 0x19616
movq 0xeb43c(%rip), %rdi     # 0x104ad0
callq 0x861b
movq %r12, %rdi
callq 0x861b
callq 0x9fae
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0xa1f6
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: eval_prefixform
void
eval_prefixform(struct atom *p1)
{
	push(cadr(p1));
	evalf();
	p1 = pop();

	outbuf_init();
	prefixform(p1);

	push_string(outbuf);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %rbx
pushq %rax
cmpb $0x1, 0x10(%rdi)
leaq 0x8(%rdi), %rax
leaq 0x25322(%rip), %rcx     # 0x3e9f0
cmovneq %rcx, %rax
movq (%rax), %rax
cmpb $0x1, 0x10(%rax)
cmoveq %rax, %rcx
movq (%rcx), %rdi
callq 0x861b
callq 0x8fbb
callq 0x868d
movq %rax, %rbx
callq 0x12e54
movq %rbx, %rdi
callq 0x19711
movq 0xf5cb2(%rip), %rdi     # 0x10f3b8
addq $0x8, %rsp
popq %rbx
popq %rbp
jmp 0x12f1a
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: prefixform
void
prefixform(struct atom *p)
{
	char *s;
	switch (p->atomtype) {
	case CONS:
		outbuf_puts("(");
		prefixform(car(p));
		p = cdr(p);
		while (iscons(p)) {
			outbuf_puts(" ");
			prefixform(car(p));
			p = cdr(p);
		}
		if (p != symbol(NIL)) {
			outbuf_puts(" . ");
			prefixform(p);
		}
		outbuf_puts(")");
		break;
	case STR:
		outbuf_puts("\"");
		outbuf_puts(p->u.str);
		outbuf_puts("\"");
		break;
	case RATIONAL:
		if (p->sign == MMINUS)
			outbuf_puts("-");
		s = mstr(p->u.q.a);
		outbuf_puts(s);
		s = mstr(p->u.q.b);
		if (strcmp(s, "1") == 0)
			break;
		outbuf_puts("/");
		outbuf_puts(s);
		break;
	case DOUBLE:
		snprintf(strbuf, STRBUFLEN, "%g", p->u.d);
		outbuf_puts(strbuf);
		if (!strchr(strbuf, '.') && !strchr(strbuf, 'e'))
			outbuf_puts(".0");
		break;
	case KSYM:
	case USYM:
		outbuf_puts(printname(p));
		break;
	case TENSOR:
		outbuf_puts("(tensor)");
		break;
	default:
		outbuf_puts("(?)");
		break;
	}
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
movzbl 0x10(%rdi), %eax
decl %eax
cmpl $0x6, %eax
ja 0x19792
movq %rdi, %rbx
leaq 0x9964(%rip), %rcx      # 0x23094
movslq (%rcx,%rax,4), %rax
addq %rcx, %rax
jmpq *%rax
movq (%rbx), %rdi
jmp 0x1982c
cmpb $0x1, 0x12(%rbx)
jne 0x19753
leaq 0x9cc6(%rip), %rdi      # 0x23414
callq 0x12f84
movq (%rbx), %rdi
callq 0x7bb4
movq %rax, %rdi
callq 0x12f84
movq 0x8(%rbx), %rdi
callq 0x7bb4
movq %rax, %rbx
cmpb $0x31, (%rax)
jne 0x1977e
cmpb $0x0, 0x1(%rbx)
je 0x19888
leaq 0x9c84(%rip), %rdi      # 0x23409
callq 0x12f84
movq %rbx, %rdi
jmp 0x1982c
leaq 0xe1cc(%rip), %rdi      # 0x27965
jmp 0x1982c
leaq 0x9c55(%rip), %rdi      # 0x233fa
leaq 0x25244(%rip), %r14     # 0x3e9f0
leaq 0x9c1c(%rip), %r15      # 0x233cf
callq 0x12f84
cmpb $0x1, 0x10(%rbx)
movq %r14, %rax
cmoveq %rbx, %rax
movq (%rax), %rdi
callq 0x19711
leaq 0x8(%rbx), %rax
cmpb $0x1, 0x10(%rbx)
cmovneq %r14, %rax
movq (%rax), %rbx
cmpb $0x1, 0x10(%rbx)
movq %r15, %rdi
je 0x197b3
cmpq 0x25206(%rip), %rbx     # 0x3e9f0
je 0x19800
leaq 0xe160(%rip), %rdi      # 0x27953
callq 0x12f84
movq %rbx, %rdi
callq 0x19711
leaq 0xcc6b(%rip), %rdi      # 0x26472
jmp 0x1982c
leaq 0xe147(%rip), %r14      # 0x27957
movq %r14, %rdi
callq 0x12f84
movq (%rbx), %rdi
callq 0x12f84
movq %r14, %rdi
jmp 0x1982c
leaq 0xe130(%rip), %rdi      # 0x2795c
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x12f84
movsd (%rbx), %xmm0
leaq 0xf60ba(%rip), %rbx     # 0x10f900
leaq 0x9bbe(%rip), %rdx      # 0x2340b
movl $0x3e8, %esi            # imm = 0x3E8
movq %rbx, %rdi
movb $0x1, %al
callq 0x7100
movq %rbx, %rdi
callq 0x12f84
pushq $0x2e
popq %rsi
movq %rbx, %rdi
callq 0x70f0
testq %rax, %rax
jne 0x19888
leaq 0xf6085(%rip), %rdi     # 0x10f900
pushq $0x65
popq %rsi
callq 0x70f0
testq %rax, %rax
je 0x19893
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
leaq 0xe0bf(%rip), %rdi      # 0x27959
jmp 0x1982c
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: print_prefixform
void
print_prefixform(struct atom *p)
{
	outbuf_init();
	prefixform(p);
	outbuf_puts("\n");
	printbuf(outbuf, BLACK);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %rbx
pushq %rax
movq %rdi, %rbx
callq 0x12e54
movq %rbx, %rdi
callq 0x19711
leaq 0xe669(%rip), %rdi      # 0x27f22
callq 0x12f84
movq 0xf5af3(%rip), %rdi     # 0x10f3b8
addq $0x8, %rsp
popq %rbx
popq %rbp
jmp 0x13012
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: eval_print
void
eval_print(struct atom *p1)
{
	p1 = cdr(p1);
	while (iscons(p1)) {
		push(car(p1));
		push(car(p1));
		evalf();
		print_result();
		p1 = cdr(p1);
	}
	push_symbol(NIL);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r14
pushq %rbx
movq %rdi, %rbx
leaq 0x2510f(%rip), %r14     # 0x3e9f0
leaq 0x8(%rbx), %rax
cmpb $0x1, 0x10(%rbx)
cmovneq %r14, %rax
movq (%rax), %rbx
cmpb $0x1, 0x10(%rbx)
jne 0x1991d
movq (%rbx), %rdi
callq 0x861b
cmpb $0x1, 0x10(%rbx)
movq %r14, %rax
cmoveq %rbx, %rax
movq (%rax), %rdi
callq 0x861b
callq 0x8fbb
callq 0x1992d
jmp 0x198e1
movq 0x250cc(%rip), %rdi     # 0x3e9f0
popq %rbx
popq %r14
popq %rbp
jmp 0x861b
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: print_result
void
print_result(void)
{
	struct atom *p1, *p2;

	p2 = pop(); // result
	p1 = pop(); // input

	if (p2 == symbol(NIL))
		return;

	if (annotate_result(p1, p2)) {
		push_symbol(SETQ);
		push(p1);
		push(p2);
		list(3);
		p2 = pop();
	}

	p1 = get_binding(symbol(TTY));

	if (p1 == symbol(TTY) || iszero(p1)) {
		push(p2);
		display();
	} else
		print_infixform(p2);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r14
pushq %rbx
callq 0x868d
movq %rax, %rbx
callq 0x868d
cmpq 0x250a8(%rip), %rbx     # 0x3e9f0
je 0x199ba
movq %rax, %r14
movq %rax, %rdi
movq %rbx, %rsi
callq 0x199cb
testl %eax, %eax
je 0x19988
movq 0x2794d(%rip), %rdi     # 0x412b0
callq 0x861b
movq %r14, %rdi
callq 0x861b
movq %rbx, %rdi
callq 0x861b
pushq $0x3
popq %rdi
callq 0x85eb
callq 0x868d
movq %rax, %rbx
movq 0x26391(%rip), %rdi     # 0x3fd20
callq 0xd3b4
cmpq 0x26385(%rip), %rax     # 0x3fd20
je 0x199a9
movq %rax, %rdi
callq 0xa641
testl %eax, %eax
je 0x199bf
movq %rbx, %rdi
callq 0x861b
popq %rbx
popq %r14
popq %rbp
jmp 0x1d95c
popq %rbx
popq %r14
popq %rbp
retq
movq %rbx, %rdi
popq %rbx
popq %r14
popq %rbp
jmp 0x12f50
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: annotate_result
int
annotate_result(struct atom *p1, struct atom *p2)
{
	if (!isusersymbol(p1))
		return 0;

	if (p1 == p2)
		return 0; // A = A

	if (p1 == symbol(I_LOWER) && isimaginaryunit(p2))
		return 0;

	if (p1 == symbol(J_LOWER) && isimaginaryunit(p2))
		return 0;

	return 1;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
xorl %ebx, %ebx
cmpq %rsi, %rdi
je 0x19a19
movq %rdi, %r15
cmpb $0x3, 0x10(%rdi)
jne 0x19a19
movq %rsi, %r14
cmpq %r15, 0x24069(%rip)     # 0x3da58
je 0x199ff
cmpq %r15, 0x24380(%rip)     # 0x3dd78
je 0x19a0d
pushq $0x1
popq %rbx
jmp 0x19a19
movq %r14, %rdi
callq 0x13d3d
testl %eax, %eax
jne 0x19a19
jmp 0x199f1
movq %r14, %rdi
callq 0x13d3d
testl %eax, %eax
je 0x199fa
movl %ebx, %eax
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: eval_rank
void
eval_rank(struct atom *p1)
{
	push(cadr(p1));
	evalf();
	p1 = pop();
	if (istensor(p1))
		push_integer(p1->u.tensor->ndim);
	else
		push_integer(0);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
cmpb $0x1, 0x10(%rdi)
leaq 0x8(%rdi), %rax
leaq 0x24ba9(%rip), %rcx     # 0x3e9f0
cmovneq %rcx, %rax
movq (%rax), %rax
cmpb $0x1, 0x10(%rax)
cmoveq %rax, %rcx
movq (%rcx), %rdi
callq 0x861b
callq 0x8fbb
callq 0x868d
xorl %edi, %edi
cmpb $0x7, 0x10(%rax)
jne 0x19e75
movq (%rax), %rax
movl (%rax), %edi
popq %rbp
jmp 0xa426
// File: /workspace/github_c_makefile_star2_O2/georgeweigt[P]eigenmath/eigenmath.c
// Function: rationalize
void
rationalize(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]);
			rationalize();
			p1->u.tensor->elem[i] = pop();
		}
		push(p1);
		return;
	}

	push(p1);
	numden();
	swap();
	reciprocate();
	multiply_noexpand();
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
callq 0x868d
cmpb $0x7, 0x10(%rax)
jne 0x19f0a
movq %rax, %rdi
callq 0x8f1b
movq %rax, %rbx
movq (%rax), %rax
movl 0x64(%rax), %r14d
xorl %r15d, %r15d
testl %r14d, %r14d
cmovlel %r15d, %r14d
cmpq %r15, %r14
je 0x19f30
movq (%rbx), %rax
movq 0x68(%rax,%r15,8), %rdi
callq 0x861b
callq 0x19eb0
callq 0x868d
movq (%rbx), %rcx
movq %rax, 0x68(%rcx,%r15,8)
incq %r15
jmp 0x19ee1
movq %rax, %rdi
callq 0x861b
callq 0xcea2
callq 0xa49b
callq 0xa03a
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x16b67
movq %rbx, %rdi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x861b