// File: /workspace/github_c_makefile_star2_O0/pocari[P]compilerbook-9cc/debug.c
// Function: function_body_ast
char *function_body_ast(Function *f) {
  int n = 0;
  char buf[10000];

  char *ti = type_info(f->return_type);
  n = sprintf(buf + n, "(def (%s) %s (", ti, f->name);
  free(ti);

  int i = 0;
  VarList* reverse_params = NULL;
  // f->paramsは最後の引数からのリンクリストになってるのでダンプ用には逆順にする。
  for (VarList *cur = f->params; cur; cur = cur->next) {
    VarList *vl = calloc(1, sizeof(VarList));
    vl->next = reverse_params;
    vl->var = cur->var;
    reverse_params = vl;
  }

  // 逆順にしたリストからastダンプ
  for (VarList *p = reverse_params; p; p = p->next) {
    char *ti = type_info(p->var->type);
    n += sprintf(buf + n, "%s %s", ti, p->var->name);
    free(ti);
    if (p->next) {
      n += sprintf(buf + n, " ");
    }
  }
  // 逆順のリストはもういらないので捨てる。(そこに紐づくLVar は別途freeされるので無視する)
  VarList *rp = reverse_params;
  while (rp) {
    VarList *tmp = rp->next;
    free(rp);
    rp = tmp;
  }

  char *body_ast = node_ast_helper(f->body);
  n += sprintf(buf + n, ") ( %s", body_ast);
  n += sprintf(buf + n, "## ))");
  free(body_ast);

  return my_strndup(buf, n);
}

// Assembly:
pushq %rbp
movq %rsp, %rbp
subq $0x2770, %rsp           # imm = 0x2770
movq %rdi, -0x8(%rbp)
movl $0x0, -0xc(%rbp)
movq -0x8(%rbp), %rax
movq 0x8(%rax), %rdi
callq 0x47b0
movq %rax, -0x2728(%rbp)
leaq -0x2720(%rbp), %rdi
movslq -0xc(%rbp), %rax
addq %rax, %rdi
movq -0x2728(%rbp), %rdx
movq -0x8(%rbp), %rax
movq 0x10(%rax), %rcx
leaq 0xa4a7(%rip), %rsi      # 0x104f5
movb $0x0, %al
callq 0x2190
movl %eax, -0xc(%rbp)
movq -0x2728(%rbp), %rdi
callq 0x2030
movl $0x0, -0x272c(%rbp)
movq $0x0, -0x2738(%rbp)
movq -0x8(%rbp), %rax
movq 0x28(%rax), %rax
movq %rax, -0x2740(%rbp)
cmpq $0x0, -0x2740(%rbp)
je 0x60f0
movl $0x1, %edi
movl $0x10, %esi
callq 0x20e0
movq %rax, -0x2748(%rbp)
movq -0x2738(%rbp), %rcx
movq -0x2748(%rbp), %rax
movq %rcx, (%rax)
movq -0x2740(%rbp), %rax
movq 0x8(%rax), %rcx
movq -0x2748(%rbp), %rax
movq %rcx, 0x8(%rax)
movq -0x2748(%rbp), %rax
movq %rax, -0x2738(%rbp)
movq -0x2740(%rbp), %rax
movq (%rax), %rax
movq %rax, -0x2740(%rbp)
jmp 0x6088
movq -0x2738(%rbp), %rax
movq %rax, -0x2750(%rbp)
cmpq $0x0, -0x2750(%rbp)
je 0x61b1
movq -0x2750(%rbp), %rax
movq 0x8(%rax), %rax
movq (%rax), %rdi
callq 0x47b0
movq %rax, -0x2758(%rbp)
leaq -0x2720(%rbp), %rdi
movslq -0xc(%rbp), %rax
addq %rax, %rdi
movq -0x2758(%rbp), %rdx
movq -0x2750(%rbp), %rax
movq 0x8(%rax), %rax
movq 0x8(%rax), %rcx
leaq 0xa3b3(%rip), %rsi      # 0x10504
movb $0x0, %al
callq 0x2190
addl -0xc(%rbp), %eax
movl %eax, -0xc(%rbp)
movq -0x2758(%rbp), %rdi
callq 0x2030
movq -0x2750(%rbp), %rax
cmpq $0x0, (%rax)
je 0x6199
leaq -0x2720(%rbp), %rdi
movslq -0xc(%rbp), %rax
addq %rax, %rdi
leaq 0x98fd(%rip), %rsi      # 0xfa89
movb $0x0, %al
callq 0x2190
addl -0xc(%rbp), %eax
movl %eax, -0xc(%rbp)
jmp 0x619b
movq -0x2750(%rbp), %rax
movq (%rax), %rax
movq %rax, -0x2750(%rbp)
jmp 0x60fe
movq -0x2738(%rbp), %rax
movq %rax, -0x2760(%rbp)
cmpq $0x0, -0x2760(%rbp)
je 0x61f6
movq -0x2760(%rbp), %rax
movq (%rax), %rax
movq %rax, -0x2768(%rbp)
movq -0x2760(%rbp), %rdi
callq 0x2030
movq -0x2768(%rbp), %rax
movq %rax, -0x2760(%rbp)
jmp 0x61bf
movq -0x8(%rbp), %rax
movq 0x18(%rax), %rdi
callq 0x5ec0
movq %rax, -0x2770(%rbp)
leaq -0x2720(%rbp), %rdi
movslq -0xc(%rbp), %rax
addq %rax, %rdi
movq -0x2770(%rbp), %rdx
leaq 0xa2e4(%rip), %rsi      # 0x1050a
movb $0x0, %al
callq 0x2190
addl -0xc(%rbp), %eax
movl %eax, -0xc(%rbp)
leaq -0x2720(%rbp), %rdi
movslq -0xc(%rbp), %rax
addq %rax, %rdi
leaq 0xa2c9(%rip), %rsi      # 0x10511
movb $0x0, %al
callq 0x2190
addl -0xc(%rbp), %eax
movl %eax, -0xc(%rbp)
movq -0x2770(%rbp), %rdi
callq 0x2030
leaq -0x2720(%rbp), %rdi
movl -0xc(%rbp), %esi
callq 0x6690
addq $0x2770, %rsp           # imm = 0x2770
popq %rbp
retq
nopl (%rax)