LLM4Binary/decompile-bench-makefile huggingface dataset:
// File: /workspace/github_c_makefile_star2_O1/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, %ebx
movq %rsi, %r15
movq %rdi, %r14
callq 0x8b01
movq %r14, %rdi
callq 0x8b01
movl $0x2, %edi
callq 0xa8bb
movq %r15, %rdi
callq 0x8b01
movq %r15, %rdi
callq 0x8b01
movl $0x2, %edi
callq 0xa8bb
movl $0x2, %edi
callq 0xa975
callq 0x8b78
movq %rax, %r12
movq %r14, %rdi
callq 0x8b01
movq %r12, %rdi
callq 0x8b01
movq 0xf51de(%rip), %rdi     # 0x1113f0
callq 0x8b01
callq 0xa234
movl $0x2, %edi
callq 0xa8bb
callq 0x8b78
movq %rax, %r14
movq %r15, %rdi
callq 0x8b01
movq 0xf51b3(%rip), %rdi     # 0x1113f0
callq 0x8b01
movl $0x2, %edi
callq 0xa8bb
movq %r12, %rdi
callq 0x8b01
movq 0xf5195(%rip), %rdi     # 0x1113f0
callq 0x8b01
callq 0xa234
movl $0x2, %edi
callq 0xa8bb
callq 0x8b78
movq %rax, %r15
cmpl $0x2, %ebx
jl 0x1c334
decl %ebx
movq %r15, %r12
movq %r14, %r13
movq %r13, %rdi
callq 0x8b01
movq %r14, %rdi
callq 0x8b01
movl $0x2, %edi
callq 0xa8bb
movq %r12, %rdi
callq 0x8b01
movq %r15, %rdi
callq 0x8b01
movl $0x2, %edi
callq 0xa8bb
movq 0xf512d(%rip), %rdi     # 0x1113f0
callq 0x8b01
movl $0x2, %edi
callq 0xa8bb
movl $0x2, %edi
callq 0xa975
movq %r13, %rdi
callq 0x8b01
movq %r15, %rdi
callq 0x8b01
movl $0x2, %edi
callq 0xa8bb
movq %r12, %rdi
callq 0x8b01
movq %r14, %rdi
callq 0x8b01
movl $0x2, %edi
callq 0xa8bb
movl $0x2, %edi
callq 0xa975
callq 0x8b78
movq %rax, %r12
callq 0x8b78
movq %rax, %r13
decl %ebx
jne 0x1c288
jmp 0x1c33a
movq %r14, %r13
movq %r15, %r12
movq %r13, %rdi
callq 0x8b01
movq 0xea797(%rip), %rdi     # 0x106ae0
callq 0x8b01
movq %r12, %rdi
callq 0x8b01
movl $0x2, %edi
callq 0xa8bb
movl $0x2, %edi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0xa975
// File: /workspace/github_c_makefile_star2_O1/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 0x24673(%rip), %rcx     # 0x40a00
cmovneq %rcx, %rax
movq (%rax), %rax
cmpb $0x1, 0x10(%rax)
cmoveq %rax, %rcx
movq (%rcx), %rdi
callq 0x8b01
callq 0x95e2
callq 0x8b78
movq %rax, %rbx
movl $0x0, 0xf543d(%rip)     # 0x1117f8
leaq 0xeb09(%rip), %rdi      # 0x2aecb
callq 0x14c8d
movq %rbx, %rdi
callq 0x1c3e1
movq 0xf4ff2(%rip), %rdi     # 0x1113c8
addq $0x8, %rsp
popq %rbx
popq %rbp
jmp 0x14bf5
// File: /workspace/github_c_makefile_star2_O1/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, 0xf5240(%rip)     # 0x1117f8
leaq 0xe90c(%rip), %rdi      # 0x2aecb
callq 0x14c8d
movq %rbx, %rdi
callq 0x1c3e1
leaq 0xe8f7(%rip), %rdi      # 0x2aeca
callq 0x14c8d
movq 0xf4de9(%rip), %rdi     # 0x1113c8
movq 0x169ea(%rip), %rax     # 0x32fd0
movq (%rax), %rsi
addq $0x8, %rsp
popq %rbx
popq %rbp
jmp 0x7120
// File: /workspace/github_c_makefile_star2_O1/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 0x243f6(%rip), %rbx     # 0x40a00
cmovneq %rbx, %rax
movq (%rax), %r14
cmpb $0x1, 0x10(%r14)
jne 0x1c649
movq (%r14), %rdi
callq 0x8b01
cmpb $0x1, 0x10(%r14)
movq %rbx, %rax
cmoveq %r14, %rax
movq (%rax), %rdi
callq 0x8b01
callq 0x95e2
callq 0x1c659
leaq 0x8(%r14), %rax
cmpb $0x1, 0x10(%r14)
jmp 0x1c60a
movq 0x243b0(%rip), %rdi     # 0x40a00
popq %rbx
popq %r14
popq %rbp
jmp 0x8b01
// File: /workspace/github_c_makefile_star2_O1/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 0x8b78
movq %rax, %rbx
callq 0x8b78
cmpq 0x2438c(%rip), %rbx     # 0x40a00
je 0x1c6e8
movq %rax, %r14
movq %rax, %rdi
movq %rbx, %rsi
callq 0x1c6f9
testl %eax, %eax
je 0x1c6b6
movq 0x26c31(%rip), %rdi     # 0x432c0
callq 0x8b01
movq %r14, %rdi
callq 0x8b01
movq %rbx, %rdi
callq 0x8b01
movl $0x3, %edi
callq 0x8ad9
callq 0x8b78
movq %rax, %rbx
movq 0x25673(%rip), %rdi     # 0x41d30
callq 0xe468
cmpq 0x25667(%rip), %rax     # 0x41d30
je 0x1c6d7
movq %rax, %rdi
callq 0xaece
testl %eax, %eax
je 0x1c6ed
movq %rbx, %rdi
callq 0x8b01
popq %rbx
popq %r14
popq %rbp
jmp 0x20dbc
popq %rbx
popq %r14
popq %rbp
retq
movq %rbx, %rdi
popq %rbx
popq %r14
popq %rbp
jmp 0x14c3e
// File: /workspace/github_c_makefile_star2_O1/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 0x1c749
movq %rdi, %r15
cmpb $0x3, 0x10(%rdi)
jne 0x1c749
movq %rsi, %r14
cmpq %r15, 0x2334b(%rip)     # 0x3fa68
je 0x1c72f
cmpq %r15, 0x23662(%rip)     # 0x3fd88
je 0x1c73d
movl $0x1, %ebx
jmp 0x1c749
movq %r14, %rdi
callq 0x15b7a
testl %eax, %eax
jne 0x1c749
jmp 0x1c71f
movq %r14, %rdi
callq 0x15b7a
testl %eax, %eax
je 0x1c728
movl %ebx, %eax
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: 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 0x23e49(%rip), %rcx     # 0x40a00
cmovneq %rcx, %rax
movq (%rax), %rax
cmpb $0x1, 0x10(%rax)
cmoveq %rax, %rcx
movq (%rcx), %rdi
callq 0x8b01
callq 0x95e2
callq 0x8b78
cmpb $0x7, 0x10(%rax)
jne 0x1cbe9
movq (%rax), %rax
movl (%rax), %edi
popq %rbp
jmp 0xacbe
movq 0x21550(%rip), %rdi     # 0x3e140
popq %rbp
jmp 0x8b01
// File: /workspace/github_c_makefile_star2_O1/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 0x8b78
cmpb $0x7, 0x10(%rax)
jne 0x1cc93
movq %rax, %rdi
callq 0x953d
movq %rax, %rbx
movq (%rax), %rax
movslq 0x64(%rax), %r14
testq %r14, %r14
jle 0x1cc81
xorl %r15d, %r15d
movq (%rbx), %rax
movq 0x68(%rax,%r15,8), %rdi
callq 0x8b01
callq 0x1cc2b
callq 0x8b78
movq (%rbx), %rcx
movq %rax, 0x68(%rcx,%r15,8)
incq %r15
cmpq %r15, %r14
jne 0x1cc5a
movq %rbx, %rdi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x8b01
movq %rax, %rdi
callq 0x8b01
callq 0xdee7
callq 0xad38
movq 0xf4744(%rip), %rdi     # 0x1113f0
callq 0x8b01
callq 0xa234
movl 0xe9e14(%rip), %ebx     # 0x106ad0
movl $0x0, 0xe9e0a(%rip)     # 0x106ad0
movl $0x2, %edi
callq 0xa8bb
movl %ebx, 0xe9dfa(%rip)     # 0x106ad0
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: 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 0x23c99(%rip), %r15     # 0x40a00
movq %r15, %rax
cmoveq %r14, %rax
movq (%rax), %rax
cmpb $0x1, 0x10(%rax)
cmovneq %r15, %rax
movq (%rax), %rdi
callq 0x8b01
callq 0x95e2
cmpb $0x1, 0x10(%rbx)
cmovneq %r15, %r14
movq (%r14), %rax
leaq 0x8(%rax), %rcx
cmpb $0x1, 0x10(%rax)
cmovneq %r15, %rcx
movq (%rcx), %rax
cmpb $0x1, 0x10(%rax)
jne 0x1cdb5
movq (%rax), %rdi
callq 0x8b01
callq 0x95e2
jmp 0x1cdc1
movq 0x25b8c(%rip), %rdi     # 0x42948
callq 0x8b01
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x1cdd0
// File: /workspace/github_c_makefile_star2_O1/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
pushq %rax
movl %esi, %ebx
movslq %edi, %r15
cmpl $0x2, %esi
jl 0x1d27f
movq %rdx, %r14
movl %ebx, %r12d
incq %r12
leaq 0x26388(%rip), %rax     # 0x435c0
leaq (%rax,%r15,8), %r13
movq %r14, %rdi
callq 0x8b01
movq -0x10(%r13,%r12,8), %rdi
callq 0x8b01
movl $0x2, %edi
callq 0xa8bb
movq -0x18(%r13,%r12,8), %rdi
callq 0x8b01
movl $0x2, %edi
callq 0xa975
callq 0x8b78
movq %rax, -0x18(%r13,%r12,8)
decq %r12
cmpq $0x2, %r12
jg 0x1d23c
leaq 0x2633a(%rip), %r14     # 0x435c0
movq (%r14,%r15,8), %rdi
callq 0xaece
testl %eax, %eax
je 0x1d2c6
cmpl $0x2, %ebx
jl 0x1d2b7
decl %ebx
movl %ebx, %eax
leaq (%r14,%r15,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 0x1d2a6
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
leaq 0xd600(%rip), %rdi      # 0x2a8cd
callq 0x77c8
// File: /workspace/github_c_makefile_star2_O1/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 0x1cfd9(%rip), %ebx     # 0x3a2b8
callq 0x1d3c5
movl 0x1cfcd(%rip), %r14d    # 0x3a2b8
movq 0xe97e6(%rip), %rdi     # 0x106ad8
callq 0x8b01
movl %ebx, %edi
movl %r14d, %esi
callq 0x1d44c
movl 0x1cfb1(%rip), %eax     # 0x3a2b8
subl %r14d, %eax
jle 0x1d33d
movslq %ebx, %rcx
movslq %r14d, %rdx
movl %eax, %esi
shlq $0x3, %rcx
shlq $0x3, %rdx
xorl %edi, %edi
leaq 0x2629b(%rip), %r8      # 0x435c0
leaq (%rdx,%rdi,8), %r9
movq (%r8,%r9), %r9
leaq (%rcx,%rdi,8), %r10
movq %r9, (%r8,%r10)
incq %rdi
cmpq %rdi, %rsi
jne 0x1d325
addl %ebx, %eax
movl %eax, 0x1cf73(%rip)     # 0x3a2b8
popq %rbx
popq %r14
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O1/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 %r12
pushq %rbx
movq %rdx, %rbx
movl %esi, %r14d
movl %edi, %r15d
leal -0x1(%r15,%r14), %eax
cltq
leaq 0x26254(%rip), %r12     # 0x435c0
movq (%r12,%rax,8), %rdi
callq 0x8b01
cmpl $0x2, %r14d
jl 0x1d3bc
movslq %r14d, %r14
movslq %r15d, %rax
addq %r14, %rax
decq %r14
leaq (%r12,%rax,8), %r15
addq $-0x10, %r15
movq %rbx, %rdi
callq 0x8b01
movl $0x2, %edi
callq 0xa8bb
movq (%r15), %rdi
callq 0x8b01
movl $0x2, %edi
callq 0xa975
addq $-0x8, %r15
decq %r14
jg 0x1d38f
popq %rbx
popq %r12
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O1/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 0x1d3e5
popq %rbx
popq %r12
popq %r14
popq %r15
popq %rbp
retq
xorl %r15d, %r15d
leaq 0x172a1(%rip), %r12     # 0x34690
movl (%r12,%r15,4), %edi
movl %ebx, %eax
cltd
idivl %edi
xorl %r14d, %r14d
testl %edx, %edx
jne 0x1d40e
movl %ebx, %eax
cltd
idivl %edi
incl %r14d
movl %eax, %ebx
cltd
idivl %edi
jmp 0x1d3fb
testl %r14d, %r14d
je 0x1d425
callq 0xacbe
movl %r14d, %edi
callq 0xacbe
cmpl $0x1, %ebx
je 0x1d3dc
incq %r15
cmpq $0x12b8, %r15           # imm = 0x12B8
jne 0x1d3ef
movl %ebx, %edi
callq 0xacbe
movq 0xe9699(%rip), %rdi     # 0x106ad8
popq %rbx
popq %r12
popq %r14
popq %r15
popq %rbp
jmp 0x8b01
// File: /workspace/github_c_makefile_star2_O1/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:
cmpl %esi, %edi
je 0x1d4e6
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movl %esi, %ebx
movl %edi, %r14d
callq 0x8b78
movq %rax, -0x30(%rbp)
movslq %r14d, %rax
leaq 0x26146(%rip), %rcx     # 0x435c0
movq (%rcx,%rax,8), %r12
movq 0x8(%rcx,%rax,8), %rdi
callq 0x8b01
callq 0xeb5b
testl %eax, %eax
js 0x1d4d8
movl %eax, %r13d
addl $0x2, %r14d
incl %r13d
xorl %r15d, %r15d
movq -0x30(%rbp), %rdi
callq 0x8b01
movq %r12, %rdi
callq 0x8b01
movl %r15d, %edi
callq 0xacbe
callq 0xa234
movl $0x2, %edi
callq 0xa8bb
movl %r14d, %edi
movl %ebx, %esi
callq 0x1d44c
incl %r15d
cmpl %r15d, %r13d
jne 0x1d49e
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O1/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, %r15d
shll %cl, %r15d
movq (%rdi), %rax
cmpl $0x0, 0x64(%rax)
jle 0x1d97a
movl %esi, %ebx
movq %rdi, %r14
xorl %r12d, %r12d
movl %r12d, %ecx
notl %ecx
testl %ecx, %ebx
setne %cl
testl %r12d, %r15d
sete %dl
orb %cl, %dl
jne 0x1d967
movl %r15d, %ecx
xorl %r12d, %ecx
movslq %ecx, %r13
movq 0x68(%rax,%r13,8), %rdi
callq 0x8b01
movq (%r14), %rax
movq 0x68(%rax,%r12,8), %rdi
callq 0x8b01
movl $0x2, %edi
callq 0xa975
movl $0x1, %edi
movl $0x2, %esi
callq 0xa1f4
movl $0x1, %edi
movl $0x2, %esi
callq 0xa1f4
callq 0xa234
movl $0x2, %edi
callq 0xa8bb
movq (%r14), %rax
movq 0x68(%rax,%r13,8), %rdi
callq 0x8b01
movq (%r14), %rax
movq 0x68(%rax,%r12,8), %rdi
callq 0x8b01
callq 0xba6d
movl $0x1, %edi
movl $0x2, %esi
callq 0xa1f4
movl $0x1, %edi
movl $0x2, %esi
callq 0xa1f4
callq 0xa234
movl $0x2, %edi
callq 0xa8bb
callq 0x8b78
movq (%r14), %rcx
movq %rax, 0x68(%rcx,%r12,8)
callq 0x8b78
movq (%r14), %rcx
movq %rax, 0x68(%rcx,%r13,8)
incq %r12
movq (%r14), %rax
movslq 0x64(%rax), %rcx
cmpq %rcx, %r12
jl 0x1d892
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O1/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
movl $0x1, %r12d
shll %cl, %r12d
movq (%rdi), %rax
cmpl $0x0, 0x64(%rax)
jle 0x1d9fd
movl %edx, %ebx
movq %rsi, %r14
movq %rdi, %r15
xorl %r13d, %r13d
movl %r13d, %ecx
notl %ecx
testl %ecx, %ebx
jne 0x1d9ee
movl %r12d, %ecx
andl %r13d, %ecx
je 0x1d9ee
movq 0x68(%rax,%r13,8), %rdi
callq 0x8b01
movq %r14, %rdi
callq 0x8b01
movl $0x2, %edi
callq 0xa8bb
callq 0x8b78
movq (%r15), %rcx
movq %rax, 0x68(%rcx,%r13,8)
incq %r13
movq (%r15), %rax
movslq 0x64(%rax), %rcx
cmpq %rcx, %r13
jl 0x1d9b4
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O1/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
movl %esi, %ebx
movq %rdi, %r14
testl %esi, %esi
js 0x1dad4
movl %ebx, %r15d
movq %r14, %rdi
xorl %esi, %esi
movl %r15d, %edx
callq 0x1d864
testl %r15d, %r15d
jle 0x1dac4
xorl %r12d, %r12d
movl %r15d, %r13d
movl $0x1, %edi
movl $0x2, %esi
callq 0xa1f4
movl %r13d, %edi
callq 0xacbe
callq 0xa234
movq 0xe9077(%rip), %rdi     # 0x106ae0
callq 0x8b01
movq 0x235db(%rip), %rdi     # 0x41050
callq 0x8b01
callq 0x95e2
movl $0x3, %edi
callq 0xa8bb
movq 0x25838(%rip), %rdi     # 0x432c8
callq 0x8b01
callq 0xad38
callq 0xa234
callq 0x8b78
movl $0x1, %edx
movl %r12d, %ecx
shll %cl, %edx
movq %r14, %rdi
movq %rax, %rsi
movl %r15d, %ecx
callq 0x1d989
incl %r12d
decl %r13d
jne 0x1da46
leal -0x1(%r15), %eax
testl %r15d, %r15d
movl %eax, %r15d
jg 0x1da2a
testl %ebx, %ebx
jle 0x1db06
leal 0x1(%rbx), %eax
shrl %eax
cmpl $0x2, %eax
movl $0x1, %r12d
cmovgel %eax, %r12d
xorl %r15d, %r15d
movq %r14, %rdi
xorl %esi, %esi
movl %r15d, %edx
movl %ebx, %ecx
callq 0x1dc59
incl %r15d
decl %ebx
cmpl %r15d, %r12d
jne 0x1daed
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O1/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
pushq %rax
movq %rdi, %r14
movq %rsi, -0x30(%rbp)
testl %esi, %esi
jle 0x1db6a
movq -0x30(%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 0x1dc59
incl %r15d
decl %r12d
cmpl %r15d, %ebx
jne 0x1db4f
cmpl $0x0, -0x30(%rbp)
js 0x1dc4a
xorl %r15d, %r15d
movl $0x1, %r13d
testl %r15d, %r15d
je 0x1dc29
movl $0x1, %r12d
movl %r13d, %ebx
movl $0x1, %edi
movl $0x2, %esi
callq 0xa1f4
movl %r12d, %edi
callq 0xacbe
callq 0xa234
movq 0xe8f2e(%rip), %rdi     # 0x106ae0
callq 0x8b01
movq 0x23492(%rip), %rdi     # 0x41050
callq 0x8b01
callq 0x95e2
movl $0x3, %edi
callq 0xa8bb
movq 0xf3817(%rip), %rdi     # 0x1113f0
callq 0x8b01
movl $0x2, %edi
callq 0xa8bb
movq 0x256d9(%rip), %rdi     # 0x432c8
callq 0x8b01
callq 0xad38
callq 0xa234
callq 0x8b78
leal -0x2(%rbx), %ecx
movl $0x1, %edx
shll %cl, %edx
movq %r14, %rdi
movq %rax, %rsi
movl %r15d, %ecx
callq 0x1d989
decl %ebx
incl %r12d
cmpl $0x1, %ebx
jg 0x1db8f
movq %r14, %rdi
xorl %esi, %esi
movl %r15d, %edx
callq 0x1d864
leal 0x1(%r15), %eax
incl %r13d
cmpl -0x30(%rbp), %r15d
movl %eax, %r15d
jne 0x1db7d
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O1/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
pushq %rax
movl %ecx, %eax
movl %edx, %ecx
movl $0x1, %ebx
movl $0x1, %r15d
shll %cl, %r15d
movl %eax, %ecx
shll %cl, %ebx
movq (%rdi), %rax
cmpl $0x0, 0x64(%rax)
jle 0x1dd01
movq %rdi, %r14
xorl %r13d, %r13d
movl %esi, -0x2c(%rbp)
movl %r13d, %ecx
notl %ecx
andl %esi, %ecx
testl %r13d, %r15d
setne %dl
movl %ebx, %edi
andl %r13d, %edi
orl %ecx, %edi
sete %cl
andb %dl, %cl
cmpb $0x1, %cl
jne 0x1dcf2
movq 0x68(%rax,%r13,8), %rdi
callq 0x8b01
movq (%r14), %rax
movl %r15d, %ecx
xorl %r13d, %ecx
xorl %ebx, %ecx
movl %ebx, %r12d
movslq %ecx, %rbx
movq 0x68(%rax,%rbx,8), %rdi
callq 0x8b01
callq 0x8b78
movq (%r14), %rcx
movq %rax, 0x68(%rcx,%r13,8)
callq 0x8b78
movl -0x2c(%rbp), %esi
movq (%r14), %rcx
movq %rax, 0x68(%rcx,%rbx,8)
movl %r12d, %ebx
incq %r13
movq (%r14), %rax
movslq 0x64(%rax), %rcx
cmpq %rcx, %r13
jl 0x1dc8f
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O1/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, %r15d
shll %cl, %r15d
movq (%rdi), %rax
cmpl $0x0, 0x64(%rax)
jle 0x1dd97
movl %esi, %ebx
movq %rdi, %r14
xorl %r12d, %r12d
movl %r12d, %ecx
notl %ecx
testl %ecx, %ebx
setne %cl
testl %r12d, %r15d
sete %dl
orb %cl, %dl
jne 0x1dd88
movl %r15d, %ecx
xorl %r12d, %ecx
movslq %ecx, %r13
movq 0x68(%rax,%r13,8), %rdi
callq 0x8b01
movq (%r14), %rax
movq 0x68(%rax,%r12,8), %rdi
callq 0x8b01
callq 0x8b78
movq (%r14), %rcx
movq %rax, 0x68(%rcx,%r13,8)
callq 0x8b78
movq (%r14), %rcx
movq %rax, 0x68(%rcx,%r12,8)
incq %r12
movq (%r14), %rax
movslq 0x64(%rax), %rcx
cmpq %rcx, %r12
jl 0x1dd3a
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O1/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, %r15d
shll %cl, %r15d
movq (%rdi), %rax
cmpl $0x0, 0x64(%rax)
jle 0x1de7a
movl %esi, %ebx
movq %rdi, %r14
xorl %r12d, %r12d
movl %r12d, %eax
notl %eax
testl %eax, %ebx
setne %al
testl %r12d, %r15d
sete %cl
orb %al, %cl
jne 0x1de67
movq 0xe8cf1(%rip), %rdi     # 0x106ae0
callq 0x8b01
movq (%r14), %rax
movl %r15d, %ecx
xorl %r12d, %ecx
movslq %ecx, %r13
movq 0x68(%rax,%r13,8), %rdi
callq 0x8b01
movl $0x2, %edi
callq 0xa8bb
movq 0xe8cc5(%rip), %rdi     # 0x106ae0
callq 0x8b01
movq 0xf35c9(%rip), %rdi     # 0x1113f0
callq 0x8b01
movl $0x2, %edi
callq 0xa8bb
movq (%r14), %rax
movq 0x68(%rax,%r12,8), %rdi
callq 0x8b01
movl $0x2, %edi
callq 0xa8bb
callq 0x8b78
movq (%r14), %rcx
movq %rax, 0x68(%rcx,%r13,8)
callq 0x8b78
movq (%r14), %rcx
movq %rax, 0x68(%rcx,%r12,8)
incq %r12
movq (%r14), %rax
movslq 0x64(%rax), %rax
cmpq %rax, %r12
jl 0x1ddd4
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: rotate_z
void
rotate_z(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(KET1);
			negate();
			KET1 = pop();
		}
	}
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
movl %edx, %ecx
movl $0x1, %r15d
shll %cl, %r15d
movq (%rdi), %rax
cmpl $0x0, 0x64(%rax)
jle 0x1defd
movl %esi, %ebx
movq %rdi, %r14
xorl %r12d, %r12d
movl %r12d, %ecx
notl %ecx
testl %ecx, %ebx
jne 0x1deee
movl %r15d, %ecx
andl %r12d, %ecx
je 0x1deee
movq 0x68(%rax,%r12,8), %rdi
callq 0x8b01
movq 0xf351e(%rip), %rdi     # 0x1113f0
callq 0x8b01
movl $0x2, %edi
callq 0xa8bb
callq 0x8b78
movq (%r14), %rcx
movq %rax, 0x68(%rcx,%r12,8)
incq %r12
movq (%r14), %rax
movslq 0x64(%rax), %rcx
cmpq %rcx, %r12
jl 0x1deb0
popq %rbx
popq %r12
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: eval_run
void
eval_run(struct atom *p1)
{
	char *buf;
	struct atom *p2;

	push(cadr(p1));
	evalf();
	p1 = pop();
	if (!isstr(p1))
		stopf("run: file name expected");

	p2 = alloc_str();
	buf = read_file(p1->u.str);
	if (buf == NULL)
		stopf("run: cannot read file");
	p2->u.str = buf;

	push(p2); // make visible to garbage collector
	run_buf(buf);
	pop(); // buf is freed on next gc

	push_symbol(NIL); // return value
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r14
pushq %rbx
cmpb $0x1, 0x10(%rdi)
leaq 0x8(%rdi), %rax
leaq 0x22ae4(%rip), %rcx     # 0x40a00
cmovneq %rcx, %rax
movq (%rax), %rax
cmpb $0x1, 0x10(%rax)
cmoveq %rax, %rcx
movq (%rcx), %rdi
callq 0x8b01
callq 0x95e2
callq 0x8b78
cmpb $0x6, 0x10(%rax)
jne 0x1df97
movq %rax, %r14
callq 0x74ec
movq %rax, %rbx
movb $0x6, 0x10(%rax)
movq $0x0, (%rax)
incl 0x201ed(%rip)           # 0x3e14c
movq (%r14), %rdi
callq 0x1dfaf
testq %rax, %rax
je 0x1dfa3
movq %rax, %r14
movq %rax, (%rbx)
movq %rbx, %rdi
callq 0x8b01
movq %r14, %rdi
callq 0x1e047
callq 0x8b78
movq 0x22a72(%rip), %rdi     # 0x40a00
popq %rbx
popq %r14
popq %rbp
jmp 0x8b01
leaq 0xca67(%rip), %rdi      # 0x2aa05
callq 0x77c8
leaq 0xca73(%rip), %rdi      # 0x2aa1d
callq 0x77c8
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: read_file
char *
read_file(char *filename)
{
	int fd, n;
	char *buf;
	off_t t;

	fd = open(filename, O_RDONLY);

	if (fd < 0)
		return NULL;

	t = lseek(fd, 0, SEEK_END);

	if (t < 0 || t > 0x1000000) { // 16 MB max
		close(fd);
		return NULL;
	}

	if (lseek(fd, 0, SEEK_SET)) {
		close(fd);
		return NULL;
	}

	n = (int) t;

	buf = malloc(n + 1);

	if (buf == NULL) {
		close(fd);
		return NULL;
	}

	if (read(fd, buf, n) != n) {
		free(buf);
		close(fd);
		return NULL;
	}

	close(fd);

	buf[n] = '\0';

	return buf;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
xorl %r14d, %r14d
xorl %esi, %esi
xorl %eax, %eax
callq 0x72e0
testl %eax, %eax
js 0x1dffe
movl %eax, %ebx
movl %eax, %edi
xorl %esi, %esi
movl $0x2, %edx
callq 0x7110
cmpq $0x1000001, %rax        # imm = 0x1000001
jae 0x1dff4
movq %rax, %r15
movl %ebx, %edi
xorl %esi, %esi
xorl %edx, %edx
callq 0x7110
testq %rax, %rax
je 0x1e00c
movl %ebx, %edi
callq 0x7140
xorl %r14d, %r14d
movq %r14, %rax
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
leaq 0x1(%r15), %rdi
callq 0x7260
testq %rax, %rax
je 0x1dff4
movq %rax, %r14
movl %ebx, %edi
movq %rax, %rsi
movq %r15, %rdx
callq 0x7190
cmpq %r15, %rax
jne 0x1e03d
movl %ebx, %edi
callq 0x7140
movb $0x0, (%r14,%r15)
jmp 0x1dffe
movq %r14, %rdi
callq 0x7040
jmp 0x1dff4
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: run_buf
void
run_buf(char *buf)
{
	char *s, *save_trace1, *save_trace2;
	struct atom *p1;

	save_trace1 = trace1;
	save_trace2 = trace2;

	s = buf;

	for (;;) {

		s = scan_input(s); // also updates trace1 and trace2

		if (s == NULL)
			break; // end of input

		dupl();
		evalg();

		// update last

		dupl();
		p1 = pop();

		if (p1 != symbol(NIL))
			set_symbol(symbol(LAST), p1, symbol(NIL));

		print_result();
	}

	trace1 = save_trace1;
	trace2 = save_trace2;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq 0xf3874(%rip), %rax     # 0x1118d0
movq %rax, -0x30(%rbp)
movq 0xf3871(%rip), %r12     # 0x1118d8
callq 0x24fc8
testq %rax, %rax
je 0x1e0fd
movq %rax, %rbx
leaq 0xe8a71(%rip), %r13     # 0x106af0
leaq 0xedeca(%rip), %r15     # 0x10bf50
callq 0x8b78
movq %rax, %r14
movq %rax, %rdi
callq 0x8b01
movq %r14, %rdi
callq 0x8b01
callq 0x95ac
callq 0x8b78
movq %rax, %r14
movq %rax, %rdi
callq 0x8b01
movq %r14, %rdi
callq 0x8b01
callq 0x8b78
movq 0x22939(%rip), %rcx     # 0x40a00
cmpq %rcx, %rax
je 0x1e0e8
movq 0x222ed(%rip), %rdx     # 0x403c0
cmpb $0x3, 0x10(%rdx)
jne 0x1e11e
movl 0x8(%rdx), %esi
movq %rax, (%r13,%rsi,8)
movl 0x8(%rdx), %eax
movq %rcx, (%r15,%rax,8)
callq 0x1c659
movq %rbx, %rdi
callq 0x24fc8
movq %rax, %rbx
testq %rax, %rax
jne 0x1e086
movq -0x30(%rbp), %rax
movq %rax, 0xf37c8(%rip)     # 0x1118d0
movq %r12, 0xf37c9(%rip)     # 0x1118d8
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
leaq 0xce55(%rip), %rdi      # 0x2af7a
callq 0x77c8
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: eval_setq
void
eval_setq(struct atom *p1)
{
	struct atom *p2;

	push_symbol(NIL); // return value

	if (caadr(p1) == symbol(INDEX)) {
		setq_indexed(p1);
		return;
	}

	if (iscons(cadr(p1))) {
		setq_usrfunc(p1);
		return;
	}

	if (!isusersymbol(cadr(p1)))
		stopf("user symbol expected");

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

	set_symbol(cadr(p1), p2, symbol(NIL));
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
movq %rdi, %rbx
leaq 0x228c2(%rip), %r15     # 0x40a00
movq 0x228bb(%rip), %rdi     # 0x40a00
callq 0x8b01
leaq 0x8(%rbx), %r14
cmpb $0x1, 0x10(%rbx)
movq %r15, %rax
cmoveq %r14, %rax
movq (%rax), %rax
movb 0x10(%rax), %cl
cmpb $0x1, %cl
movq %r15, %rdx
cmoveq %rax, %rdx
movq (%rdx), %rdx
cmpb $0x1, 0x10(%rdx)
jne 0x1e183
cmpb $0x1, %cl
leaq 0x22884(%rip), %rdx     # 0x40a00
cmoveq %rax, %rdx
movq (%rdx), %r15
movq (%r15), %rdx
cmpq 0x2512b(%rip), %rdx     # 0x432b8
je 0x1e1bb
cmpb $0x1, %cl
leaq 0x22867(%rip), %r15     # 0x40a00
movq %r15, %rdx
cmoveq %rax, %rdx
movq (%rdx), %rdx
cmpb $0x1, 0x10(%rdx)
jne 0x1e1cd
movq %rbx, %rdi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x1e4bb
movq %rbx, %rdi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x1e291
cmpb $0x1, %cl
cmovneq %r15, %rax
movq (%rax), %rax
cmpb $0x3, 0x10(%rax)
jne 0x1e279
cmpb $0x1, 0x10(%rbx)
movq %r15, %rax
cmoveq %r14, %rax
movq (%rax), %rax
movb 0x10(%rax), %cl
addq $0x8, %rax
cmpb $0x1, %cl
movq %r15, %rdx
cmoveq %rax, %rdx
movq (%rdx), %rdx
cmpb $0x1, 0x10(%rdx)
movq %r15, %rdx
jne 0x1e21d
cmpb $0x1, %cl
leaq 0x227ea(%rip), %rcx     # 0x40a00
cmoveq %rax, %rcx
movq (%rcx), %rdx
movq (%rdx), %rdi
callq 0x8b01
callq 0x95ac
callq 0x8b78
cmpb $0x1, 0x10(%rbx)
cmovneq %r15, %r14
movq (%r14), %rcx
cmpb $0x1, 0x10(%rcx)
cmoveq %rcx, %r15
movq (%r15), %rcx
cmpb $0x3, 0x10(%rcx)
jne 0x1e285
movq 0x227ae(%rip), %rdx     # 0x40a00
movl 0x8(%rcx), %esi
leaq 0xe8894(%rip), %rdi     # 0x106af0
movq %rax, (%rdi,%rsi,8)
movl 0x8(%rcx), %eax
leaq 0xedce6(%rip), %rcx     # 0x10bf50
movq %rdx, (%rcx,%rax,8)
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
leaq 0xc7b3(%rip), %rdi      # 0x2aa33
callq 0x77c8
leaq 0xccee(%rip), %rdi      # 0x2af7a
callq 0x77c8
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: setq_usrfunc
void
setq_usrfunc(struct atom *p1)
{
	struct atom *F, *A, *B, *C;

	F = caadr(p1);
	A = cdadr(p1);
	B = caddr(p1);

	if (!isusersymbol(F))
		stopf("user symbol expected");

	if (lengthf(A) > 9)
		stopf("more than 9 arguments");

	push(B);
	convert_body(A);
	C = pop();

	set_symbol(F, B, C);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
leaq 0x8(%rdi), %rcx
cmpb $0x1, 0x10(%rdi)
leaq 0x2252c(%rip), %rax     # 0x40a00
cmovneq %rax, %rcx
movq (%rcx), %rcx
movb 0x10(%rcx), %dl
cmpb $0x1, %dl
movq %rax, %rsi
cmoveq %rcx, %rsi
movq (%rsi), %rsi
cmpb $0x1, 0x10(%rsi)
movq %rax, %rdi
jne 0x1e505
cmpb $0x1, %dl
leaq 0x22502(%rip), %rsi     # 0x40a00
cmoveq %rcx, %rsi
movq (%rsi), %rdi
cmpb $0x1, %dl
movq %rax, %rsi
cmoveq %rcx, %rsi
movq (%rsi), %rsi
cmpb $0x1, 0x10(%rsi)
movq %rax, %rsi
jne 0x1e530
cmpb $0x1, %dl
leaq 0x224db(%rip), %rsi     # 0x40a00
cmoveq %rcx, %rsi
movq (%rsi), %rsi
addq $0x8, %rsi
addq $0x8, %rcx
cmpb $0x1, %dl
movq %rax, %r8
cmoveq %rcx, %r8
movq (%rdi), %r15
movq (%r8), %rdi
cmpb $0x1, 0x10(%rdi)
jne 0x1e55b
cmpb $0x1, %dl
leaq 0x224ac(%rip), %rax     # 0x40a00
cmoveq %rcx, %rax
movq (%rax), %rax
cmpb $0x3, 0x10(%r15)
jne 0x1e5cd
movq (%rsi), %r14
movq (%rax), %rbx
cmpb $0x1, 0x10(%r14)
jne 0x1e588
movl $0xffffffff, %eax       # imm = 0xFFFFFFFF
movq %r14, %rcx
movq 0x8(%rcx), %rcx
incl %eax
cmpb $0x1, 0x10(%rcx)
je 0x1e577
cmpl $0x9, %eax
jae 0x1e5e5
movq %rbx, %rdi
callq 0x8b01
movq %r14, %rdi
callq 0x1e744
callq 0x8b78
cmpb $0x3, 0x10(%r15)
jne 0x1e5d9
movl 0x8(%r15), %ecx
leaq 0xe8541(%rip), %rdx     # 0x106af0
movq %rbx, (%rdx,%rcx,8)
movl 0x8(%r15), %ecx
leaq 0xed992(%rip), %rdx     # 0x10bf50
movq %rax, (%rdx,%rcx,8)
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
leaq 0xc45f(%rip), %rdi      # 0x2aa33
callq 0x77c8
leaq 0xc99a(%rip), %rdi      # 0x2af7a
callq 0x77c8
leaq 0xc45c(%rip), %rdi      # 0x2aa48
callq 0x77c8
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: set_component
void
set_component(struct atom *LVAL, struct atom *RVAL, int h)
{
	int i, k, m, n, t;

	if (!istensor(LVAL))
		stopf("index error");

	// n is the number of indices

	n = tos - h;

	if (n < 1 || n > LVAL->u.tensor->ndim)
		stopf("index error");

	// k is the combined index

	k = 0;

	for (i = 0; i < n; i++) {
		push(stack[h + i]);
		t = pop_integer();
		if (t < 1 || t > LVAL->u.tensor->dim[i])
			stopf("index error");
		k = k * LVAL->u.tensor->dim[i] + t - 1;
	}

	tos = h; // pop all

	if (istensor(RVAL)) {
		m = RVAL->u.tensor->ndim;
		if (n + m != LVAL->u.tensor->ndim)
			stopf("index error");
		for (i = 0; i < m; i++)
			if (LVAL->u.tensor->dim[n + i] != RVAL->u.tensor->dim[i])
				stopf("index error");
		m = RVAL->u.tensor->nelem;
		for (i = 0; i < m; i++)
			LVAL->u.tensor->elem[m * k + i] = RVAL->u.tensor->elem[i];
	} else {
		if (n != LVAL->u.tensor->ndim)
			stopf("index error");
		LVAL->u.tensor->elem[k] = RVAL;
	}
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x18, %rsp
cmpb $0x7, 0x10(%rdi)
jne 0x1e738
movq %rsi, -0x38(%rbp)
movl 0x1bca2(%rip), %ecx     # 0x3a2b8
subl %edx, %ecx
jle 0x1e738
movq %rdi, %r14
movq (%rdi), %rax
cmpl (%rax), %ecx
jg 0x1e738
movl %edx, -0x30(%rbp)
movslq %edx, %r13
movl %ecx, -0x2c(%rbp)
movl %ecx, %r15d
shlq $0x3, %r13
xorl %ebx, %ebx
xorl %r12d, %r12d
leaq (,%rbx,8), %rax
addq %r13, %rax
leaq 0x24f6d(%rip), %rcx     # 0x435c0
movq (%rcx,%rax), %rdi
callq 0x8b01
callq 0xeb5b
testl %eax, %eax
jle 0x1e738
movq (%r14), %rcx
cmpl 0x4(%rcx,%rbx,4), %eax
jg 0x1e738
movq (%r14), %rcx
imull 0x4(%rcx,%rbx,4), %r12d
addl %eax, %r12d
decl %r12d
incq %rbx
cmpq %rbx, %r15
jne 0x1e641
movl -0x30(%rbp), %eax
movl %eax, 0x1bc22(%rip)     # 0x3a2b8
movq -0x38(%rbp), %r8
cmpb $0x7, 0x10(%r8)
jne 0x1e714
movq (%r8), %rax
movl (%rax), %eax
movl -0x2c(%rbp), %edx
addl %eax, %edx
movq (%r14), %rcx
cmpl (%rcx), %edx
jne 0x1e738
testl %eax, %eax
jle 0x1e6db
movq (%r14), %rdx
movq (%r8), %rcx
leaq (%rdx,%r15,4), %rdx
addq $0x4, %rdx
xorl %esi, %esi
movl (%rdx,%rsi,4), %edi
cmpl 0x4(%rcx,%rsi,4), %edi
jne 0x1e738
incq %rsi
cmpq %rsi, %rax
jne 0x1e6ca
movq (%r8), %rax
movslq 0x64(%rax), %rax
testq %rax, %rax
jle 0x1e729
imull %eax, %r12d
movslq %r12d, %rcx
leaq 0x68(,%rcx,8), %rcx
xorl %edx, %edx
movq (%r8), %rsi
movq 0x68(%rsi,%rdx,8), %rsi
movq (%r14), %rdi
addq %rcx, %rdi
movq %rsi, (%rdi,%rdx,8)
incq %rdx
cmpq %rdx, %rax
jne 0x1e6f8
jmp 0x1e729
movq (%r14), %rax
movl -0x2c(%rbp), %ecx
cmpl (%rax), %ecx
jne 0x1e738
movq (%r14), %rax
movslq %r12d, %rcx
movq %r8, 0x68(%rax,%rcx,8)
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
leaq 0xc448(%rip), %rdi      # 0x2ab87
callq 0x77c8
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: convert_body
void
convert_body(struct atom *A)
{
	if (!iscons(A))
		return;

	push(car(A));
	push_symbol(ARG1);
	subst();

	A = cdr(A);
	if (!iscons(A))
		return;

	push(car(A));
	push_symbol(ARG2);
	subst();

	A = cdr(A);
	if (!iscons(A))
		return;

	push(car(A));
	push_symbol(ARG3);
	subst();

	A = cdr(A);
	if (!iscons(A))
		return;

	push(car(A));
	push_symbol(ARG4);
	subst();

	A = cdr(A);
	if (!iscons(A))
		return;

	push(car(A));
	push_symbol(ARG5);
	subst();

	A = cdr(A);

	if (!iscons(A))
		return;

	push(car(A));
	push_symbol(ARG6);
	subst();

	A = cdr(A);
	if (!iscons(A))
		return;

	push(car(A));
	push_symbol(ARG7);
	subst();

	A = cdr(A);
	if (!iscons(A))
		return;

	push(car(A));
	push_symbol(ARG8);
	subst();

	A = cdr(A);
	if (!iscons(A))
		return;

	push(car(A));
	push_symbol(ARG9);
	subst();
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r14
pushq %rbx
cmpb $0x1, 0x10(%rdi)
jne 0x1e90e
movq %rdi, %rbx
movq (%rdi), %rdi
callq 0x8b01
movq 0x24b81(%rip), %rdi     # 0x432e8
callq 0x8b01
callq 0x9402
cmpb $0x1, 0x10(%rbx)
leaq 0x8(%rbx), %rax
leaq 0x22280(%rip), %rbx     # 0x40a00
cmovneq %rbx, %rax
movq (%rax), %r14
cmpb $0x1, 0x10(%r14)
jne 0x1e90e
movq (%r14), %rdi
callq 0x8b01
movq 0x24b4f(%rip), %rdi     # 0x432f0
callq 0x8b01
callq 0x9402
leaq 0x8(%r14), %rax
cmpb $0x1, 0x10(%r14)
cmovneq %rbx, %rax
movq (%rax), %r14
cmpb $0x1, 0x10(%r14)
jne 0x1e90e
movq (%r14), %rdi
callq 0x8b01
movq 0x24b23(%rip), %rdi     # 0x432f8
callq 0x8b01
callq 0x9402
leaq 0x8(%r14), %rax
cmpb $0x1, 0x10(%r14)
cmovneq %rbx, %rax
movq (%rax), %r14
cmpb $0x1, 0x10(%r14)
jne 0x1e90e
movq (%r14), %rdi
callq 0x8b01
movq 0x24af7(%rip), %rdi     # 0x43300
callq 0x8b01
callq 0x9402
leaq 0x8(%r14), %rax
cmpb $0x1, 0x10(%r14)
cmovneq %rbx, %rax
movq (%rax), %r14
cmpb $0x1, 0x10(%r14)
jne 0x1e90e
movq (%r14), %rdi
callq 0x8b01
movq 0x24acb(%rip), %rdi     # 0x43308
callq 0x8b01
callq 0x9402
leaq 0x8(%r14), %rax
cmpb $0x1, 0x10(%r14)
cmovneq %rbx, %rax
movq (%rax), %r14
cmpb $0x1, 0x10(%r14)
jne 0x1e90e
movq (%r14), %rdi
callq 0x8b01
movq 0x24a9f(%rip), %rdi     # 0x43310
callq 0x8b01
callq 0x9402
leaq 0x8(%r14), %rax
cmpb $0x1, 0x10(%r14)
cmovneq %rbx, %rax
movq (%rax), %r14
cmpb $0x1, 0x10(%r14)
jne 0x1e90e
movq (%r14), %rdi
callq 0x8b01
movq 0x24a77(%rip), %rdi     # 0x43318
callq 0x8b01
callq 0x9402
leaq 0x8(%r14), %rax
cmpb $0x1, 0x10(%r14)
cmovneq %rbx, %rax
movq (%rax), %r14
cmpb $0x1, 0x10(%r14)
jne 0x1e90e
movq (%r14), %rdi
callq 0x8b01
movq 0x24a4f(%rip), %rdi     # 0x43320
callq 0x8b01
callq 0x9402
leaq 0x8(%r14), %rax
cmpb $0x1, 0x10(%r14)
cmoveq %rax, %rbx
movq (%rbx), %rax
cmpb $0x1, 0x10(%rax)
jne 0x1e90e
movq (%rax), %rdi
callq 0x8b01
movq 0x24a28(%rip), %rdi     # 0x43328
callq 0x8b01
popq %rbx
popq %r14
popq %rbp
jmp 0x9402
popq %rbx
popq %r14
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: sgnfunc
void
sgnfunc(void)
{
	int i, n;
	struct atom *p1, *p2;

	p1 = pop();

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

	p2 = p1;

	if (!isnum(p2)) {
		push(p2);
		floatfunc();
		p2 = pop();
	}

	if (!isnum(p2)) {
		push_symbol(SGN);
		push(p1);
		list(2);
		return;
	}

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

	if (isnegativenumber(p2))
		push_integer(-1);
	else
		push_integer(1);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
callq 0x8b78
movq %rax, %rbx
movzbl 0x10(%rax), %eax
leal -0x4(%rax), %ecx
movq %rbx, %r14
cmpl $0x2, %ecx
jb 0x1e9cc
cmpl $0x7, %eax
jne 0x1e9b7
movq %rbx, %rdi
callq 0x953d
movq %rax, %rbx
movq (%rax), %rax
movslq 0x64(%rax), %r14
testq %r14, %r14
jle 0x1e9af
xorl %r15d, %r15d
movq (%rbx), %rax
movq 0x68(%rax,%r15,8), %rdi
callq 0x8b01
callq 0x1e948
callq 0x8b78
movq (%rbx), %rcx
movq %rax, 0x68(%rcx,%r15,8)
incq %r15
cmpq %r15, %r14
jne 0x1e988
movq %rbx, %rdi
jmp 0x1ea4d
movq %rbx, %rdi
callq 0x8b01
callq 0xa7fa
callq 0x8b78
movq %rax, %r14
movzbl 0x10(%r14), %r15d
movl %r15d, %eax
andb $-0x2, %al
cmpb $0x4, %al
jne 0x1e9ef
movq %r14, %rdi
callq 0xaece
testl %eax, %eax
je 0x1ea17
movq 0x1f753(%rip), %rdi     # 0x3e140
jmp 0x1ea4d
movq 0x22fba(%rip), %rdi     # 0x419b0
callq 0x8b01
movq %rbx, %rdi
callq 0x8b01
movl $0x2, %edi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x8ad9
cmpl $0x5, %r15d
je 0x1ea2d
cmpl $0x4, %r15d
jne 0x1ea46
cmpb $0x1, 0x12(%r14)
sete %al
jmp 0x1ea39
xorpd %xmm0, %xmm0
ucomisd (%r14), %xmm0
seta %al
testb %al, %al
je 0x1ea46
movq 0xf29ac(%rip), %rdi     # 0x1113f0
jmp 0x1ea4d
movq 0xe808b(%rip), %rdi     # 0x106ad8
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x8b01
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: simplify
void
simplify(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]);
			simplify();
			p1->u.tensor->elem[i] = pop();
		}
		push(p1);
		return;
	}

	push(p1);
	simplify_trig(); // do this first otherwise compton-demo runs out of memory
	simplify_nib();
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
callq 0x8b78
cmpb $0x7, 0x10(%rax)
jne 0x1eaf9
movq %rax, %rdi
callq 0x953d
movq %rax, %rbx
movq (%rax), %rax
movslq 0x64(%rax), %r14
testq %r14, %r14
jle 0x1eae7
xorl %r15d, %r15d
movq (%rbx), %rax
movq 0x68(%rax,%r15,8), %rdi
callq 0x8b01
callq 0x1ea91
callq 0x8b78
movq (%rbx), %rcx
movq %rax, 0x68(%rcx,%r15,8)
incq %r15
cmpq %r15, %r14
jne 0x1eac0
movq %rbx, %rdi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x8b01
movq %rax, %rdi
callq 0x8b01
callq 0x1eb15
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x1eb74
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: simplify_trig
void
simplify_trig(void)
{
	struct atom *p1, *p2;

	p1 = pop();

	if (!iscons(p1)) {
		push(p1);
		return;
	}

	push(p1);
	expform();
	numden();
	swap();
	divide();
	p2 = pop();

	if (simpler(p2, p1))
		push(p2);
	else
		push(p1);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r14
pushq %rbx
callq 0x8b78
movq %rax, %rbx
movb 0x10(%rax), %r14b
movq %rax, %rdi
callq 0x8b01
cmpb $0x1, %r14b
jne 0x1eb6f
callq 0x1319a
callq 0xdee7
callq 0xad38
callq 0xd9a4
callq 0x8b78
movq %rax, %r14
movq %rax, %rdi
movq %rbx, %rsi
callq 0x1ee93
testl %eax, %eax
cmoveq %rbx, %r14
movq %r14, %rdi
popq %rbx
popq %r14
popq %rbp
jmp 0x8b01
popq %rbx
popq %r14
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: simpler
int
simpler(struct atom *p1, struct atom *p2)
{
	int d1, d2;

	d1 = diameter(p1);
	d2 = diameter(p2);

	if (d1 == d2) {
		d1 = mass(p1);
		d2 = mass(p2);
	}

	return d1 < d2;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
movq %rsi, %r14
movq %rdi, %r15
callq 0x1eedc
movl %eax, %ebx
movq %r14, %rdi
callq 0x1eedc
cmpl %eax, %ebx
jne 0x1eec8
movq %r15, %rdi
callq 0x1efb5
movl %eax, %ebx
movq %r14, %rdi
callq 0x1efb5
xorl %ecx, %ecx
cmpl %eax, %ebx
setl %cl
movl %ecx, %eax
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: diameter
int
diameter(struct atom *p)
{
	int max = 0, n;

	if (car(p) == symbol(POWER) && isnegativenumber(caddr(p)))
		return 1 + diameter(cadr(p));

	while (iscons(p)) {
		n = diameter(car(p));
		if (n > max)
			max = n;
		p = cdr(p);
	}

	return max;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
movq %rdi, %rbx
xorl %r15d, %r15d
leaq 0x21b0d(%rip), %rax     # 0x40a00
xorpd %xmm0, %xmm0
movb 0x10(%rbx), %cl
cmpb $0x1, %cl
movq %rax, %rdx
cmoveq %rbx, %rdx
movq (%rdx), %rdx
cmpq 0x243a2(%rip), %rdx     # 0x432b0
jne 0x1ef7f
leaq 0x8(%rbx), %rdx
cmpb $0x1, %cl
cmovneq %rax, %rdx
movq (%rdx), %rcx
movb 0x10(%rcx), %dl
leaq 0x8(%rcx), %rsi
cmpb $0x1, %dl
movq %rax, %rdi
cmoveq %rsi, %rdi
movq (%rdi), %rdi
cmpb $0x1, 0x10(%rdi)
movq %rax, %rdi
jne 0x1ef45
cmpb $0x1, %dl
cmovneq %rax, %rsi
movq (%rsi), %rdi
movq (%rdi), %rsi
movzbl 0x10(%rsi), %edi
cmpl $0x5, %edi
je 0x1ef60
cmpl $0x4, %edi
jne 0x1ef7f
cmpb $0x1, 0x12(%rsi)
sete %sil
jmp 0x1ef68
ucomisd (%rsi), %xmm0
seta %sil
testb %sil, %sil
je 0x1ef7f
cmpb $0x1, %dl
cmovneq %rax, %rcx
movq (%rcx), %rbx
incl %r15d
jmp 0x1eef7
xorl %r14d, %r14d
cmpb $0x1, 0x10(%rbx)
jne 0x1efa4
xorl %r14d, %r14d
movq (%rbx), %rdi
callq 0x1eedc
cmpl %r14d, %eax
cmovgl %eax, %r14d
movq 0x8(%rbx), %rbx
cmpb $0x1, 0x10(%rbx)
je 0x1ef8b
addl %r15d, %r14d
movl %r14d, %eax
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O1/georgeweigt[P]eigenmath/eigenmath.c
// Function: mass
int
mass(struct atom *p)
{
	int n = 1;
	while (iscons(p)) {
		n += mass(car(p));
		p = cdr(p);
	}
	return n;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r14
pushq %rbx
movl $0x1, %r14d
cmpb $0x1, 0x10(%rdi)
jne 0x1efe0
movq %rdi, %rbx
movq (%rbx), %rdi
callq 0x1efb5
addl %eax, %r14d
movq 0x8(%rbx), %rbx
cmpb $0x1, 0x10(%rbx)
je 0x1efcb
movl %r14d, %eax
popq %rbx
popq %r14
popq %rbp
retq