LLM4Binary/decompile-bench-makefile huggingface dataset:
// File: /workspace/github_c_makefile_star2_O3/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 %r13
pushq %r12
pushq %rbx
pushq %rax
movl %edx, %ecx
movl $0x1, %r15d
shll %cl, %r15d
movq (%rdi), %rax
cmpl $0x0, 0x64(%rax)
jle 0x206b6
movl %esi, %ebx
movq %rdi, %r14
xorl %r12d, %r12d
movl $0xfffe795f, %r13d      # imm = 0xFFFE795F
movl %r12d, %ecx
notl %ecx
testl %ecx, %ebx
jne 0x206aa
movl %r15d, %ecx
andl %r12d, %ecx
je 0x206aa
movq 0x68(%rax,%r12,8), %rdi
callq 0x8ba5
movq 0xf5d82(%rip), %rdi     # 0x1163f0
callq 0x8ba5
movl $0x2, %edi
callq 0xacef
movl 0x1ec35(%rip), %eax     # 0x3f2b8
leal (%rax,%r13), %ecx
cmpl %r13d, %ecx
jbe 0x206c5
decl %eax
movl %eax, 0x1ec24(%rip)     # 0x3f2b8
leaq 0x27f25(%rip), %rcx     # 0x485c0
movq (%rcx,%rax,8), %rax
movq (%r14), %rcx
movq %rax, 0x68(%rcx,%r12,8)
movq (%r14), %rax
incq %r12
movslq 0x64(%rax), %rcx
cmpq %rcx, %r12
jl 0x2064c
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
leaq 0xe875(%rip), %rdi      # 0x2ef41
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/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 0x25319(%rip), %rcx     # 0x45a00
cmovneq %rcx, %rax
movq (%rax), %rax
cmpb $0x1, 0x10(%rax)
cmoveq %rax, %rcx
movq (%rcx), %rdi
callq 0x8ba5
callq 0x96e2
movl 0x1ebaf(%rip), %eax     # 0x3f2b8
movl $0xfffe795f, %ecx       # imm = 0xFFFE795F
leal (%rax,%rcx), %edx
cmpl %ecx, %edx
jbe 0x2079b
decl %eax
movl %eax, 0x1eb97(%rip)     # 0x3f2b8
leaq 0x27e98(%rip), %rcx     # 0x485c0
movq (%rcx,%rax,8), %r14
cmpb $0x6, 0x10(%r14)
jne 0x207a7
callq 0x74dc
movq %rax, %rbx
movb $0x6, 0x10(%rax)
movq $0x0, (%rax)
incl 0x22a00(%rip)           # 0x4314c
movq (%r14), %rdi
callq 0x207bf
testq %rax, %rax
je 0x207b3
movq %rax, %r14
movq %rax, (%rbx)
movq %rbx, %rdi
callq 0x8ba5
movq %r14, %rdi
callq 0x20857
movl 0x1eb43(%rip), %eax     # 0x3f2b8
leal -0x186a1(%rax), %ecx
cmpl $0xfffe7960, %ecx       # imm = 0xFFFE7960
jb 0x2079b
decl %eax
movl %eax, 0x1eb2d(%rip)     # 0x3f2b8
movq 0x2526e(%rip), %rdi     # 0x45a00
popq %rbx
popq %r14
popq %rbp
jmp 0x8ba5
leaq 0xe79f(%rip), %rdi      # 0x2ef41
callq 0x780b
leaq 0xe277(%rip), %rdi      # 0x2ea25
callq 0x780b
leaq 0xe283(%rip), %rdi      # 0x2ea3d
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/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 0x2080e
movl %eax, %ebx
movl %eax, %edi
xorl %esi, %esi
movl $0x2, %edx
callq 0x7110
cmpq $0x1000001, %rax        # imm = 0x1000001
jae 0x20804
movq %rax, %r15
movl %ebx, %edi
xorl %esi, %esi
xorl %edx, %edx
callq 0x7110
testq %rax, %rax
je 0x2081c
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 0x20804
movq %rax, %r14
movl %ebx, %edi
movq %rax, %rsi
movq %r15, %rdx
callq 0x7190
cmpq %r15, %rax
jne 0x2084d
movl %ebx, %edi
callq 0x7140
movb $0x0, (%r14,%r15)
jmp 0x2080e
movq %r14, %rdi
callq 0x7040
jmp 0x20804
// File: /workspace/github_c_makefile_star2_O3/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
subq $0x18, %rsp
movq 0xf6061(%rip), %rax     # 0x1168d0
movq %rax, -0x38(%rbp)
movq 0xf605e(%rip), %rax     # 0x1168d8
movq %rax, -0x30(%rbp)
callq 0x28619
testq %rax, %rax
je 0x20911
movq %rax, %rbx
movl $0xfffe795f, %r12d      # imm = 0xFFFE795F
leaq 0x27d24(%rip), %r13     # 0x485c0
leaq 0xeb24d(%rip), %r14     # 0x10baf0
leaq 0xf06a6(%rip), %r15     # 0x110f50
callq 0x1c015
callq 0x96a4
callq 0x1c015
movl 0x1e9f9(%rip), %eax     # 0x3f2b8
leal (%rax,%r12), %ecx
cmpl %r12d, %ecx
jbe 0x20936
decl %eax
movl %eax, 0x1e9e8(%rip)     # 0x3f2b8
movq (%r13,%rax,8), %rcx
movq 0x25124(%rip), %rax     # 0x45a00
cmpq %rax, %rcx
je 0x208fc
movq 0x24ad8(%rip), %rdx     # 0x453c0
cmpb $0x3, 0x10(%rdx)
jne 0x20942
movl 0x8(%rdx), %esi
movq %rcx, (%r14,%rsi,8)
movl 0x8(%rdx), %ecx
movq %rax, (%r15,%rcx,8)
callq 0x1e8ac
movq %rbx, %rdi
callq 0x28619
movq %rax, %rbx
testq %rax, %rax
jne 0x208aa
movq -0x38(%rbp), %rax
movq %rax, 0xf5fb4(%rip)     # 0x1168d0
movq -0x30(%rbp), %rax
movq %rax, 0xf5fb1(%rip)     # 0x1168d8
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
leaq 0xe604(%rip), %rdi      # 0x2ef41
callq 0x780b
leaq 0xe651(%rip), %rdi      # 0x2ef9a
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/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 0x2509e(%rip), %r15     # 0x45a00
movq 0x25097(%rip), %rdi     # 0x45a00
callq 0x8ba5
cmpb $0x1, 0x10(%rbx)
leaq 0x8(%rbx), %r14
movq %r15, %rax
cmoveq %r14, %rax
movq (%rax), %rax
movb 0x10(%rax), %cl
cmpb $0x1, %cl
jne 0x209c1
movq (%rax), %rdx
cmpb $0x1, 0x10(%rdx)
leaq 0x2506a(%rip), %rsi     # 0x45a00
cmoveq %rdx, %rsi
movq (%rsi), %rdx
cmpq 0x27914(%rip), %rdx     # 0x482b8
je 0x20a1a
cmpb $0x1, %cl
jne 0x209dc
movq (%rax), %rcx
movzbl 0x10(%rcx), %ecx
cmpl $0x3, %ecx
je 0x20a14
cmpl $0x1, %ecx
je 0x209eb
jmp 0x20ac1
movq 0x25038(%rip), %rsi     # 0x45a00
movb 0x10(%rsi), %dl
cmpb $0x1, %dl
jne 0x209fd
movq (%rsi), %rdx
cmpq 0x278de(%rip), %rdx     # 0x482b8
je 0x20a1a
movq 0x2501d(%rip), %rdx     # 0x45a00
movb 0x10(%rdx), %dl
cmpb $0x1, %dl
jne 0x20a06
movq %rbx, %rdi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x20d21
cmpq 0x278b4(%rip), %rsi     # 0x482b8
je 0x20a1a
cmpb $0x3, %dl
jne 0x20ac1
cmpb $0x1, %cl
jne 0x20a2c
movq 0x8(%rax), %rax
jmp 0x20a33
movq %rbx, %rdi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x20ae5
movq 0x24fcd(%rip), %rax     # 0x45a00
cmpb $0x1, 0x10(%rax)
jne 0x20a3c
movq %rax, %r15
movq (%r15), %rdi
callq 0x8ba5
callq 0x96a4
movl 0x1e869(%rip), %eax     # 0x3f2b8
movl $0xfffe795f, %ecx       # imm = 0xFFFE795F
leal (%rax,%rcx), %edx
cmpl %ecx, %edx
jbe 0x20acd
decl %eax
movl %eax, 0x1e855(%rip)     # 0x3f2b8
cmpb $0x1, 0x10(%rbx)
leaq 0x24f92(%rip), %rcx     # 0x45a00
cmovneq %rcx, %r14
movq (%r14), %rdx
cmpb $0x1, 0x10(%rdx)
cmoveq %rdx, %rcx
movq (%rcx), %rcx
cmpb $0x3, 0x10(%rcx)
jne 0x20ad9
movq 0x24f73(%rip), %rdx     # 0x45a00
movl %eax, %eax
leaq 0x27b2a(%rip), %rsi     # 0x485c0
movq (%rsi,%rax,8), %rax
movl 0x8(%rcx), %esi
leaq 0xeb04c(%rip), %rdi     # 0x10baf0
movq %rax, (%rdi,%rsi,8)
movl 0x8(%rcx), %eax
leaq 0xf049e(%rip), %rcx     # 0x110f50
movq %rdx, (%rcx,%rax,8)
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
leaq 0xdf8b(%rip), %rdi      # 0x2ea53
callq 0x780b
leaq 0xe46d(%rip), %rdi      # 0x2ef41
callq 0x780b
leaq 0xe4ba(%rip), %rdi      # 0x2ef9a
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/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
cmpb $0x1, 0x10(%rdi)
leaq 0x8(%rdi), %rcx
leaq 0x24cc6(%rip), %rax     # 0x45a00
cmovneq %rax, %rcx
movq (%rcx), %rcx
cmpb $0x1, 0x10(%rcx)
jne 0x20d7a
movq (%rcx), %rdx
movq 0x8(%rcx), %rsi
leaq 0x8(%rdx), %rdi
cmpb $0x1, 0x10(%rdx)
leaq 0x24ca3(%rip), %rax     # 0x45a00
cmovneq %rax, %rdx
cmovneq %rax, %rdi
movq (%rdx), %r15
movq (%rdi), %rbx
cmpb $0x1, 0x10(%rsi)
jne 0x20db8
addq $0x8, %rcx
movq %rcx, %rax
jmp 0x20db5
movq 0x24c7f(%rip), %r15     # 0x45a00
cmpb $0x1, 0x10(%r15)
jne 0x20da5
movq (%r15), %r15
movq 0x24c6e(%rip), %rbx     # 0x45a00
cmpb $0x1, 0x10(%rbx)
jne 0x20da8
movq 0x24c61(%rip), %rcx     # 0x45a00
movq 0x8(%rcx), %rbx
jmp 0x20da8
movq %r15, %rbx
movq 0x24c51(%rip), %rcx     # 0x45a00
cmpb $0x1, 0x10(%rcx)
jne 0x20db8
movq (%rax), %rax
cmpb $0x3, 0x10(%r15)
jne 0x20e50
movq (%rax), %r14
cmpb $0x1, 0x10(%rbx)
jne 0x20de9
movl $0xffffffff, %eax       # imm = 0xFFFFFFFF
movq %rbx, %rcx
movq 0x8(%rcx), %rcx
incl %eax
cmpb $0x1, 0x10(%rcx)
je 0x20dd4
cmpl $0x9, %eax
jae 0x20e74
movq %r14, %rdi
callq 0x8ba5
movq %rbx, %rdi
callq 0x20fbb
movl 0x1e4b9(%rip), %eax     # 0x3f2b8
movl $0xfffe795f, %ecx       # imm = 0xFFFE795F
leal (%rax,%rcx), %edx
cmpl %ecx, %edx
jbe 0x20e5c
decl %eax
movl %eax, 0x1e4a5(%rip)     # 0x3f2b8
cmpb $0x3, 0x10(%r15)
jne 0x20e68
movl %eax, %eax
leaq 0x2779d(%rip), %rcx     # 0x485c0
movq (%rcx,%rax,8), %rax
movl 0x8(%r15), %ecx
leaq 0xeacbe(%rip), %rdx     # 0x10baf0
movq %r14, (%rdx,%rcx,8)
movl 0x8(%r15), %ecx
leaq 0xf010f(%rip), %rdx     # 0x110f50
movq %rax, (%rdx,%rcx,8)
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
leaq 0xdbfc(%rip), %rdi      # 0x2ea53
callq 0x780b
leaq 0xe0de(%rip), %rdi      # 0x2ef41
callq 0x780b
leaq 0xe12b(%rip), %rdi      # 0x2ef9a
callq 0x780b
leaq 0xdbed(%rip), %rdi      # 0x2ea68
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/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 0x20faf
movq %rsi, -0x38(%rbp)
movl 0x1e413(%rip), %ecx     # 0x3f2b8
subl %edx, %ecx
jle 0x20faf
movq %rdi, %r14
movq (%rdi), %rax
cmpl (%rax), %ecx
jg 0x20faf
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 0x276de(%rip), %rcx     # 0x485c0
movq (%rcx,%rax), %rdi
callq 0x8ba5
callq 0xf8e6
testl %eax, %eax
jle 0x20faf
movq (%r14), %rcx
movl 0x4(%rcx,%rbx,4), %edx
cmpl %edx, %eax
jg 0x20faf
imull %r12d, %edx
leal (%rax,%rdx), %r12d
decl %r12d
incq %rbx
cmpq %rbx, %r15
jne 0x20ed0
movl -0x30(%rbp), %eax
movl %eax, 0x1e395(%rip)     # 0x3f2b8
movq -0x38(%rbp), %r8
cmpb $0x7, 0x10(%r8)
jne 0x20f91
movq (%r8), %rax
movl (%rax), %edx
movl -0x2c(%rbp), %esi
addl %edx, %esi
cmpl (%rcx), %esi
jne 0x20faf
testl %edx, %edx
jle 0x20f5b
leaq (%rcx,%r15,4), %rcx
addq $0x4, %rcx
xorl %esi, %esi
movl (%rcx,%rsi,4), %edi
cmpl 0x4(%rax,%rsi,4), %edi
jne 0x20faf
incq %rsi
cmpq %rsi, %rdx
jne 0x20f4a
movslq 0x64(%rax), %rax
testq %rax, %rax
jle 0x20fa0
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 0x20f75
jmp 0x20fa0
movl -0x2c(%rbp), %eax
cmpl (%rcx), %eax
jne 0x20faf
movslq %r12d, %rax
movq %r8, 0x68(%rcx,%rax,8)
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
leaq 0xdbf1(%rip), %rdi      # 0x2eba7
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/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 0x21185
movq %rdi, %rbx
movq (%rdi), %rdi
callq 0x8ba5
movq 0x2730a(%rip), %rdi     # 0x482e8
callq 0x8ba5
callq 0x9493
cmpb $0x1, 0x10(%rbx)
leaq 0x8(%rbx), %rax
leaq 0x24a09(%rip), %rbx     # 0x45a00
cmovneq %rbx, %rax
movq (%rax), %r14
cmpb $0x1, 0x10(%r14)
jne 0x21185
movq (%r14), %rdi
callq 0x8ba5
movq 0x272d8(%rip), %rdi     # 0x482f0
callq 0x8ba5
callq 0x9493
leaq 0x8(%r14), %rax
cmpb $0x1, 0x10(%r14)
cmovneq %rbx, %rax
movq (%rax), %r14
cmpb $0x1, 0x10(%r14)
jne 0x21185
movq (%r14), %rdi
callq 0x8ba5
movq 0x272ac(%rip), %rdi     # 0x482f8
callq 0x8ba5
callq 0x9493
leaq 0x8(%r14), %rax
cmpb $0x1, 0x10(%r14)
cmovneq %rbx, %rax
movq (%rax), %r14
cmpb $0x1, 0x10(%r14)
jne 0x21185
movq (%r14), %rdi
callq 0x8ba5
movq 0x27280(%rip), %rdi     # 0x48300
callq 0x8ba5
callq 0x9493
leaq 0x8(%r14), %rax
cmpb $0x1, 0x10(%r14)
cmovneq %rbx, %rax
movq (%rax), %r14
cmpb $0x1, 0x10(%r14)
jne 0x21185
movq (%r14), %rdi
callq 0x8ba5
movq 0x27254(%rip), %rdi     # 0x48308
callq 0x8ba5
callq 0x9493
leaq 0x8(%r14), %rax
cmpb $0x1, 0x10(%r14)
cmovneq %rbx, %rax
movq (%rax), %r14
cmpb $0x1, 0x10(%r14)
jne 0x21185
movq (%r14), %rdi
callq 0x8ba5
movq 0x27228(%rip), %rdi     # 0x48310
callq 0x8ba5
callq 0x9493
leaq 0x8(%r14), %rax
cmpb $0x1, 0x10(%r14)
cmovneq %rbx, %rax
movq (%rax), %r14
cmpb $0x1, 0x10(%r14)
jne 0x21185
movq (%r14), %rdi
callq 0x8ba5
movq 0x27200(%rip), %rdi     # 0x48318
callq 0x8ba5
callq 0x9493
leaq 0x8(%r14), %rax
cmpb $0x1, 0x10(%r14)
cmovneq %rbx, %rax
movq (%rax), %r14
cmpb $0x1, 0x10(%r14)
jne 0x21185
movq (%r14), %rdi
callq 0x8ba5
movq 0x271d8(%rip), %rdi     # 0x48320
callq 0x8ba5
callq 0x9493
leaq 0x8(%r14), %rax
cmpb $0x1, 0x10(%r14)
cmoveq %rax, %rbx
movq (%rbx), %rax
cmpb $0x1, 0x10(%rax)
jne 0x21185
movq (%rax), %rdi
callq 0x8ba5
movq 0x271b1(%rip), %rdi     # 0x48328
callq 0x8ba5
popq %rbx
popq %r14
popq %rbp
jmp 0x9493
popq %rbx
popq %r14
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O3/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 %r13
pushq %r12
pushq %rbx
pushq %rax
movl 0x1e0e5(%rip), %eax     # 0x3f2b8
movl $0xfffe795f, %ecx       # imm = 0xFFFE795F
leal (%rax,%rcx), %edx
cmpl %ecx, %edx
jbe 0x21333
decl %eax
movl %eax, 0x1e0cd(%rip)     # 0x3f2b8
leaq 0x273ce(%rip), %r15     # 0x485c0
movq (%r15,%rax,8), %rbx
movb 0x10(%rbx), %r12b
movzbl %r12b, %eax
leal -0x4(%rax), %ecx
movq %rbx, %r14
cmpl $0x2, %ecx
jb 0x212ae
cmpl $0x7, %eax
jne 0x2127b
movq %rbx, %rdi
callq 0x9638
movq %rax, %rbx
movq (%rax), %rax
movslq 0x64(%rax), %r14
testq %r14, %r14
jle 0x21273
xorl %r12d, %r12d
movl $0xfffe795f, %r13d      # imm = 0xFFFE795F
movq (%rbx), %rax
movq 0x68(%rax,%r12,8), %rdi
callq 0x8ba5
callq 0x211bf
movl 0x1e06e(%rip), %eax     # 0x3f2b8
leal (%rax,%r13), %ecx
cmpl %r13d, %ecx
jbe 0x21333
decl %eax
movl %eax, 0x1e059(%rip)     # 0x3f2b8
movq (%r15,%rax,8), %rax
movq (%rbx), %rcx
movq %rax, 0x68(%rcx,%r12,8)
incq %r12
cmpq %r12, %r14
jne 0x21232
movq %rbx, %rdi
jmp 0x21320
movq %rbx, %rdi
callq 0x8ba5
callq 0xac30
movl 0x1e02a(%rip), %eax     # 0x3f2b8
movl $0xfffe795f, %ecx       # imm = 0xFFFE795F
leal (%rax,%rcx), %edx
cmpl %ecx, %edx
jbe 0x21333
decl %eax
movl %eax, 0x1e012(%rip)     # 0x3f2b8
movq (%r15,%rax,8), %r14
movb 0x10(%r14), %r12b
movl %r12d, %eax
andb $-0x2, %al
cmpb $0x4, %al
jne 0x212cc
movq %r14, %rdi
callq 0xb477
testl %eax, %eax
je 0x212f8
movq 0x21e76(%rip), %rdi     # 0x43140
jmp 0x21320
movq 0x256dd(%rip), %rdi     # 0x469b0
callq 0x8ba5
movq %rbx, %rdi
callq 0x8ba5
movl $0x2, %edi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x8b7d
cmpb $0x4, %r12b
jne 0x2130e
cmpb $0x1, 0x12(%r14)
je 0x21319
movq 0xea7cc(%rip), %rdi     # 0x10bad8
jmp 0x21320
xorpd %xmm0, %xmm0
ucomisd (%r14), %xmm0
jbe 0x21305
movq 0xf50d0(%rip), %rdi     # 0x1163f0
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x8ba5
leaq 0xdc07(%rip), %rdi      # 0x2ef41
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/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 %r13
pushq %r12
pushq %rbx
pushq %rax
movl 0x1df30(%rip), %eax     # 0x3f2b8
movl $0xfffe795f, %ecx       # imm = 0xFFFE795F
leal (%rax,%rcx), %edx
cmpl %ecx, %edx
jbe 0x2143e
decl %eax
movl %eax, 0x1df18(%rip)     # 0x3f2b8
leaq 0x27219(%rip), %r14     # 0x485c0
movq (%r14,%rax,8), %rdi
cmpb $0x7, 0x10(%rdi)
jne 0x21421
callq 0x9638
movq %rax, %rbx
movq (%rax), %rax
movslq 0x64(%rax), %r15
testq %r15, %r15
jle 0x2140b
xorl %r12d, %r12d
movl $0xfffe795f, %r13d      # imm = 0xFFFE795F
movq (%rbx), %rax
movq 0x68(%rax,%r12,8), %rdi
callq 0x8ba5
callq 0x21374
movl 0x1ded2(%rip), %eax     # 0x3f2b8
leal (%rax,%r13), %ecx
cmpl %r13d, %ecx
jbe 0x2143e
decl %eax
movl %eax, 0x1dec1(%rip)     # 0x3f2b8
movq (%r14,%rax,8), %rax
movq (%rbx), %rcx
movq %rax, 0x68(%rcx,%r12,8)
incq %r12
cmpq %r12, %r15
jne 0x213ce
movq %rbx, %rdi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x8ba5
callq 0x8ba5
callq 0x2144a
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x214fe
leaq 0xdafc(%rip), %rdi      # 0x2ef41
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/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 %r15
pushq %r14
pushq %rbx
pushq %rax
movl 0x1de5e(%rip), %eax     # 0x3f2b8
movl $0xfffe795f, %ecx       # imm = 0xFFFE795F
leal (%rax,%rcx), %edx
cmpl %ecx, %edx
jbe 0x214f2
decl %eax
movl %eax, 0x1de46(%rip)     # 0x3f2b8
leaq 0x27147(%rip), %r14     # 0x485c0
movq (%r14,%rax,8), %rbx
movb 0x10(%rbx), %r15b
movq %rbx, %rdi
callq 0x8ba5
cmpb $0x1, %r15b
jne 0x214d5
callq 0x146a2
callq 0xe915
callq 0xb238
callq 0xe218
movl 0x1de0f(%rip), %eax     # 0x3f2b8
movl $0xfffe795f, %ecx       # imm = 0xFFFE795F
leal (%rax,%rcx), %edx
cmpl %ecx, %edx
jbe 0x214f2
decl %eax
movl %eax, 0x1ddfb(%rip)     # 0x3f2b8
movq (%r14,%rax,8), %r14
movq %r14, %rdi
movq %rbx, %rsi
callq 0x2197b
testl %eax, %eax
je 0x214e0
movq %r14, %rdi
jmp 0x214e3
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 0x8ba5
leaq 0xda48(%rip), %rdi      # 0x2ef41
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/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 0x219c4
movl %eax, %ebx
movq %r14, %rdi
callq 0x219c4
cmpl %eax, %ebx
jne 0x219b0
movq %r15, %rdi
callq 0x21ac9
movl %eax, %ebx
movq %r14, %rdi
callq 0x21ac9
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_O3/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
movq 0x268d8(%rip), %rax     # 0x482b0
movb 0x10(%rdi), %dl
cmpb $0x1, %dl
leaq 0x2401b(%rip), %rcx     # 0x45a00
movq %rcx, %rdi
cmoveq %rbx, %rdi
sete %sil
xorl %r14d, %r14d
cmpq %rax, (%rdi)
je 0x21a00
xorl %r15d, %r15d
jmp 0x21a97
xorl %r15d, %r15d
movq 0x23ff6(%rip), %rdx     # 0x45a00
xorpd %xmm0, %xmm0
leaq 0x8(%rbx), %rdi
testb $0x1, %sil
cmoveq %rcx, %rdi
movq (%rdi), %rsi
movb 0x10(%rsi), %dil
cmpb $0x1, %dil
jne 0x21a3b
movq 0x8(%rsi), %r8
cmpb $0x1, 0x10(%r8)
movq %rcx, %r9
jne 0x21a4a
leaq 0x8(%rsi), %r8
jmp 0x21a47
cmpb $0x1, 0x10(%rdx)
movq %rcx, %r8
movq %rcx, %r9
jne 0x21a4a
movq (%r8), %r9
movq (%r9), %r8
movzbl 0x10(%r8), %r9d
cmpl $0x5, %r9d
je 0x21a67
cmpl $0x4, %r9d
jne 0x21a94
cmpb $0x1, 0x12(%r8)
je 0x21a6e
jmp 0x21a94
ucomisd (%r8), %xmm0
jbe 0x21a94
cmpb $0x1, %dil
cmovneq %rcx, %rsi
movq (%rsi), %rbx
incl %r15d
cmpb $0x1, 0x10(%rbx)
sete %sil
movq %rcx, %rdi
cmoveq %rbx, %rdi
cmpq %rax, (%rdi)
je 0x21a0e
movb 0x10(%rbx), %dl
cmpb $0x1, %dl
jne 0x21ab8
xorl %r14d, %r14d
movq (%rbx), %rdi
callq 0x219c4
cmpl %r14d, %eax
cmovgl %eax, %r14d
movq 0x8(%rbx), %rbx
cmpb $0x1, 0x10(%rbx)
je 0x21a9f
addl %r15d, %r14d
movl %r14d, %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: 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 0x21af4
movq %rdi, %rbx
movq (%rbx), %rdi
callq 0x21ac9
addl %eax, %r14d
movq 0x8(%rbx), %rbx
cmpb $0x1, 0x10(%rbx)
je 0x21adf
movl %r14d, %eax
popq %rbx
popq %r14
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O3/georgeweigt[P]eigenmath/eigenmath.c
// Function: sinfunc_sum
void
sinfunc_sum(struct atom *p1)
{
	struct atom *p2, *p3;
	p2 = cdr(p1);
	while (iscons(p2)) {
		push_integer(2);
		push(car(p2));
		multiply();
		push_symbol(PI);
		divide();
		p3 = pop();
		if (isinteger(p3)) {
			push(p1);
			push(car(p2));
			subtract();
			p3 = pop();
			push(p3);
			sinfunc();
			push(car(p2));
			cosfunc();
			multiply();
			push(p3);
			cosfunc();
			push(car(p2));
			sinfunc();
			multiply();
			add();
			return;
		}
		p2 = cdr(p2);
	}
	push_symbol(SIN);
	push(p1);
	list(2);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
cmpb $0x1, 0x10(%rdi)
movq %rdi, -0x30(%rbp)
leaq 0x8(%rdi), %rax
leaq 0x23eae(%rip), %r14     # 0x45a00
cmovneq %r14, %rax
movq (%rax), %r15
cmpb $0x1, 0x10(%r15)
jne 0x21c15
leaq 0x10(%r15), %r12
movl $0xfffe795f, %ebx       # imm = 0xFFFE795F
leaq 0x26a4c(%rip), %r13     # 0x485c0
movl $0x2, %edi
callq 0xb1be
cmpb $0x1, 0x10(%r15)
movq %r14, %rax
cmoveq %r15, %rax
movq (%rax), %rdi
callq 0x8ba5
movl $0x2, %edi
callq 0xacef
movq 0x244ad(%rip), %rdi     # 0x46050
callq 0x8ba5
movq 0xf4841(%rip), %rdi     # 0x1163f0
callq 0x8ba5
callq 0xa573
movl $0x2, %edi
callq 0xacef
movl 0x1d6ef(%rip), %eax     # 0x3f2b8
leal (%rax,%rbx), %ecx
cmpl %ebx, %ecx
jbe 0x21d17
decl %eax
movl %eax, 0x1d6dc(%rip)     # 0x3f2b8
movq (%r13,%rax,8), %rax
cmpb $0x4, 0x10(%rax)
jne 0x21bf6
movq 0x8(%rax), %rax
cmpl $0x1, -0x4(%rax)
jne 0x21bf6
cmpl $0x1, (%rax)
je 0x21c42
addq $0x8, %r15
cmpb $0x1, (%r12)
cmovneq %r14, %r15
movq (%r15), %r15
leaq 0x10(%r15), %r12
cmpb $0x1, 0x10(%r15)
je 0x21b74
movq 0x24da4(%rip), %rdi     # 0x469c0
callq 0x8ba5
movq -0x30(%rbp), %rdi
callq 0x8ba5
movl $0x2, %edi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x8b7d
movq -0x30(%rbp), %rdi
callq 0x8ba5
cmpb $0x1, (%r12)
movq %r14, %rax
cmoveq %r15, %rax
movq (%rax), %rdi
callq 0x8ba5
movq 0xf478a(%rip), %rdi     # 0x1163f0
callq 0x8ba5
movl $0x2, %edi
callq 0xacef
movl $0x2, %edi
callq 0xadb3
movl 0x1d633(%rip), %eax     # 0x3f2b8
movl $0xfffe795f, %ecx       # imm = 0xFFFE795F
leal (%rax,%rcx), %edx
cmpl %ecx, %edx
jbe 0x21d17
decl %eax
movl %eax, 0x1d61b(%rip)     # 0x3f2b8
movq (%r13,%rax,8), %rbx
movq %rbx, %rdi
callq 0x8ba5
callq 0x10ab4
cmpb $0x1, (%r12)
movq %r14, %rax
cmoveq %r15, %rax
movq (%rax), %rdi
callq 0x8ba5
callq 0x10115
movl $0x2, %edi
callq 0xacef
movq %rbx, %rdi
callq 0x8ba5
callq 0x10115
cmpb $0x1, (%r12)
cmoveq %r15, %r14
movq (%r14), %rdi
callq 0x8ba5
callq 0x10ab4
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 0xd223(%rip), %rdi      # 0x2ef41
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/georgeweigt[P]eigenmath/eigenmath.c
// Function: tanfunc_sum
void
tanfunc_sum(struct atom *p1)
{
	struct atom *p2, *p3;
	p2 = cdr(p1);
	while (iscons(p2)) {
		push(car(p2));
		push_symbol(PI);
		divide();
		p3 = pop();
		if (isinteger(p3)) {
			push(p1);
			push(car(p2));
			subtract();
			tanfunc();
			return;
		}
		p2 = cdr(p2);
	}
	push_symbol(TAN);
	push(p1);
	list(2);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
cmpb $0x1, 0x10(%rdi)
movq %rdi, -0x30(%rbp)
leaq 0x8(%rdi), %rax
leaq 0x23107(%rip), %r14     # 0x45a00
cmovneq %r14, %rax
movq (%rax), %r15
cmpb $0x1, 0x10(%r15)
jne 0x22980
leaq 0x10(%r15), %r12
movl $0xfffe795f, %r13d      # imm = 0xFFFE795F
leaq 0x25ca8(%rip), %rbx     # 0x485c0
movq (%r15), %rdi
callq 0x8ba5
movq 0x23729(%rip), %rdi     # 0x46050
callq 0x8ba5
callq 0xe218
movl 0x1c981(%rip), %eax     # 0x3f2b8
leal (%rax,%r13), %ecx
cmpl %r13d, %ecx
jbe 0x229df
decl %eax
movl %eax, 0x1c96c(%rip)     # 0x3f2b8
movq (%rbx,%rax,8), %rax
cmpb $0x4, 0x10(%rax)
jne 0x22965
movq 0x8(%rax), %rax
cmpl $0x1, -0x4(%rax)
jne 0x22965
cmpl $0x1, (%rax)
je 0x229ad
addq $0x8, %r15
cmpb $0x1, (%r12)
cmovneq %r14, %r15
movq (%r15), %r15
leaq 0x10(%r15), %r12
cmpb $0x1, 0x10(%r15)
je 0x22918
movq 0x24349(%rip), %rdi     # 0x46cd0
callq 0x8ba5
movq -0x30(%rbp), %rdi
callq 0x8ba5
movl $0x2, %edi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x8b7d
movq -0x30(%rbp), %rdi
callq 0x8ba5
cmpb $0x1, (%r12)
cmoveq %r15, %r14
movq (%r14), %rdi
callq 0x8ba5
callq 0xbfb4
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x2248e
leaq 0xc55b(%rip), %rdi      # 0x2ef41
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/georgeweigt[P]eigenmath/eigenmath.c
// Function: eval_test
void
eval_test(struct atom *p1)
{
	struct atom *p2;
	p1 = cdr(p1);
	while (iscons(p1)) {
		if (!iscons(cdr(p1))) {
			push(car(p1)); // default case
			evalf();
			return;
		}
		push(car(p1));
		evalp();
		p2 = pop();
		if (!iszero(p2)) {
			push(cadr(p1));
			evalf();
			return;
		}
		p1 = cddr(p1);
	}
	push_symbol(NIL);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
cmpb $0x1, 0x10(%rdi)
leaq 0x8(%rdi), %rax
leaq 0x22827(%rip), %rbx     # 0x45a00
cmovneq %rbx, %rax
movq (%rax), %r12
cmpb $0x1, 0x10(%r12)
jne 0x23276
leaq 0x10(%r12), %r13
movl $0xfffe795f, %r14d      # imm = 0xFFFE795F
movq (%r12), %rdi
movq 0x8(%r12), %rax
movb 0x10(%rax), %r15b
callq 0x8ba5
cmpb $0x1, %r15b
jne 0x2329f
callq 0x9cff
movl 0x1c09a(%rip), %eax     # 0x3f2b8
leal (%rax,%r14), %ecx
cmpl %r14d, %ecx
jbe 0x232b2
addq $0x8, %r12
decl %eax
movl %eax, 0x1c081(%rip)     # 0x3f2b8
leaq 0x25382(%rip), %rcx     # 0x485c0
movq (%rcx,%rax,8), %rdi
callq 0xb477
cmpb $0x1, (%r13)
cmovneq %rbx, %r12
movq (%r12), %rcx
movb 0x10(%rcx), %dl
testl %eax, %eax
je 0x23290
addq $0x8, %rcx
cmpb $0x1, %dl
cmovneq %rbx, %rcx
movq (%rcx), %r12
leaq 0x10(%r12), %r13
cmpb $0x1, 0x10(%r12)
je 0x231f7
movq 0x22783(%rip), %rdi     # 0x45a00
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x8ba5
cmpb $0x1, %dl
cmoveq %rcx, %rbx
movq (%rbx), %rdi
callq 0x8ba5
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x96e2
leaq 0xbc88(%rip), %rdi      # 0x2ef41
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/georgeweigt[P]eigenmath/eigenmath.c
// Function: eval_testeq
void
eval_testeq(struct atom *p1)
{
	push(cadr(p1));
	evalf();
	push(caddr(p1));
	evalf();
	subtract();
	simplify();
	p1 = pop();
	if (iszero(p1))
		push_integer(1);
	else
		push_integer(0);
}

// 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 0x22726(%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
cmpb $0x1, 0x10(%rax)
jne 0x23310
movq 0x8(%rax), %rax
jmp 0x23317
movq 0x226e9(%rip), %rax     # 0x45a00
cmpb $0x1, 0x10(%rax)
jne 0x23320
movq %rax, %r14
movq (%r14), %rdi
callq 0x8ba5
callq 0x96e2
callq 0xbfb4
callq 0x21374
movl 0x1bf7b(%rip), %eax     # 0x3f2b8
movl $0xfffe795f, %ecx       # imm = 0xFFFE795F
leal (%rax,%rcx), %edx
cmpl %ecx, %edx
jbe 0x23387
decl %eax
movl %eax, 0x1bf67(%rip)     # 0x3f2b8
leaq 0x25268(%rip), %rcx     # 0x485c0
movq (%rcx,%rax,8), %rdi
callq 0xb477
testl %eax, %eax
leaq 0x1fdd6(%rip), %rax     # 0x43140
leaq 0xe8767(%rip), %rcx     # 0x10bad8
cmoveq %rax, %rcx
movq (%rcx), %rdi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x8ba5
leaq 0xbbb3(%rip), %rdi      # 0x2ef41
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/georgeweigt[P]eigenmath/eigenmath.c
// Function: cmp_args
int
cmp_args(struct atom *p1)
{
	push(cadr(p1));
	evalf();
	push(caddr(p1));
	evalf();
	subtract();
	floatfunc();
	p1 = pop();
	if (iszero(p1))
		return 0;
	if (!isnum(p1))
		stopf("arithmetic comparison: not a number");
	if (isnegativenumber(p1))
		return -1;
	else
		return 1;
}

// 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 0x2262b(%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
cmpb $0x1, 0x10(%rax)
jne 0x2340b
movq 0x8(%rax), %rax
jmp 0x23412
movq 0x225ee(%rip), %rax     # 0x45a00
cmpb $0x1, 0x10(%rax)
jne 0x2341b
movq %rax, %r14
movq (%r14), %rdi
callq 0x8ba5
callq 0x96e2
callq 0xbfb4
callq 0xac30
movl 0x1be80(%rip), %eax     # 0x3f2b8
movl $0xfffe795f, %ecx       # imm = 0xFFFE795F
leal (%rax,%rcx), %edx
cmpl %ecx, %edx
jbe 0x234a4
decl %eax
movl %eax, 0x1be6c(%rip)     # 0x3f2b8
leaq 0x2516d(%rip), %rcx     # 0x485c0
movq (%rcx,%rax,8), %rbx
movq %rbx, %rdi
callq 0xb477
movl %eax, %ecx
xorl %eax, %eax
testl %ecx, %ecx
jne 0x23499
movb 0x10(%rbx), %al
movl %eax, %ecx
andb $-0x2, %cl
cmpb $0x4, %cl
jne 0x234b0
cmpb $0x4, %al
jne 0x23485
movl $0x1, %eax
cmpb $0x1, 0x12(%rbx)
je 0x23494
jmp 0x23499
movl $0x1, %eax
xorpd %xmm0, %xmm0
ucomisd (%rbx), %xmm0
jbe 0x23499
movl $0xffffffff, %eax       # imm = 0xFFFFFFFF
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
leaq 0xba96(%rip), %rdi      # 0x2ef41
callq 0x780b
leaq 0xb6c1(%rip), %rdi      # 0x2eb78
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/georgeweigt[P]eigenmath/eigenmath.c
// Function: tgammafunc
void
tgammafunc(void)
{
	int i, n;
	double d;
	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]);
			tgammafunc();
			p1->u.tensor->elem[i] = pop();
		}
		push(p1);
		return;
	}

	push(p1);
	floatfunc();
	p2 = pop();

	if (isnum(p2)) {
		push(p2);
		d = pop_double();
		d = tgamma(d);
		push_double(d);
		return;
	}

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

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movl 0x1bd41(%rip), %eax     # 0x3f2b8
movl $0xfffe795f, %ecx       # imm = 0xFFFE795F
leal (%rax,%rcx), %edx
cmpl %ecx, %edx
jbe 0x236a2
decl %eax
movl %eax, 0x1bd29(%rip)     # 0x3f2b8
leaq 0x2502a(%rip), %r14     # 0x485c0
movq (%r14,%rax,8), %rbx
cmpb $0x7, 0x10(%rbx)
jne 0x23606
movq %rbx, %rdi
callq 0x9638
movq %rax, %rbx
movq (%rax), %rax
movslq 0x64(%rax), %r15
testq %r15, %r15
jle 0x23601
xorl %r12d, %r12d
movl $0xfffe795f, %r13d      # imm = 0xFFFE795F
movq (%rbx), %rax
movq 0x68(%rax,%r12,8), %rdi
callq 0x8ba5
callq 0x23563
movl 0x1bce0(%rip), %eax     # 0x3f2b8
leal (%rax,%r13), %ecx
cmpl %r13d, %ecx
jbe 0x236a2
decl %eax
movl %eax, 0x1bccb(%rip)     # 0x3f2b8
movq (%r14,%rax,8), %rax
movq (%rbx), %rcx
movq %rax, 0x68(%rcx,%r12,8)
incq %r12
cmpq %r12, %r15
jne 0x235c0
movq %rbx, %rdi
jmp 0x23663
movq %rbx, %rdi
callq 0x8ba5
callq 0xac30
movl 0x1bc9f(%rip), %eax     # 0x3f2b8
movl $0xfffe795f, %ecx       # imm = 0xFFFE795F
leal (%rax,%rcx), %edx
cmpl %ecx, %edx
jbe 0x236a2
decl %eax
movl %eax, 0x1bc8b(%rip)     # 0x3f2b8
movq (%r14,%rax,8), %rdi
movb 0x10(%rdi), %al
andb $-0x2, %al
cmpb $0x4, %al
jne 0x23676
callq 0x8ba5
callq 0x9128
callq 0x71d0
movsd %xmm0, -0x30(%rbp)
callq 0x74dc
movb $0x5, 0x10(%rax)
movsd -0x30(%rbp), %xmm0
movsd %xmm0, (%rax)
movq %rax, %rdi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x8ba5
movq 0x2369b(%rip), %rdi     # 0x46d18
callq 0x8ba5
movq %rbx, %rdi
callq 0x8ba5
movl $0x2, %edi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x8b7d
leaq 0xb898(%rip), %rdi      # 0x2ef41
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/georgeweigt[P]eigenmath/eigenmath.c
// Function: eval_transpose
void
eval_transpose(struct atom *p1)
{
	int m, n;
	struct atom *p2;

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

	if (!istensor(p2) || p2->u.tensor->ndim < 2)
		return;

	p1 = cddr(p1);

	if (!iscons(p1)) {
		transpose(1, 2);
		return;
	}

	while (iscons(p1)) {

		push(car(p1));
		evalf();
		n = pop_integer();

		push(cadr(p1));
		evalf();
		m = pop_integer();

		transpose(n, m);

		p1 = cddr(p1);
	}
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
movq %rdi, %rbx
leaq 0x8(%rdi), %r12
cmpb $0x1, 0x10(%rdi)
leaq 0x22335(%rip), %r15     # 0x45a00
movq %r15, %rax
cmoveq %r12, %rax
movq (%rax), %rax
cmpb $0x1, 0x10(%rax)
cmovneq %r15, %rax
movq (%rax), %rdi
callq 0x8ba5
callq 0x96e2
movl 0x1bbc8(%rip), %eax     # 0x3f2b8
movl $0xfffe795f, %ecx       # imm = 0xFFFE795F
leal (%rax,%rcx), %edx
cmpl %ecx, %edx
jbe 0x237e1
decl %eax
movl %eax, 0x1bbb0(%rip)     # 0x3f2b8
leaq 0x24eb1(%rip), %rcx     # 0x485c0
movq (%rcx,%rax,8), %r14
movq %r14, %rdi
callq 0x8ba5
cmpb $0x7, 0x10(%r14)
jne 0x237c1
movq (%r14), %rax
cmpl $0x2, (%rax)
jl 0x237c1
cmpb $0x1, 0x10(%rbx)
cmovneq %r15, %r12
movq (%r12), %rax
leaq 0x8(%rax), %rcx
cmpb $0x1, 0x10(%rax)
cmovneq %r15, %rcx
movq (%rcx), %r14
cmpb $0x1, 0x10(%r14)
jne 0x237ca
movq (%r14), %rdi
callq 0x8ba5
callq 0x96e2
callq 0xf8e6
cmpb $0x1, 0x10(%r14)
leaq 0x8(%r14), %r12
movq %r15, %rcx
cmoveq %r12, %rcx
movq (%rcx), %rcx
cmpb $0x1, 0x10(%rcx)
movl %eax, %ebx
cmovneq %r15, %rcx
movq (%rcx), %rdi
callq 0x8ba5
callq 0x96e2
callq 0xf8e6
movl %ebx, %edi
movl %eax, %esi
callq 0x237ed
cmpb $0x1, 0x10(%r14)
cmovneq %r15, %r12
movq (%r12), %rax
leaq 0x8(%rax), %rcx
cmpb $0x1, 0x10(%rax)
cmovneq %r15, %rcx
movq (%rcx), %r14
cmpb $0x1, 0x10(%r14)
je 0x23754
popq %rbx
popq %r12
popq %r14
popq %r15
popq %rbp
retq
movl $0x1, %edi
movl $0x2, %esi
popq %rbx
popq %r12
popq %r14
popq %r15
popq %rbp
jmp 0x237ed
leaq 0xb759(%rip), %rdi      # 0x2ef41
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/georgeweigt[P]eigenmath/eigenmath.c
// Function: eval_unit
void
eval_unit(struct atom *p1)
{
	int i, j, n;

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

	n = pop_integer();

	if (n < 1)
		stopf("unit: index err");

	if (n == 1) {
		push_integer(1);
		return;
	}

	p1 = alloc_matrix(n, n);

	for (i = 0; i < n; i++)
		for (j = 0; j < n; j++)
			if (i == j)
				p1->u.tensor->elem[n * i + j] = one;
			else
				p1->u.tensor->elem[n * i + j] = zero;

	push(p1);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %rbx
pushq %rax
cmpb $0x1, 0x10(%rdi)
leaq 0x8(%rdi), %rax
leaq 0x22019(%rip), %rcx     # 0x45a00
cmovneq %rcx, %rax
movq (%rax), %rax
cmpb $0x1, 0x10(%rax)
cmoveq %rax, %rcx
movq (%rcx), %rdi
callq 0x8ba5
callq 0x96e2
callq 0xf8e6
testl %eax, %eax
jle 0x23a99
movl %eax, %ebx
cmpl $0x1, %eax
jne 0x23a20
movq 0xe80ba(%rip), %rdi     # 0x10bad8
jmp 0x23a8e
movl %ebx, %edi
imull %ebx, %edi
callq 0x7893
movq (%rax), %rcx
movl $0x2, (%rcx)
movq (%rax), %rcx
movl %ebx, 0x4(%rcx)
movq (%rax), %rcx
movl %ebx, 0x8(%rcx)
movl %ebx, %ecx
leaq (,%rcx,8), %rdx
movl $0x68, %esi
xorl %edi, %edi
leaq 0xe8081(%rip), %r8      # 0x10bad8
leaq 0x1f6e2(%rip), %r9      # 0x43140
xorl %r10d, %r10d
cmpq %r10, %rdi
movq %r9, %r11
cmoveq %r8, %r11
movq (%r11), %r11
movq (%rax), %rbx
addq %rsi, %rbx
movq %r11, (%rbx,%r10,8)
incq %r10
cmpq %r10, %rcx
jne 0x23a61
incq %rdi
addq %rdx, %rsi
cmpq %rcx, %rdi
jne 0x23a5e
movq %rax, %rdi
addq $0x8, %rsp
popq %rbx
popq %rbp
jmp 0x8ba5
leaq 0xb113(%rip), %rdi      # 0x2ebb3
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/georgeweigt[P]eigenmath/eigenmath.c
// Function: eval_zero
void
eval_zero(struct atom *p1)
{
	int h, i, m, n;

	p1 = cdr(p1);
	h = tos;
	m = 1;

	while (iscons(p1)) {
		push(car(p1));
		evalf();
		dupl();
		n = pop_integer();
		if (n < 2)
			stopf("zero: dim err");
		m *= n;
		p1 = cdr(p1);
	}

	n = tos - h;

	if (n == 0) {
		push_integer(0); // scalar zero
		return;
	}

	if (n > MAXDIM)
		stopf("zero: rank err");

	p1 = alloc_tensor(m);

	for (i = 0; i < m; i++)
		p1->u.tensor->elem[i] = zero;

	// dim info

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

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

	push(p1);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
cmpb $0x1, 0x10(%rdi)
leaq 0x8(%rdi), %rax
leaq 0x21f3e(%rip), %r14     # 0x45a00
cmovneq %r14, %rax
movq (%rax), %r15
cmpb $0x1, 0x10(%r15)
jne 0x23b2a
movl 0x1b7e1(%rip), %r12d    # 0x3f2b8
leaq 0x10(%r15), %r13
movl $0x1, %ebx
movq (%r15), %rdi
callq 0x8ba5
callq 0x96e2
callq 0x1c015
callq 0xf8e6
cmpl $0x1, %eax
jle 0x23b96
imull %eax, %ebx
addq $0x8, %r15
cmpb $0x1, (%r13)
cmovneq %r14, %r15
movq (%r15), %r15
leaq 0x10(%r15), %r13
cmpb $0x1, 0x10(%r15)
je 0x23ae0
movl 0x1b793(%rip), %r15d    # 0x3f2b8
subl %r12d, %r15d
jne 0x23b33
movq 0x1f60f(%rip), %rdi     # 0x43140
jmp 0x23b83
cmpl $0x19, %r15d
jge 0x23ba2
movl %ebx, %edi
callq 0x7893
movq %rax, %r14
testl %ebx, %ebx
jle 0x23b62
movl %ebx, %eax
movq 0x1f5f0(%rip), %rcx     # 0x43140
xorl %edx, %edx
movq (%r14), %rsi
movq %rcx, 0x68(%rsi,%rdx,8)
incq %rdx
cmpq %rdx, %rax
jne 0x23b52
movq (%r14), %rax
movl %r15d, (%rax)
testl %r15d, %r15d
jle 0x23b80
movl %r15d, %ebx
callq 0xf8e6
movq (%r14), %rcx
movl %eax, (%rcx,%rbx,4)
decq %rbx
jne 0x23b70
movq %r14, %rdi
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x8ba5
leaq 0xb026(%rip), %rdi      # 0x2ebc3
callq 0x780b
leaq 0xb028(%rip), %rdi      # 0x2ebd1
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/georgeweigt[P]eigenmath/eigenmath.c
// Function: factor_bignum
void
factor_bignum(uint32_t *N, struct atom *M)
{
	int h, i, n;
	struct atom *BASE, *EXPO;

	// greater than 31 bits?

	if (MLENGTH(N) > 1 || N[0] > 0x7fffffff) {
		push_bignum(MPLUS, mcopy(N), mint(1));
		if (isplusone(M))
			return;
		push_symbol(POWER);
		swap();
		push(M);
		list(3);
		return;
	}

	h = tos;

	n = N[0];

	factor_int(n);

	n = (tos - h) / 2; // number of factors on stack

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

		BASE = stack[h + 2 * i + 0];
		EXPO = stack[h + 2 * i + 1];

		push(EXPO);
		push(M);
		multiply();
		EXPO = pop();

		if (isplusone(EXPO)) {
			stack[h + i] = BASE;
			continue;
		}

		push_symbol(POWER);
		push(BASE);
		push(EXPO);
		list(3);
		stack[h + i] = pop();
	}

	tos = h + n; // pop all
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x18, %rsp
movq %rsi, %r15
cmpl $0x1, -0x4(%rdi)
jg 0x23cf5
movl (%rdi), %eax
testl %eax, %eax
js 0x23cf5
movslq 0x1b6db(%rip), %rbx     # 0x3f2b8
movl %eax, %edi
callq 0x1f965
movl 0x1b6ce(%rip), %eax     # 0x3f2b8
movq %rbx, -0x38(%rbp)
subl %ebx, %eax
movl %eax, %ecx
shrl $0x1f, %ecx
addl %eax, %ecx
sarl %ecx
movl %ecx, -0x2c(%rbp)
cmpl $0x2, %eax
jl 0x23ce7
movl -0x2c(%rbp), %r12d
leaq 0x249b0(%rip), %rcx     # 0x485c0
movq -0x38(%rbp), %rax
leaq (%rcx,%rax,8), %rax
xorl %ebx, %ebx
movq %rax, -0x40(%rbp)
movq (%rax,%rbx,2), %r14
movq 0x8(%rax,%rbx,2), %rdi
callq 0x8ba5
movq %r15, %r13
movq %r15, %rdi
callq 0x8ba5
movl $0x2, %edi
callq 0xacef
movl 0x1b671(%rip), %eax     # 0x3f2b8
movl $0xfffe795f, %edx       # imm = 0xFFFE795F
leal (%rax,%rdx), %ecx
cmpl %edx, %ecx
jbe 0x23d6a
decl %eax
movl %eax, 0x1b659(%rip)     # 0x3f2b8
leaq 0x2495a(%rip), %rcx     # 0x485c0
movq (%rcx,%rax,8), %r15
movq %r15, %rdi
movl $0x1, %esi
movl $0x1, %edx
callq 0xd1c4
testl %eax, %eax
jne 0x23ccf
movq 0x24629(%rip), %rdi     # 0x482b0
callq 0x8ba5
movq %r14, %rdi
callq 0x8ba5
movq %r15, %rdi
callq 0x8ba5
movl $0x3, %edi
callq 0x8b7d
movl 0x1b60c(%rip), %eax     # 0x3f2b8
movl $0xfffe795f, %edx       # imm = 0xFFFE795F
leal (%rax,%rdx), %ecx
cmpl %edx, %ecx
jbe 0x23d6a
decl %eax
movl %eax, 0x1b5f4(%rip)     # 0x3f2b8
leaq 0x248f5(%rip), %rcx     # 0x485c0
movq (%rcx,%rax,8), %r14
movq %r13, %r15
movq -0x40(%rbp), %rax
movq %r14, (%rax,%rbx)
addq $0x8, %rbx
decq %r12
jne 0x23c1e
movl -0x2c(%rbp), %eax
addl -0x38(%rbp), %eax
movl %eax, 0x1b5c5(%rip)     # 0x3f2b8
jmp 0x23d2a
callq 0x7e97
movq %rax, %r14
movl $0x1, %edi
callq 0x7b1f
xorl %edi, %edi
movq %r14, %rsi
movq %rax, %rdx
callq 0xbf3e
movq %r15, %rdi
movl $0x1, %esi
movl $0x1, %edx
callq 0xd1c4
testl %eax, %eax
je 0x23d39
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
movq 0x24570(%rip), %rdi     # 0x482b0
callq 0x8ba5
callq 0xb238
movq %r15, %rdi
callq 0x8ba5
movl $0x3, %edi
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x8b7d
leaq 0xb1d0(%rip), %rdi      # 0x2ef41
callq 0x780b
// File: /workspace/github_c_makefile_star2_O3/georgeweigt[P]eigenmath/eigenmath.c
// Function: fmt_putw
void
fmt_putw(uint32_t w)
{
	uint8_t buf[4];
	if (w == 0)
		w = ' ';
	buf[0] = w >> 24;
	buf[1] = w >> 16;
	buf[2] = w >> 8;
	buf[3] = w;
	if (buf[1])
		outbuf_putc(buf[1]);
	if (buf[2])
		outbuf_putc(buf[2]);
	outbuf_putc(buf[3]);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %rbx
pushq %rax
testl %edi, %edi
movl $0x20, %ebx
cmovnel %edi, %ebx
testl $0xff0000, %ebx         # imm = 0xFF0000
je 0x24955
movl %ebx, %eax
shrl $0x10, %eax
movzbl %al, %edi
callq 0x17586
testl $0xff00, %ebx           # imm = 0xFF00
je 0x2496a
movl %ebx, %eax
shrl $0x8, %eax
movzbl %al, %edi
callq 0x17586
movzbl %bl, %edi
addq $0x8, %rsp
popq %rbx
popq %rbp
jmp 0x17586
// File: /workspace/github_c_makefile_star2_O3/georgeweigt[P]eigenmath/eigenmath.c
// Function: fmt_args
void
fmt_args(struct atom *p)
{
	int t;

	p = cdr(p);

	if (!iscons(p)) {
		fmt_roman_char('(');
		fmt_roman_char(')');
		return;
	}

	t = tos;

	fmt_expr(car(p));

	p = cdr(p);

	while (iscons(p)) {
		fmt_roman_char(',');
		fmt_expr(car(p));
		p = cdr(p);
	}

	fmt_update_list(t);

	fmt_update_subexpr();
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
cmpb $0x1, 0x10(%rdi)
leaq 0x8(%rdi), %rax
leaq 0x2106f(%rip), %r14     # 0x45a00
cmovneq %r14, %rax
movq (%rax), %r15
cmpb $0x1, 0x10(%r15)
jne 0x249f5
movl 0x1a913(%rip), %ebx     # 0x3f2b8
movq (%r15), %rdi
callq 0x24ac1
leaq 0x8(%r15), %rax
cmpb $0x1, 0x10(%r15)
cmovneq %r14, %rax
movq (%rax), %r15
cmpb $0x1, 0x10(%r15)
jne 0x249df
movl $0x2c, %edi
callq 0x24a13
cmpb $0x1, 0x10(%r15)
movq %r14, %rax
cmoveq %r15, %rax
movq (%rax), %rdi
jmp 0x249a8
movl %ebx, %edi
callq 0x24b6d
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x24e30
movl $0x28, %edi
callq 0x24a13
movl $0x29, %edi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x24a13
// File: /workspace/github_c_makefile_star2_O3/georgeweigt[P]eigenmath/eigenmath.c
// Function: fmt_roman_char
void
fmt_roman_char(int c)
{
	int d, h, w;

	h = 1;
	d = 0;
	w = 1;

	push_double(EMIT_CHAR);
	push_double(h);
	push_double(d);
	push_double(w);
	push_double(c);

	list(5);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
movl %edi, %ebx
callq 0x74dc
movb $0x5, %r14b
movb %r14b, 0x10(%rax)
movabsq $0x4000000000000000, %rcx # imm = 0x4000000000000000
movq %rcx, (%rax)
movq %rax, %rdi
callq 0x8ba5
callq 0x74dc
movb %r14b, 0x10(%rax)
movabsq $0x3ff0000000000000, %r15 # imm = 0x3FF0000000000000
movq %r15, (%rax)
movq %rax, %rdi
callq 0x8ba5
callq 0x74dc
movb %r14b, 0x10(%rax)
movq $0x0, (%rax)
movq %rax, %rdi
callq 0x8ba5
callq 0x74dc
movb %r14b, 0x10(%rax)
movq %r15, (%rax)
movq %rax, %rdi
callq 0x8ba5
cvtsi2sd %ebx, %xmm0
movsd %xmm0, -0x20(%rbp)
callq 0x74dc
movb %r14b, 0x10(%rax)
movsd -0x20(%rbp), %xmm0
movsd %xmm0, (%rax)
movq %rax, %rdi
callq 0x8ba5
movl $0x5, %edi
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
jmp 0x8b7d