// File: /workspace/github_c_makefile_star2_O1/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), %r13
cmpb $0x1, 0x10(%rdi)
leaq 0x2274f(%rip), %rdx     # 0x40a00
movq %rdx, %rax
cmoveq %r13, %rax
movq (%rax), %rax
movb 0x10(%rax), %cl
cmpb $0x1, %cl
movq %rdx, %rsi
cmoveq %rax, %rsi
movq (%rsi), %rsi
cmpb $0x1, 0x10(%rsi)
movq %rdx, %rsi
jne 0x1e2e9
cmpb $0x1, %cl
leaq 0x22722(%rip), %rsi     # 0x40a00
cmoveq %rax, %rsi
movq (%rsi), %rsi
addq $0x8, %rsi
movq (%rsi), %rsi
cmpb $0x1, 0x10(%rsi)
jne 0x1e324
cmpb $0x1, %cl
leaq 0x22704(%rip), %rdx     # 0x40a00
movq %rdx, %rsi
cmoveq %rax, %rsi
movq (%rsi), %rsi
cmpb $0x1, 0x10(%rsi)
jne 0x1e321
cmpb $0x1, %cl
leaq 0x226ea(%rip), %rcx     # 0x40a00
cmoveq %rax, %rcx
movq (%rcx), %rdx
addq $0x8, %rdx
movq (%rdx), %rdx
movq (%rdx), %rbx
cmpb $0x3, 0x10(%rbx)
jne 0x1e4a3
movq %rbx, %rdi
callq 0x8b01
callq 0x95ac
cmpb $0x1, 0x10(%r14)
leaq 0x226b6(%rip), %r12     # 0x40a00
movq %r12, %rax
cmoveq %r13, %rax
movq (%rax), %rax
movb 0x10(%rax), %cl
addq $0x8, %rax
cmpb $0x1, %cl
movq %r12, %rdx
cmoveq %rax, %rdx
movq (%rdx), %rdx
cmpb $0x1, 0x10(%rdx)
movq %r12, %rdx
jne 0x1e382
cmpb $0x1, %cl
leaq 0x22685(%rip), %rcx     # 0x40a00
cmoveq %rax, %rcx
movq (%rcx), %rdx
movq (%rdx), %rdi
callq 0x8b01
callq 0x95ac
callq 0x8b78
movq %rax, -0x30(%rbp)
callq 0x8b78
movq %rax, %r15
cmpb $0x1, 0x10(%r14)
cmovneq %r12, %r13
movq (%r13), %rax
movb 0x10(%rax), %cl
cmpb $0x1, %cl
movq %r12, %rdx
cmoveq %rax, %rdx
movq (%rdx), %rdx
cmpb $0x1, 0x10(%rdx)
movq %r12, %rdx
jne 0x1e3db
cmpb $0x1, %cl
leaq 0x22630(%rip), %rdx     # 0x40a00
cmoveq %rax, %rdx
movq (%rdx), %rdx
addq $0x8, %rdx
movq (%rdx), %rdx
cmpb $0x1, 0x10(%rdx)
jne 0x1e41a
cmpb $0x1, %cl
leaq 0x22612(%rip), %rdx     # 0x40a00
movq %rdx, %rsi
cmoveq %rax, %rsi
movq (%rsi), %rsi
cmpb $0x1, 0x10(%rsi)
jne 0x1e413
cmpb $0x1, %cl
leaq 0x225f8(%rip), %rcx     # 0x40a00
cmoveq %rax, %rcx
movq (%rcx), %rdx
addq $0x8, %rdx
movq (%rdx), %r12
addq $0x8, %r12
movl 0x1be97(%rip), %r14d    # 0x3a2b8
movq (%r12), %r12
cmpb $0x1, 0x10(%r12)
jne 0x1e45c
leaq 0x225cc(%rip), %r13     # 0x40a00
movq (%r12), %rdi
callq 0x8b01
callq 0x95e2
leaq 0x8(%r12), %rax
cmpb $0x1, 0x10(%r12)
cmovneq %r13, %rax
movq (%rax), %r12
cmpb $0x1, 0x10(%r12)
je 0x1e434
movq %r15, %rdi
movq -0x30(%rbp), %rsi
movl %r14d, %edx
callq 0x1e5f1
cmpb $0x3, 0x10(%rbx)
jne 0x1e4af
movq 0x22588(%rip), %rax     # 0x40a00
movl 0x8(%rbx), %ecx
leaq 0xe866e(%rip), %rdx     # 0x106af0
movq %r15, (%rdx,%rcx,8)
movl 0x8(%rbx), %ecx
leaq 0xedac0(%rip), %rdx     # 0x10bf50
movq %rax, (%rdx,%rcx,8)
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
leaq 0xc589(%rip), %rdi      # 0x2aa33
callq 0x77c8
leaq 0xcac4(%rip), %rdi      # 0x2af7a
callq 0x77c8