// File: Eronana[P]strawberry/src/memory.cpp
// Function: mark_value(V_VALUE&)
void mark_value(V_VALUE &val)
{
    switch(val.type)
    {
        case T_STRING:
            mark_alive(val.v_string,T_STRING);
            break;
        case T_ARRAY:
            if(mark_alive(val.v_array,T_ARRAY))for(auto &x:*val.v_array)mark_value(x); 
            break;
        case T_OBJECT:
            if(mark_alive(val.v_object,T_OBJECT))for(auto &x:*val.v_object)mark_value(x.second);
            break;
        case T_FUNCTION:
            if(mark_alive(val.v_function.external,T_ARRAY))for(auto &x:*val.v_function.external)mark_value(x);
            if(mark_alive(val.v_function.prototype,T_OBJECT))for(auto &x:*val.v_function.prototype)mark_value(x.second);
            break;
        default:
            break;
    }
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x90, %rsp
movq %rdi, -0x8(%rbp)
movq -0x8(%rbp), %rax
movl (%rax), %eax
addl $-0x4, %eax
movl %eax, %ecx
movq %rcx, -0x90(%rbp)
subl $0x4, %eax
ja 0x21a62
movq -0x90(%rbp), %rax
leaq 0x36fe0(%rip), %rcx     # 0x58838
movslq (%rcx,%rax,4), %rax
addq %rcx, %rax
jmpq *%rax
movq -0x8(%rbp), %rax
movq 0x8(%rax), %rdi
movl $0x4, %esi
callq 0x217b0
jmp 0x21a64
movq -0x8(%rbp), %rax
movq 0x8(%rax), %rdi
movl $0x5, %esi
callq 0x217b0
testb $0x1, %al
jne 0x21890
jmp 0x218ec
movq -0x8(%rbp), %rax
movq 0x8(%rax), %rax
movq %rax, -0x10(%rbp)
movq -0x10(%rbp), %rdi
callq 0x10b40
movq %rax, -0x18(%rbp)
movq -0x10(%rbp), %rdi
callq 0x109b0
movq %rax, -0x20(%rbp)
leaq -0x18(%rbp), %rdi
leaq -0x20(%rbp), %rsi
callq 0x171c0
testb $0x1, %al
jne 0x218c9
jmp 0x218ea
leaq -0x18(%rbp), %rdi
callq 0x11180
movq %rax, -0x28(%rbp)
movq -0x28(%rbp), %rdi
callq 0x21820
leaq -0x18(%rbp), %rdi
callq 0x17a80
jmp 0x218b6
jmp 0x218ec
jmp 0x21a64
movq -0x8(%rbp), %rax
movq 0x8(%rax), %rdi
movl $0x6, %esi
callq 0x217b0
testb $0x1, %al
jne 0x21909
jmp 0x21969
movq -0x8(%rbp), %rax
movq 0x8(%rax), %rax
movq %rax, -0x30(%rbp)
movq -0x30(%rbp), %rdi
callq 0x15360
movq %rax, -0x38(%rbp)
movq -0x30(%rbp), %rdi
callq 0x11c60
movq %rax, -0x40(%rbp)
leaq -0x38(%rbp), %rdi
leaq -0x40(%rbp), %rsi
callq 0x15390
testb $0x1, %al
jne 0x21942
jmp 0x21967
leaq -0x38(%rbp), %rdi
callq 0x11ce0
movq %rax, -0x48(%rbp)
movq -0x48(%rbp), %rdi
addq $0x20, %rdi
callq 0x21820
leaq -0x38(%rbp), %rdi
callq 0x12ae0
jmp 0x2192f
jmp 0x21969
jmp 0x21a64
movq -0x8(%rbp), %rax
movq 0x10(%rax), %rdi
movl $0x5, %esi
callq 0x217b0
testb $0x1, %al
jne 0x21986
jmp 0x219e2
movq -0x8(%rbp), %rax
movq 0x10(%rax), %rax
movq %rax, -0x50(%rbp)
movq -0x50(%rbp), %rdi
callq 0x10b40
movq %rax, -0x58(%rbp)
movq -0x50(%rbp), %rdi
callq 0x109b0
movq %rax, -0x60(%rbp)
leaq -0x58(%rbp), %rdi
leaq -0x60(%rbp), %rsi
callq 0x171c0
testb $0x1, %al
jne 0x219bf
jmp 0x219e0
leaq -0x58(%rbp), %rdi
callq 0x11180
movq %rax, -0x68(%rbp)
movq -0x68(%rbp), %rdi
callq 0x21820
leaq -0x58(%rbp), %rdi
callq 0x17a80
jmp 0x219ac
jmp 0x219e2
movq -0x8(%rbp), %rax
movq 0x18(%rax), %rdi
movl $0x6, %esi
callq 0x217b0
testb $0x1, %al
jne 0x219fa
jmp 0x21a60
movq -0x8(%rbp), %rax
movq 0x18(%rax), %rax
movq %rax, -0x70(%rbp)
movq -0x70(%rbp), %rdi
callq 0x15360
movq %rax, -0x78(%rbp)
movq -0x70(%rbp), %rdi
callq 0x11c60
movq %rax, -0x80(%rbp)
leaq -0x78(%rbp), %rdi
leaq -0x80(%rbp), %rsi
callq 0x15390
testb $0x1, %al
jne 0x21a33
jmp 0x21a5e
leaq -0x78(%rbp), %rdi
callq 0x11ce0
movq %rax, -0x88(%rbp)
movq -0x88(%rbp), %rdi
addq $0x20, %rdi
callq 0x21820
leaq -0x78(%rbp), %rdi
callq 0x12ae0
jmp 0x21a20
jmp 0x21a60
jmp 0x21a64
jmp 0x21a64
addq $0x90, %rsp
popq %rbp
retq
nopl (%rax)