x86_64_compiler.cpp

Go to the documentation of this file.

// allocate enough space for drew-sized strings.
#ifndef X86_64_COMPILER_SOURCE
#define X86_64_COMPILER_SOURCE
#define MAX_STRING_SIZE 100
void Command::doBSS(std::ostream & file)
{
  file<<"\t.bss"<<std::endl<<std::endl;
  for (int x = 0; x < m_string_vars.size(); ++x) {
    file<<"\t.comm .IS"<<x<<", "<<MAX_STRING_SIZE<<", 32"<<std::endl;
  }

  file<<"\t.comm .locals, 400, 64";
  file<<std::endl;
}

void Command::doData(std::ostream & file)
{
  file<<"\t.section .rodata"<<std::endl<<std::endl;

  for (int x = 0; x < m_literals.size(); ++x) {
    file<<"\t.S"<<x<<":\t\t.string \""<<m_literals[x]<<"\\0\""<<std::endl;
  }

  file<<std::endl<<"\t.string_fmt:\t.string \"%s\\0\""<<std::endl;
  file<<"\t.num_fmt:\t.string \"%d\\0\""<<std::endl;
  file<<"\t.TRUE:\t\t.string \"true\\0\""<<std::endl;
  file<<"\t.FALSE:\t\t.string \"false\\0\""<<std::endl;

  std::cout<<std::endl<<std::endl;;

  file<<std::endl<<"\t.section .data"<<std::endl;
  for (int x = 0; x < m_int_vars.size() - m_int_declarations.size(); ++x) {
    file<<".I"<<x<<":\t.fill 64"<<std::endl;
  }
}
#define INTGR 67
#define STRNG 68

void Command::evaluate_expression(std::ostream & file)
{
  static ssize_t nszcount = 0;
  static ssize_t divcount = 0;
  static ssize_t exprdex  = 0;
  
  unsigned int t1, t2;

  std::stack<math_expression> * expr = m_evaluations[exprdex++];
  std::stack<unsigned short> arg_types;
  ssize_t stack_depth = 0;

  std::stack<math_expression> eval;
  for(; !expr->empty(); eval.push(expr->top()), expr->pop(), 1);
  std::stack<math_expression> curr;
 
  for (; eval.size();) {
    math_expression a = eval.top(); eval.pop();
    Command::exp_type type = static_cast<Command::exp_type>(a.expr_type);
    exp_type aExpType = static_cast<Command::exp_type>(a.expr_type);
    if (aExpType == VAR)  {
      push_variable(a.pirate_name, arg_types, file);
      stack_depth += 4;
      continue;
    } else if (aExpType == AN_INT) {
      if (!eval.size()) file<<"\tmovq $"<<a.int_arg<<", %r9"<<std::endl;
      else file<<"\tpushq $"<<a.int_arg<<std::endl;
      stack_depth += 4;
      arg_types.push(INTGR);
      continue;
    } else if (aExpType == LITERAL) {
      arg_types.push(STRNG);
      ssize_t idx = m_exp_literals.front();
      m_exp_literals.pop();
      file<<"\tpushq $.S"<<idx<<std::endl;
      stack_depth += 4;
      continue;
    } else if (aExpType == PTRDEREF) {
      file<<"\tpopq %r8"<<std::endl;
      if (arg_types.top() == STRNG) {
    file<<"\tmovq (%r8), %r8"<<std::endl;
      } else file<<"\tmovq (%r8), %r8"<<std::endl;
      file<<"\tpushq %r8"<<std::endl;
      continue;
    } else if (aExpType == LOGNOT) {
      file<<"\tpopq %r8"<<std::endl;
      file<<"\tmovq $1, %rax"<<std::endl;
      file<<"\tcmpq $0, %r8"<<std::endl;
      file<<"\tje NSZ"<<nszcount<<std::endl;
      file<<"\tmovq $0, %rax"<<nszcount<<std::endl;
      file<<"NSZ"<<nszcount<<":\tpushq %rax"<<std::endl;
      ++nszcount;
      continue;
    }
    
    if (stack_depth >= 8) {
      file<<"\tpopq %r8"<<std::endl;
      file<<"\tpopq %r9"<<std::endl;
      stack_depth -= 8;
    } else continue;
    switch (type) {
    case ADD:
      file<<"\taddq %r8, %r9"<<std::endl;
      goto do_default;
    case SUB:
      file<<"\tsubq %r8, %r9"<<std::endl;
      goto do_default;
    case MUL:
      file<<"\timul %r8, %r9"<<std::endl;
      goto do_default;
    case DIV:
      /* @todo case divide by zero */
      file<<"\txor %rax, %rax"<<std::endl;
      file<<"\txor %rbx, %rbx"<<std::endl;
      file<<"\tmovq $1, %rbx"<<std::endl;
      file<<"\tcmpq $0, %r8"<<std::endl;
      file<<"\tjge NLZ1"<<divcount<<std::endl;
      file<<"\timul $-1, %rbx"<<std::endl;
      file<<"\timul $-1, %r8"<<std::endl;
      file<<"NLZ1"<<divcount<<":\tcmpq $0, %r9"<<std::endl;
      file<<"\tjge NLZ2"<<divcount<<std::endl;
      file<<"\timul $-1, %rbx"<<std::endl;
      file<<"\timul $-1, %r9"<<std::endl;
      file<<"NLZ2"<<divcount<<":"<<std::endl;
      file<<"DIV"<<divcount<<":\tcmpq %r8, %r9"<<std::endl;
      file<<"\tjl EDIV"<<divcount<<std::endl;
      file<<"\tsubq %r8, %r9"<<std::endl;
      file<<"\taddq $1, %rax"<<std::endl;
      file<<"\tjmp DIV"<<divcount<<std::endl;
      file<<"EDIV"<<divcount++<<":\timul %rbx, %rax"<<std::endl;
      file<<"\tmovq %rax, %r9"<<std::endl;
      goto do_default;
    case MOD:
      file<<"\tudiv %r0, %r2, %r1"<<std::endl;
      file<<"\tmls %r2, %r1, %r0, %r2"<<std::endl;
      goto do_default;
    case GT:
      t1 = arg_types.top(); arg_types.pop();
      t2 = arg_types.top(); arg_types.pop();
      if (t1 == STRNG && t2 == STRNG) {
    file<<"\tmov %r8, %rdi"<<std::endl;
    file<<"\tmov %r9, %rsi"<<std::endl;
    file<<"\tcall strcmp"<<std::endl;
    file<<"\tmovq $1, %r9"<<std::endl;
    file<<"\tcmpq $0, %rax"<<std::endl;
    file<<"\tjg NSZ"<<nszcount<<std::endl;
    file<<"\tmovq $0, %r9"<<std::endl;
    file<<"NSZ"<<nszcount<<":";
      } else {
    file<<"\tmovq $1, %rax"<<std::endl;
    file<<"\tcmpq %r8, %r9"<<std::endl;
    file<<"\tjg GT"<<nszcount<<std::endl;
    file<<"\txor %rax, %rax"<<std::endl;
    file<<"GT"<<nszcount<<":\tmovq %rax, %r9"<<std::endl;
      }
      nszcount++;
      goto do_default;
    case GEQ:
      t1 = arg_types.top(); arg_types.pop();
      t2 = arg_types.top(); arg_types.pop();
      if (t1 == STRNG && t2 == STRNG) {
    file<<"\tmov %r8, %rdi"<<std::endl;
    file<<"\tmov %r9, %rsi"<<std::endl;
    file<<"\tcall strcmp"<<std::endl;
    file<<"\tmovq $1, %r9"<<std::endl;
    file<<"\tcmpq $0, %rax"<<std::endl;
    file<<"\tjge NSZ"<<nszcount<<std::endl;
    file<<"\tmovq $0, %r9"<<std::endl;
    file<<"NSZ"<<nszcount<<":"<<std::endl;
      } else {
    file<<"\tmovq $1, %rax"<<std::endl;
    file<<"\tcmpq %r8, %r9"<<std::endl;
    file<<"\tjge GEQ"<<nszcount<<std::endl;
    file<<"\txor %rax, %rax"<<std::endl;
    file<<"GEQ"<<nszcount<<":\tmovq %rax, %r9"<<std::endl;
      }
      nszcount++;
      goto do_default;
    case LT:
      t1 = arg_types.top(); arg_types.pop();
      t2 = arg_types.top(); arg_types.pop();
      if (t1 == STRNG && t2 == STRNG) {
    file<<"\tmov %r8, %rdi"<<std::endl;
    file<<"\tmov %r9, %rsi"<<std::endl;
    file<<"\tcall strcmp"<<std::endl;
    file<<"\tmovq $1, %r9"<<std::endl;
    file<<"\tcmpq $0, %rax"<<std::endl;
    file<<"\tjl NSZ"<<nszcount<<std::endl;
    file<<"\tmovq $0, %r9"<<std::endl;
    file<<"NSZ"<<nszcount<<":"<<std::endl;
      } else {
    file<<"\tmovq $1, %rax"<<std::endl;
    file<<"\tcmpq %r8, %r9"<<std::endl;
    file<<"\tjl LT"<<nszcount<<std::endl;
    file<<"\txor %rax, %rax"<<std::endl;
    file<<"LT"<<nszcount<<":\tmovq %rax, %r9"<<std::endl;
      }
      nszcount++;
      goto do_default;
    case LEQ:
      t1 = arg_types.top(); arg_types.pop();
      t2 = arg_types.top(); arg_types.pop();
      if (t1 == STRNG && t2 == STRNG) {
    file<<"\tmov %r8, %rdi"<<std::endl;
    file<<"\tmov %r9, %rsi"<<std::endl;
    file<<"\tcall strcmp"<<std::endl;
    file<<"\tmovq $1, %r9"<<std::endl;
    file<<"\tcmpq $0, %rax"<<std::endl;
    file<<"\tjle NSZ"<<nszcount<<std::endl;
    file<<"\tmovq $0, %r9"<<std::endl;
    file<<"NSZ"<<nszcount<<":"<<std::endl;
      } else {
    file<<"\tmovq $1, %rax"<<std::endl;
    file<<"\tcmpq %r8, %r9"<<std::endl;
    file<<"\tjle LE"<<nszcount<<std::endl;
    file<<"\txor %rax, %rax"<<std::endl;
    file<<"LE"<<nszcount<<":\tmovq %rax, %r9"<<std::endl;
      }
      nszcount++;
      goto do_default;
    case EQ:
      t1 = arg_types.top(); arg_types.pop();
      t2 = STRNG;// arg_types.top(); arg_types.pop();
      if (t1 == STRNG && t2 == STRNG) {
    file<<"\tmov %r8, %rdi"<<std::endl;
    file<<"\tmov %r9, %rsi"<<std::endl;
    file<<"\tcall strcmp"<<std::endl;
    file<<"\tmovq $1, %r9"<<std::endl;
    file<<"\tcmpq $0, %rax"<<std::endl;
    file<<"\tje NSZ"<<nszcount<<std::endl;
    file<<"\tmovq $0, %r9"<<std::endl;
    file<<"NSZ"<<nszcount<<":"<<std::endl;
      } else {
    file<<"\tmovq $1, %rax"<<std::endl;
    file<<"\tcmpq %r8, %r9"<<std::endl;
    file<<"\tje EQ"<<nszcount<<std::endl;
    file<<"\txor %rax, %rax"<<std::endl;
    file<<"EQ"<<nszcount<<":\tmovq %rax, %r9"<<std::endl;
      }
      nszcount++;
      goto do_default;
    case NEQ:
      t1 = arg_types.top(); arg_types.pop();
      t2 = STRNG;// arg_types.top(); arg_types.pop();
      if (t1 == STRNG && t2 == STRNG) {
    file<<"\tmovq %r8, %rdi"<<std::endl;
    file<<"\tmovq %r9, %rsi"<<std::endl;
    file<<"\tcall strcmp"<<std::endl;
    file<<"\tmovq $1, %r9"<<std::endl;
    file<<"\tcmpq $0, %rax"<<std::endl;
    file<<"\tjne NSZ"<<nszcount<<std::endl;
    file<<"\tmovq $0, %r9"<<std::endl;
    file<<"NSZ"<<nszcount<<":"<<std::endl;
      } else {
    file<<"\tmovq $1, %rax"<<std::endl;
    file<<"\tcmpq %r8, %r9"<<std::endl;
    file<<"\tjne NE"<<nszcount<<std::endl;
    file<<"\txor %rax, %rax"<<std::endl;
    file<<"NE"<<nszcount<<":\tmovq %rax, %r9"<<std::endl;
      }
      nszcount++;
      goto do_default;
    case LOGAND:
      file<<"\timul %r8, %r9"<<std::endl;
      file<<"\tmovq $1, %rax"<<std::endl;
      file<<"\tcmpq $0, %r9"<<std::endl;
      file<<"\tjne NSZ"<<nszcount<<std::endl;
      file<<"\tmovq $0, %rax"<<std::endl;
      file<<"NSZ"<<nszcount<<":\tmovq %rax, %r9"<<std::endl;
      nszcount++;
      goto do_default;
    case LOGOR:
      file<<"\taddq %r8, %r9"<<std::endl;
      file<<"\tmovq %r9, %rbx"<<std::endl;
      file<<"\tmovq $1, %r9"<<std::endl;
      file<<"\tcmpq $0, %rbx"<<std::endl;
      file<<"\tjne NSZ"<<nszcount<<std::endl;
      file<<"\tmovq $0, %r9"<<std::endl;
      file<<"NSZ"<<nszcount<<":"<<std::endl;
      nszcount++;
      goto do_default;
    case LOGXOR:
      file<<"\tmul %r3, %r1, %r2"<<std::endl;
      file<<"\tadd %r4, %r1, %r2"<<std::endl;
      file<<"\tmov %r1, $1"<<std::endl;
      file<<"\tmov %r2, $1"<<std::endl;
      file<<"\tcmp %r3, $0"<<std::endl;
      file<<"\tbne NSZ"<<nszcount<<std::endl;
      file<<"\tmov %r1, $0"<<std::endl;
      file<<"NSZ"<<nszcount++<<": @ r1 <-- a && b"<<std::endl;
      file<<"\tcmp %r4, $0"<<std::endl;
      file<<"\tbne NSZ"<<nszcount<<std::endl;
      file<<"\tmov %r2, $0";
      file<<"NSZ"<<nszcount<<": @ r1 <-- a || b"<<std::endl;
      file<<"\teor %r0, %r1, %r2"<<std::endl;
      nszcount++;
      goto do_default;
    default:
      std::cerr<<"Welp. You did it. You tried it."<<std::endl;
      std::cerr<<"This is what happens. You get mad."<<std::endl;
      std::cerr<<"Don't use things I didn't implement yet."<<std::endl;
      exit(101);
    do_default:
      if (eval.size()) {
    file<<"\tpushq %r9"<<std::endl;
    stack_depth += 4;
      }
      // else ;
    }
  }
}

void Command::push_variable(std::string var_name, std::stack<unsigned short> & vartype,
                std::ostream & file)
{
  std::string varname = var_name;
  for (int x = 0; x < m_int_declarations.size(); ++x) {
    if (m_int_declarations[x] == varname) {
      file<<"\txor %r9, %r9"<<std::endl;
      if (x) file<<"\taddq $"<<8*x<<", %r9"<<std::endl; 
      file<<"\taddq $.locals, %r9"<<std::endl;
      file<<"\tpushq (%r9)"<<std::endl;
      vartype.push(INTGR);
      return;
    }
  }
    
  for (int x = 0; x < m_int_vars.size(); ++x) {
    if (m_int_vars[x] == varname) {
      file<<"\tpushq (.I"<<x<<")"<<std::endl;
      vartype.push(INTGR);
      return;
    }
  }
  
  for (int x = 0; x < m_string_vars.size(); ++x) {
    if (m_string_vars[x] == varname) {
      file<<"\tpushq $.IS"<<x<<std::endl;
      vartype.push(STRNG);
      return;
    }
  }

  std::cerr<<"Error: could not resolve variable \"";
  std::cerr<<varname<<"\"."<<std::endl;
  exit(6);
}

void Command::doMain(std::ostream & file)
{
  int y;
  const size_t local_count = 0;// Idk, yo. Just... somewhere.
  if (m_is_c_callable) file<<m_function_name<<":"<<std::endl;
  else file<<"main:"<<std::endl;

  // file<<"\tldr %r9, =locals"<<std::endl;
  file<<"\t/* Make space for locals */"<<std::endl;
  for (int x = 0, intassdex = 0, stringdex = 0, exprdex = 0,
     intdex = 0, pintdex = 0, pstringdex = 0, litdex = 0,
     pbooldex = 0, sints = 0, ifndex = 0, forndex = 0, nszcount = 0;
      x < m_execOrder.size(); ++x) {

    if (m_execOrder[x] == cmd_type::READ_STRING) {
      file<<"\t/* Read input string */"<<std::endl;
      file<<"\tmovl $.string_fmt, %edi"<<std::endl;
      file<<"\tmovl $.IS"<<stringdex<<", %esi"<<std::endl;
      file<<"\txor %rax, %rax"<<std::endl;
      file<<"\tcall scanf"<<std::endl;
      file<<std::endl;

      ++stringdex;
    } else if (m_execOrder[x] == cmd_type::READ_LINE) {
      file<<"\t/* Read line */"<<std::endl;
      file<<"\tmovl $.IS"<<stringdex<<", %edi"<<std::endl;
      file<<"\txor %rax, %rax"<<std::endl;
      file<<"\tcall gets"<<std::endl;
      file<<std::endl;
      
      ++stringdex;
    } else if (m_execOrder[x] == cmd_type::DECL_INT) {
      file<<"\tmovq $8, %rdi"<<std::endl;
      file<<"\tmovq %rsp, %rsi"<<std::endl;
      file<<"\txor %rax, %rax"<<std::endl;
      file<<"\tcall malloc"<<std::endl;
      file<<"\tmovq $.locals, %r9"<<std::endl;
      file<<"\tmovq %rax, "<<sints * 8<<"(%r9)"<<std::endl;

      file<<std::endl;
      m_int_vars.push_back(m_int_declarations[sints++]);
    } else if (m_execOrder[x] == cmd_type::BEGIN_IF) {
      // find the variable we depend on!
      evaluate_expression(file);
      file<<"IF"<<ifndex<<":\tcmpq $0, %r9"<<std::endl;
      file<<"\tje END_IF"<<ifndex<<std::endl;
      ++ifndex;
    } else if (m_execOrder[x] == cmd_type::BEGIN_FOR) {
      std::string var_name = m_for_deps[forndex];
      for (y = 0; y < m_int_vars.size(); ++y) {
    if (m_int_vars[y] == var_name) break;
      } int z = 0;
      for (; z < m_int_declarations.size(); ++z) {
    if (m_int_declarations[z] == var_name) break;
      } if (z < m_int_declarations.size()) {
    file<<"FOR"<<forndex<<":";
    file<<"\tmovq $.locals, %r8"<<std::endl;
    if (8*z) file<<"\taddq $"<<8*z<<", %r8"<<std::endl;
    file<<"\tmovq (%r8), %r8"<<std::endl;
      } else if (y < m_int_vars.size()) {
    file<<"FOR"<<forndex<<":";
    file<<"\tmovq .I"<<y<<", %r8"<<std::endl;
      } else {
    std::cerr<<"Error: for-dependent variable "<<var_name;
    std::cerr<<" not yet declared!"<<std::endl;
    exit(7);
      }

      file<<"\tcmpq $0, %r8"<<std::endl;
      file<<"\tje END_FOR"<<forndex<<std::endl;
    } else if (m_execOrder[x] == cmd_type::END_FOR) {
      file<<"jmp FOR"<<forndex<<std::endl;
      file<<"END_FOR"<<forndex++<<":"<<std::endl;
    } else if (m_execOrder[x] == cmd_type::END_IF) {
      file<<"END_IF"<<ifndex-1<<":"<<std::endl;
    } else if (m_execOrder[x] == cmd_type::READ_INT) {
      // file<<"\tldr %r0, =num_fmt"<<std::endl;
      file<<"\tmovq $.num_fmt, %rdi"<<std::endl;
      //file<<"\tldr %r1, =I"<<intdex<<std::endl;
      file<<"\tmovq $.I"<<intdex<<", %rsi"<<std::endl;
      file<<"\txor %rax, %rax"<<std::endl;
      file<<"\tcall scanf"<<std::endl;
      file<<std::endl;

      ++intdex;
    } else if (m_execOrder[x] == cmd_type::NOPRINT) {
      ++litdex;
    } else if (m_execOrder[x] == cmd_type::PRINT) {
      file<<"\tmovq $.S"<<litdex++<<", %rdi"<<std::endl;
      file<<"\tmovq %rsp, %rsi"<<std::endl;
      file<<"\txor %rax, %rax"<<std::endl;
      file<<"\tcall printf"<<std::endl<<std::endl;
    } else if (m_execOrder[x] == cmd_type::PRINT_STR) {
      file<<"\tmovl $.string_fmt, %eax"<<std::endl;
      for (y = 0; y < m_string_vars.size(); ++y) {
        if (m_string_vars[y] == m_print_strings[pstringdex]) break;
      } if (y == m_string_vars.size()) {
        std::cerr<<"Error: variable "<<m_string_vars[y]<<" was not declared!"<<std::endl;
        exit(3);
      }
      file<<"\tmovl $.IS"<<y<<", %esi"<<std::endl;
      file<<"\tmovq %rax, %rdi"<<std::endl;
      file<<"\txor %rax, %rax"<<std::endl;
      file<<"\tcall printf"<<std::endl<<std::endl;
      ++pstringdex;
    } else if (m_execOrder[x] == cmd_type::PRINT_NUM) {
      file<<"\tmovl $.num_fmt, %eax"<<std::endl;
      for (y = 0; y < m_int_vars.size(); ++y) {
        if (m_int_vars[y] == m_print_ints[pintdex]) break;
      } if (y == m_int_vars.size()) {
        std::cerr<<"Error: variable "<<m_int_vars[y]<<" was not declared!"<<std::endl;
        exit(3);
      } int z;
      for (z = 0; z < m_int_declarations.size(); ++z) {
    if (m_print_ints[pintdex] == m_int_declarations[z]) break;
      } if (z != m_int_declarations.size()) {
    file<<"\tmovq $.locals, %r10"<<std::endl;
    if (8 * z) file<<"\taddq $"<<8 * z<<", %r10"<<std::endl;
    file<<"\tmovq (%r10), %rbx"<<std::endl;
    file<<"\tmovq %rbx, %rsi"<<std::endl;
    file<<"\tmovq %rax, %rdi"<<std::endl;
    file<<"\txor %rax, %rax"<<std::endl;
      } else {
    file<<"\tmovl .I"<<y<<", %esi"<<std::endl;
    file<<"\tmovq %rax, %rdi"<<std::endl;
    file<<"\txor %rax, %rax"<<std::endl;
      } file<<"\tcall printf"<<std::endl;
      ++pintdex;
    } else if (m_execOrder[x] == cmd_type::PRINT_BOOL) {
      for (y = 0; y < m_bool_vars.size(); ++y) {
    if (m_bool_vars[y] == m_print_bools[pbooldex]) break;
      } if (y == m_bool_vars.size()) {
    std::cerr<<"Error: variable "<<m_bool_vars[y]<<" was not declared!"<<std::endl;
      }
      file<<"\tldr %r1, =B"<<y<<std::endl;
      file<<"\tldr %r1, [%r1]"<<std::endl;
      file<<"\tcmp %r1, $0"<<std::endl;
      file<<"\tbne LIES"<<nszcount++<<std::endl;
      file<<"\tldr %r0, =TRUE_STORY"<<std::endl;
      file<<"\tb NOISTRUE"<<nszcount-1<<std::endl;
      file<<"LIES"<<nszcount-1<<":"<<std::endl;
      file<<"\tldr %r0, =FALSE"<<std::endl;
      file<<"NOISTRUE"<<nszcount-1<<":"<<std::endl;
      file<<"\tbl printf"<<std::endl;
      ++pbooldex;
    } else if (m_execOrder[x] == cmd_type::INTGETS) {
      std::string int_gets = m_int_assigns[intassdex];
      ssize_t offset; 
      for (y = 0; y < m_int_vars.size(); ++y) {
    if (m_int_vars[y] == m_int_assigns[intassdex]) break;
      } int z; bool on_stack = false; int * last_z = new int;
      for (z = 0; z < m_int_declarations.size(); ++z) {
    if (m_int_vars[y] == m_int_declarations[z]) { on_stack = true; break; }
      } offset = (z != m_int_declarations.size()) ? 4 * z : y;
      if (y == m_int_vars.size()) {
    std::cerr<<"Error: variable "<<m_int_vars[y];
    std::cerr<<" was not declared!"<<std::endl;
    exit(3);
      } *last_z = z;

      evaluate_expression(file);

      if (!on_stack) {
        int x;
       for (x = 0; x < m_int_vars.size(); ++x) {
        if (m_int_vars[x] == int_gets) break;
       } file<<"\tmovq %r9, .I"<<x<<std::endl;
      } else {
    file<<"\tmovq $.locals, %r10"<<std::endl;
    if (*last_z) file<<"\taddq $"<<*last_z * 8<<", %r10"<<std::endl;
    file<<"\tmovq %r9, (%r10)"<<std::endl;
    delete last_z;
      }
      file<<std::endl; intassdex++;
    }
  }
}

void Command::writeAssembly()
{
  std::ofstream file;
  file.open(m_filename);
  if (!file.is_open()) {
    std::cerr<<"Error: unable to open output file!";
    exit(2);
  }
  file <<"/**"<<std::endl;
  file <<" * "<<m_filename<<std::endl;
  file <<" *"<<std::endl;
  file <<" * Generated by Bench Cookie Compiler for x86_64!"<<std::endl;
  file <<" * Bench Cookie is... Experimental. Don't be mad."<<std::endl;
  file <<" */"<<std::endl;

  doBSS(file);

  file<<std::endl;

  doData(file);

  file<<std::endl<<std::endl;
  file<<"\t.text"<<std::endl;
  if (!m_is_c_callable) file<<"\t.globl main"<<std::endl;
   if (m_is_c_callable) file<<"\t.globl "<<m_function_name<<std::endl;
  doMain(file);

  file<<"\t/* Free local vars */"<<std::endl;
  file<<"\tmovq $0, %rbx"<<std::endl;
  file<<"\tmovq %rbx, %rcx"<<std::endl;
  for (int x = 0; x < m_int_declarations.size(); ++x) {
    file<<"\tmovq $.locals, %rax"<<std::endl;
    if (8 * x) file<<"\taddq $"<<8 * x<<", %rax"<<std::endl;
    file<<"\tcall free"<<std::endl<<std::endl;
  }

  file<<"\t/* locals are free */"<<std::endl<<std::endl;

  file<<std::endl;
  file<<"\tmovq $0, %rdi"<<std::endl;
  file<<"\tmovq %rbp, %rsi"<<std::endl;
  file<<"\txor %rax, %rax"<<std::endl;
  file<<"\tcall fflush"<<std::endl;
  if (!m_is_c_callable) {
    file<<"\tnop"<<std::endl;
    file<<"\tret"<<std::endl;
    file.close();
  } else {
    if (m_current_returns.size() > 3) {
    } else {
      for (int x = 0; x < m_current_returns.size(); ++x) {
    int y, z;
    for (y = 0; y < m_int_vars.size(); ++y) {
            if (m_int_vars[y] == m_current_returns[x]) break;
          } if (y == m_int_vars.size()) {
            std::cerr<<"Error: returned variable "<<m_current_returns[x]
             <<" was not declared!"<<std::endl;
            exit(9);
          } for (z = 0; z < m_int_declarations.size(); ++z) {
        if (m_int_declarations[z] == m_int_vars[y]) break;
      } if (z != m_int_declarations.size()) {
        file<<"\tmovq $.locals, %r8"<<std::endl;
        if (z) file<<"\taddq $"<<4 * z<<", %r8"<<std::endl;
        file<<"\tmovq (%r8), %r8"<<std::endl;
    } else {
      file<<"\tmovq .I"<<y<<", %r8"<<std::endl;
    } char d = 'a';
    file<<"\tmov %r"<<&(d)<<"x, %r6"<<std::endl;
    ++d;
      }
    }
    file<<"\tret"<<std::endl;
    file<<"\tleave"<<std::endl;
  }
}// allocate enough space for drew-sized strings.
#endif