// File: /workspace/github_c_makefile_star2_O0/pocari[P]compilerbook-9cc/parser.c
// Function: parse_call_func
static Node *parse_call_func(Token *t) {
  Node *node = new_node(ND_CALL, t);
  node->funcname = my_strndup(t->str, t->len);

  VarScope *func_var_sc = find_var(t);
  if (func_var_sc) {
    Var *func_var = func_var_sc->var;
    if (func_var->type->kind != TY_FUNC) {
      // 関数名でなかったらエラー
      error_at(t->str, "%s is not a function name", node->funcname);
    }
    // 関数の戻り値の型をND_CALLの戻り値にする
    node->ty = func_var->type->return_ty;
  } else if (!strcmp(node->funcname, "__builtin_va_start")) {
    // var_start 用の組込み関数かをチェック
    node->ty = void_type;
  } else {
    fprintf(stderr, "関数: %s は宣言されていません\n", node->funcname);
    // 未宣言の関数を呼び出す場合は警告だけだして一旦int型を返す関数として扱う
    node->ty = int_type;
  }

  if (consume(")")) {
    // 閉じカッコがきたら引数なし関数
    add_type(node);
    return node;
  }

  // 引数パース
  // 引数を評価するときは最後の引数から評価したいので、node->argには逆順のリストを設定する
  int args = 0;
  Node *cur = assign();
  args++;
  while (consume(",")) {
    Node *arg = assign();
    arg->next = cur;
    cur = arg;
    args++;
  }
  // f(1, 2, 3)という関数呼び出しのnode->argは
  // 3 -> 2 -> 1
  // になる
  node->arg = cur;

  node->funcarg_num = args;

  expect(")");

  add_type(node);

  return node;
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x40, %rsp
movq %rdi, -0x10(%rbp)
movq -0x10(%rbp), %rsi
movl $0x1d, %edi
callq 0x6980
movq %rax, -0x18(%rbp)
movq -0x10(%rbp), %rax
movq 0x18(%rax), %rdi
movq -0x10(%rbp), %rax
movl 0x20(%rax), %esi
callq 0x6690
movq %rax, %rcx
movq -0x18(%rbp), %rax
movq %rcx, 0x88(%rax)
movq -0x10(%rbp), %rdi
callq 0xac50
movq %rax, -0x20(%rbp)
cmpq $0x0, -0x20(%rbp)
je 0xaa02
movq -0x20(%rbp), %rax
movq 0x10(%rax), %rax
movq %rax, -0x28(%rbp)
movq -0x28(%rbp), %rax
movq (%rax), %rax
cmpl $0xb, (%rax)
je 0xa9ed
movq -0x10(%rbp), %rax
movq 0x18(%rax), %rdi
movq -0x18(%rbp), %rax
movq 0x88(%rax), %rdx
leaq 0x5f8f(%rip), %rsi      # 0x10975
movb $0x0, %al
callq 0x6370
movq -0x28(%rbp), %rax
movq (%rax), %rax
movq 0x28(%rax), %rcx
movq -0x18(%rbp), %rax
movq %rcx, 0x10(%rax)
jmp 0xaa69
movq -0x18(%rbp), %rax
movq 0x88(%rax), %rdi
leaq 0x4ced(%rip), %rsi      # 0xf701
callq 0x20f0
cmpl $0x0, %eax
jne 0xaa32
leaq 0xaa1b(%rip), %rax      # 0x15440
movq (%rax), %rcx
movq -0x18(%rbp), %rax
movq %rcx, 0x10(%rax)
jmp 0xaa67
movq 0xa5bf(%rip), %rax      # 0x14ff8
movq (%rax), %rdi
movq -0x18(%rbp), %rax
movq 0x88(%rax), %rdx
leaq 0x5f41(%rip), %rsi      # 0x1098f
movb $0x0, %al
callq 0x2100
leaq 0xaa54(%rip), %rax      # 0x154b0
movq (%rax), %rcx
movq -0x18(%rbp), %rax
movq %rcx, 0x10(%rax)
jmp 0xaa69
leaq 0x5b9d(%rip), %rdi      # 0x1060d
callq 0x6780
cmpq $0x0, %rax
je 0xaa91
movq -0x18(%rbp), %rdi
callq 0xdb80
movq -0x18(%rbp), %rax
movq %rax, -0x8(%rbp)
jmp 0xab1a
movl $0x0, -0x2c(%rbp)
callq 0x9d00
movq %rax, -0x38(%rbp)
movl -0x2c(%rbp), %eax
addl $0x1, %eax
movl %eax, -0x2c(%rbp)
leaq 0x5b40(%rip), %rdi      # 0x105f1
callq 0x6780
cmpq $0x0, %rax
je 0xaae4
callq 0x9d00
movq %rax, -0x40(%rbp)
movq -0x38(%rbp), %rcx
movq -0x40(%rbp), %rax
movq %rcx, 0x30(%rax)
movq -0x40(%rbp), %rax
movq %rax, -0x38(%rbp)
movl -0x2c(%rbp), %eax
addl $0x1, %eax
movl %eax, -0x2c(%rbp)
jmp 0xaaaa
movq -0x38(%rbp), %rcx
movq -0x18(%rbp), %rax
movq %rcx, 0x70(%rax)
movl -0x2c(%rbp), %ecx
movq -0x18(%rbp), %rax
movl %ecx, 0x90(%rax)
leaq 0x5b09(%rip), %rdi      # 0x1060d
callq 0x7730
movq -0x18(%rbp), %rdi
callq 0xdb80
movq -0x18(%rbp), %rax
movq %rax, -0x8(%rbp)
movq -0x8(%rbp), %rax
addq $0x40, %rsp
popq %rbp
retq
nopw %cs:(%rax,%rax)