// File: /workspace/github_c_makefile_star2_O1/blakemcbride[P]LISP9/ls9.c
// Function: report
void report(char *s, cell x) {
	int	i, j, o;

	o = set_outport(2);
	prints("*** error: ");
	prints(s);
	if (x != UNDEF) {
		prints(": ");
		Plimit = 100;
		prin(x);
		Plimit = 0;
	}
	nl();
	if (Files != NIL) {
		prints("*** file: ");
		printb(string(car(Files)));
		prints(", line: ");
		prints(ntoa(Line, 10));
		nl();
	}
	if (gottrace()) {
		prints("*** trace:");
		i = Tp;
		for (j=0; j<NTRACE; j++) {
			if (i >= NTRACE) i = 0;
			if (Trace[i] != -1) {
				prints(" ");
				printb(symname(vector(Symbols)[Trace[i]]));
			}
			i++;
		}
		nl();
	}
	set_outport(o);
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movl %esi, %ebx
movq %rdi, %r14
movl 0x16db4(%rip), %ebp     # 0x19148
movl $0x2, 0x16daa(%rip)     # 0x19148
leaq 0x10f4b(%rip), %rdi     # 0x132f0
movl $0xb, %esi
callq 0x29f6
movq %r14, %rdi
callq 0x2080
movq %r14, %rdi
movl %eax, %esi
callq 0x29f6
cmpl $-0x4, %ebx
je 0x23f7
leaq 0x10f37(%rip), %rdi     # 0x13304
movl $0x2, %esi
callq 0x29f6
movl $0x64, 0x16fb7(%rip)    # 0x19398
movl $0x1, %edi
movl %ebx, %esi
callq 0x5c52
movl $0x0, 0x16fa1(%rip)     # 0x19398
leaq 0x11dda(%rip), %rdi     # 0x141d8
movl $0x1, %esi
callq 0x29f6
cmpl $-0x1, 0x16d29(%rip)    # 0x19138
je 0x24fb
leaq 0x10ee0(%rip), %rdi     # 0x132fc
movl $0xa, %esi
callq 0x29f6
movq 0x16f1b(%rip), %rax     # 0x19348
movq 0x16f0c(%rip), %rcx     # 0x19340
movslq 0x16cfd(%rip), %rdx     # 0x19138
movslq (%rcx,%rdx,4), %rcx
movslq (%rax,%rcx,4), %rbx
shlq $0x2, %rbx
addq 0x16f0a(%rip), %rbx     # 0x19358
movq %rbx, %rdi
callq 0x2080
movq %rbx, %rdi
movl %eax, %esi
callq 0x29f6
leaq 0x10ea0(%rip), %rdi     # 0x13307
movl $0x8, %esi
callq 0x29f6
movl 0x16cbd(%rip), %eax     # 0x19134
movb $0x0, 0x17299(%rip)     # 0x19717
leaq 0x17291(%rip), %rbx     # 0x19716
leaq 0x11e84(%rip), %rcx     # 0x14310
movl %eax, %edx
movslq %edx, %rsi
imulq $0x66666667, %rsi, %rdx # imm = 0x66666667
movq %rdx, %rdi
shrq $0x3f, %rdi
sarq $0x22, %rdx
addl %edi, %edx
leal (%rdx,%rdx), %edi
leal (%rdi,%rdi,4), %edi
movl %esi, %r8d
subl %edi, %r8d
movl %r8d, %edi
negl %edi
cmovsl %r8d, %edi
movb (%rdi,%rcx), %dil
movb %dil, (%rbx)
addl $0x9, %esi
decq %rbx
cmpl $0x12, %esi
ja 0x248e
testl %eax, %eax
js 0x24d5
incq %rbx
jmp 0x24d8
movb $0x2d, (%rbx)
movq %rbx, %rdi
callq 0x2080
movq %rbx, %rdi
movl %eax, %esi
callq 0x29f6
leaq 0x11ce7(%rip), %rdi     # 0x141d8
movl $0x1, %esi
callq 0x29f6
xorl %eax, %eax
leaq 0x16e6c(%rip), %r15     # 0x19370
movl (%rax,%r15), %ecx
cmpl $-0x1, %ecx
jne 0x251a
leaq 0x4(%rax), %rdx
cmpq $0x24, %rax
movq %rdx, %rax
jne 0x2504
cmpl $-0x1, %ecx
je 0x25c9
movl %ebp, 0x4(%rsp)
leaq 0x10de2(%rip), %rdi     # 0x13310
movl $0xa, %r12d
movl $0xa, %esi
callq 0x29f6
movl 0x16e1f(%rip), %r13d    # 0x19364
xorl %ebp, %ebp
leaq 0x1192e(%rip), %rbx     # 0x13e7c
cmpl $0xa, %r13d
cmovgel %ebp, %r13d
movslq %r13d, %r14
cmpl $-0x1, (%r15,%r14,4)
je 0x25ac
movq %rbx, %rdi
movl $0x1, %esi
callq 0x29f6
movq 0x16de4(%rip), %rax     # 0x19358
movq 0x16dcd(%rip), %rcx     # 0x19348
movslq 0x16bba(%rip), %rdx     # 0x1913c
movslq (%rcx,%rdx,4), %rdx
leaq (%rax,%rdx,4), %rdx
movslq (%r15,%r14,4), %rsi
movslq (%rdx,%rsi,4), %rdx
movslq (%rcx,%rdx,4), %rcx
leaq (%rax,%rcx,4), %r14
movq %r14, %rdi
callq 0x2080
movq %r14, %rdi
movl %eax, %esi
callq 0x29f6
incl %r13d
decl %r12d
jne 0x254e
leaq 0x11c1d(%rip), %rdi     # 0x141d8
movl $0x1, %esi
callq 0x29f6
movl 0x4(%rsp), %ebp
movl %ebp, 0x16b79(%rip)     # 0x19148
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq