LLM4Binary/decompile-bench-makefile huggingface dataset:
// File: /workspace/github_c_makefile_star2_O3/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 0x29f13(%rip), %rcx     # 0x45a00
cmovneq %rcx, %rax
movq (%rax), %rax
cmpb $0x1, 0x10(%rax)
cmoveq %rax, %rcx
movq (%rcx), %rdi
callq 0x8ba5
callq 0x96e2
movl 0x237a9(%rip), %eax     # 0x3f2b8
movl $0xfffe795f, %ecx       # imm = 0xFFFE795F
leal (%rax,%rcx), %edx
cmpl %ecx, %edx
jbe 0x1bb50
decl %eax
movl %eax, 0x23795(%rip)     # 0x3f2b8
leaq 0x2ca96(%rip), %rcx     # 0x485c0
movq (%rcx,%rax,8), %rax
movb 0x10(%rax), %al
andb $-0x2, %al
cmpb $0x4, %al
leaq 0xeff9c(%rip), %rax     # 0x10bad8
leaq 0x275fd(%rip), %rcx     # 0x43140
cmoveq %rax, %rcx
movq (%rcx), %rdi
popq %rbp
jmp 0x8ba5
leaq 0x133ea(%rip), %rdi     # 0x2ef41
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/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 0x29d93(%rip), %r14     # 0x45a00
movq %r14, %rax
cmoveq %r15, %rax
movq (%rax), %rax
cmpb $0x1, 0x10(%rax)
cmovneq %r14, %rax
movq (%rax), %rdi
callq 0x8ba5
callq 0x96e2
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)
jne 0x1bccf
movq (%rbx), %rdi
callq 0x8ba5
callq 0x96e2
callq 0x1bcda
leaq 0x8(%rbx), %rax
cmpb $0x1, 0x10(%rbx)
cmovneq %r14, %rax
movq (%rax), %rbx
jmp 0x1bca6
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O3/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 0xefbb1(%rip)           # 0x10bad0
movq %rdi, %rbx
leaq 0x8(%rdi), %r15
cmpb $0x1, 0x10(%rdi)
leaq 0x29acf(%rip), %r14     # 0x45a00
movq %r14, %rax
cmoveq %r15, %rax
movq (%rax), %rax
cmpb $0x1, 0x10(%rax)
cmovneq %r14, %rax
movq (%rax), %rdi
callq 0x8ba5
cmpb $0x1, 0x10(%rbx)
cmovneq %r14, %r15
movq (%r15), %rax
cmpb $0x1, 0x10(%rax)
jne 0x1bf62
movq 0x8(%rax), %rax
jmp 0x1bf69
movq 0x29a97(%rip), %rax     # 0x45a00
cmpb $0x1, 0x10(%rax)
jne 0x1bf72
movq %rax, %r14
movq (%r14), %rdi
callq 0x8ba5
callq 0x96a4
callq 0x1c015
movl 0x2332e(%rip), %eax     # 0x3f2b8
movl $0xfffe795f, %ecx       # imm = 0xFFFE795F
leal (%rax,%rcx), %edx
cmpl %ecx, %edx
jbe 0x1c009
decl %eax
movl %eax, 0x2331a(%rip)     # 0x3f2b8
leaq 0x2c61b(%rip), %rcx     # 0x485c0
movq (%rcx,%rax,8), %rbx
callq 0xb238
movzbl 0x10(%rbx), %eax
cmpl $0x5, %eax
je 0x1bfdf
cmpl $0x4, %eax
jne 0x1bfe9
cmpb $0x1, 0x12(%rbx)
jne 0x1bfe9
movl 0xefb08(%rip), %ebx     # 0x10bad0
movl $0x0, 0xefafe(%rip)     # 0x10bad0
callq 0x96a4
movl %ebx, 0xefaf3(%rip)     # 0x10bad0
jmp 0x1bfee
xorpd %xmm0, %xmm0
ucomisd (%rbx), %xmm0
ja 0x1bfc2
callq 0x96a4
callq 0xb238
callq 0xa573
incl 0xefad2(%rip)           # 0x10bad0
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
leaq 0x12f31(%rip), %rdi     # 0x2ef41
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/georgeweigt[P]eigenmath/eigenmath.c
// Function: dupl
void
dupl(void)
{
	struct atom *p1;
	p1 = pop();
	push(p1);
	push(p1);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %rbx
pushq %rax
movl 0x23297(%rip), %eax     # 0x3f2b8
movl $0xfffe795f, %ecx       # imm = 0xFFFE795F
leal (%rax,%rcx), %edx
cmpl %ecx, %edx
jbe 0x1c056
decl %eax
movl %eax, 0x23283(%rip)     # 0x3f2b8
leaq 0x2c584(%rip), %rcx     # 0x485c0
movq (%rcx,%rax,8), %rbx
movq %rbx, %rdi
callq 0x8ba5
movq %rbx, %rdi
addq $0x8, %rsp
popq %rbx
popq %rbp
jmp 0x8ba5
leaq 0x12ee4(%rip), %rdi     # 0x2ef41
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/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
subq $0x18, %rsp
movq %rsi, %r14
movq %rdi, %rbx
callq 0x1dc0b
testl %eax, %eax
je 0x1c72c
movb 0x10(%r14), %al
andb $-0x2, %al
cmpb $0x4, %al
jne 0x1c72c
movq %rbx, %rdi
movq %r14, %rsi
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x1dcbc
cmpl $0x0, 0xef39d(%rip)     # 0x10bad0
je 0x1c757
movq %r14, %rdi
callq 0x15ac2
testl %eax, %eax
je 0x1c757
movzbl 0x10(%r14), %eax
cmpl $0x5, %eax
je 0x1c78b
cmpl $0x4, %eax
jne 0x1c796
cmpb $0x1, 0x12(%r14)
jne 0x1c796
movq 0x2bb52(%rip), %rdi     # 0x482b0
callq 0x8ba5
movq %rbx, %rdi
callq 0x8ba5
movq %r14, %rdi
callq 0x8ba5
movl $0x3, %edi
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x8b7d
xorpd %xmm0, %xmm0
ucomisd (%r14), %xmm0
ja 0x1c757
movq %r14, %rdi
callq 0x8ba5
callq 0xf8e6
movl %eax, %r14d
movl 0x22b0c(%rip), %ecx     # 0x3f2b8
leaq 0x8(%rbx), %rdx
cmpb $0x1, 0x10(%rbx)
leaq 0x29245(%rip), %r13     # 0x45a00
movq %r13, %rax
movq %rdx, -0x40(%rbp)
cmoveq %rdx, %rax
movq (%rax), %r15
cmpb $0x1, 0x10(%r15)
movl %ecx, %edi
jne 0x1c86a
movl %ecx, -0x2c(%rbp)
leaq 0x10(%r15), %r12
movq %rbx, -0x38(%rbp)
cmpb $0x1, 0x10(%rbx)
movq %r13, %rax
cmoveq -0x40(%rbp), %rax
movq (%rax), %rbx
cmpb $0x1, 0x10(%rbx)
jne 0x1c84b
cmpb $0x1, (%r12)
movq %r13, %rax
cmoveq %r15, %rax
movq (%rax), %rdi
callq 0x8ba5
cmpb $0x1, 0x10(%rbx)
movq %r13, %rax
cmoveq %rbx, %rax
movq (%rax), %rdi
callq 0x8ba5
movl $0x2, %edi
callq 0xacef
leaq 0x8(%rbx), %rax
cmpb $0x1, 0x10(%rbx)
cmovneq %r13, %rax
movq (%rax), %rbx
cmpb $0x1, 0x10(%rbx)
je 0x1c7f6
addq $0x8, %r15
cmpb $0x1, (%r12)
cmovneq %r13, %r15
jmp 0x1c84f
addq $0x8, %r15
movq (%r15), %r15
leaq 0x10(%r15), %r12
cmpb $0x1, 0x10(%r15)
movq -0x38(%rbp), %rbx
je 0x1c7e1
movl 0x22a51(%rip), %edi     # 0x3f2b8
movl -0x2c(%rbp), %ecx
subl %ecx, %edi
callq 0xadb3
cmpl $0x3, %r14d
jl 0x1c892
addl $-0x2, %r14d
movq %rbx, %rdi
callq 0x8ba5
movl $0x2, %edi
callq 0xacef
decl %r14d
jne 0x1c87b
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O3/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 $0x28, %rsp
movq %rsi, %rbx
callq 0x8ba5
callq 0x9128
movapd %xmm0, -0x20(%rbp)
movq %rbx, %rdi
callq 0x8ba5
callq 0x9128
movsd %xmm0, -0x28(%rbp)
callq 0x7300
movsd -0x28(%rbp), %xmm1
xorpd %xmm2, %xmm2
movapd -0x20(%rbp), %xmm3
ucomisd %xmm2, %xmm3
movapd %xmm3, %xmm2
ja 0x1c913
ucomisd %xmm0, %xmm1
jne 0x1c8f3
jnp 0x1c913
movq %rbx, %rdi
callq 0x1cc49
movapd -0x20(%rbp), %xmm1
ucomisd 0xd880(%rip), %xmm1     # 0x2a188
jne 0x1c941
jp 0x1c941
addq $0x28, %rsp
popq %rbx
popq %rbp
retq
movapd %xmm2, %xmm0
callq 0x70d0
movsd %xmm0, -0x20(%rbp)
callq 0x74dc
movb $0x5, 0x10(%rax)
movsd -0x20(%rbp), %xmm0
movsd %xmm0, (%rax)
movq %rax, %rdi
addq $0x28, %rsp
popq %rbx
popq %rbp
jmp 0x8ba5
movapd 0xd7c7(%rip), %xmm0     # 0x2a110
xorpd %xmm1, %xmm0
movsd -0x28(%rbp), %xmm1
callq 0x70d0
movsd %xmm0, -0x20(%rbp)
callq 0x74dc
movb $0x5, 0x10(%rax)
movsd -0x20(%rbp), %xmm0
movsd %xmm0, (%rax)
movq %rax, %rdi
callq 0x8ba5
movl $0x2, %edi
addq $0x28, %rsp
popq %rbx
popq %rbp
jmp 0xacef
// File: /workspace/github_c_makefile_star2_O3/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
movl $0x1, %esi
movl $0x2, %edx
callq 0xd1c4
testl %eax, %eax
je 0x1cc77
movq 0xeee74(%rip), %rdi     # 0x10bae0
addq $0x8, %rsp
popq %rbx
popq %rbp
jmp 0x8ba5
movzbl 0x10(%rbx), %eax
cmpl $0x5, %eax
je 0x1cc9c
cmpl $0x4, %eax
jne 0x1ccaf
movq 0x8(%rbx), %rax
testb $0x1, (%rax)
jne 0x1ccdf
movq %rbx, %rdi
addq $0x8, %rsp
popq %rbx
popq %rbp
jmp 0x1ccff
movq %rbx, %rdi
callq 0x1cfcd
addq $0x8, %rsp
popq %rbx
popq %rbp
jmp 0x15d88
movq 0x2b5fa(%rip), %rdi     # 0x482b0
callq 0x8ba5
movq 0xf972e(%rip), %rdi     # 0x1163f0
callq 0x8ba5
movq %rbx, %rdi
callq 0x8ba5
movl $0x3, %edi
addq $0x8, %rsp
popq %rbx
popq %rbp
jmp 0x8b7d
movq (%rbx), %rax
testb $0x1, (%rax)
jne 0x1ccf3
movq 0xeedea(%rip), %rdi     # 0x10bad8
jmp 0x1cc6c
movq 0xf96f6(%rip), %rdi     # 0x1163f0
jmp 0x1cc6c
// File: /workspace/github_c_makefile_star2_O3/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 %r12
pushq %rbx
movb 0x10(%rdi), %al
cmpb $0x1, %al
leaq 0x287eb(%rip), %r14     # 0x45a00
movq %r14, %rcx
cmoveq %rdi, %rcx
movq (%rcx), %rcx
cmpq 0x2b07a(%rip), %rcx     # 0x482a0
je 0x1d235
popq %rbx
popq %r12
popq %r14
popq %r15
popq %rbp
jmp 0x1d36a
addq $0x8, %rdi
cmpb $0x1, %al
cmovneq %r14, %rdi
movq (%rdi), %r15
xorl %ebx, %ebx
cmpb $0x1, 0x10(%r15)
jne 0x1d27d
leaq 0x10(%r15), %r12
movq (%r15), %rdi
callq 0x1d36a
testl %eax, %eax
jne 0x1d278
addq $0x8, %r15
cmpb $0x1, (%r12)
cmovneq %r14, %r15
movq (%r15), %r15
leaq 0x10(%r15), %r12
cmpb $0x1, 0x10(%r15)
je 0x1d24f
jmp 0x1d27d
movl $0x1, %ebx
movl %ebx, %eax
popq %rbx
popq %r12
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O3/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
movb 0x10(%rdi), %al
cmpb $0x1, %al
leaq 0x2875e(%rip), %r14     # 0x45a00
movq %r14, %rcx
cmoveq %rdi, %rcx
movq (%rcx), %rcx
cmpq 0x2afed(%rip), %rcx     # 0x482a0
je 0x1d2c8
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x1d5be
addq $0x8, %rdi
cmpb $0x1, %al
movl 0x21fe3(%rip), %r15d    # 0x3f2b8
cmovneq %r14, %rdi
movq (%rdi), %r12
cmpb $0x1, 0x10(%r12)
movl %r15d, %edi
jne 0x1d354
leaq 0x10(%r12), %r13
movq (%r12), %rbx
movq %rbx, %rdi
callq 0x1d36a
testl %eax, %eax
je 0x1d306
movq %rbx, %rdi
callq 0x1d5be
jmp 0x1d330
movq 0x2afa3(%rip), %rdi     # 0x482b0
callq 0x8ba5
movq 0x2afaf(%rip), %rdi     # 0x482c8
callq 0x8ba5
movq %rbx, %rdi
callq 0x8ba5
movl $0x3, %edi
callq 0x8b7d
addq $0x8, %r12
cmpb $0x1, (%r13)
cmovneq %r14, %r12
movq (%r12), %r12
leaq 0x10(%r12), %r13
cmpb $0x1, 0x10(%r12)
je 0x1d2ec
movl 0x21f64(%rip), %edi     # 0x3f2b8
subl %r15d, %edi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0xacef
// File: /workspace/github_c_makefile_star2_O3/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
movb 0x10(%rdi), %al
cmpb $0x1, %al
jne 0x1d5e1
movl $0x3, %ecx
movq %rdi, %rdx
movq 0x8(%rdx), %rdx
decl %ecx
cmpb $0x1, 0x10(%rdx)
je 0x1d5d1
testl %ecx, %ecx
je 0x1d612
addq $0x8, %rdi
cmpb $0x1, %al
leaq 0x28412(%rip), %rax     # 0x45a00
cmovneq %rax, %rdi
movq (%rdi), %rcx
cmpb $0x1, 0x10(%rcx)
cmoveq %rcx, %rax
movq (%rax), %rdi
cmpb $0x4, 0x10(%rdi)
jne 0x1d60c
popq %rbp
jmp 0x1d61f
popq %rbp
jmp 0x1d946
movq 0xf8dd7(%rip), %rdi     # 0x1163f0
popq %rbp
jmp 0x8ba5
// File: /workspace/github_c_makefile_star2_O3/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 0x8ba5
callq 0x9128
movsd %xmm0, -0x28(%rbp)
movq %r14, %rdi
callq 0x8ba5
callq 0x9128
movsd %xmm0, -0x18(%rbp)
movq %rbx, %rdi
callq 0x8ba5
callq 0x9128
movaps %xmm0, %xmm1
movsd %xmm0, -0x30(%rbp)
movsd -0x18(%rbp), %xmm0
callq 0x72b0
movsd %xmm0, -0x20(%rbp)
movsd -0x30(%rbp), %xmm0
movsd -0x18(%rbp), %xmm1
callq 0x72a0
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 0x72f0
mulsd -0x20(%rbp), %xmm0
movsd %xmm0, -0x18(%rbp)
callq 0x74dc
movb $0x5, %bl
movb %bl, 0x10(%rax)
movsd -0x28(%rbp), %xmm0
movsd %xmm0, (%rax)
movq %rax, %rdi
callq 0x8ba5
callq 0x74dc
movb %bl, 0x10(%rax)
movsd -0x18(%rbp), %xmm0
movsd %xmm0, (%rax)
movq %rax, %rdi
callq 0x8ba5
movq 0xeda1d(%rip), %rdi     # 0x10bae0
callq 0x8ba5
movl $0x2, %edi
callq 0xacef
movl $0x2, %edi
addq $0x20, %rsp
popq %rbx
popq %r14
popq %rbp
jmp 0xadb3
// File: /workspace/github_c_makefile_star2_O3/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 0x8ba5
movq %r14, %rdi
callq 0x8ba5
movl $0x2, %edi
callq 0xacef
movq %r15, %rdi
callq 0x8ba5
movq %r15, %rdi
callq 0x8ba5
movl $0x2, %edi
callq 0xacef
movl $0x2, %edi
callq 0xadb3
movl $0x1, %edi
movl $0x2, %esi
callq 0xa533
movq %rbx, %rdi
callq 0x8ba5
movl $0x2, %edi
callq 0xacef
callq 0xa573
movq %r15, %rdi
callq 0x8ba5
movq %r14, %rdi
callq 0x8ba5
callq 0xdab9
movq 0x27edc(%rip), %rdi     # 0x46050
callq 0x8ba5
movq 0xf8270(%rip), %rdi     # 0x1163f0
callq 0x8ba5
callq 0xa573
movl $0x2, %edi
callq 0xacef
movq %rbx, %rdi
callq 0x8ba5
movl $0x2, %edi
callq 0xacef
movl 0x2110c(%rip), %eax     # 0x3f2b8
movl $0xfffe795f, %ecx       # imm = 0xFFFE795F
leal (%rax,%rcx), %edx
cmpl %ecx, %edx
jbe 0x1e1e4
decl %eax
movl %eax, 0x210f8(%rip)     # 0x3f2b8
leaq 0x2a3f9(%rip), %rcx     # 0x485c0
movq (%rcx,%rax,8), %rdi
callq 0x1cc49
movl $0x2, %edi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0xacef
leaq 0x10d56(%rip), %rdi     # 0x2ef41
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/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
movq %rsi, %rbx
movq %rdi, %r15
cmpl $0x2, %edx
jl 0x1e2f0
movl %edx, %r14d
decl %r14d
movq %rbx, %r12
movq %r15, %r13
movq %r13, %rdi
callq 0x8ba5
movq %r15, %rdi
callq 0x8ba5
movl $0x2, %edi
callq 0xacef
movq %r12, %rdi
callq 0x8ba5
movq %rbx, %rdi
callq 0x8ba5
movl $0x2, %edi
callq 0xacef
movq 0xf819c(%rip), %rdi     # 0x1163f0
callq 0x8ba5
movl $0x2, %edi
callq 0xacef
movl $0x2, %edi
callq 0xadb3
movq %r13, %rdi
callq 0x8ba5
movq %rbx, %rdi
callq 0x8ba5
movl $0x2, %edi
callq 0xacef
movq %r12, %rdi
callq 0x8ba5
movq %r15, %rdi
callq 0x8ba5
movl $0x2, %edi
callq 0xacef
movl $0x2, %edi
callq 0xadb3
movl 0x21007(%rip), %eax     # 0x3f2b8
movl $0xfffe795f, %edx       # imm = 0xFFFE795F
leal (%rax,%rdx), %ecx
cmpl %edx, %ecx
jbe 0x1e334
leal -0x1(%rax), %ecx
movl %ecx, 0x20ff2(%rip)     # 0x3f2b8
cmpl $0x1, %eax
jbe 0x1e334
movl %ecx, %ecx
leaq 0x2a2ec(%rip), %rdx     # 0x485c0
movq (%rdx,%rcx,8), %r12
addl $-0x2, %eax
movl %eax, 0x20fd7(%rip)     # 0x3f2b8
movq (%rdx,%rax,8), %r13
decl %r14d
jne 0x1e219
jmp 0x1e2f6
movq %r15, %r13
movq %rbx, %r12
movq %r13, %rdi
callq 0x8ba5
movq 0xed7db(%rip), %rdi     # 0x10bae0
callq 0x8ba5
movq %r12, %rdi
callq 0x8ba5
movl $0x2, %edi
callq 0xacef
movl $0x2, %edi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0xadb3
leaq 0x10c06(%rip), %rdi     # 0x2ef41
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/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 0x27441(%rip), %rcx     # 0x45a00
cmovneq %rcx, %rax
movq (%rax), %rax
cmpb $0x1, 0x10(%rax)
cmoveq %rax, %rcx
movq (%rcx), %rdi
callq 0x8ba5
callq 0x96e2
movl 0x20cd7(%rip), %eax     # 0x3f2b8
movl $0xfffe795f, %ecx       # imm = 0xFFFE795F
leal (%rax,%rcx), %edx
cmpl %ecx, %edx
jbe 0x1e630
decl %eax
movl %eax, 0x20cc3(%rip)     # 0x3f2b8
leaq 0x29fc4(%rip), %rcx     # 0x485c0
movq (%rcx,%rax,8), %rbx
movl $0x0, 0xf81ee(%rip)     # 0x1167f8
leaq 0x108da(%rip), %rdi     # 0x2eeeb
callq 0x16573
movq %rbx, %rdi
callq 0x1e63c
movq 0xf7da3(%rip), %rdi     # 0x1163c8
addq $0x8, %rsp
popq %rbx
popq %rbp
jmp 0x164db
leaq 0x1090a(%rip), %rdi     # 0x2ef41
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/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
movl $0x0, 0xf7fed(%rip)     # 0x1167f8
leaq 0x106d9(%rip), %rdi     # 0x2eeeb
callq 0x16573
movq %rbx, %rdi
callq 0x1e63c
leaq 0x106c4(%rip), %rdi     # 0x2eeea
callq 0x16573
movq 0xf7b96(%rip), %rdi     # 0x1163c8
movq 0x19797(%rip), %rax     # 0x37fd0
movq (%rax), %rsi
addq $0x8, %rsp
popq %rbx
popq %rbp
jmp 0x7120
// File: /workspace/github_c_makefile_star2_O3/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
cmpb $0x1, 0x10(%rdi)
leaq 0x8(%rdi), %rax
leaq 0x271a3(%rip), %rbx     # 0x45a00
cmovneq %rbx, %rax
movq (%rax), %r14
cmpb $0x1, 0x10(%r14)
jne 0x1e89c
movq (%r14), %rdi
callq 0x8ba5
cmpb $0x1, 0x10(%r14)
movq %rbx, %rax
cmoveq %r14, %rax
movq (%rax), %rdi
callq 0x8ba5
callq 0x96e2
callq 0x1e8ac
leaq 0x8(%r14), %rax
cmpb $0x1, 0x10(%r14)
jmp 0x1e85d
movq 0x2715d(%rip), %rdi     # 0x45a00
popq %rbx
popq %r14
popq %rbp
jmp 0x8ba5
// File: /workspace/github_c_makefile_star2_O3/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 %r15
pushq %r14
pushq %rbx
pushq %rax
movl 0x209fc(%rip), %eax     # 0x3f2b8
movl $0xfffe795f, %ecx       # imm = 0xFFFE795F
leal (%rax,%rcx), %edx
cmpl %ecx, %edx
jbe 0x1e9ab
leal -0x1(%rax), %ecx
movl %ecx, 0x209e3(%rip)     # 0x3f2b8
cmpl $0x1, %eax
jbe 0x1e9ab
leaq 0x29cdb(%rip), %r15     # 0x485c0
movq (%r15,%rcx,8), %rbx
addl $-0x2, %eax
movl %eax, 0x209c6(%rip)     # 0x3f2b8
cmpq 0x27107(%rip), %rbx     # 0x45a00
je 0x1e98e
movq (%r15,%rax,8), %r14
movq %r14, %rdi
movq %rbx, %rsi
callq 0x1e9b7
testl %eax, %eax
je 0x1e956
movq 0x299a7(%rip), %rdi     # 0x482c0
callq 0x8ba5
movq %r14, %rdi
callq 0x8ba5
movq %rbx, %rdi
callq 0x8ba5
movl $0x3, %edi
callq 0x8b7d
movl 0x2097a(%rip), %eax     # 0x3f2b8
movl $0xfffe795f, %ecx       # imm = 0xFFFE795F
leal (%rax,%rcx), %edx
cmpl %ecx, %edx
jbe 0x1e9ab
decl %eax
movl %eax, 0x20966(%rip)     # 0x3f2b8
movq (%r15,%rax,8), %rbx
movq 0x283d3(%rip), %rdi     # 0x46d30
callq 0xf05c
cmpq 0x283c7(%rip), %rax     # 0x46d30
je 0x1e977
movq %rax, %rdi
callq 0xb477
testl %eax, %eax
je 0x1e999
movq %rbx, %rdi
callq 0x8ba5
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x23d76
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
movq %rbx, %rdi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x16524
leaq 0x1058f(%rip), %rdi     # 0x2ef41
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/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 0x1ea07
movq %rdi, %r15
cmpb $0x3, 0x10(%rdi)
jne 0x1ea07
movq %rsi, %r14
cmpq %r15, 0x2608d(%rip)     # 0x44a68
je 0x1e9ed
cmpq %r15, 0x263a4(%rip)     # 0x44d88
je 0x1e9fb
movl $0x1, %ebx
jmp 0x1ea07
movq %r14, %rdi
callq 0x173ff
testl %eax, %eax
jne 0x1ea07
jmp 0x1e9dd
movq %r14, %rdi
callq 0x173ff
testl %eax, %eax
je 0x1e9e6
movl %ebx, %eax
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O3/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 0x26a99(%rip), %rcx     # 0x45a00
cmovneq %rcx, %rax
movq (%rax), %rax
cmpb $0x1, 0x10(%rax)
cmoveq %rax, %rcx
movq (%rcx), %rdi
callq 0x8ba5
callq 0x96e2
movl 0x2032f(%rip), %eax     # 0x3f2b8
movl $0xfffe795f, %ecx       # imm = 0xFFFE795F
leal (%rax,%rcx), %edx
cmpl %ecx, %edx
jbe 0x1efc6
decl %eax
movl %eax, 0x2031b(%rip)     # 0x3f2b8
leaq 0x2961c(%rip), %rcx     # 0x485c0
movq (%rcx,%rax,8), %rax
cmpb $0x7, 0x10(%rax)
jne 0x1efb9
movq (%rax), %rax
movl (%rax), %edi
popq %rbp
jmp 0xb1be
movq 0x24180(%rip), %rdi     # 0x43140
popq %rbp
jmp 0x8ba5
leaq 0xff74(%rip), %rdi      # 0x2ef41
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/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 %r13
pushq %r12
pushq %rbx
pushq %rax
movl 0x2029d(%rip), %eax     # 0x3f2b8
movl $0xfffe795f, %ecx       # imm = 0xFFFE795F
leal (%rax,%rcx), %edx
cmpl %ecx, %edx
jbe 0x1f107
decl %eax
movl %eax, 0x20285(%rip)     # 0x3f2b8
leaq 0x29586(%rip), %r14     # 0x485c0
movq (%r14,%rax,8), %rdi
cmpb $0x7, 0x10(%rdi)
jne 0x1f0b8
callq 0x9638
movq %rax, %rbx
movq (%rax), %rax
movslq 0x64(%rax), %r15
testq %r15, %r15
jle 0x1f0a2
xorl %r12d, %r12d
movl $0xfffe795f, %r13d      # imm = 0xFFFE795F
movq (%rbx), %rax
movq 0x68(%rax,%r12,8), %rdi
callq 0x8ba5
callq 0x1f007
movl 0x2023f(%rip), %eax     # 0x3f2b8
leal (%rax,%r13), %ecx
cmpl %r13d, %ecx
jbe 0x1f107
decl %eax
movl %eax, 0x2022a(%rip)     # 0x3f2b8
movq (%r14,%rax,8), %rax
movq (%rbx), %rcx
movq %rax, 0x68(%rcx,%r12,8)
incq %r12
cmpq %r12, %r15
jne 0x1f061
movq %rbx, %rdi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x8ba5
callq 0x8ba5
callq 0xe915
callq 0xb238
movq 0xf7322(%rip), %rdi     # 0x1163f0
callq 0x8ba5
callq 0xa573
movl 0xec9f2(%rip), %ebx     # 0x10bad0
movl $0x0, 0xec9e8(%rip)     # 0x10bad0
movl $0x2, %edi
callq 0xacef
movl %ebx, 0xec9d8(%rip)     # 0x10bad0
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
leaq 0xfe33(%rip), %rdi      # 0x2ef41
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/georgeweigt[P]eigenmath/eigenmath.c
// Function: eval_roots
void
eval_roots(struct atom *p1)
{
	push(cadr(p1));
	evalf();

	p1 = cddr(p1);

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

	roots();
}

// 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 0x26867(%rip), %r15     # 0x45a00
movq %r15, %rax
cmoveq %r14, %rax
movq (%rax), %rax
cmpb $0x1, 0x10(%rax)
cmovneq %r15, %rax
movq (%rax), %rdi
callq 0x8ba5
callq 0x96e2
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 0x1f1e7
movq (%rax), %rdi
callq 0x8ba5
callq 0x96e2
jmp 0x1f1f3
movq 0x2875a(%rip), %rdi     # 0x47948
callq 0x8ba5
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x1f202
// File: /workspace/github_c_makefile_star2_O3/georgeweigt[P]eigenmath/eigenmath.c
// Function: reduce
void
reduce(int h, int n, struct atom *A)
{
	int i;

	for (i = n - 1; i > 0; i--) {
		push(A);
		push(stack[h + i]);
		multiply();
		push(stack[h + i - 1]);
		add();
		stack[h + i - 1] = pop();
	}

	if (!iszero(stack[h]))
		stopf("roots: residual error"); // not a root

	// move

	for (i = 0; i < n - 1; i++)
		stack[h + i] = stack[h + i + 1];
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x18, %rsp
movl %esi, %r15d
cmpl $0x1, %esi
jle 0x1f800
movq %rdx, %r14
movl %r15d, -0x2c(%rbp)
movl %r15d, %r12d
movslq %edi, %rax
incq %r12
leaq 0x28e36(%rip), %r13     # 0x485c0
movq %rax, -0x38(%rbp)
leaq (,%rax,8), %r15
addq %r13, %r15
movl $0xfffe795f, %ebx       # imm = 0xFFFE795F
movq %r14, %rdi
callq 0x8ba5
movq -0x10(%r15,%r12,8), %rdi
callq 0x8ba5
movl $0x2, %edi
callq 0xacef
movq -0x18(%r15,%r12,8), %rdi
callq 0x8ba5
movl $0x2, %edi
callq 0xadb3
movl 0x1fae4(%rip), %eax     # 0x3f2b8
leal (%rax,%rbx), %ecx
cmpl %ebx, %ecx
jbe 0x1f84d
decl %eax
movl %eax, 0x1fad5(%rip)     # 0x3f2b8
movq (%r13,%rax,8), %rax
movq %rax, -0x18(%r15,%r12,8)
decq %r12
cmpq $0x2, %r12
ja 0x1f79e
movl -0x2c(%rbp), %r15d
movq -0x38(%rbp), %r14
jmp 0x1f803
movslq %edi, %r14
leaq 0x28db6(%rip), %rbx     # 0x485c0
movq (%rbx,%r14,8), %rdi
callq 0xb477
testl %eax, %eax
je 0x1f859
cmpl $0x2, %r15d
jl 0x1f83e
decl %r15d
movl %r15d, %eax
leaq (%rbx,%r14,8), %rcx
addq $0x8, %rcx
xorl %edx, %edx
movq (%rcx,%rdx,8), %rsi
movq %rsi, -0x8(%rcx,%rdx,8)
incq %rdx
cmpq %rdx, %rax
jne 0x1f82d
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
leaq 0xf6ed(%rip), %rdi      # 0x2ef41
callq 0x780b
leaq 0xf08d(%rip), %rdi      # 0x2e8ed
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/georgeweigt[P]eigenmath/eigenmath.c
// Function: divisors
void
divisors(int n)
{
	int h, i, k;

	h = tos;

	factor_int(n);

	k = tos;

	// contruct divisors by recursive descent

	push_integer(1);

	divisors_nib(h, k);

	// move

	n = tos - k;

	for (i = 0; i < n; i++)
		stack[h + i] = stack[k + i];

	tos = h + n; // pop all
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r14
pushq %rbx
movl 0x1fa46(%rip), %ebx     # 0x3f2b8
callq 0x1f965
movl 0x1fa3a(%rip), %r14d    # 0x3f2b8
movq 0xec253(%rip), %rdi     # 0x10bad8
callq 0x8ba5
movl %ebx, %edi
movl %r14d, %esi
callq 0x1f9e9
movl 0x1fa1e(%rip), %eax     # 0x3f2b8
subl %r14d, %eax
jle 0x1f8d0
movslq %ebx, %rcx
movslq %r14d, %rdx
movl %eax, %esi
shlq $0x3, %rcx
shlq $0x3, %rdx
xorl %edi, %edi
leaq 0x28d08(%rip), %r8      # 0x485c0
leaq (%rdx,%rdi,8), %r9
movq (%r8,%r9), %r9
leaq (%rcx,%rdi,8), %r10
movq %r9, (%r8,%r10)
incq %rdi
cmpq %rdi, %rsi
jne 0x1f8b8
addl %ebx, %eax
movl %eax, 0x1f9e0(%rip)     # 0x3f2b8
popq %rbx
popq %r14
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O3/georgeweigt[P]eigenmath/eigenmath.c
// Function: horner
void
horner(int h, int n, struct atom *A)
{
	int i;

	push(stack[h + n - 1]);

	for (i = n - 2; i >= 0; i--) {
		push(A);
		multiply();
		push(stack[h + i]);
		add();
	}
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rdx, %rbx
movl %esi, %r14d
movl %edi, %r15d
leal -0x1(%r15,%r14), %eax
cltq
leaq 0x28cbe(%rip), %r12     # 0x485c0
movq (%r12,%rax,8), %rdi
callq 0x8ba5
cmpl $0x2, %r14d
jl 0x1f956
addl $-0x2, %r14d
movslq %r15d, %r15
addq %r14, %r15
notq %r14
shlq $0x3, %r15
xorl %r13d, %r13d
movq %rbx, %rdi
callq 0x8ba5
movl $0x2, %edi
callq 0xacef
leaq (%r15,%r13,8), %rax
movq (%r12,%rax), %rdi
callq 0x8ba5
movl $0x2, %edi
callq 0xadb3
decq %r13
cmpq %r13, %r14
jne 0x1f925
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O3/georgeweigt[P]eigenmath/eigenmath.c
// Function: factor_int
void
factor_int(int n)
{
	int d, k, m;

	n = abs(n);

	if (n < 2)
		return;

	for (k = 0; k < NPRIME; k++) {

		d = primetab[k];

		m = 0;

		while (n % d == 0) {
			n /= d;
			m++;
		}

		if (m == 0)
			continue;

		push_integer(d);
		push_integer(m);

		if (n == 1)
			return;
	}

	push_integer(n);
	push_integer(1);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
movl %edi, %ebx
negl %ebx
cmovsl %edi, %ebx
cmpl $0x2, %ebx
jae 0x1f985
popq %rbx
popq %r12
popq %r14
popq %r15
popq %rbp
retq
xorl %r15d, %r15d
leaq 0x19d01(%rip), %r12     # 0x39690
movl (%r12,%r15,4), %edi
movl %ebx, %eax
cltd
idivl %edi
testl %edx, %edx
jne 0x1f9c2
xorl %r14d, %r14d
movl %ebx, %eax
cltd
idivl %edi
incl %r14d
movl %eax, %ebx
cltd
idivl %edi
testl %edx, %edx
je 0x1f99f
callq 0xb1be
movl %r14d, %edi
callq 0xb1be
cmpl $0x1, %ebx
je 0x1f97c
incq %r15
cmpq $0x12b8, %r15           # imm = 0x12B8
jne 0x1f98f
movl %ebx, %edi
callq 0xb1be
movq 0xec0fc(%rip), %rdi     # 0x10bad8
popq %rbx
popq %r12
popq %r14
popq %r15
popq %rbp
jmp 0x8ba5
// File: /workspace/github_c_makefile_star2_O3/georgeweigt[P]eigenmath/eigenmath.c
// Function: divisors_nib
void
divisors_nib(int h, int k)
{
	int i, n;
	struct atom *ACCUM, *BASE, *EXPO;

	if (h == k)
		return;

	ACCUM = pop();

	BASE = stack[h + 0];
	EXPO = stack[h + 1];

	push(EXPO);
	n = pop_integer();

	for (i = 0; i <= n; i++) {
		push(ACCUM);
		push(BASE);
		push_integer(i);
		power();
		multiply();
		divisors_nib(h + 2, k);
	}
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
cmpl %esi, %edi
je 0x1fa91
movl 0x1f8b3(%rip), %eax     # 0x3f2b8
movl $0xfffe795f, %ecx       # imm = 0xFFFE795F
leal (%rax,%rcx), %edx
cmpl %ecx, %edx
jbe 0x1faa0
movl %edi, %r14d
movl %esi, %r15d
decl %eax
movl %eax, 0x1f895(%rip)     # 0x3f2b8
leaq 0x28b96(%rip), %rcx     # 0x485c0
movq (%rcx,%rax,8), %rax
movq %rax, -0x30(%rbp)
movslq %edi, %rax
movq (%rcx,%rax,8), %r12
movq 0x8(%rcx,%rax,8), %rdi
callq 0x8ba5
callq 0xf8e6
testl %eax, %eax
js 0x1fa91
movl %eax, %r13d
addl $0x2, %r14d
incl %r13d
xorl %ebx, %ebx
movq -0x30(%rbp), %rdi
callq 0x8ba5
movq %r12, %rdi
callq 0x8ba5
movl %ebx, %edi
callq 0xb1be
callq 0xa573
movl $0x2, %edi
callq 0xacef
movl %r14d, %edi
movl %r15d, %esi
callq 0x1f9e9
incl %ebx
cmpl %ebx, %r13d
jne 0x1fa58
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
leaq 0xf49a(%rip), %rdi      # 0x2ef41
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/georgeweigt[P]eigenmath/eigenmath.c
// Function: rotate_h
void
rotate_h(struct atom *PSI, uint32_t c, int n)
{
	int i;
	n = 1 << n;
	for (i = 0; i < NUMQBITS; i++) {
		if ((i & c) != c)
			continue;
		if (i & n) {
			push(KET0);
			push(KET1);
			add();
			push_rational(1, 2);
			sqrtfunc();
			multiply();
			push(KET0);
			push(KET1);
			subtract();
			push_rational(1, 2);
			sqrtfunc();
			multiply();
			KET1 = pop();
			KET0 = pop();
		}
	}
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movl %edx, %ecx
movl $0x1, %r8d
shll %cl, %r8d
movq (%rdi), %rax
cmpl $0x0, 0x64(%rax)
jle 0x1ff84
movq %rdi, %r14
xorl %r12d, %r12d
leaq 0x28757(%rip), %rbx     # 0x485c0
movl %esi, -0x2c(%rbp)
movl %r12d, %ecx
notl %ecx
testl %ecx, %esi
setne %cl
testl %r12d, %r8d
sete %dl
orb %cl, %dl
jne 0x1ff74
movl %r8d, %r15d
movl %r8d, %ecx
xorl %r12d, %ecx
movslq %ecx, %r13
movq 0x68(%rax,%r13,8), %rdi
callq 0x8ba5
movq (%r14), %rax
movq 0x68(%rax,%r12,8), %rdi
callq 0x8ba5
movl $0x2, %edi
callq 0xadb3
movl $0x1, %edi
movl $0x2, %esi
callq 0xa533
movl $0x1, %edi
movl $0x2, %esi
callq 0xa533
callq 0xa573
movl $0x2, %edi
callq 0xacef
movq (%r14), %rax
movq 0x68(%rax,%r13,8), %rdi
callq 0x8ba5
movq (%r14), %rax
movq 0x68(%rax,%r12,8), %rdi
callq 0x8ba5
callq 0xbfb4
movl $0x1, %edi
movl $0x2, %esi
callq 0xa533
movl $0x1, %edi
movl $0x2, %esi
callq 0xa533
callq 0xa573
movl $0x2, %edi
callq 0xacef
movl 0x1f388(%rip), %eax     # 0x3f2b8
movl $0xfffe795f, %edx       # imm = 0xFFFE795F
leal (%rax,%rdx), %ecx
cmpl %edx, %ecx
jbe 0x1ff93
leal -0x1(%rax), %ecx
movl %ecx, 0x1f373(%rip)     # 0x3f2b8
movq (%rbx,%rcx,8), %rcx
movq (%r14), %rdx
movq %rcx, 0x68(%rdx,%r12,8)
cmpl $0x1, %eax
jbe 0x1ff93
addl $-0x2, %eax
movl %eax, 0x1f359(%rip)     # 0x3f2b8
movq (%rbx,%rax,8), %rax
movq (%r14), %rcx
movq %rax, 0x68(%rcx,%r13,8)
movq (%r14), %rax
movl -0x2c(%rbp), %esi
movl %r15d, %r8d
incq %r12
movslq 0x64(%rax), %rcx
cmpq %rcx, %r12
jl 0x1fe6c
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
leaq 0xefa7(%rip), %rdi      # 0x2ef41
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/georgeweigt[P]eigenmath/eigenmath.c
// Function: rotate_p
void
rotate_p(struct atom *PSI, struct atom *PHASE, uint32_t c, int n)
{
	int i;
	n = 1 << n;
	for (i = 0; i < NUMQBITS; i++) {
		if ((i & c) != c)
			continue;
		if (i & n) {
			push(KET1);
			push(PHASE);
			multiply();
			KET1 = pop();
		}
	}
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rsi, -0x30(%rbp)
movl $0x1, %r12d
shll %cl, %r12d
movq (%rdi), %rax
cmpl $0x0, 0x64(%rax)
jle 0x20038
movl %edx, %ebx
movq %rdi, %r15
xorl %r13d, %r13d
movl $0xfffe795f, %r14d      # imm = 0xFFFE795F
movl %r13d, %ecx
notl %ecx
testl %ecx, %ebx
jne 0x2002c
movl %r12d, %ecx
andl %r13d, %ecx
je 0x2002c
movq 0x68(%rax,%r13,8), %rdi
callq 0x8ba5
movq -0x30(%rbp), %rdi
callq 0x8ba5
movl $0x2, %edi
callq 0xacef
movl 0x1f2b3(%rip), %eax     # 0x3f2b8
leal (%rax,%r14), %ecx
cmpl %r14d, %ecx
jbe 0x20047
decl %eax
movl %eax, 0x1f2a2(%rip)     # 0x3f2b8
leaq 0x285a3(%rip), %rcx     # 0x485c0
movq (%rcx,%rax,8), %rax
movq (%r15), %rcx
movq %rax, 0x68(%rcx,%r13,8)
movq (%r15), %rax
incq %r13
movslq 0x64(%rax), %rcx
cmpq %rcx, %r13
jl 0x1ffd1
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
leaq 0xeef3(%rip), %rdi      # 0x2ef41
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/georgeweigt[P]eigenmath/eigenmath.c
// Function: rotate_q
void
rotate_q(struct atom *PSI, int n)
{
	int i, j;
	struct atom *PHASE;
	for (i = n; i >= 0; i--) {
		rotate_h(PSI, 0, i);
		for (j = 0; j < i; j++) {
			push_rational(1, 2);
			push_integer(i - j);
			power();
			push(imaginaryunit);
			push_symbol(PI);
			evalf(); // in case PI is numerical
			multiply_factors(3);
			expfunc();
			PHASE = pop();
			rotate_p(PSI, PHASE, 1 << j, i);
		}
	}
	for (i = 0; i < (n + 1) / 2; i++)
		rotate_w(PSI, 0, i, n - i);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
testl %esi, %esi
js 0x2016f
movl %esi, %r15d
movq %rdi, %r14
xorl %esi, %esi
movl %r15d, %edx
callq 0x1fe36
testl %r15d, %r15d
je 0x2016f
movl $0xfffe795f, %ebx       # imm = 0xFFFE795F
movq %r15, -0x30(%rbp)
movl %r15d, %r12d
xorl %r13d, %r13d
movl $0x1, %edi
movl $0x2, %esi
callq 0xa533
movl %r12d, %edi
callq 0xb1be
callq 0xa573
movq 0xeba2c(%rip), %rdi     # 0x10bae0
callq 0x8ba5
movq 0x25f90(%rip), %rdi     # 0x46050
callq 0x8ba5
callq 0x96e2
movl $0x3, %edi
callq 0xacef
movq 0x281ed(%rip), %rdi     # 0x482c8
callq 0x8ba5
callq 0xb238
callq 0xa573
movl 0x1f1c8(%rip), %eax     # 0x3f2b8
leal (%rax,%rbx), %ecx
cmpl %ebx, %ecx
jbe 0x2017e
decl %eax
movl %eax, 0x1f1b5(%rip)     # 0x3f2b8
leaq 0x284b6(%rip), %rcx     # 0x485c0
movq (%rcx,%rax,8), %rsi
movl $0x1, %edx
movl %r13d, %ecx
shll %cl, %edx
movq %r14, %rdi
movl %r15d, %ecx
callq 0x1ff9f
incl %r13d
decl %r12d
jne 0x20091
leal -0x1(%r15), %edx
movq %r14, %rdi
xorl %esi, %esi
callq 0x1fe36
decl %r15d
jne 0x2008b
movq -0x30(%rbp), %r12
leal 0x1(%r12), %ebx
shrl %ebx
xorl %r15d, %r15d
movq %r14, %rdi
xorl %esi, %esi
movl %r15d, %edx
movl %r12d, %ecx
callq 0x20301
incl %r15d
decl %r12d
cmpl %r15d, %ebx
jne 0x20154
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
leaq 0xedbc(%rip), %rdi      # 0x2ef41
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/georgeweigt[P]eigenmath/eigenmath.c
// Function: rotate_v
void
rotate_v(struct atom *PSI, int n)
{
	int i, j;
	struct atom *PHASE;
	for (i = 0; i < (n + 1) / 2; i++)
		rotate_w(PSI, 0, i, n - i);
	for (i = 0; i <= n; i++) {
		for (j = i - 1; j >= 0; j--) {
			push_rational(1, 2);
			push_integer(i - j);
			power();
			push(imaginaryunit);
			push_symbol(PI);
			evalf(); // in case PI is numerical
			multiply_factors(3);
			negate();
			expfunc();
			PHASE = pop();
			rotate_p(PSI, PHASE, 1 << j, i);
		}
		rotate_h(PSI, 0, i);
	}
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x18, %rsp
movq %rdi, %r14
movq %rsi, -0x38(%rbp)
testl %esi, %esi
jle 0x201e2
movq -0x38(%rbp), %rcx
leal 0x1(%rcx), %eax
shrl $0x1f, %eax
addl %ecx, %eax
incl %eax
sarl %eax
cmpl $0x2, %eax
movl $0x1, %ebx
cmovgel %eax, %ebx
xorl %r15d, %r15d
movl %ecx, %r12d
movq %r14, %rdi
xorl %esi, %esi
movl %r15d, %edx
movl %r12d, %ecx
callq 0x20301
incl %r15d
decl %r12d
cmpl %r15d, %ebx
jne 0x201c7
cmpl $0x0, -0x38(%rbp)
js 0x202e6
xorl %r15d, %r15d
movl $0x1, -0x2c(%rbp)
movl $0xfffe795f, %ebx       # imm = 0xFFFE795F
testl %r15d, %r15d
je 0x202c5
movl $0x1, %r12d
movl -0x2c(%rbp), %eax
movl %eax, %r13d
movl $0x1, %edi
movl $0x2, %esi
callq 0xa533
movl %r12d, %edi
callq 0xb1be
callq 0xa573
movq 0xeb8ad(%rip), %rdi     # 0x10bae0
callq 0x8ba5
movq 0x25e11(%rip), %rdi     # 0x46050
callq 0x8ba5
callq 0x96e2
movl $0x3, %edi
callq 0xacef
movq 0xf6196(%rip), %rdi     # 0x1163f0
callq 0x8ba5
movl $0x2, %edi
callq 0xacef
movq 0x28058(%rip), %rdi     # 0x482c8
callq 0x8ba5
callq 0xb238
callq 0xa573
movl 0x1f033(%rip), %eax     # 0x3f2b8
leal (%rax,%rbx), %ecx
cmpl %ebx, %ecx
jbe 0x202f5
leal -0x2(%r13), %ecx
decl %eax
movl %eax, 0x1f020(%rip)     # 0x3f2b8
leaq 0x28321(%rip), %rdx     # 0x485c0
movq (%rdx,%rax,8), %rsi
movl $0x1, %edx
shll %cl, %edx
movq %r14, %rdi
movl %r15d, %ecx
callq 0x1ff9f
decl %r13d
incl %r12d
cmpl $0x1, %r13d
jg 0x20210
movq %r14, %rdi
xorl %esi, %esi
movl %r15d, %edx
callq 0x1fe36
leal 0x1(%r15), %eax
incl -0x2c(%rbp)
cmpl -0x38(%rbp), %r15d
movl %eax, %r15d
jne 0x201fb
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
leaq 0xec45(%rip), %rdi      # 0x2ef41
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/georgeweigt[P]eigenmath/eigenmath.c
// Function: rotate_w
void
rotate_w(struct atom *PSI, uint32_t c, int m, int n)
{
	int i;
	m = 1 << m;
	n = 1 << n;
	for (i = 0; i < NUMQBITS; i++) {
		if ((i & c) != c)
			continue;
		if ((i & m) && !(i & n)) {
			push(PSI->u.tensor->elem[i]);
			push(PSI->u.tensor->elem[i ^ m ^ n]);
			PSI->u.tensor->elem[i] = pop();
			PSI->u.tensor->elem[i ^ m ^ n] = pop();
		}
	}
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x18, %rsp
movl %ecx, %eax
movl %edx, %ecx
movl $0x1, %r8d
movl $0x1, %r9d
shll %cl, %r9d
movl %eax, %ecx
shll %cl, %r8d
movq (%rdi), %rax
cmpl $0x0, 0x64(%rax)
jle 0x203f4
movl %esi, %r15d
movq %rdi, %r14
movl %r8d, %ecx
xorl %r9d, %ecx
movl %ecx, -0x34(%rbp)
xorl %r13d, %r13d
leaq 0x28270(%rip), %r12     # 0x485c0
movl %r9d, -0x30(%rbp)
movl %r8d, -0x2c(%rbp)
movl %r13d, %ecx
notl %ecx
andl %r15d, %ecx
testl %r13d, %r9d
setne %dl
movl %r8d, %edi
andl %r13d, %edi
orl %ecx, %edi
sete %cl
andb %dl, %cl
cmpb $0x1, %cl
jne 0x203e4
movq 0x68(%rax,%r13,8), %rdi
callq 0x8ba5
movq (%r14), %rax
movl -0x34(%rbp), %ecx
xorl %r13d, %ecx
movslq %ecx, %rbx
movq 0x68(%rax,%rbx,8), %rdi
callq 0x8ba5
movl 0x1ef1a(%rip), %eax     # 0x3f2b8
movl $0xfffe795f, %edx       # imm = 0xFFFE795F
leal (%rax,%rdx), %ecx
cmpl %edx, %ecx
jbe 0x20403
leal -0x1(%rax), %ecx
movl %ecx, 0x1ef05(%rip)     # 0x3f2b8
movq (%r12,%rcx,8), %rcx
movq (%r14), %rdx
movq %rcx, 0x68(%rdx,%r13,8)
cmpl $0x1, %eax
jbe 0x20403
addl $-0x2, %eax
movl %eax, 0x1eeeb(%rip)     # 0x3f2b8
movq (%r12,%rax,8), %rax
movq (%r14), %rcx
movq %rax, 0x68(%rcx,%rbx,8)
movq (%r14), %rax
movl -0x2c(%rbp), %r8d
movl -0x30(%rbp), %r9d
incq %r13
movslq 0x64(%rax), %rcx
cmpq %rcx, %r13
jl 0x20358
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
leaq 0xeb37(%rip), %rdi      # 0x2ef41
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/georgeweigt[P]eigenmath/eigenmath.c
// Function: rotate_x
void
rotate_x(struct atom *PSI, uint32_t c, int n)
{
	int i;
	n = 1 << n;
	for (i = 0; i < NUMQBITS; i++) {
		if ((i & c) != c)
			continue;
		if (i & n) {
			push(KET0);
			push(KET1);
			KET0 = pop();
			KET1 = pop();
		}
	}
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movl %edx, %ecx
movl $0x1, %r8d
shll %cl, %r8d
movq (%rdi), %rax
cmpl $0x0, 0x64(%rax)
jle 0x204d6
movq %rdi, %r15
xorl %r12d, %r12d
leaq 0x2817e(%rip), %rbx     # 0x485c0
movl %esi, -0x2c(%rbp)
movl %r12d, %ecx
notl %ecx
testl %ecx, %esi
setne %cl
testl %r12d, %r8d
sete %dl
orb %cl, %dl
jne 0x204c6
movl %r8d, %r14d
movl %r8d, %ecx
xorl %r12d, %ecx
movslq %ecx, %r13
movq 0x68(%rax,%r13,8), %rdi
callq 0x8ba5
movq (%r15), %rax
movq 0x68(%rax,%r12,8), %rdi
callq 0x8ba5
movl 0x1ee36(%rip), %eax     # 0x3f2b8
movl $0xfffe795f, %edx       # imm = 0xFFFE795F
leal (%rax,%rdx), %ecx
cmpl %edx, %ecx
jbe 0x204e5
leal -0x1(%rax), %ecx
movl %ecx, 0x1ee21(%rip)     # 0x3f2b8
movq (%rbx,%rcx,8), %rcx
movq (%r15), %rdx
movq %rcx, 0x68(%rdx,%r13,8)
cmpl $0x1, %eax
jbe 0x204e5
addl $-0x2, %eax
movl %eax, 0x1ee07(%rip)     # 0x3f2b8
movq (%rbx,%rax,8), %rax
movq (%r15), %rcx
movq %rax, 0x68(%rcx,%r12,8)
movq (%r15), %rax
movl -0x2c(%rbp), %esi
movl %r14d, %r8d
incq %r12
movslq 0x64(%rax), %rcx
cmpq %rcx, %r12
jl 0x20445
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
leaq 0xea55(%rip), %rdi      # 0x2ef41
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/georgeweigt[P]eigenmath/eigenmath.c
// Function: rotate_y
void
rotate_y(struct atom *PSI, uint32_t c, int n)
{
	int i;
	n = 1 << n;
	for (i = 0; i < NUMQBITS; i++) {
		if ((i & c) != c)
			continue;
		if (i & n) {
			push(imaginaryunit);
			push(KET0);
			multiply();
			push(imaginaryunit);
			negate();
			push(KET1);
			multiply();
			KET0 = pop();
			KET1 = pop();
		}
	}
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movl %edx, %ecx
movl $0x1, %r13d
shll %cl, %r13d
movq (%rdi), %rax
cmpl $0x0, 0x64(%rax)
jle 0x20601
movq %rdi, %r15
xorl %r12d, %r12d
leaq 0x2809c(%rip), %rbx     # 0x485c0
movl %esi, -0x2c(%rbp)
movl %r12d, %ecx
notl %ecx
testl %ecx, %esi
setne %cl
testl %r12d, %r13d
sete %dl
orb %cl, %dl
jne 0x205f1
movq 0xeb59a(%rip), %rdi     # 0x10bae0
callq 0x8ba5
movq (%r15), %rax
movl %r13d, %r14d
movl %r13d, %ecx
xorl %r12d, %ecx
movslq %ecx, %r13
movq 0x68(%rax,%r13,8), %rdi
callq 0x8ba5
movl $0x2, %edi
callq 0xacef
movq 0xeb56b(%rip), %rdi     # 0x10bae0
callq 0x8ba5
movq 0xf5e6f(%rip), %rdi     # 0x1163f0
callq 0x8ba5
movl $0x2, %edi
callq 0xacef
movq (%r15), %rax
movq 0x68(%rax,%r12,8), %rdi
callq 0x8ba5
movl $0x2, %edi
callq 0xacef
movl 0x1ed0b(%rip), %eax     # 0x3f2b8
movl $0xfffe795f, %edx       # imm = 0xFFFE795F
leal (%rax,%rdx), %ecx
cmpl %edx, %ecx
jbe 0x20610
leal -0x1(%rax), %ecx
movl %ecx, 0x1ecf6(%rip)     # 0x3f2b8
movq (%rbx,%rcx,8), %rcx
movq (%r15), %rdx
movq %rcx, 0x68(%rdx,%r13,8)
cmpl $0x1, %eax
jbe 0x20610
addl $-0x2, %eax
movl %eax, 0x1ecdc(%rip)     # 0x3f2b8
movq (%rbx,%rax,8), %rax
movq (%r15), %rcx
movq %rax, 0x68(%rcx,%r12,8)
movq (%r15), %rax
movl -0x2c(%rbp), %esi
movl %r14d, %r13d
incq %r12
movslq 0x64(%rax), %rcx
cmpq %rcx, %r12
jl 0x20527
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
leaq 0xe92a(%rip), %rdi      # 0x2ef41
callq 0x780b