// File: kelwinfc[P]ci4721-Fernandez-Gyomrey/src/AST/to_tac.cpp
// Function: AST_array_access::gen_tac_lval(Tac*, int*)
opd *AST_array_access::gen_tac_lval(Tac* t, int *sta_base){
    int arr_base = 0;
    opd **ind_addr = new opd*();
    *ind_addr = 0;// indicar que alguien va a tener que colocar aquí la dirección apropiada
    opd *din_base = gen_tac_arr(t, sta_base, ind_addr, &arr_base);

    type_descriptor* ad = types.types[ type ];
    *sta_base -= arr_base * ad->width;

    //TODO esto debe hacerse sobre temporales distintos
    // multiplicar la suma de índices por el ancho de lo que alberga el arreglo
    t->append_quad(inst::MUL, *ind_addr, *ind_addr, new opd(ad->width), "multiplicar el aplanamiento de índices por el ancho del tipo");

    // sumar la posición del arreglo (din_base) con el índice dinámico (ind_base)
    t->append_quad(inst::ADD, *ind_addr, din_base, *ind_addr, "sumar la base del arreglo con el desplazamiento hasta la posición solicitada");

    din_base = *ind_addr;
    delete ind_addr;

    return din_base;
}

// Assembly:
subq $0xf8, %rsp
movq %rdi, 0xf0(%rsp)
movq %rsi, 0xe8(%rsp)
movq %rdx, 0xe0(%rsp)
movq 0xf0(%rsp), %rax
movq %rax, 0x38(%rsp)
movl $0x0, 0xdc(%rsp)
movl $0x8, %edi
callq 0x6390
movq 0x38(%rsp), %rdi
movq $0x0, (%rax)
movq %rax, 0xd0(%rsp)
movq 0xd0(%rsp), %rax
movq $0x0, (%rax)
movq 0xe8(%rsp), %rsi
movq 0xe0(%rsp), %rdx
movq 0xd0(%rsp), %rcx
movq (%rdi), %rax
movq 0x40(%rax), %rax
leaq 0xdc(%rsp), %r8
callq *%rax
movq %rax, %rcx
movq 0x38(%rsp), %rax
movq %rcx, 0xc8(%rsp)
movslq 0x10(%rax), %rsi
leaq 0x57a88(%rip), %rdi     # 0x6e4e0
callq 0x1fc90
movq (%rax), %rax
movq %rax, 0xc0(%rsp)
movl 0xdc(%rsp), %edx
movq 0xc0(%rsp), %rax
movl 0x28(%rax), %eax
imull %eax, %edx
movq 0xe0(%rsp), %rax
movl (%rax), %ecx
subl %edx, %ecx
movl %ecx, (%rax)
movq 0xe8(%rsp), %rax
movq %rax, 0x40(%rsp)
movq 0xd0(%rsp), %rax
movq (%rax), %rax
movq %rax, 0x48(%rsp)
movq %rax, 0x50(%rsp)
movl $0x18, %edi
callq 0x6390
movq %rax, %rdi
movq %rdi, %rax
movq %rax, 0x58(%rsp)
movq 0xc0(%rsp), %rax
movl 0x28(%rax), %esi
movl $0x2, %edx
callq 0x38010
jmp 0x16ad9
leaq 0x8f(%rsp), %rdi
movq %rdi, 0x30(%rsp)
callq 0x66c0
movq 0x30(%rsp), %rdx
leaq 0x3ca8a(%rip), %rsi     # 0x53581
leaq 0x90(%rsp), %rdi
callq 0x7500
jmp 0x16b06
movq 0x58(%rsp), %r8
movq 0x48(%rsp), %rcx
movq 0x50(%rsp), %rdx
movq 0x40(%rsp), %rdi
movl $0x13, %esi
leaq 0x90(%rsp), %r9
callq 0x4de80
jmp 0x16b2e
leaq 0x90(%rsp), %rdi
callq 0x6778
leaq 0x8f(%rsp), %rdi
callq 0x6400
movq 0xe8(%rsp), %rax
movq %rax, 0x8(%rsp)
movq 0xd0(%rsp), %rax
movq (%rax), %rax
movq %rax, 0x10(%rsp)
movq %rax, 0x18(%rsp)
movq 0xc8(%rsp), %rax
movq %rax, 0x20(%rsp)
leaq 0x67(%rsp), %rdi
movq %rdi, 0x28(%rsp)
callq 0x66c0
movq 0x28(%rsp), %rdx
leaq 0x3ca2d(%rip), %rsi     # 0x535bf
leaq 0x68(%rsp), %rdi
callq 0x7500
jmp 0x16b9e
movq 0x10(%rsp), %r8
movq 0x20(%rsp), %rcx
movq 0x18(%rsp), %rdx
movq 0x8(%rsp), %rdi
movl $0x11, %esi
leaq 0x68(%rsp), %r9
callq 0x4de80
jmp 0x16bc3
leaq 0x68(%rsp), %rdi
callq 0x6778
leaq 0x67(%rsp), %rdi
callq 0x6400
movq 0xd0(%rsp), %rax
movq (%rax), %rax
movq %rax, 0xc8(%rsp)
movq 0xd0(%rsp), %rax
movq %rax, (%rsp)
cmpq $0x0, %rax
je 0x16c0a
movq (%rsp), %rdi
movl $0x8, %esi
callq 0x63a0
movq 0xc8(%rsp), %rax
addq $0xf8, %rsp
retq
movq 0x58(%rsp), %rdi
movq %rax, %rcx
movl %edx, %eax
movq %rcx, 0xb8(%rsp)
movl %eax, 0xb4(%rsp)
movl $0x18, %esi
callq 0x63a0
jmp 0x16cc6
movq %rax, %rcx
movl %edx, %eax
movq %rcx, 0xb8(%rsp)
movl %eax, 0xb4(%rsp)
jmp 0x16c79
movq %rax, %rcx
movl %edx, %eax
movq %rcx, 0xb8(%rsp)
movl %eax, 0xb4(%rsp)
leaq 0x90(%rsp), %rdi
callq 0x6778
leaq 0x8f(%rsp), %rdi
callq 0x6400
jmp 0x16cc6
movq %rax, %rcx
movl %edx, %eax
movq %rcx, 0xb8(%rsp)
movl %eax, 0xb4(%rsp)
jmp 0x16cbc
movq %rax, %rcx
movl %edx, %eax
movq %rcx, 0xb8(%rsp)
movl %eax, 0xb4(%rsp)
leaq 0x68(%rsp), %rdi
callq 0x6778
leaq 0x67(%rsp), %rdi
callq 0x6400
movq 0xb8(%rsp), %rdi
callq 0x66b0
nopw %cs:(%rax,%rax)