// File: /workspace/github_c_makefile_star2_O3/georgeweigt[P]eigenmath/eigenmath.c
// Function: setq_indexed
void
setq_indexed(struct atom *p1)
{
	int h;
	struct atom *S, *LVAL, *RVAL;

	S = cadadr(p1);

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

	push(S);
	evalg();

	push(caddr(p1));
	evalg();

	RVAL = pop();
	LVAL = pop();

	// eval indices

	p1 = cddadr(p1);

	h = tos;

	while (iscons(p1)) {
		push(car(p1));
		evalf();
		p1 = cdr(p1);
	}

	set_component(LVAL, RVAL, h);

	set_symbol(S, LVAL, symbol(NIL));
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rdi, %r14
leaq 0x8(%rdi), %r12
cmpb $0x1, 0x10(%rdi)
leaq 0x24efb(%rip), %rax     # 0x45a00
movq %rax, %rcx
cmoveq %r12, %rcx
movq (%rcx), %rcx
cmpb $0x1, 0x10(%rcx)
jne 0x20b24
movq (%rcx), %rdx
cmpb $0x1, 0x10(%rdx)
jne 0x20b44
movq 0x8(%rdx), %rdx
jmp 0x20b4b
movq 0x24ed5(%rip), %rcx     # 0x45a00
cmpb $0x1, 0x10(%rcx)
jne 0x20b6a
movq 0x8(%rcx), %rcx
cmpb $0x1, 0x10(%rcx)
jne 0x20b6a
movq 0x24ebe(%rip), %rax     # 0x45a00
jmp 0x20b54
movq 0x24eb5(%rip), %rdx     # 0x45a00
cmpb $0x1, 0x10(%rdx)
jne 0x20b6a
movq (%rcx), %rax
cmpb $0x1, 0x10(%rax)
jne 0x20b60
addq $0x8, %rax
jmp 0x20b67
leaq 0x24e99(%rip), %rax     # 0x45a00
movq (%rax), %rax
movq (%rax), %rbx
cmpb $0x3, 0x10(%rbx)
jne 0x20d09
movq %rbx, %rdi
callq 0x8ba5
callq 0x96a4
cmpb $0x1, 0x10(%r14)
leaq 0x24e70(%rip), %rax     # 0x45a00
movq %rax, %rcx
cmoveq %r12, %rcx
movq (%rcx), %rcx
cmpb $0x1, 0x10(%rcx)
jne 0x20ba6
movq 0x8(%rcx), %rcx
jmp 0x20bad
movq 0x24e53(%rip), %rcx     # 0x45a00
cmpb $0x1, 0x10(%rcx)
jne 0x20bb6
movq %rcx, %rax
movq (%rax), %rdi
callq 0x8ba5
callq 0x96a4
movl 0x1e6ee(%rip), %r15d    # 0x3f2b8
movl $0xfffe795f, %eax       # imm = 0xFFFE795F
leal (%r15,%rax), %ecx
cmpl %eax, %ecx
jbe 0x20cfd
leal -0x1(%r15), %edx
movl %edx, 0x1e6d3(%rip)     # 0x3f2b8
cmpl $0x1, %r15d
jbe 0x20cfd
addl $-0x2, %r15d
movl %r15d, 0x1e6be(%rip)    # 0x3f2b8
cmpb $0x1, 0x10(%r14)
leaq 0x279ba(%rip), %rax     # 0x485c0
leaq 0x24df3(%rip), %rcx     # 0x45a00
cmovneq %rcx, %r12
movq (%rax,%rdx,8), %rdx
movq %rdx, -0x30(%rbp)
movq (%r12), %rdx
cmpb $0x1, 0x10(%rdx)
jne 0x20c32
movq (%rdx), %rsi
cmpb $0x1, 0x10(%rsi)
jne 0x20c52
movq 0x8(%rsi), %rsi
jmp 0x20c59
movq 0x24dc7(%rip), %rdx     # 0x45a00
cmpb $0x1, 0x10(%rdx)
jne 0x20c7c
movq 0x8(%rdx), %rdx
cmpb $0x1, 0x10(%rdx)
jne 0x20c7c
movq 0x24db0(%rip), %rcx     # 0x45a00
jmp 0x20c62
movq 0x24da7(%rip), %rsi     # 0x45a00
cmpb $0x1, 0x10(%rsi)
jne 0x20c7c
movq (%rdx), %rcx
cmpb $0x1, 0x10(%rcx)
jne 0x20c6e
addq $0x8, %rcx
jmp 0x20c75
leaq 0x24d8b(%rip), %rcx     # 0x45a00
movq (%rcx), %rcx
addq $0x8, %rcx
movq (%rax,%r15,8), %r12
movq (%rcx), %r13
cmpb $0x1, 0x10(%r13)
jne 0x20cb6
leaq 0x24d6f(%rip), %r14     # 0x45a00
movq (%r13), %rdi
callq 0x8ba5
callq 0x96e2
leaq 0x8(%r13), %rax
cmpb $0x1, 0x10(%r13)
cmovneq %r14, %rax
movq (%rax), %r13
cmpb $0x1, 0x10(%r13)
je 0x20c91
movq %r12, %rdi
movq -0x30(%rbp), %rsi
movl %r15d, %edx
callq 0x20e80
cmpb $0x3, 0x10(%rbx)
jne 0x20d15
movq 0x24d2e(%rip), %rax     # 0x45a00
movl 0x8(%rbx), %ecx
leaq 0xeae14(%rip), %rdx     # 0x10baf0
movq %r12, (%rdx,%rcx,8)
movl 0x8(%rbx), %ecx
leaq 0xf0266(%rip), %rdx     # 0x110f50
movq %rax, (%rdx,%rcx,8)
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
leaq 0xe23d(%rip), %rdi      # 0x2ef41
callq 0x780b
leaq 0xdd43(%rip), %rdi      # 0x2ea53
callq 0x780b
leaq 0xe27e(%rip), %rdi      # 0x2ef9a
callq 0x780b