// File: /workspace/github_c_makefile_star2_O0/mattn[P]orelang/ore.c
// Function: ore_expr0
static ore_value
ore_expr0(ore_context* ore, ore_value lhs, const char* op, ore_value rhs) {
  if (lhs.t== ORE_TYPE_INT && rhs.t == ORE_TYPE_FLOAT) {
    double d = (double) lhs.v.i;
    lhs.t = ORE_TYPE_FLOAT;
    lhs.v.d = d;
  }
  switch (lhs.t) {
    case ORE_TYPE_INT:
      if (rhs.t == ORE_TYPE_INT || rhs.t== ORE_TYPE_FLOAT)
      {
        int iv = rhs.t == ORE_TYPE_INT ? rhs.v.i : rhs.t == ORE_TYPE_FLOAT ? (int) rhs.v.d : 0;
        if (*op == '+') { lhs.v.i += iv; }
        else if (*op == '-') { lhs.v.i -= iv; }
        else if (*op == '*') { lhs.v.i *= iv; }
        else if (*op == '/') { lhs.v.i /= iv; }
        else if (*op == '%') { lhs.v.i %= iv; }
        else {
          fprintf(stderr, "unknown operator '%s' for int\n", op);
          ore->err = ORE_ERROR_EXCEPTION;
          return ore_value_nil();
        }
      } else {
        fprintf(stderr, "unknown operator '%s' for int\n", op);
        ore->err = ORE_ERROR_EXCEPTION;
        return ore_value_nil();
      }
      break;
    case ORE_TYPE_FLOAT:
      if (rhs.t == ORE_TYPE_INT || rhs.t== ORE_TYPE_FLOAT)
      {
        double fv = rhs.t == ORE_TYPE_INT ? (double) rhs.v.i : rhs.t == ORE_TYPE_FLOAT ? rhs.v.d : 0;
        if (*op == '+') { lhs.v.d += fv; }
        else if (*op == '-') { lhs.v.d -= fv; }
        else if (*op == '*') { lhs.v.d *= fv; }
        else if (*op == '/') { lhs.v.d /= fv; }
        else if (*op == '%') { lhs.v.d = ((int) lhs.v.d % (int) fv); }
        else {
          fprintf(stderr, "unknown operator '%s' for float\n", op);
          ore->err = ORE_ERROR_EXCEPTION;
          return ore_value_nil();
        }
      } else {
        fprintf(stderr, "unknown operator '%s' for float\n", op);
        ore->err = ORE_ERROR_EXCEPTION;
        return ore_value_nil();
      }
      break;
    case ORE_TYPE_STRING:
      {
        char buf[32], *p = buf;
        if (*op == '+') {
          if (rhs.t == ORE_TYPE_INT)
            sprintf(buf, "%i", rhs.v.i);
          else if (rhs.t == ORE_TYPE_FLOAT)
            sprintf(buf, "%f", rhs.v.d);
          else if (rhs.t == ORE_TYPE_STRING)
            p = rhs.v.s->p;
          else {
            fprintf(stderr, "unknown operator '%s' for string\n", op);
            ore->err = ORE_ERROR_EXCEPTION;
            return ore_value_nil();
          }

          size_t l = strlen(p) + strlen(lhs.v.s->p);
          char* s = calloc(1, l + 1);
          strcpy(s, lhs.v.s->p);
          strcat(s, p);
          lhs = ore_value_str_from_ptr(ore, s, l);
        } else {
          fprintf(stderr, "unknown operator '%s' for string\n", op);
          ore->err = ORE_ERROR_EXCEPTION;
          return ore_value_nil();
        }
      }
      break;
    default:
      fprintf(stderr, "unknown operator '%s' for %s\n", op, ore_kind(lhs));
      ore->err = ORE_ERROR_EXCEPTION;
      return ore_value_nil();
  }
  return lhs;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x110, %rsp            # imm = 0x110
movq %rdi, -0xb0(%rbp)
movq %rdi, -0xa8(%rbp)
leaq 0x38(%rbp), %rax
movq %rax, -0xa0(%rbp)
leaq 0x10(%rbp), %rax
movq %rax, -0x98(%rbp)
movq %rsi, -0x8(%rbp)
movq %rdx, -0x10(%rbp)
cmpl $0x2, (%rax)
jne 0x16619
movq -0xa0(%rbp), %rax
cmpl $0x3, (%rax)
jne 0x16619
movq -0x98(%rbp), %rax
cvtsi2sdl 0x8(%rax), %xmm0
movsd %xmm0, -0x18(%rbp)
movl $0x3, (%rax)
movsd -0x18(%rbp), %xmm0
movsd %xmm0, 0x8(%rax)
movq -0x98(%rbp), %rax
movl (%rax), %eax
movl %eax, -0xb4(%rbp)
subl $0x2, %eax
je 0x16654
jmp 0x1662f
movl -0xb4(%rbp), %eax
subl $0x3, %eax
je 0x16804
jmp 0x16640
movl -0xb4(%rbp), %eax
subl $0x4, %eax
je 0x169e0
jmp 0x16b8f
movq -0xa0(%rbp), %rax
cmpl $0x2, (%rax)
je 0x16670
movq -0xa0(%rbp), %rax
cmpl $0x3, (%rax)
jne 0x167c7
movq -0xa0(%rbp), %rax
cmpl $0x2, (%rax)
jne 0x1668e
movq -0xa0(%rbp), %rax
movl 0x8(%rax), %eax
movl %eax, -0xb8(%rbp)
jmp 0x166c4
movq -0xa0(%rbp), %rax
cmpl $0x3, (%rax)
jne 0x166ae
movq -0xa0(%rbp), %rax
cvttsd2si 0x8(%rax), %eax
movl %eax, -0xbc(%rbp)
jmp 0x166b8
xorl %eax, %eax
movl %eax, -0xbc(%rbp)
jmp 0x166b8
movl -0xbc(%rbp), %eax
movl %eax, -0xb8(%rbp)
movl -0xb8(%rbp), %eax
movl %eax, -0x1c(%rbp)
movq -0x10(%rbp), %rax
movsbl (%rax), %eax
cmpl $0x2b, %eax
jne 0x166ee
movq -0x98(%rbp), %rax
movl -0x1c(%rbp), %ecx
addl 0x8(%rax), %ecx
movl %ecx, 0x8(%rax)
jmp 0x167c5
movq -0x10(%rbp), %rax
movsbl (%rax), %eax
cmpl $0x2d, %eax
jne 0x16711
movq -0x98(%rbp), %rax
movl -0x1c(%rbp), %edx
movl 0x8(%rax), %ecx
subl %edx, %ecx
movl %ecx, 0x8(%rax)
jmp 0x167c3
movq -0x10(%rbp), %rax
movsbl (%rax), %eax
cmpl $0x2a, %eax
jne 0x16733
movq -0x98(%rbp), %rax
movl -0x1c(%rbp), %ecx
imull 0x8(%rax), %ecx
movl %ecx, 0x8(%rax)
jmp 0x167c1
movq -0x10(%rbp), %rax
movsbl (%rax), %eax
cmpl $0x2f, %eax
jne 0x1675d
movq -0x98(%rbp), %rax
movl -0x1c(%rbp), %ecx
movl 0x8(%rax), %eax
cltd
idivl %ecx
movl %eax, %ecx
movq -0x98(%rbp), %rax
movl %ecx, 0x8(%rax)
jmp 0x167bf
movq -0x10(%rbp), %rax
movsbl (%rax), %eax
cmpl $0x25, %eax
jne 0x16785
movq -0x98(%rbp), %rax
movl -0x1c(%rbp), %ecx
movl 0x8(%rax), %eax
cltd
idivl %ecx
movq -0x98(%rbp), %rax
movl %edx, 0x8(%rax)
jmp 0x167bd
movq 0xa86c(%rip), %rax      # 0x20ff8
movq (%rax), %rdi
movq -0x10(%rbp), %rdx
leaq 0x59ac(%rip), %rsi      # 0x1c146
movb $0x0, %al
callq 0x2140
movq -0xb0(%rbp), %rdi
movq -0x8(%rbp), %rax
movl $0x1, 0x20(%rax)
callq 0x10670
jmp 0x16c20
jmp 0x167bf
jmp 0x167c1
jmp 0x167c3
jmp 0x167c5
jmp 0x167ff
movq 0xa82a(%rip), %rax      # 0x20ff8
movq (%rax), %rdi
movq -0x10(%rbp), %rdx
leaq 0x596a(%rip), %rsi      # 0x1c146
movb $0x0, %al
callq 0x2140
movq -0xb0(%rbp), %rdi
movq -0x8(%rbp), %rax
movl $0x1, 0x20(%rax)
callq 0x10670
jmp 0x16c20
jmp 0x16c08
movq -0xa0(%rbp), %rax
cmpl $0x2, (%rax)
je 0x16820
movq -0xa0(%rbp), %rax
cmpl $0x3, (%rax)
jne 0x169a3
movq -0xa0(%rbp), %rax
cmpl $0x2, (%rax)
jne 0x16842
movq -0xa0(%rbp), %rax
cvtsi2sdl 0x8(%rax), %xmm0
movsd %xmm0, -0xc8(%rbp)
jmp 0x16881
movq -0xa0(%rbp), %rax
cmpl $0x3, (%rax)
jne 0x16864
movq -0xa0(%rbp), %rax
movsd 0x8(%rax), %xmm0
movsd %xmm0, -0xd0(%rbp)
jmp 0x16871
xorps %xmm0, %xmm0
movsd %xmm0, -0xd0(%rbp)
jmp 0x16871
movsd -0xd0(%rbp), %xmm0
movsd %xmm0, -0xc8(%rbp)
movsd -0xc8(%rbp), %xmm0
movsd %xmm0, -0x28(%rbp)
movq -0x10(%rbp), %rax
movsbl (%rax), %eax
cmpl $0x2b, %eax
jne 0x168b5
movq -0x98(%rbp), %rax
movsd -0x28(%rbp), %xmm0
addsd 0x8(%rax), %xmm0
movsd %xmm0, 0x8(%rax)
jmp 0x169a1
movq -0x10(%rbp), %rax
movsbl (%rax), %eax
cmpl $0x2d, %eax
jne 0x168e0
movq -0x98(%rbp), %rax
movsd -0x28(%rbp), %xmm1
movsd 0x8(%rax), %xmm0
subsd %xmm1, %xmm0
movsd %xmm0, 0x8(%rax)
jmp 0x1699f
movq -0x10(%rbp), %rax
movsbl (%rax), %eax
cmpl $0x2a, %eax
jne 0x16907
movq -0x98(%rbp), %rax
movsd -0x28(%rbp), %xmm0
mulsd 0x8(%rax), %xmm0
movsd %xmm0, 0x8(%rax)
jmp 0x1699d
movq -0x10(%rbp), %rax
movsbl (%rax), %eax
cmpl $0x2f, %eax
jne 0x1692f
movq -0x98(%rbp), %rax
movsd -0x28(%rbp), %xmm1
movsd 0x8(%rax), %xmm0
divsd %xmm1, %xmm0
movsd %xmm0, 0x8(%rax)
jmp 0x1699b
movq -0x10(%rbp), %rax
movsbl (%rax), %eax
cmpl $0x25, %eax
jne 0x16961
movq -0x98(%rbp), %rax
cvttsd2si 0x8(%rax), %eax
cvttsd2si -0x28(%rbp), %ecx
cltd
idivl %ecx
movq -0x98(%rbp), %rax
cvtsi2sd %edx, %xmm0
movsd %xmm0, 0x8(%rax)
jmp 0x16999
movq 0xa690(%rip), %rax      # 0x20ff8
movq (%rax), %rdi
movq -0x10(%rbp), %rdx
leaq 0x57ef(%rip), %rsi      # 0x1c165
movb $0x0, %al
callq 0x2140
movq -0xb0(%rbp), %rdi
movq -0x8(%rbp), %rax
movl $0x1, 0x20(%rax)
callq 0x10670
jmp 0x16c20
jmp 0x1699b
jmp 0x1699d
jmp 0x1699f
jmp 0x169a1
jmp 0x169db
movq 0xa64e(%rip), %rax      # 0x20ff8
movq (%rax), %rdi
movq -0x10(%rbp), %rdx
leaq 0x57ad(%rip), %rsi      # 0x1c165
movb $0x0, %al
callq 0x2140
movq -0xb0(%rbp), %rdi
movq -0x8(%rbp), %rax
movl $0x1, 0x20(%rax)
callq 0x10670
jmp 0x16c20
jmp 0x16c08
leaq -0x50(%rbp), %rax
movq %rax, -0x58(%rbp)
movq -0x10(%rbp), %rax
movsbl (%rax), %eax
cmpl $0x2b, %eax
jne 0x16b55
movq -0xa0(%rbp), %rax
cmpl $0x2, (%rax)
jne 0x16a25
movq -0xa0(%rbp), %rax
leaq -0x50(%rbp), %rdi
movl 0x8(%rax), %edx
leaq 0x576d(%rip), %rsi      # 0x1c186
movb $0x0, %al
callq 0x2220
jmp 0x16aad
movq -0xa0(%rbp), %rax
cmpl $0x3, (%rax)
jne 0x16a51
movq -0xa0(%rbp), %rax
leaq -0x50(%rbp), %rdi
movsd 0x8(%rax), %xmm0
leaq 0x5741(%rip), %rsi      # 0x1c189
movb $0x1, %al
callq 0x2220
jmp 0x16aab
movq -0xa0(%rbp), %rax
cmpl $0x4, (%rax)
jne 0x16a71
movq -0xa0(%rbp), %rax
movq 0x8(%rax), %rax
movq (%rax), %rax
movq %rax, -0x58(%rbp)
jmp 0x16aa9
movq 0xa580(%rip), %rax      # 0x20ff8
movq (%rax), %rdi
movq -0x10(%rbp), %rdx
leaq 0x5706(%rip), %rsi      # 0x1c18c
movb $0x0, %al
callq 0x2140
movq -0xb0(%rbp), %rdi
movq -0x8(%rbp), %rax
movl $0x1, 0x20(%rax)
callq 0x10670
jmp 0x16c20
jmp 0x16aab
jmp 0x16aad
movq -0x58(%rbp), %rdi
callq 0x20b0
movq %rax, %rcx
movq -0x98(%rbp), %rax
movq %rcx, -0xd8(%rbp)
movq 0x8(%rax), %rax
movq (%rax), %rdi
callq 0x20b0
movq %rax, %rcx
movq -0xd8(%rbp), %rax
addq %rcx, %rax
movq %rax, -0x60(%rbp)
movq -0x60(%rbp), %rsi
addq $0x1, %rsi
movl $0x1, %edi
callq 0x2120
movq %rax, %rcx
movq -0x98(%rbp), %rax
movq %rcx, -0x68(%rbp)
movq -0x68(%rbp), %rdi
movq 0x8(%rax), %rax
movq (%rax), %rsi
callq 0x2050
movq -0x68(%rbp), %rdi
movq -0x58(%rbp), %rsi
callq 0x2210
movq -0x8(%rbp), %rsi
movq -0x68(%rbp), %rdx
movq -0x60(%rbp), %rax
movl %eax, %ecx
leaq -0x90(%rbp), %rdi
callq 0x14e10
movq -0x98(%rbp), %rdi
leaq -0x90(%rbp), %rsi
movl $0x28, %edx
callq 0x2170
jmp 0x16b8d
movq 0xa49c(%rip), %rax      # 0x20ff8
movq (%rax), %rdi
movq -0x10(%rbp), %rdx
leaq 0x5622(%rip), %rsi      # 0x1c18c
movb $0x0, %al
callq 0x2140
movq -0xb0(%rbp), %rdi
movq -0x8(%rbp), %rax
movl $0x1, 0x20(%rax)
callq 0x10670
jmp 0x16c20
jmp 0x16c08
movq -0x98(%rbp), %rcx
movq 0xa45b(%rip), %rax      # 0x20ff8
movq (%rax), %rax
movq %rax, -0xe8(%rbp)
movq -0x10(%rbp), %rax
movq %rax, -0xe0(%rbp)
movq 0x20(%rcx), %rdx
movq %rsp, %rax
movq %rdx, 0x20(%rax)
movups (%rcx), %xmm0
movups 0x10(%rcx), %xmm1
movups %xmm1, 0x10(%rax)
movups %xmm0, (%rax)
callq 0x163a0
movq -0xe8(%rbp), %rdi
movq -0xe0(%rbp), %rdx
movq %rax, %rcx
leaq 0x55c6(%rip), %rsi      # 0x1c1ae
movb $0x0, %al
callq 0x2140
movq -0xb0(%rbp), %rdi
movq -0x8(%rbp), %rax
movl $0x1, 0x20(%rax)
callq 0x10670
jmp 0x16c20
movq -0x98(%rbp), %rsi
movq -0xb0(%rbp), %rdi
movl $0x28, %edx
callq 0x2170
movq -0xa8(%rbp), %rax
addq $0x110, %rsp            # imm = 0x110
popq %rbp
retq