LLM4Binary/decompile-bench-makefile huggingface dataset:
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/ktree.c
// Function: find_best_discrete_split_4
void find_best_discrete_split_4(Korderingsplit* ksplit, int* rangelist, int* iter, int** featurecounts, int* nodecounts, double* bestgain)
{
 int* perm[4];
 perm[0] = first_permutation(rangelist[0]);
 do{
   perm[1] = first_permutation(rangelist[1]);
   do{
     perm[2] = first_permutation(rangelist[2]);
     do{
       perm[3] = first_permutation(rangelist[3]);
       do{
         update_best_discrete_split(ksplit, perm, rangelist, iter, featurecounts, nodecounts, bestgain);
       }while (next_permutation(perm[3], rangelist[3]));
       safe_free(perm[3]);
     }while (next_permutation(perm[2], rangelist[2]));
     safe_free(perm[2]);
   }while (next_permutation(perm[1], rangelist[1]));
   safe_free(perm[1]);
 }while (next_permutation(perm[0], rangelist[0]));
 safe_free(perm[0]);
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x88, %rsp
movq %r9, 0x58(%rsp)
movq %r8, 0x50(%rsp)
movq %rcx, 0x48(%rsp)
movq %rdx, 0x40(%rsp)
movq %rdi, 0x38(%rsp)
movq %rsi, 0x10(%rsp)
movl (%rsi), %edi
callq 0x39416
leaq 0x60(%rsp), %r14
movq %rax, 0x18(%rsp)
movq %rax, (%r14)
movq 0x50(%rsp), %r15
movq 0x48(%rsp), %r12
movq 0x40(%rsp), %rbp
movq 0x38(%rsp), %r13
movq 0x10(%rsp), %rbx
movq 0x10(%rsp), %rax
movl 0x4(%rax), %edi
callq 0x39416
movq %rax, 0x20(%rsp)
movq %rax, 0x68(%rsp)
movq 0x10(%rsp), %rax
movl 0x8(%rax), %edi
callq 0x39416
movq %rax, 0x28(%rsp)
movq %rax, 0x70(%rsp)
movq 0x10(%rsp), %rax
movl 0xc(%rax), %edi
callq 0x39416
movq %rax, 0x30(%rsp)
movq %rax, 0x78(%rsp)
movq 0x58(%rsp), %rax
movq %rax, (%rsp)
movq %r13, %rdi
movq %r14, %rsi
movq %rbx, %rdx
movq %rbp, %rcx
movq %r12, %r8
movq %r15, %r9
callq 0x3293f
movl 0xc(%rbx), %esi
movq 0x30(%rsp), %rdi
callq 0x399cb
testl %eax, %eax
jne 0x32e48
movq 0x30(%rsp), %rdi
callq 0x3a180
movq 0x10(%rsp), %rax
movl 0x8(%rax), %esi
movq 0x28(%rsp), %rdi
callq 0x399cb
testl %eax, %eax
jne 0x32e31
movq 0x28(%rsp), %rdi
callq 0x3a180
movq 0x10(%rsp), %rax
movl 0x4(%rax), %esi
movq 0x20(%rsp), %rdi
callq 0x399cb
testl %eax, %eax
jne 0x32e1a
movq 0x20(%rsp), %rdi
callq 0x3a180
movq 0x10(%rsp), %rax
movl (%rax), %esi
movq 0x18(%rsp), %rdi
callq 0x399cb
testl %eax, %eax
jne 0x32e03
movq 0x18(%rsp), %rdi
addq $0x88, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
jmp 0x3a180
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/ktree.c
// Function: create_ktreechildren
int create_ktreechildren(Decisionnodeptr node, C45_parameterptr p)
{
 int i, bestdepth;
 double gain, bestgain = +INT_MAX;
 Korderingsplit ksplit, bestksplit;
 node->conditiontype = UNIVARIATE_CONDITION;
 if (!(can_be_divided(node, p)))
   return 1;
 node->featureno = DISCRETEMIX;
 node->ksplit.featurecount = get_parameter_i("smallsetsize");
 if (node->ksplit.featurecount == 0)
  {
   for (i = 1; i <= get_parameter_i("hybridspace"); i++)
    {
     ksplit = find_best_discrete_split(node, i, &gain);
     if (gain < bestgain)
      {
       bestgain = gain;
       bestdepth = i;
       bestksplit = ksplit;
      }
    }
   node->ksplit = bestksplit;
  }
 else
   node->ksplit = find_best_discrete_split(node, node->ksplit.featurecount, &gain);
 if (node->ksplit.featurecount == 0)
  {
   safe_free(node->ksplit.sortorder);
   safe_free(node->ksplit.featurelist);
   safe_free(node->ksplit.discretesplit);
   node->featureno = LEAF_NODE;
   return 1;
  }
 if (!(make_children_discrete(node)))
   return 1;
 create_ktreechildren(node->left, p);
 create_ktreechildren(node->right, p);
 return 1;
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x68, %rsp
movq %rsi, %r12
movq %rdi, %rbx
movl $0x0, 0x98(%rdi)
callq 0x1d053
testl %eax, %eax
je 0x33578
movl $0xfffffffb, 0x30(%rbx) # imm = 0xFFFFFFFB
leaq 0x72430(%rip), %rdi     # 0xa5874
callq 0x54920
leaq 0x140(%rbx), %r14
movl %eax, 0x140(%rbx)
testl %eax, %eax
je 0x33488
leaq 0x48(%rsp), %r15
leaq 0x10(%rsp), %rcx
movq %r15, %rdi
movq %rbx, %rsi
movl %eax, %edx
callq 0x32efb
movups (%r15), %xmm0
movups 0x10(%r15), %xmm1
movups %xmm1, 0x10(%r14)
movups %xmm0, (%r14)
jmp 0x33522
movq %r12, 0x18(%rsp)
leaq 0x75804(%rip), %rdi     # 0xa8c98
callq 0x54920
testl %eax, %eax
jle 0x3350a
movsd 0x72073(%rip), %xmm0    # 0xa5518
movsd %xmm0, 0x8(%rsp)
xorl %ebp, %ebp
leaq 0x48(%rsp), %r15
leaq 0x10(%rsp), %r12
leaq 0x757da(%rip), %r13     # 0xa8c98
incl %ebp
movq %r15, %rdi
movq %rbx, %rsi
movl %ebp, %edx
movq %r12, %rcx
callq 0x32efb
movsd 0x10(%rsp), %xmm0
movsd 0x8(%rsp), %xmm1
ucomisd %xmm0, %xmm1
jbe 0x334fe
movupd 0x48(%rsp), %xmm1
movups 0x58(%rsp), %xmm2
movaps %xmm2, 0x30(%rsp)
movapd %xmm1, 0x20(%rsp)
movsd %xmm0, 0x8(%rsp)
movq %r13, %rdi
callq 0x54920
cmpl %eax, %ebp
jl 0x334be
movaps 0x20(%rsp), %xmm0
movaps 0x30(%rsp), %xmm1
movups %xmm1, 0x10(%r14)
movups %xmm0, (%r14)
movq 0x18(%rsp), %r12
cmpl $0x0, (%r14)
je 0x3354d
movq %rbx, %rdi
callq 0x331ef
testl %eax, %eax
je 0x33578
movq (%rbx), %rdi
movq %r12, %rsi
callq 0x3340b
movq 0x8(%rbx), %rdi
movq %r12, %rsi
callq 0x3340b
jmp 0x33578
movq 0x158(%rbx), %rdi
callq 0x3a180
movq 0x148(%rbx), %rdi
callq 0x3a180
movq 0x150(%rbx), %rdi
callq 0x3a180
movl $0xffffffff, 0x30(%rbx) # imm = 0xFFFFFFFF
movl $0x1, %eax
addq $0x68, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/lang.c
// Function: goto_endconstructor
void goto_endconstructor(int* variable, char* constructorname, char* endconstructorname, char** code, int linecount, int* instruction_pointer)
{
 /*!Last Changed 14.07.2006*/
 char templine[READLINELENGTH], *p;
 int howmany = 1, i;
 *variable = 0;
 for (i = *instruction_pointer + 1; i < linecount; i++)
  {
   strcpy(templine, code[i]);
   p = strtok(templine," \t\n");
   if (strcmp(p, constructorname) == 0)
     howmany++;
   else
     if (strcmp(p, endconstructorname) == 0)
      {
       howmany--;
       if (howmany == 0)
         break;
      }
  }
 *instruction_pointer = i;
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x7a148, %rsp          # imm = 0x7A148
movq %rdx, 0x10(%rsp)
movq %rsi, 0x18(%rsp)
movl $0x0, (%rdi)
movslq (%r9), %rax
leal 0x1(%rax), %ebp
cmpl %r8d, %ebp
jge 0x3362f
movl %r8d, %r13d
movq %r9, 0x8(%rsp)
leaq (%rcx,%rax,8), %r14
addq $0x8, %r14
movl $0x1, %r15d
leaq 0x20(%rsp), %r12
movq (%r14), %rsi
movq %r12, %rdi
callq 0x4270
movq %r12, %rdi
leaq 0x75bb1(%rip), %rsi     # 0xa9199
callq 0x4280
movq %rax, %rbx
movq %rax, %rdi
movq 0x18(%rsp), %rsi
callq 0x4260
testl %eax, %eax
je 0x33619
movq %rbx, %rdi
movq 0x10(%rsp), %rsi
callq 0x4260
testl %eax, %eax
jne 0x3361c
decl %r15d
jne 0x3361c
jmp 0x3362a
incl %r15d
incl %ebp
addq $0x8, %r14
cmpl %ebp, %r13d
jne 0x335d3
movl %r13d, %ebp
movq 0x8(%rsp), %r9
movl %ebp, (%r9)
addq $0x7a148, %rsp          # imm = 0x7A148
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/lang.c
// Function: set_variable
int set_variable(char* name, void* value)
{
 /*!Last Changed 22.12.2006 added matrix type*/
 /*!Last Changed 03.01.2006*/
	/*!Last Changed 05.11.2003 Added File variable with type 4*/
 /*!Last Changed 02.05.2002*/
 variableptr myvar;
 myvar = get_variable(name);
 if (!myvar)
  {
   printf(m1437, name);
   return 0;
  }
 switch (myvar->type)
  {
   case INTEGER_TYPE:myvar->value.intvalue = atoi((char *)value);
                     break;
   case REAL_TYPE   :myvar->value.floatvalue = atof((char *)value);
                     break;
   case ARRAY_TYPE  :set_multidimensional_array(myvar, value);
                     break;
   case STRING_TYPE :
			case FILE_TYPE   :if (myvar->value.stringvalue)
                       safe_free(myvar->value.stringvalue);
                     myvar->value.stringvalue = strcopy(myvar->value.stringvalue, (char *)value);
                     break;
   case MATRIX_TYPE :if (myvar->value.matrixvalue)
																					 {
																						 matrix_free(*(myvar->value.matrixvalue));
																						 safe_free(myvar->value.matrixvalue);
                       myvar->value.matrixvalue = NULL;
																					 }
                     if (strcmp((char *)value, "0") != 0)
  				                 myvar->value.matrixvalue = (matrixptr)value;
                     break;
   default          :break;
  }
 return 1;
}

// Assembly:
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
pushq %rax
movq %rsi, %r15
movq %rdi, %r12
callq 0x34def
testq %rax, %rax
je 0x3387b
movq %rax, %r14
movl (%rax), %eax
movl $0x1, %ebx
cmpq $0x5, %rax
ja 0x33902
leaq 0x754ca(%rip), %rcx     # 0xa8d24
movslq (%rcx,%rax,4), %rax
addq %rcx, %rax
jmpq *%rax
movq 0x28(%r14), %rdi
testq %rdi, %rdi
je 0x338f4
callq 0x3a180
movq 0x28(%r14), %rdi
jmp 0x338f6
leaq 0x75df1(%rip), %rdi     # 0xa9673
xorl %ebx, %ebx
movq %r12, %rsi
xorl %eax, %eax
callq 0x4030
jmp 0x33902
movq %r15, %rdi
callq 0x4200
movl %eax, 0x28(%r14)
jmp 0x33902
movq %r15, %rdi
callq 0x4130
movsd %xmm0, 0x28(%r14)
jmp 0x33902
movq 0x28(%r14), %rax
testq %rax, %rax
je 0x338d4
movq (%rax), %rdi
movq 0x8(%rax), %rsi
callq 0x3ed51
movq 0x28(%r14), %rdi
callq 0x3a180
movq $0x0, 0x28(%r14)
cmpb $0x30, (%r15)
jne 0x338e1
cmpb $0x0, 0x1(%r15)
je 0x33902
movq %r15, 0x28(%r14)
jmp 0x33902
movq %r14, %rdi
movq %r15, %rsi
callq 0x35980
jmp 0x33902
xorl %edi, %edi
movq %r15, %rsi
callq 0x3b494
movq %rax, 0x28(%r14)
movl %ebx, %eax
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/lang.c
// Function: check_parameter_type
int check_parameter_type(char* varname, VARIABLE_TYPE vartype, variableptr variables, int variablecount)
{
 /*!Last Changed 21.12.2006*/
 int k;
 Variable myvar;
 k = return_variable_index(varname, variables, variablecount);
 if (k == -1)
   return FAILURE;
 else
  {
   myvar = variables[k];
   while (myvar.type == ARRAY_TYPE) 
     myvar = myvar.value.array[0];
   if (myvar.type != vartype)
     return FAILURE;
  }
 return SUCCESS; 
}

// Assembly:
pushq %r14
pushq %rbx
pushq %rax
movq %rdx, %r14
movl %esi, %ebx
movq %rdx, %rsi
movl %ecx, %edx
callq 0x3395d
cmpl $-0x1, %eax
je 0x33953
cltq
leaq (%rax,%rax,2), %rax
shlq $0x4, %rax
movl (%r14,%rax), %ecx
cmpl $0x3, %ecx
jne 0x3394a
addq %rax, %r14
movq 0x28(%r14), %r14
movl (%r14), %ecx
cmpl $0x3, %ecx
je 0x3393e
xorl %eax, %eax
cmpl %ebx, %ecx
sete %al
jmp 0x33955
xorl %eax, %eax
addq $0x8, %rsp
popq %rbx
popq %r14
retq
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/lang.c
// Function: return_variable_index
int return_variable_index(char* name, variableptr vars, int varcount)
{
 /*!Last Changed 02.05.2002*/
 int i;
 char* st = array_variable(name);
 if (st)
  {
   for (i = 0; i < varcount; i++)
     if (strcmp(st, vars[i].name) == 0)
      {
       safe_free(st);
       return i;
      }
  }
 else
  {
   for (i = 0; i < varcount; i++)
     if (strcmp(name, vars[i].name)==0)
       return i;
  }
	if (st)
		 safe_free(st);
 return -1;
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movl %edx, %ebp
movq %rsi, %r14
movq %rdi, %r12
callq 0x3506e
movq %rax, %rbx
testq %rax, %rax
je 0x339a8
testl %ebp, %ebp
jle 0x339d6
movl %ebp, %r12d
addq $0x18, %r14
xorl %r15d, %r15d
movq (%r14), %rsi
movq %rbx, %rdi
callq 0x4260
testl %eax, %eax
je 0x339e6
incq %r15
addq $0x30, %r14
cmpq %r15, %r12
jne 0x3398b
jmp 0x339d1
testl %ebp, %ebp
jle 0x339de
movl %ebp, %r13d
addq $0x18, %r14
xorl %r15d, %r15d
movq (%r14), %rsi
movq %r12, %rdi
callq 0x4260
testl %eax, %eax
je 0x339ee
incq %r15
addq $0x30, %r14
cmpq %r15, %r13
jne 0x339b6
testq %rbx, %rbx
je 0x339de
movq %rbx, %rdi
callq 0x3a180
movl $0xffffffff, %r15d      # imm = 0xFFFFFFFF
jmp 0x339ee
movq %rbx, %rdi
callq 0x3a180
movl %r15d, %eax
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/lang.c
// Function: add_default_variables
void add_default_variables(variableptr* variables, int* variablecount)
{
	/*!Last Changed 06.08.2007*/
 add_variable(REAL_TYPE, default_variables, DEFAULT_VARIABLE_COUNT, variables, variablecount);
 add_variable(STRING_TYPE, default_string_variables, DEFAULT_STRING_VARIABLE_COUNT, variables, variablecount);
 add_variable(STRING_TYPE, default_array_variables, DEFAULT_ARRAY_VARIABLE_COUNT, variables, variablecount);
 add_variable(STRING_TYPE, default_performance_variables, DEFAULT_PERFORMANCE_VARIABLE_COUNT, variables, variablecount);
}

// Assembly:
pushq %r14
pushq %rbx
pushq %rax
movq %rsi, %rbx
movq %rdi, %r14
leaq 0xa1105(%rip), %rsi     # 0xd4de0
movl $0x1, %edi
movl $0xa, %edx
movq %r14, %rcx
movq %rbx, %r8
callq 0x33d4b
leaq 0xa1139(%rip), %rsi     # 0xd4e30
movl $0x2, %edi
movl $0xa, %edx
movq %r14, %rcx
movq %rbx, %r8
callq 0x33d4b
leaq 0xa116d(%rip), %rsi     # 0xd4e80
movl $0x2, %edi
movl $0x1e, %edx
movq %r14, %rcx
movq %rbx, %r8
callq 0x33d4b
leaq 0xa1241(%rip), %rsi     # 0xd4f70
movl $0x2, %edi
movl $0x2, %edx
movq %r14, %rcx
movq %rbx, %r8
addq $0x8, %rsp
popq %rbx
popq %r14
jmp 0x33d4b
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/lang.c
// Function: check_of_variables
int check_of_variables(char* st, variableptr variables, int variablecount)
{
	/*!Last Changed 12.10.2004*/
	int i = 0, len = strlen(st), mode = 0, start, end, j;
	char varname[READLINELENGTH];
	while (i < len)
	 {
		 if (st[i] == '%')
			 {
				 mode = (mode + 1) % 2;
					if (mode == 1)
						 start = i + 1;
					else
					 {
						 end = i - 1;
							if (start < end)
							 {
								 for (j = start; j <= end; j++)
										 varname[j - start] = st[j];
									varname[j - start] = '\0';
         if (return_variable_index(varname, variables, variablecount) == -1)
										 return 0;
							 }
					 }
			 }
		 i++;
	 }
	return 1;
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x7a138, %rsp          # imm = 0x7A138
movl %edx, 0x4(%rsp)
movq %rsi, 0x8(%rsp)
movq %rdi, %r15
callq 0x4190
movq %rax, %r12
testl %r12d, %r12d
jle 0x3482f
andl $0x7fffffff, %r12d      # imm = 0x7FFFFFFF
xorl %ebp, %ebp
xorl %eax, %eax
cmpb $0x25, (%r15,%rbp)
jne 0x34827
testb $0x1, %al
jne 0x347dc
leal 0x1(%rbp), %r13d
movl $0x1, %eax
jmp 0x34827
leaq -0x1(%rbp), %rdx
movslq %r13d, %rcx
xorl %eax, %eax
cmpq %rcx, %rdx
jle 0x34827
leaq (%r15,%rcx), %rsi
movl %ebp, %ebx
subl %ecx, %ebx
leal -0x1(%rbx), %edx
incq %rdx
leaq 0x10(%rsp), %r14
movq %r14, %rdi
callq 0x4310
movslq %ebx, %rax
movb $0x0, 0x10(%rsp,%rax)
movq %r14, %rdi
movq 0x8(%rsp), %rsi
movl 0x4(%rsp), %edx
callq 0x3395d
movl %eax, %ecx
xorl %eax, %eax
cmpl $-0x1, %ecx
je 0x34834
incq %rbp
cmpq %rbp, %r12
jne 0x347c6
movl $0x1, %eax
addq $0x7a138, %rsp          # imm = 0x7A138
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/lang.c
// Function: free_variables
void free_variables(variableptr vars, int count)
{
 /*!Last Changed 22.12.2006 added matrix type*/
 /*!Last Changed 04.01.2006 added free_multidimensional_array*/
	/*!Last Changed 29.11.2004*/
	int i;
 for (i = 0; i < count; i++)
	 {
		 safe_free(vars[i].name);
			switch (vars[i].type)
			 {
			  case INTEGER_TYPE:
					case REAL_TYPE   :break;
					case STRING_TYPE :
					case FILE_TYPE   :if (vars[i].value.stringvalue)
													            safe_free(vars[i].value.stringvalue);
						                 break;
     case MATRIX_TYPE :if (vars[i].value.matrixvalue)
                        {
                         matrix_free(*(vars[i].value.matrixvalue));
                         safe_free(vars[i].value.matrixvalue);
                        }
                       break;
					case ARRAY_TYPE  :free_multidimensional_array(&(vars[i]));
												           break;
     default          :break;
			 }
	 }
}

// Assembly:
testl %esi, %esi
jle 0x348b9
pushq %r15
pushq %r14
pushq %rbx
movq %rdi, %rbx
movl %esi, %r14d
leaq 0x74550(%rip), %r15     # 0xa8dac
movq 0x18(%rbx), %rdi
callq 0x3a180
movl (%rbx), %eax
addl $-0x2, %eax
cmpl $0x3, %eax
ja 0x348ab
movslq (%r15,%rax,4), %rax
addq %r15, %rax
jmpq *%rax
movq 0x28(%rbx), %rdi
testq %rdi, %rdi
jne 0x348a6
jmp 0x348ab
movq %rbx, %rdi
callq 0x35a46
jmp 0x348ab
movq 0x28(%rbx), %rax
testq %rax, %rax
je 0x348ab
movq (%rax), %rdi
movq 0x8(%rax), %rsi
callq 0x3ed51
movq 0x28(%rbx), %rdi
callq 0x3a180
addq $0x30, %rbx
decq %r14
jne 0x3485c
popq %rbx
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/lang.c
// Function: charatindex
void charatindex(char* name, int index)
{
	/*!Last Changed 27.01.2004*/
	char* st;
	char message[2];
	st = get_string_value(name);
	if (!st)
		 return;
	sprintf(message, "%c", st[index - 1]);
	set_default_string_variable("sout1", message);
	safe_free(st);
}

// Assembly:
pushq %rbp
pushq %rbx
pushq %rax
movl %esi, %ebp
callq 0x348f9
testq %rax, %rax
je 0x348f2
movq %rax, %rbx
movslq %ebp, %rax
movb -0x1(%rbx,%rax), %al
leaq 0x6(%rsp), %rsi
movb %al, (%rsi)
movb $0x0, 0x1(%rsi)
leaq 0x74702(%rip), %rdi     # 0xa8fe7
callq 0x34966
movq %rbx, %rdi
callq 0x3a180
addq $0x8, %rsp
popq %rbx
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/lang.c
// Function: get_string_value
char* get_string_value(char* name)
{
 /*!Last Changed 03.01.2006*/
	/*!Last Changed 06.02.2004 put controls*/
 /*!Last Changed 27.01.2004*/
	char message[READLINELENGTH], *st = NULL;
	variableptr myvar;
 myvar = get_and_check_variable_type(name, 2, "string");
	if (!myvar)
			return NULL;
	if (myvar->value.stringvalue)
		 strcpy(message, myvar->value.stringvalue);
	else
		{
			printf(m1295, name);
			return NULL;
		}
	st = strcopy(st, message);
	return st;
}

// Assembly:
pushq %r14
pushq %rbx
subq $0x7a128, %rsp          # imm = 0x7A128
movq %rdi, %rbx
leaq 0x75d9d(%rip), %rdx     # 0xaa6aa
movl $0x2, %esi
callq 0x34bbd
testq %rax, %rax
je 0x3493f
movq 0x28(%rax), %rsi
testq %rsi, %rsi
je 0x34944
movq %rsp, %rbx
movq %rbx, %rdi
callq 0x4270
xorl %edi, %edi
movq %rbx, %rsi
callq 0x3b494
movq %rax, %r14
jmp 0x34958
xorl %r14d, %r14d
jmp 0x34958
leaq 0x74c5f(%rip), %rdi     # 0xa95aa
xorl %r14d, %r14d
movq %rbx, %rsi
xorl %eax, %eax
callq 0x4030
movq %r14, %rax
addq $0x7a128, %rsp          # imm = 0x7A128
popq %rbx
popq %r14
retq
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/lang.c
// Function: set_default_string_variable
int set_default_string_variable(char* name, char* st)
{
 /*!Last Changed 03.01.2006*/
 /*!Last Changed 05.05.2002*/
 variableptr myvar;
 myvar = get_variable(name);
 if (!myvar)
   return 0;
 if (myvar->value.stringvalue)
   safe_free(myvar->value.stringvalue);
 myvar->value.stringvalue = strcopy(myvar->value.stringvalue, st);
 return 1;
}

// Assembly:
pushq %r14
pushq %rbx
pushq %rax
movq %rsi, %rbx
callq 0x34def
testq %rax, %rax
je 0x3498e
movq %rax, %r14
movq 0x28(%rax), %rdi
testq %rdi, %rdi
je 0x34992
callq 0x3a180
movq 0x28(%r14), %rdi
jmp 0x34994
xorl %eax, %eax
jmp 0x349a5
xorl %edi, %edi
movq %rbx, %rsi
callq 0x3b494
movq %rax, 0x28(%r14)
movl $0x1, %eax
addq $0x8, %rsp
popq %rbx
popq %r14
retq
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/lang.c
// Function: stringlength
void stringlength(char* name)
{
	/*!Last Changed 27.01.2004*/
	char* st;
	st = get_string_value(name);
	if (!st)
		 return;
	set_default_variable("out1", strlen(st) + 0.0);
	safe_free(st);
}

// Assembly:
pushq %r14
pushq %rbx
pushq %rax
callq 0x348f9
testq %rax, %rax
je 0x34a0f
movq %rax, %rbx
movq %rax, %rdi
callq 0x4190
movq %rax, %r14
leaq 0x74618(%rip), %rdi     # 0xa8fe8
callq 0x34def
testq %rax, %rax
je 0x34a00
movq %r14, %xmm0
punpckldq 0x74519(%rip), %xmm0 # xmm0 = xmm0[0],mem[0],xmm0[1],mem[1]
subpd 0x74521(%rip), %xmm0    # 0xa8f10
movapd %xmm0, %xmm1
unpckhpd %xmm0, %xmm1            # xmm1 = xmm1[1],xmm0[1]
addsd %xmm0, %xmm1
movsd %xmm1, 0x28(%rax)
movq %rbx, %rdi
addq $0x8, %rsp
popq %rbx
popq %r14
jmp 0x3a180
addq $0x8, %rsp
popq %rbx
popq %r14
retq
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/lang.c
// Function: countchar
void countchar(char* name, char* ch)
{
 /*!Last Changed 27.01.2004*/
	int count = 0, i, len;
	char* st;
	st = get_string_value(name);
	if (!st)
		 return;
	len = strlen(st);
	for (i = 0; i < len; i++)
		 if (st[i] == ch[0])
				 count++;
	set_default_variable("out1", count + 0.0);
	safe_free(st);
}

// Assembly:
pushq %r14
pushq %rbx
pushq %rax
movq %rsi, %r14
callq 0x348f9
testq %rax, %rax
je 0x34a81
movq %rax, %rbx
movq %rax, %rdi
callq 0x4190
testl %eax, %eax
jle 0x34a89
movb (%r14), %cl
andl $0x7fffffff, %eax       # imm = 0x7FFFFFFF
xorl %edx, %edx
xorl %esi, %esi
xorl %edi, %edi
cmpb %cl, (%rbx,%rdx)
sete %dil
addl %edi, %esi
incq %rdx
cmpq %rdx, %rax
jne 0x34a68
cvtsi2sd %esi, %xmm0
jmp 0x34a8d
addq $0x8, %rsp
popq %rbx
popq %r14
retq
xorpd %xmm0, %xmm0
movsd %xmm0, (%rsp)
leaq 0x7454f(%rip), %rdi     # 0xa8fe8
callq 0x34def
testq %rax, %rax
je 0x34aad
movsd (%rsp), %xmm0
movsd %xmm0, 0x28(%rax)
movq %rbx, %rdi
addq $0x8, %rsp
popq %rbx
popq %r14
jmp 0x3a180
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/lang.c
// Function: tokenize
void tokenize(char* name, char* separators)
{
 /*!Last Changed 03.01.2006*/
 /*!Last Changed 27.01.2004*/
 int i, count;
	char message[READLINELENGTH];
 char* tokens[1000];
	char varname[15];
	variableptr myvar;
 myvar = get_and_check_variable_type(name, 2, "string");
	if (!myvar)
			return;
 if (myvar->value.stringvalue)
  	strcpy(message, myvar->value.stringvalue);
	else
		{
			printf(m1295, name);
			return;
		}
 stringlist(message, separators, tokens, &count);
 for (i = 0; i < count; i++)
  {
   sprintf(varname,"aout1[%d]", i + 1);
   set_variable(varname, tokens[i]);
   safe_free(tokens[i]);
  }
	set_default_variable("out1", count + 0.0);
}

// Assembly:
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x7c080, %rsp          # imm = 0x7C080
movq %rsi, %rbx
movq %rdi, %r14
leaq 0x75bd1(%rip), %rdx     # 0xaa6aa
movl $0x2, %esi
callq 0x34bbd
testq %rax, %rax
je 0x34b8b
movq 0x28(%rax), %rsi
testq %rsi, %rsi
je 0x34b9c
leaq 0x1f60(%rsp), %r14
movq %r14, %rdi
callq 0x4270
leaq 0x20(%rsp), %rdx
leaq 0xc(%rsp), %r15
movq %r14, %rdi
movq %rbx, %rsi
movq %r15, %rcx
callq 0x3b4c1
movl (%r15), %r12d
testl %r12d, %r12d
jle 0x34b70
leaq 0x74aa1(%rip), %rbx     # 0xa95d1
leaq 0x11(%rsp), %r14
xorl %r13d, %r13d
leaq 0x1(%r13), %r15
movq %r14, %rdi
movq %rbx, %rsi
movl %r15d, %edx
xorl %eax, %eax
callq 0x41b0
movq 0x20(%rsp,%r13,8), %rsi
movq %r14, %rdi
callq 0x33827
movq 0x20(%rsp,%r13,8), %rdi
callq 0x3a180
movslq 0xc(%rsp), %r12
movq %r15, %r13
cmpq %r12, %r15
jl 0x34b38
leaq 0x74471(%rip), %rdi     # 0xa8fe8
callq 0x34def
testq %rax, %rax
je 0x34b8b
cvtsi2sd %r12d, %xmm0
movsd %xmm0, 0x28(%rax)
addq $0x7c080, %rsp          # imm = 0x7C080
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
retq
leaq 0x74a07(%rip), %rdi     # 0xa95aa
movq %r14, %rsi
xorl %eax, %eax
addq $0x7c080, %rsp          # imm = 0x7C080
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
jmp 0x4030
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/lang.c
// Function: get_and_check_variable_type
variableptr get_and_check_variable_type(char* name, VARIABLE_TYPE validtype, char* message)
{
 /*!Last Changed 03.01.2006*/
 variableptr myvar;
 myvar = get_variable(name);
 if (!myvar)
   printf(m1302, name);
 else
   if (myvar->type != validtype)
    {
     printf(m1303, message);
     return NULL;
    }
 return myvar;
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
movq %rdx, %r14
movl %esi, %ebp
movq %rdi, %r15
callq 0x34def
testq %rax, %rax
je 0x34beb
movq %rax, %rbx
cmpl %ebp, (%rax)
je 0x34bfe
leaq 0x74ace(%rip), %rdi     # 0xa96b2
xorl %ebx, %ebx
movq %r14, %rsi
jmp 0x34bf7
leaq 0x74aa4(%rip), %rdi     # 0xa9696
xorl %ebx, %ebx
movq %r15, %rsi
xorl %eax, %eax
callq 0x4030
movq %rbx, %rax
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/lang.c
// Function: read_userfile
void read_userfile(char* name, char* varname)
{
 /*!Last Changed 03.01.2006*/
	/*!Last Changed 29.10.2005*/
 /*!Last Changed 21.10.2004*/
 /*!Last Changed 27.01.2004*/
	char message[READLINELENGTH];
	variableptr myvar;
 myvar = get_and_check_variable_type(name, 4, "file");
	if (!myvar)
			return;
	if (myvar->userfile)
		 fscanf(myvar->userfile, "%s", message);
	set_variable(varname, message);
}

// Assembly:
pushq %rbx
subq $0x7a120, %rsp          # imm = 0x7A120
movq %rsi, %rbx
leaq 0x710be(%rip), %rdx     # 0xa5cdc
movl $0x4, %esi
callq 0x34bbd
testq %rax, %rax
je 0x34c52
movq 0x10(%rax), %rdi
testq %rdi, %rdi
je 0x34c47
leaq 0x73313(%rip), %rsi     # 0xa7f50
movq %rsp, %rdx
xorl %eax, %eax
callq 0x4070
movq %rsp, %rsi
movq %rbx, %rdi
callq 0x33827
addq $0x7a120, %rsp          # imm = 0x7A120
popq %rbx
retq
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/lang.c
// Function: get_variable
variableptr get_variable(char* st)
{
	/*!Last Changed 02.01.2006*/
	int ind;
	char* st2;
 variableptr myvar;
 ind = return_variable_index(st, vars, varcount);
 if (ind != -1)
		{
   st2 = array_variable(st);
   if (st2)
				{
     myvar = array_pos(st, &(vars[ind]));
     safe_free(st2);
					return myvar;
			 }
   else
				 return &(vars[ind]);
	 }
	return NULL;
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
movq %rdi, %rbx
leaq 0xa0a68(%rip), %r15     # 0xd5868
movq (%r15), %rsi
leaq 0xa06fa(%rip), %rax     # 0xd5504
movl (%rax), %edx
callq 0x3395d
cmpl $-0x1, %eax
je 0x34e51
movl %eax, %ebp
movq %rbx, %rdi
callq 0x3506e
movq %rax, %r14
movslq %ebp, %rax
leaq (%rax,%rax,2), %rax
shlq $0x4, %rax
addq (%r15), %rax
testq %r14, %r14
je 0x34e53
movq %rbx, %rdi
movq %rax, %rsi
callq 0x35537
movq %rax, %rbx
movq %r14, %rdi
callq 0x3a180
movq %rbx, %rax
jmp 0x34e53
xorl %eax, %eax
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/lang.c
// Function: write_userfile
void write_userfile(char* name, char* line)
{
 /*!Last Changed 03.01.2006*/
 /*!Last Changed 05.11.2003*/
	variableptr myvar;
 myvar = get_and_check_variable_type(name, 4, "file");
	if (!myvar)
			return;
	if (myvar->userfile)
			fprintf(myvar->userfile, "%s\n", line);
}

// Assembly:
pushq %rbx
movq %rsi, %rbx
leaq 0x70e73(%rip), %rdx     # 0xa5cdc
movl $0x4, %esi
callq 0x34bbd
testq %rax, %rax
je 0x34e93
movq 0x10(%rax), %rdi
testq %rdi, %rdi
je 0x34e93
leaq 0x7b7d6(%rip), %rsi     # 0xb065e
movq %rbx, %rdx
xorl %eax, %eax
popq %rbx
jmp 0x42e0
popq %rbx
retq
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/lang.c
// Function: open_userfile
void open_userfile(char* name, char* filetype)
{
 /*!Last Changed 03.01.2006*/
	/*!Last Changed 27.01.2004*/
 /*!Last Changed 10.11.2003*/
 variableptr myvar;
 myvar = get_and_check_variable_type(name, 4, "file");
	if (!myvar)
			return;
	if (!(myvar->userfile))
		{
			myvar->userfile = fopen(myvar->value.stringvalue, filetype);
			if (!(myvar->userfile))
					printf(m1296, myvar->value.stringvalue, filetype);
		}
}

// Assembly:
pushq %r14
pushq %rbx
pushq %rax
movq %rsi, %rbx
leaq 0x70e39(%rip), %rdx     # 0xa5cdc
movl $0x4, %esi
callq 0x34bbd
testq %rax, %rax
je 0x34ed1
movq %rax, %r14
cmpq $0x0, 0x10(%rax)
jne 0x34ed1
movq 0x28(%r14), %rdi
movq %rbx, %rsi
callq 0x40f0
movq %rax, 0x10(%r14)
testq %rax, %rax
je 0x34ed9
addq $0x8, %rsp
popq %rbx
popq %r14
retq
movq 0x28(%r14), %rsi
leaq 0x746f7(%rip), %rdi     # 0xa95db
movq %rbx, %rdx
xorl %eax, %eax
addq $0x8, %rsp
popq %rbx
popq %r14
jmp 0x4030
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/lang.c
// Function: close_userfile
void close_userfile(char* name)
{
 /*!Last Changed 03.01.2006*/
 /*!Last Changed 05.11.2003*/
 variableptr myvar;
 myvar = get_and_check_variable_type(name, 4, "file");
	if (!myvar)
			return;
	if (myvar->userfile)
		{
			fclose(myvar->userfile);
			myvar->userfile = NULL;
		}
}

// Assembly:
pushq %rbx
leaq 0x70ddf(%rip), %rdx     # 0xa5cdc
movl $0x4, %esi
callq 0x34bbd
testq %rax, %rax
je 0x34f25
movq %rax, %rbx
movq 0x10(%rax), %rdi
testq %rdi, %rdi
je 0x34f25
callq 0x42a0
movq $0x0, 0x10(%rbx)
popq %rbx
retq
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/lang.c
// Function: array_variable
char* array_variable(char* name)
{
	/*!Last Changed 02.02.2004 added safemalloc*/
 /*!Last Changed 02.05.2002*/
 char* st = NULL;
 int i, len;
	len = strlen(name);
 for (i = 0; i < len; i++)
   if (name[i] == '[')
    {
     st = safemalloc(sizeof(char) * (i + 1), "array_variable", 7);
     strncpy(st, name, i);
     st[i] = '\0';
     break;
    }
 return st;
}

// Assembly:
pushq %r15
pushq %r14
pushq %rbx
movq %rdi, %rbx
callq 0x4190
testl %eax, %eax
jle 0x3509b
andl $0x7fffffff, %eax       # imm = 0x7FFFFFFF
xorl %r14d, %r14d
xorl %r15d, %r15d
cmpb $0x5b, (%rbx,%r15)
je 0x350a0
incq %r15
cmpq %r15, %rax
jne 0x3508a
jmp 0x350cb
xorl %r14d, %r14d
jmp 0x350cb
leal 0x1(%r15), %edi
leaq 0x7458c(%rip), %rsi     # 0xa9637
movl $0x7, %edx
callq 0x3a0e1
movq %rax, %r14
movq %rax, %rdi
movq %rbx, %rsi
movq %r15, %rdx
callq 0x42b0
movb $0x0, (%r14,%r15)
movq %r14, %rax
popq %rbx
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/lang.c
// Function: check_var
BOOLEAN check_var(struct variable var, char* value)
{
	/*!Last Changed 05.11.2003 Added file variable with type 4*/
 /*!Last Changed 02.05.2002*/
 int tmp;
 double tmpd;
 switch (var.type)
  {
   case INTEGER_TYPE:tmp = atoi(value);
                     if (var.value.intvalue == tmp)
                       return BOOLEAN_TRUE;
                     else
                       return BOOLEAN_FALSE;
   case REAL_TYPE   :tmpd = atof(value);
                     if (var.value.floatvalue == tmpd)
                       return BOOLEAN_TRUE;
                     else
                       return BOOLEAN_FALSE;
   case STRING_TYPE :
			case FILE_TYPE   :if (strcmp(var.value.stringvalue, value) == 0)
                       return BOOLEAN_TRUE;
                     else
                       return BOOLEAN_FALSE;
   default          :break;
  }
 return BOOLEAN_FALSE;
}

// Assembly:
pushq %rbx
movl 0x10(%rsp), %ecx
xorl %eax, %eax
cmpq $0x4, %rcx
ja 0x3512c
movq %rdi, %rsi
leaq 0x10(%rsp), %rbx
leaq 0x73cfc(%rip), %rdx     # 0xa8dec
movslq (%rdx,%rcx,4), %rcx
addq %rdx, %rcx
jmpq *%rcx
movq 0x28(%rbx), %rdi
callq 0x4260
testl %eax, %eax
jmp 0x35129
movq %rsi, %rdi
callq 0x4130
cmpeqsd 0x28(%rbx), %xmm0
movq %xmm0, %rax
andl $0x1, %eax
jmp 0x3512c
movq %rsi, %rdi
callq 0x4200
cmpl %eax, 0x28(%rbx)
sete %al
movzbl %al, %eax
popq %rbx
retq
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/lang.c
// Function: get_value
double get_value(struct variable var)
{
/*!Last Changed 02.05.2002*/
 switch (var.type)
  {
   case INTEGER_TYPE:return var.value.intvalue;
   case REAL_TYPE   :return var.value.floatvalue;
   default          :return 0;
  }
 return 0;
}

// Assembly:
leaq 0x8(%rsp), %rax
movl (%rax), %ecx
cmpl $0x1, %ecx
je 0x35189
xorps %xmm0, %xmm0
testl %ecx, %ecx
jne 0x3518e
xorps %xmm0, %xmm0
cvtsi2sdl 0x28(%rax), %xmm0
retq
movsd 0x28(%rax), %xmm0
retq
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/lang.c
// Function: array_sizes
int* array_sizes(char* name, int* dimcount)
{
 /*!Last Changed 06.01.2006*/
 int i, start, end = 0, len, *dimensions = NULL;
 char st[READLINELENGTH], *p;
 len = strlen(name);
 for (i = 0; i < len; i++)
   if (name[i] == '[')
     start = i + 1;
   else
     if (name[i] == ']')
      {
       end = i - 1;
       break;
      }
 for (i = start; i <= end; i++)
   st[i - start] = name[i];
 st[i - start] = '\0';
 p = strtok(st, ",");
 *dimcount = 0;
 while (p)
  {
   (*dimcount)++;
   dimensions = alloc(dimensions, (*dimcount) * sizeof(int), *dimcount);
   dimensions[(*dimcount) - 1] = atoi(p);
   p = strtok(NULL, ",");
  }
 return dimensions;
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r12
pushq %rbx
subq $0x7a120, %rsp          # imm = 0x7A120
movq %rsi, %rbx
movq %rdi, %r14
callq 0x4190
testl %eax, %eax
jle 0x35484
andl $0x7fffffff, %eax       # imm = 0x7FFFFFFF
xorl %r15d, %r15d
movzbl (%r14,%r15), %ecx
cmpl $0x5b, %ecx
je 0x35474
cmpl $0x5d, %ecx
je 0x35489
incq %r15
jmp 0x3547a
incq %r15
movl %r15d, %ebp
cmpq %rax, %r15
jne 0x35460
xorl %r15d, %r15d
jmp 0x3548c
xorl %r15d, %r15d
jmp 0x35493
decl %r15d
movl %ebp, %eax
cmpl %r15d, %ebp
jg 0x354b2
movslq %ebp, %rax
addq %rax, %r14
movl %r15d, %edx
subl %eax, %edx
incq %rdx
movq %rsp, %rdi
movq %r14, %rsi
callq 0x4310
incl %r15d
movl %r15d, %eax
subl %ebp, %eax
cltq
movb $0x0, (%rsp,%rax)
leaq 0x73625(%rip), %rsi     # 0xa8ae6
movq %rsp, %rdi
callq 0x4280
movl $0x0, (%rbx)
testq %rax, %rax
je 0x35521
movq %rax, %r12
xorl %r14d, %r14d
leaq 0x73605(%rip), %r15     # 0xa8ae6
movslq (%rbx), %rax
leaq 0x1(%rax), %rdx
movl %edx, (%rbx)
leaq 0x4(,%rax,4), %rsi
movq %r14, %rdi
callq 0x3a0b4
movq %rax, %r14
movq %r12, %rdi
callq 0x4200
movslq (%rbx), %rcx
movl %eax, -0x4(%r14,%rcx,4)
xorl %edi, %edi
movq %r15, %rsi
callq 0x4280
movq %rax, %r12
testq %rax, %rax
jne 0x354e1
jmp 0x35524
xorl %r14d, %r14d
movq %r14, %rax
addq $0x7a120, %rsp          # imm = 0x7A120
popq %rbx
popq %r12
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/lang.c
// Function: array_pos
variableptr array_pos(char *name, variableptr myvar)
{
 /*!Last Changed 06.01.2006*/
	/*!Last Changed 02.02.2004 added safemalloc*/
 /*!Last Changed 02.05.2002*/
 int i, start, end = 0, len;
 char st[READLINELENGTH], *p;
 variableptr myvar2, result = myvar;
 Expnodeptr list;
 len = strlen(name);
 for (i = 0; i < len; i++)
   if (name[i] == '[')
     start = i + 1;
   else
     if (name[i] == ']')
      {
       end = i - 1;
       break;
      }
 for (i = start; i <= end; i++)
   st[i - start] = name[i];
 st[i - start] = '\0';
 p = strtok(st, ",");
 while (p)
  {
   list = create_expression_list(p);
   myvar2 = evaluate_expression_list(list);
   result = &(result->value.array[myvar2->value.intvalue - 1]);
   safe_free(myvar2);
   p = strtok(NULL, ",");
  }
 return result;
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %rbx
subq $0x7a128, %rsp          # imm = 0x7A128
movq %rsi, %rbx
movq %rdi, %r14
callq 0x4190
testl %eax, %eax
jle 0x3557f
andl $0x7fffffff, %eax       # imm = 0x7FFFFFFF
xorl %r15d, %r15d
movzbl (%r14,%r15), %ecx
cmpl $0x5b, %ecx
je 0x3556f
cmpl $0x5d, %ecx
je 0x35584
incq %r15
jmp 0x35575
incq %r15
movl %r15d, %ebp
cmpq %rax, %r15
jne 0x3555b
xorl %r15d, %r15d
jmp 0x35587
xorl %r15d, %r15d
jmp 0x3558e
decl %r15d
movl %ebp, %eax
cmpl %r15d, %ebp
jg 0x355ad
movslq %ebp, %rax
addq %rax, %r14
movl %r15d, %edx
subl %eax, %edx
incq %rdx
movq %rsp, %rdi
movq %r14, %rsi
callq 0x4310
incl %r15d
movl %r15d, %eax
subl %ebp, %eax
cltq
movb $0x0, (%rsp,%rax)
leaq 0x7352a(%rip), %rsi     # 0xa8ae6
movq %rsp, %rdi
callq 0x4280
testq %rax, %rax
je 0x3560f
leaq 0x73516(%rip), %r14     # 0xa8ae6
movq %rax, %rdi
callq 0x35620
movq %rax, %rdi
callq 0x35728
movq 0x28(%rbx), %rcx
movslq 0x28(%rax), %rdx
leaq (%rdx,%rdx,2), %rdx
shlq $0x4, %rdx
leaq (%rcx,%rdx), %rbx
addq $-0x30, %rbx
movq %rax, %rdi
callq 0x3a180
xorl %edi, %edi
movq %r14, %rsi
callq 0x4280
testq %rax, %rax
jne 0x355d0
movq %rbx, %rax
addq $0x7a128, %rsp          # imm = 0x7A128
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/lang.c
// Function: create_expression_list
Expnodeptr create_expression_list(char* st)
{
 /*!Last Changed 03.01.2006*/
 char st1[READLINELENGTH];
 int i = 0, j = 0, indexs, indexo;
 Expnodeptr start = NULL, tmpbefore = NULL;
 while (st[i])
  {
   indexs = listindexc(st[i], separators, 5);
   indexo = listindexc(st[i], operators, 7);
   if (indexs != -1 || indexo != -1)
    {
     st1[j] = '\0';
     add_expnode(st1, &tmpbefore, &start);
     st1[0] = st[i];
     st1[1] = '\0';
     add_expnode(st1, &tmpbefore, &start);
     j = -1;
    }
   else
     st1[j] = st[i];
   i++;
   j++;
  }
 st1[j] = '\0';
 add_expnode(st1, &tmpbefore, &start); 
 st1[0] = st[i];
 st1[1] = '\0';
 add_expnode(st1, &tmpbefore, &start);
 return start;
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x7a138, %rsp          # imm = 0x7A138
movq %rdi, %rbx
xorl %r15d, %r15d
movq %r15, 0x8(%rsp)
movq %r15, (%rsp)
movb (%rdi), %al
testb %al, %al
je 0x356d9
leaq 0x10(%rsp), %r12
movq %rsp, %r13
leaq 0x8(%rsp), %rbp
movsbl %al, %edi
leaq 0x9f767(%rip), %rsi     # 0xd4dc8
movl $0x5, %edx
callq 0x3b438
movl %eax, %r14d
movsbl (%rbx), %edi
leaq 0x9f755(%rip), %rsi     # 0xd4dcd
movl $0x7, %edx
callq 0x3b438
movslq %r15d, %rcx
cmpl $-0x1, %r14d
jne 0x3569d
cmpl $-0x1, %eax
jne 0x3569d
movb (%rbx), %al
movb %al, 0x10(%rsp,%rcx)
incl %ecx
movl %ecx, %r15d
jmp 0x356cc
xorl %r15d, %r15d
movb %r15b, 0x10(%rsp,%rcx)
movq %r12, %rdi
movq %r13, %rsi
movq %rbp, %rdx
callq 0x35d8c
movb (%rbx), %al
movb %al, 0x10(%rsp)
movb %r15b, 0x11(%rsp)
movq %r12, %rdi
movq %r13, %rsi
movq %rbp, %rdx
callq 0x35d8c
movb 0x1(%rbx), %al
incq %rbx
testb %al, %al
jne 0x35657
movslq %r15d, %r15
xorl %ebp, %ebp
movb %bpl, 0x10(%rsp,%r15)
leaq 0x10(%rsp), %r14
movq %rsp, %r15
leaq 0x8(%rsp), %r12
movq %r14, %rdi
movq %r15, %rsi
movq %r12, %rdx
callq 0x35d8c
movb (%rbx), %al
movb %al, (%r14)
movb %bpl, 0x1(%r14)
movq %r14, %rdi
movq %r15, %rsi
movq %r12, %rdx
callq 0x35d8c
movq (%r12), %rax
addq $0x7a138, %rsp          # imm = 0x7A138
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/lang.c
// Function: set_multidimensional_array
void set_multidimensional_array(variableptr myvar, void* value)
{
 /*!Last Changed 22.12.2006 added matrix type*/
 /*!Last Changed 05.01.2006*/
 int j;
 for (j = 0; j < myvar->arraysize; j++)
   switch (myvar->value.array[j].type)
    {
     case INTEGER_TYPE:myvar->value.array[j].value.intvalue = atoi((char *)value);
                       break;
     case REAL_TYPE   :myvar->value.array[j].value.floatvalue = atof((char *)value);
                       break;
     case ARRAY_TYPE  :set_multidimensional_array(&(myvar->value.array[j]), value);
                       break;
     case STRING_TYPE :
     case FILE_TYPE   :if (myvar->value.array[j].value.stringvalue)
                         safe_free(myvar->value.array[j].value.stringvalue);
                       myvar->value.array[j].value.stringvalue = strcopy(myvar->value.array[j].value.stringvalue, (char *)value);
                       break;
     case MATRIX_TYPE :myvar->value.array[j].value.matrixvalue = (matrixptr) value;
                       break;
     default          :break;
    }
}

// Assembly:
cmpl $0x0, 0x20(%rdi)
jle 0x35a45
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movq %rsi, %rbx
movq %rdi, %r14
xorl %r12d, %r12d
leaq 0x734bb(%rip), %r13     # 0xa8e60
xorl %ebp, %ebp
movq 0x28(%r14), %r15
movl (%r15,%r12), %eax
cmpq $0x5, %rax
ja 0x35a23
movslq (%r13,%rax,4), %rax
addq %r13, %rax
jmpq *%rax
movq 0x28(%r15,%r12), %rdi
testq %rdi, %rdi
je 0x35a10
callq 0x3a180
movq 0x28(%r14), %rax
movq 0x28(%rax,%r12), %rdi
jmp 0x35a12
movq %rbx, %rdi
callq 0x4200
movl %eax, 0x28(%r15,%r12)
jmp 0x35a23
movq %rbx, %rdi
callq 0x4130
movsd %xmm0, 0x28(%r15,%r12)
jmp 0x35a23
movq %rbx, 0x28(%r15,%r12)
jmp 0x35a23
addq %r12, %r15
movq %r15, %rdi
movq %rbx, %rsi
callq 0x35980
jmp 0x35a23
xorl %edi, %edi
movq %rbx, %rsi
callq 0x3b494
movq 0x28(%r14), %rcx
movq %rax, 0x28(%rcx,%r12)
incq %rbp
movslq 0x20(%r14), %rax
addq $0x30, %r12
cmpq %rax, %rbp
jl 0x359a7
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/lang.c
// Function: free_multidimensional_array
void free_multidimensional_array(variableptr myvar)
{
 /*!Last Changed 22.12.2006 added array of matrices*/
 /*!Last Changed 04.01.2006*/
 int j;
 for (j = 0; j < myvar->arraysize; j++)
   if (myvar->value.array[j].type == ARRAY_TYPE)
     free_multidimensional_array(&(myvar->value.array[j]));
   else
    {
     if (in_list(myvar->value.array[j].type, 2, STRING_TYPE, FILE_TYPE))
      {
       if (myvar->value.array[j].value.stringvalue)
         safe_free(myvar->value.array[j].value.stringvalue);
      }
     else
       if (myvar->value.array[j].type == MATRIX_TYPE && myvar->value.array[j].value.matrixvalue)
        {
         matrix_free(*(myvar->value.array[j].value.matrixvalue));
         safe_free(myvar->value.array[j].value.matrixvalue);
        }
    }
 safe_free(myvar->value.array);
}

// Assembly:
pushq %r15
pushq %r14
pushq %rbx
movq %rdi, %rbx
cmpl $0x0, 0x20(%rdi)
jle 0x35adc
xorl %r14d, %r14d
xorl %r15d, %r15d
movq 0x28(%rbx), %rdi
movl (%rdi,%r14), %eax
cmpl $0x3, %eax
jne 0x35a75
addq %r14, %rdi
callq 0x35a46
jmp 0x35acc
movl %eax, %edi
movl $0x2, %esi
movl $0x2, %edx
movl $0x4, %ecx
xorl %eax, %eax
callq 0x3aa8c
movq 0x28(%rbx), %rcx
testl %eax, %eax
je 0x35aa1
movq 0x28(%rcx,%r14), %rdi
testq %rdi, %rdi
jne 0x35ac7
jmp 0x35acc
cmpl $0x5, (%rcx,%r14)
jne 0x35acc
movq 0x28(%rcx,%r14), %rax
testq %rax, %rax
je 0x35acc
movq (%rax), %rdi
movq 0x8(%rax), %rsi
callq 0x3ed51
movq 0x28(%rbx), %rax
movq 0x28(%rax,%r14), %rdi
callq 0x3a180
incq %r15
movslq 0x20(%rbx), %rax
addq $0x30, %r14
cmpq %rax, %r15
jl 0x35a5e
movq 0x28(%rbx), %rdi
popq %rbx
popq %r14
popq %r15
jmp 0x3a180
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/lang.c
// Function: create_multidimensional_array
void create_multidimensional_array(variableptr myvar, int* dimensions, int curdimension, int dimcount, int type)
{
 /*!Last Changed 04.01.2006*/
 int k, size;
 size = dimensions[curdimension];
 myvar->arraysize = size;
 myvar->value.array = (variableptr)safemalloc(size * sizeof(struct variable), "create_multidimensional_array", 4);
 for (k = 0; k < size; k++)
   if (curdimension + 1 < dimcount)
    {
     myvar->value.array[k].type = ARRAY_TYPE;
     myvar->value.array[k].name = NULL;
     create_multidimensional_array(&(myvar->value.array[k]), dimensions, curdimension + 1, dimcount, type);
    }
   else
    {
     myvar->value.array[k].name = NULL;
     myvar->value.array[k].type = type;
     myvar->value.array[k].arraysize = 0;
     set_default_value(&(myvar->value.array[k]));
    }
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
pushq %rax
movl %r8d, %ebx
movl %ecx, %ebp
movl %edx, %r14d
movq %rdi, %r12
movslq %edx, %rax
movq %rsi, (%rsp)
movslq (%rsi,%rax,4), %r15
movl %r15d, 0x20(%rdi)
movq %r15, %rax
shlq $0x4, %rax
leaq (%rax,%rax,2), %r13
leaq 0x73b34(%rip), %rsi     # 0xa9655
movq %r13, %rdi
movl $0x4, %edx
callq 0x3a0e1
movq %rax, 0x28(%r12)
testq %r15, %r15
jle 0x35baf
incl %r14d
xorl %r15d, %r15d
movq 0x28(%r12), %rax
cmpl %ebp, %r14d
jge 0x35b79
movl $0x3, (%rax,%r15)
movq 0x28(%r12), %rax
movq $0x0, 0x18(%rax,%r15)
movq 0x28(%r12), %rdi
addq %r15, %rdi
movq (%rsp), %rsi
movl %r14d, %edx
movl %ebp, %ecx
movl %ebx, %r8d
callq 0x35aea
jmp 0x35ba6
movq $0x0, 0x18(%rax,%r15)
movq 0x28(%r12), %rax
movl %ebx, (%rax,%r15)
movq 0x28(%r12), %rax
movl $0x0, 0x20(%rax,%r15)
movq 0x28(%r12), %rdi
addq %r15, %rdi
callq 0x3594f
addq $0x30, %r15
cmpq %r15, %r13
jne 0x35b3e
addq $0x8, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/lang.c
// Function: set_for_variable
int set_for_variable(char* name, char* end, int step, int ip)
{
 /*!Last Changed 03.01.2006*/
 /*!Last Changed 05.04.2002*/
 int i;
 variableptr myvar;
 myvar = get_variable(name);
 if (!myvar)
   return 0;
 if (myvar->type != INTEGER_TYPE)
   return 0;
 i = atoi(end);
 myvar->end = i;
 myvar->step = step;
 myvar->ip = ip;
 return 1;
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %rbx
pushq %rax
movl %ecx, %ebx
movl %edx, %ebp
movq %rsi, %r14
callq 0x34def
movq %rax, %r15
xorl %eax, %eax
testq %r15, %r15
je 0x35bfa
cmpl $0x0, (%r15)
jne 0x35bfa
movq %r14, %rdi
callq 0x4200
movl %eax, 0x8(%r15)
movl %ebp, 0x4(%r15)
movl %ebx, 0xc(%r15)
movl $0x1, %eax
addq $0x8, %rsp
popq %rbx
popq %r14
popq %r15
popq %rbp
retq
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/lang.c
// Function: check_if_statement
int check_if_statement(char** params)
{
 /*!Last Changed 03.01.2006*/
	/*!Last Changed 05.11.2003 Added File variable with type 4*/
 /*!Last Changed 03.05.2002*/
 int operand;
 double value1, value2, compresult;
 char* st = NULL;
 variableptr myvar;
 operand = listindex(params[0], operandtype, 8);
 if (operand == -1)
   return 0;
 myvar = get_variable(params[1]);
 switch (myvar->type)
  {
   case INTEGER_TYPE:value1 = myvar->value.intvalue;
                     value2 = atoi(params[2]);
                     compresult = value1 - value2;
                     break;
   case REAL_TYPE   :value1 = myvar->value.floatvalue;
                     value2 = atof(params[2]);
                     compresult = value1 - value2;
                     break;
   case STRING_TYPE :
			case FILE_TYPE   :st = strcopy(st, myvar->value.stringvalue);
                     compresult = strcmp(st, params[2]);
                     safe_free(st);
                     break;
   default          :break;
  }
 switch (operand)
  {
   case 0:if (compresult < 0)
            return 1;
          else
            return 0;
   case 1:if (compresult <= 0)
            return 1;
          else
            return 0;
   case 2:if (compresult > 0)
            return 1;
          else
            return 0;
   case 3:if (compresult >= 0)
            return 1;
          else
            return 0;
   case 4:
   case 5:if (compresult == 0)
            return 1;
          else
            return 0;
   case 6:
   case 7:if (compresult != 0)
            return 1;
          else
            return 0;
  }
 return 0;
}

// Assembly:
pushq %r15
pushq %r14
pushq %rbx
subq $0x10, %rsp
movq %rdi, %r14
movq (%rdi), %rdi
leaq 0x9f0c5(%rip), %rsi     # 0xd4ce0
movl $0x8, %edx
callq 0x3b355
cmpl $-0x1, %eax
je 0x35cec
movl %eax, %ebx
movq 0x8(%r14), %rdi
callq 0x34def
movl (%rax), %ecx
cmpq $0x4, %rcx
ja 0x35cca
leaq 0x7322c(%rip), %rdx     # 0xa8e78
movslq (%rdx,%rcx,4), %rcx
addq %rdx, %rcx
jmpq *%rcx
movq 0x28(%rax), %rsi
xorl %edi, %edi
callq 0x3b494
movq %rax, %r15
movq 0x10(%r14), %rsi
movq %rax, %rdi
callq 0x4260
cvtsi2sd %eax, %xmm0
movsd %xmm0, 0x8(%rsp)
movq %r15, %rdi
callq 0x3a180
movsd 0x8(%rsp), %xmm1
jmp 0x35cca
movsd 0x28(%rax), %xmm0
movsd %xmm0, 0x8(%rsp)
movq 0x10(%r14), %rdi
callq 0x4130
movsd 0x8(%rsp), %xmm1
jmp 0x35cc6
cvtsi2sdl 0x28(%rax), %xmm0
movsd %xmm0, 0x8(%rsp)
movq 0x10(%r14), %rdi
callq 0x4200
movsd 0x8(%rsp), %xmm1
xorps %xmm0, %xmm0
cvtsi2sd %eax, %xmm0
subsd %xmm0, %xmm1
cmpl $0x7, %ebx
ja 0x35cec
movl %ebx, %eax
leaq 0x731b4(%rip), %rcx     # 0xa8e8c
movslq (%rcx,%rax,4), %rax
addq %rcx, %rax
jmpq *%rax
xorpd %xmm0, %xmm0
cmpeqsd %xmm0, %xmm1
jmp 0x35cf9
xorl %eax, %eax
jmp 0x35d2f
xorpd %xmm0, %xmm0
cmpneqsd %xmm0, %xmm1
movq %xmm1, %rax
andl $0x1, %eax
jmp 0x35d2f
xorpd %xmm0, %xmm0
ucomisd %xmm0, %xmm1
jmp 0x35d1f
xorpd %xmm0, %xmm0
ucomisd %xmm0, %xmm1
jmp 0x35d2c
xorpd %xmm0, %xmm0
ucomisd %xmm1, %xmm0
seta %al
jmp 0x35d2f
xorpd %xmm0, %xmm0
ucomisd %xmm1, %xmm0
setae %al
movzbl %al, %eax
addq $0x10, %rsp
popq %rbx
popq %r14
popq %r15
retq
// File: /workspace/github_c_makefile_star2_O3/olcaytaner[P]Isell/lang.c
// Function: change_special_characters
void change_special_characters(char* st)
{
	/*!Last Changed 13.07.2005*/
	int i, len;
	len = strlen(st);
	for (i = 0; i < len; i++)
		 switch (st[i])
	   {
		   case '_':st[i] = ' ';
						        break;
					case '#':st[i] = '_';
						        break;
	   }
}

// Assembly:
pushq %rbx
movq %rdi, %rbx
callq 0x4190
testl %eax, %eax
jle 0x35d6f
andl $0x7fffffff, %eax       # imm = 0x7FFFFFFF
xorl %ecx, %ecx
movzbl (%rbx,%rcx), %edx
cmpl $0x5f, %edx
je 0x35d62
cmpl $0x23, %edx
jne 0x35d67
movb $0x5f, %dl
jmp 0x35d64
movb $0x20, %dl
movb %dl, (%rbx,%rcx)
incq %rcx
cmpq %rcx, %rax
jne 0x35d50
popq %rbx
retq