// File: /workspace/github_c_makefile_star2_O1/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 0x7bb19
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 0x39a80
testl %eax, %eax
je 0x7bb42
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 0x7bb30
movl 0x10(%rsp), %ecx
cmpq $0x28, %rcx
ja 0x7bb87
movq %rcx, %rax
addq 0x20(%rsp), %rax
addl $0x8, %ecx
movl %ecx, 0x10(%rsp)
jmp 0x7bb95
movq 0x18(%rsp), %rax
leaq 0x8(%rax), %rcx
movq %rcx, 0x18(%rsp)
movl (%rax), %r13d
movl 0x10(%rsp), %ecx
cmpq $0x28, %rcx
ja 0x7bbb3
movq %rcx, %rax
addq 0x20(%rsp), %rax
addl $0x8, %ecx
movl %ecx, 0x10(%rsp)
jmp 0x7bbc1
movq 0x18(%rsp), %rax
leaq 0x8(%rax), %rcx
movq %rcx, 0x18(%rsp)
movq (%rax), %r15
movl 0x10(%rsp), %ecx
cmpq $0x28, %rcx
ja 0x7bbdf
movq %rcx, %rax
addq 0x20(%rsp), %rax
addl $0x8, %ecx
movl %ecx, 0x10(%rsp)
jmp 0x7bbed
movq 0x18(%rsp), %rax
leaq 0x8(%rax), %rcx
movq %rcx, 0x18(%rsp)
movl (%rax), %r12d
cmpl $0x2, %ebp
jb 0x7bbff
cmpl $0x5, %ebp
je 0x7bc3a
cmpl $0x3, %ebp
jne 0x7bc7b
movb $0x5d, 0xf(%rsp)
movb $0x5b, 0xe(%rsp)
cmpl $0x1, %r13d
je 0x7bc27
testl %r13d, %r13d
jne 0x7bc7b
movl $0x3, %esi
movl $0x1, %edx
leaq 0x2afc1(%rip), %rdi     # 0xa6be6
jmp 0x7bc73
movl $0x6, %esi
movl $0x1, %edx
leaq 0x2790f(%rip), %rdi     # 0xa3547
jmp 0x7bc73
movb $0x29, 0xf(%rsp)
movb $0x28, 0xe(%rsp)
cmpl $0x1, %r13d
je 0x7bc62
testl %r13d, %r13d
jne 0x7bc7b
movl $0x7, %esi
movl $0x1, %edx
leaq 0x315ca(%rip), %rdi     # 0xad22a
jmp 0x7bc73
movl $0x4, %esi
movl $0x1, %edx
leaq 0x315bf(%rip), %rdi     # 0xad232
movq %r14, %rcx
callq 0x42c0
movq %r14, %rdi
leaq 0x29272(%rip), %rsi     # 0xa4ef7
movq %r15, %rdx
xorl %eax, %eax
callq 0x42e0
cmpl $0x5, %ebp
ja 0x7bcbd
movl $0x2b, %eax
btl %ebp, %eax
jae 0x7bcca
movsbl 0xe(%rsp), %edx
movsbl 0xf(%rsp), %r8d
movq %r14, %rdi
leaq 0x31584(%rip), %rsi     # 0xad237
movl %r12d, %ecx
xorl %eax, %eax
callq 0x42e0
decl %ebx
jne 0x7bb6c
jmp 0x7bb30
cmpl $0x2, %ebp
jne 0x7bcbd
movq %r14, %rdi
leaq 0x31567(%rip), %rsi     # 0xad240
movl %r12d, %edx
xorl %eax, %eax
callq 0x42e0
cmpl $0x1, %r13d
je 0x7bd01
testl %r13d, %r13d
jne 0x7bcbd
movl $0x9, %esi
movl $0x1, %edx
leaq 0x31556(%rip), %rdi     # 0xad255
jmp 0x7bd12
movl $0x6, %esi
movl $0x1, %edx
leaq 0x3154f(%rip), %rdi     # 0xad261
movq %r14, %rcx
callq 0x42c0
jmp 0x7bcbd