// File: /workspace/github_c_makefile_star2_O0/deplinenoise[P]vlink/expr.c
// Function: eval_expr
static int eval_expr(struct Expr *tree,lword *result)
/* evaluate expression tree, returns !0 when result is absolute */
{
  const char *fn = "eval_expr: ";
  int abs = 1;
  int labs=0,rabs=0;
  lword val=0,lval,rval;

  if (tree) {
    if (tree->left) {
      if (!(labs = eval_expr(tree->left,&lval)))
        abs = 0;
    }
    if (tree->right) {
      if (!(rabs = eval_expr(tree->right,&rval)))
        abs = 0;
    }

    switch(tree->type) {
      case ADD:
        val = lval + rval;
        break;
      case SUB:
        val = lval - rval;
        if (!labs && !rabs)
          abs = 1;  /* result is absolute, when both are reloc */
        break;
      case MUL:
        val = lval * rval;
        break;
      case DIV:
        if (rval == 0) {
          error(103,scriptname,line);  /* Division by zero */
          val = 0;
        }
        else
          val = lval / rval;
        break;
      case MOD:
        if (rval == 0) {
          error(103,scriptname,line);  /* Division by zero */
          val = 0;
        }
        else
          val = lval % rval;
        break;
      case NEG:
        val = -lval;
        break;
      case CPL:
        val = ~lval;
        break;
      case LAND:
        val = lval && rval;
        break;
      case LOR:
        val = lval || rval;
        break;
      case BAND:
        val = lval & rval;
        break;
      case BOR:
        val = lval | rval;
        break;
      case XOR:
        val = lval ^ rval;
        break;
      case NOT:
        val = !lval;
        break;
      case LSH:
        val = lval << rval;
        break;
      case RSH:
        val = lval >> rval;
        break;
      case LT:
        val = lval < rval;
        break;
      case GT:
        val = lval > rval;
        break;
      case LEQ:
        val = lval <= rval;
        break;
      case GEQ:
        val = lval >= rval;
        break;
      case NEQ:
        val = lval != rval;
        break;
      case EQ:
        val = lval == rval;
        break;
      case REL:
        abs = 0;
      case ABS:
        val = tree->val;
        break;
      default:
        ierror("%sIllegal tree type %d",fn,tree->type);
        break;
    }
  }
  else
    ierror("%sNULL tree",fn);

  *result = val;
  return abs;
}

// Assembly:
subq $0x58, %rsp
movq %rdi, 0x50(%rsp)
movq %rsi, 0x48(%rsp)
leaq 0x1d23b(%rip), %rax     # 0x35da0
movq %rax, 0x40(%rsp)
movl $0x1, 0x3c(%rsp)
movl $0x0, 0x38(%rsp)
movl $0x0, 0x34(%rsp)
movq $0x0, 0x28(%rsp)
cmpq $0x0, 0x50(%rsp)
je 0x18ee6
movq 0x50(%rsp), %rax
cmpq $0x0, 0x8(%rax)
je 0x18bc9
movq 0x50(%rsp), %rax
movq 0x8(%rax), %rdi
leaq 0x20(%rsp), %rsi
callq 0x18b50
movl %eax, 0x38(%rsp)
cmpl $0x0, %eax
jne 0x18bc7
movl $0x0, 0x3c(%rsp)
jmp 0x18bc9
movq 0x50(%rsp), %rax
cmpq $0x0, 0x10(%rax)
je 0x18bfb
movq 0x50(%rsp), %rax
movq 0x10(%rax), %rdi
leaq 0x18(%rsp), %rsi
callq 0x18b50
movl %eax, 0x34(%rsp)
cmpl $0x0, %eax
jne 0x18bf9
movl $0x0, 0x3c(%rsp)
jmp 0x18bfb
movq 0x50(%rsp), %rax
movl (%rax), %eax
movq %rax, 0x10(%rsp)
subq $0x16, %rax
ja 0x18eca
movq 0x10(%rsp), %rax
leaq 0x1d127(%rip), %rcx     # 0x35d44
movslq (%rcx,%rax,4), %rax
addq %rcx, %rax
jmpq *%rax
movq 0x20(%rsp), %rax
addq 0x18(%rsp), %rax
movq %rax, 0x28(%rsp)
jmp 0x18ee4
movq 0x20(%rsp), %rax
subq 0x18(%rsp), %rax
movq %rax, 0x28(%rsp)
cmpl $0x0, 0x38(%rsp)
jne 0x18c5f
cmpl $0x0, 0x34(%rsp)
jne 0x18c5f
movl $0x1, 0x3c(%rsp)
jmp 0x18ee4
movq 0x20(%rsp), %rax
imulq 0x18(%rsp), %rax
movq %rax, 0x28(%rsp)
jmp 0x18ee4
cmpq $0x0, 0x18(%rsp)
jne 0x18ca5
movq 0x2bff8(%rip), %rsi     # 0x44c80
movl 0x2bdda(%rip), %edx     # 0x44a68
movl $0x67, %edi
movb $0x0, %al
callq 0x8c00
movq $0x0, 0x28(%rsp)
jmp 0x18cb6
movq 0x20(%rsp), %rax
cqto
idivq 0x18(%rsp)
movq %rax, 0x28(%rsp)
jmp 0x18ee4
cmpq $0x0, 0x18(%rsp)
jne 0x18ce7
movq 0x2bfb6(%rip), %rsi     # 0x44c80
movl 0x2bd98(%rip), %edx     # 0x44a68
movl $0x67, %edi
movb $0x0, %al
callq 0x8c00
movq $0x0, 0x28(%rsp)
jmp 0x18cf8
movq 0x20(%rsp), %rax
cqto
idivq 0x18(%rsp)
movq %rdx, 0x28(%rsp)
jmp 0x18ee4
xorl %eax, %eax
subq 0x20(%rsp), %rax
movq %rax, 0x28(%rsp)
jmp 0x18ee4
movq 0x20(%rsp), %rax
xorq $-0x1, %rax
movq %rax, 0x28(%rsp)
jmp 0x18ee4
xorl %eax, %eax
cmpq $0x0, 0x20(%rsp)
movb %al, 0xf(%rsp)
je 0x18d3c
cmpq $0x0, 0x18(%rsp)
setne %al
movb %al, 0xf(%rsp)
movb 0xf(%rsp), %al
andb $0x1, %al
movzbl %al, %eax
cltq
movq %rax, 0x28(%rsp)
jmp 0x18ee4
movb $0x1, %al
cmpq $0x0, 0x20(%rsp)
movb %al, 0xe(%rsp)
jne 0x18d6c
cmpq $0x0, 0x18(%rsp)
setne %al
movb %al, 0xe(%rsp)
movb 0xe(%rsp), %al
andb $0x1, %al
movzbl %al, %eax
cltq
movq %rax, 0x28(%rsp)
jmp 0x18ee4
movq 0x20(%rsp), %rax
andq 0x18(%rsp), %rax
movq %rax, 0x28(%rsp)
jmp 0x18ee4
movq 0x20(%rsp), %rax
orq 0x18(%rsp), %rax
movq %rax, 0x28(%rsp)
jmp 0x18ee4
movq 0x20(%rsp), %rax
xorq 0x18(%rsp), %rax
movq %rax, 0x28(%rsp)
jmp 0x18ee4
cmpq $0x0, 0x20(%rsp)
setne %al
xorb $-0x1, %al
andb $0x1, %al
movzbl %al, %eax
cltq
movq %rax, 0x28(%rsp)
jmp 0x18ee4
movq 0x20(%rsp), %rax
movq 0x18(%rsp), %rcx
shlq %cl, %rax
movq %rax, 0x28(%rsp)
jmp 0x18ee4
movq 0x20(%rsp), %rax
movq 0x18(%rsp), %rcx
sarq %cl, %rax
movq %rax, 0x28(%rsp)
jmp 0x18ee4
movq 0x20(%rsp), %rax
cmpq 0x18(%rsp), %rax
setl %al
andb $0x1, %al
movzbl %al, %eax
cltq
movq %rax, 0x28(%rsp)
jmp 0x18ee4
movq 0x20(%rsp), %rax
cmpq 0x18(%rsp), %rax
setg %al
andb $0x1, %al
movzbl %al, %eax
cltq
movq %rax, 0x28(%rsp)
jmp 0x18ee4
movq 0x20(%rsp), %rax
cmpq 0x18(%rsp), %rax
setle %al
andb $0x1, %al
movzbl %al, %eax
cltq
movq %rax, 0x28(%rsp)
jmp 0x18ee4
movq 0x20(%rsp), %rax
cmpq 0x18(%rsp), %rax
setge %al
andb $0x1, %al
movzbl %al, %eax
cltq
movq %rax, 0x28(%rsp)
jmp 0x18ee4
movq 0x20(%rsp), %rax
cmpq 0x18(%rsp), %rax
setne %al
andb $0x1, %al
movzbl %al, %eax
cltq
movq %rax, 0x28(%rsp)
jmp 0x18ee4
movq 0x20(%rsp), %rax
cmpq 0x18(%rsp), %rax
sete %al
andb $0x1, %al
movzbl %al, %eax
cltq
movq %rax, 0x28(%rsp)
jmp 0x18ee4
movl $0x0, 0x3c(%rsp)
movq 0x50(%rsp), %rax
movq 0x18(%rax), %rax
movq %rax, 0x28(%rsp)
jmp 0x18ee4
movq 0x40(%rsp), %rsi
movq 0x50(%rsp), %rax
movl (%rax), %edx
leaq 0x1cecf(%rip), %rdi     # 0x35dac
movb $0x0, %al
callq 0x8ae0
jmp 0x18ef9
movq 0x40(%rsp), %rsi
leaq 0x1ced1(%rip), %rdi     # 0x35dc3
movb $0x0, %al
callq 0x8ae0
movq 0x28(%rsp), %rcx
movq 0x48(%rsp), %rax
movq %rcx, (%rax)
movl 0x3c(%rsp), %eax
addq $0x58, %rsp
retq
nop