// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/savecode.c
// Function: code_add_array_variable
void code_add_array_variable(FILE* testcodefile, PROGRAMMING_LANGUAGE_TYPE language, int count, ...)
{
 /*!Last Changed 13.06.2006*/
 int i, arraytype, arraysize;
 char *arrayname, ch1, ch2;
 va_list ap;
 if (in_list(language, 1, MATLAB_LANGUAGE))
   return;
 va_start(ap, count);
 for (i = 0; i < count; i++)
  { 
   arraytype = va_arg(ap, int);
   arrayname = va_arg(ap, char *);
   arraysize = va_arg(ap, int);
   switch (language){
     case C_LANGUAGE      :
     case CPP_LANGUAGE    :
     case JAVA_LANGUAGE   :switch (arraytype){
                             case INTEGER_VARIABLE:fprintf(testcodefile, "int");
                                                   break;
                             case REAL_VARIABLE   :fprintf(testcodefile, "double");
                                                   break;
                           }
                           ch1 = '[';
                           ch2 = ']';
                           break;
     case FORTRAN_LANGUAGE:switch (arraytype){
                             case INTEGER_VARIABLE:fprintf(testcodefile, "integer");
                                                   break;
                             case REAL_VARIABLE   :fprintf(testcodefile, "real");
                                                   break;
                           }
                           ch1 = '(';
                           ch2 = ')';
                           break;
     default              :break;
   }   
   fprintf(testcodefile, " %s", arrayname);
   switch (language){
     case C_LANGUAGE      :
     case CPP_LANGUAGE    :
     case JAVA_LANGUAGE   :
     case FORTRAN_LANGUAGE:fprintf(testcodefile, "%c%d%c;\n", ch1, arraysize, ch2);
                           break;
     case PASCAL_LANGUAGE :fprintf(testcodefile, ": array[1..%d] of ", arraysize);
                           switch (arraytype){
                             case INTEGER_VARIABLE:fprintf(testcodefile, "integer;\n");
                                                   break;
                             case REAL_VARIABLE   :fprintf(testcodefile, "real;\n");
                                                   break;
                           }
                           break;
     default              :break;
   }
  }
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0xe8, %rsp
movl %edx, %ebx
movl %esi, %ebp
movq %rdi, %r14
movq %rcx, 0x48(%rsp)
movq %r8, 0x50(%rsp)
movq %r9, 0x58(%rsp)
testb %al, %al
je 0x7d3e9
movaps %xmm0, 0x60(%rsp)
movaps %xmm1, 0x70(%rsp)
movaps %xmm2, 0x80(%rsp)
movaps %xmm3, 0x90(%rsp)
movaps %xmm4, 0xa0(%rsp)
movaps %xmm5, 0xb0(%rsp)
movaps %xmm6, 0xc0(%rsp)
movaps %xmm7, 0xd0(%rsp)
movl %esi, %edi
movl $0x1, %esi
movl $0x4, %edx
xorl %eax, %eax
callq 0x3aa8c
testl %eax, %eax
je 0x7d412
addq $0xe8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
leaq 0x30(%rsp), %rax
movq %rax, 0x20(%rsp)
leaq 0x120(%rsp), %rax
movq %rax, 0x18(%rsp)
movabsq $0x3000000018, %rax     # imm = 0x3000000018
movq %rax, 0x10(%rsp)
testl %ebx, %ebx
jle 0x7d400
movl 0x10(%rsp), %eax
cmpq $0x29, %rax
jae 0x7d483
movq 0x20(%rsp), %rcx
leal 0x8(%rax), %edx
movl %edx, 0x10(%rsp)
movl (%rcx,%rax), %r13d
cmpl $0x21, %eax
jae 0x7d494
movq 0x20(%rsp), %rdx
movq %rax, %rcx
addq $0x10, %rcx
movl %ecx, 0x10(%rsp)
movq 0x8(%rdx,%rax), %r15
cmpl $0x18, %eax
ja 0x7d4a5
addq 0x20(%rsp), %rcx
addl $0x18, %eax
movl %eax, 0x10(%rsp)
jmp 0x7d4b3
movq 0x18(%rsp), %rax
leaq 0x8(%rax), %rcx
movq %rcx, 0x18(%rsp)
movl (%rax), %r13d
movq 0x18(%rsp), %rax
leaq 0x8(%rax), %rcx
movq %rcx, 0x18(%rsp)
movq (%rax), %r15
movq 0x18(%rsp), %rcx
leaq 0x8(%rcx), %rax
movq %rax, 0x18(%rsp)
movl (%rcx), %r12d
cmpl $0x2, %ebp
jb 0x7d4c9
cmpl $0x5, %ebp
je 0x7d57b
cmpl $0x3, %ebp
jne 0x7d50a
movb $0x5d, 0xf(%rsp)
movb $0x5b, 0xe(%rsp)
cmpl $0x1, %r13d
je 0x7d4f1
testl %r13d, %r13d
jne 0x7d50a
movl $0x3, %esi
movl $0x1, %edx
leaq 0x2c767(%rip), %rdi     # 0xa9c56
jmp 0x7d502
movl $0x6, %esi
movl $0x1, %edx
leaq 0x29089(%rip), %rdi     # 0xa658b
movq %r14, %rcx
callq 0x42c0
movq %r14, %rdi
leaq 0x2aa3b(%rip), %rsi     # 0xa7f4f
movq %r15, %rdx
xorl %eax, %eax
callq 0x42e0
cmpl $0x5, %ebp
ja 0x7d5ef
movl $0x2b, %eax
btl %ebp, %eax
jb 0x7d5d0
cmpl $0x2, %ebp
jne 0x7d5ef
movq %r14, %rdi
leaq 0x32d90(%rip), %rsi     # 0xb02d8
movl %r12d, %edx
xorl %eax, %eax
callq 0x42e0
cmpl $0x1, %r13d
je 0x7d5fc
testl %r13d, %r13d
jne 0x7d5ef
movl $0x9, %esi
movl $0x1, %edx
leaq 0x32d77(%rip), %rdi     # 0xb02ed
jmp 0x7d60d
cmpl $0x1, %r13d
je 0x7d599
testl %r13d, %r13d
jne 0x7d5b2
movl $0x7, %esi
movl $0x1, %edx
leaq 0x32d2b(%rip), %rdi     # 0xb02c2
jmp 0x7d5aa
movl $0x4, %esi
movl $0x1, %edx
leaq 0x32d20(%rip), %rdi     # 0xb02ca
movq %r14, %rcx
callq 0x42c0
movq %r14, %rdi
leaq 0x2a993(%rip), %rsi     # 0xa7f4f
movq %r15, %rdx
xorl %eax, %eax
callq 0x42e0
movb $0x28, 0xe(%rsp)
movb $0x29, 0xf(%rsp)
movsbl 0xe(%rsp), %edx
movsbl 0xf(%rsp), %r8d
movq %r14, %rdi
leaq 0x32cea(%rip), %rsi     # 0xb02cf
movl %r12d, %ecx
xorl %eax, %eax
callq 0x42e0
decl %ebx
jne 0x7d43c
jmp 0x7d400
movl $0x6, %esi
movl $0x1, %edx
leaq 0x32cec(%rip), %rdi     # 0xb02f9
movq %r14, %rcx
callq 0x42c0
jmp 0x7d5ef