// File: /workspace/github_c_makefile_star2_O2/pocari[P]compilerbook-9cc/parser.c
// Function: basetype
static Type *basetype(StorageClass *sclass) {
  if (!is_type(token)) {
    error_at(token->str, "typename expected");
  }

  // typedef x
  // なども合法なのでデフォルトの型をintにしておく
  Type *ty = int_type;

  // 各型が何回出てきたかを数えるcounter
  int counter = 0;

  // counterに加えていく値。
  // 適当に2回足してもかぶらないようにシフトさせているんだと思う
  enum {
    VOID  = 1 << 0,
    BOOL  = 1 << 2,
    CHAR  = 1 << 4,
    SHORT = 1 << 6,
    INT   = 1 << 8,
    LONG  = 1 << 10,
    OTHER = 1 << 12,
  };

  // storage class が指定可能な場所はまず未定義で初期化
  if (sclass) {
    *sclass = 0;
  }

  while (is_type(token)) {
    Token *tk = token;

    if (peek_kind(TK_TYPEDEF) || peek_kind(TK_STATIC) || peek_kind(TK_EXTERN)) {
      if (!sclass) {
        error_at(tk->str, "ストレージクラス指定子はここでは使えません");
      }
      // 一度でもどこかにtypedef/staticがついていたら覚えておく
      if (consume_kind(TK_TYPEDEF)) {
        *sclass |= TYPEDEF;
      } else if (consume_kind(TK_STATIC)) {
        *sclass |= STATIC;
      } else if (consume_kind(TK_EXTERN)) {
        *sclass |= EXTERN;
      }

      // typedef と static と extern を同時に使っていたらエラーにする
      // 001        010       100
      // 3bitのうちどこか1bitのみ立っている場合だけOKでそれ以外はNGにしたい。
      // ある値xがあったとして
      // x & (x - 1) が 0 になる場合は どこかの1bitしか立っていないということに鳴るらしい
      // 例
      // x = 0b0010 の場合
      // x & (x - 1) = 0b0010 & 0b0001 = 0
      //
      // x = 0b0011 の場合
      // x & (x - 1) = 0b0011 & 0b0001 = 0b0001
      //
      // となり、複数のbitが立っているときのみ0以外になる
      if (*sclass & (*sclass - 1)) {
        // どこかの複数のbitが立っていた場合は複数のsclassが使われていることになるので
        error_at(tk->str, "static、typedefとexternは同時に指定できません");
      }

      continue;
    }

    if (!is_builtin_type(tk)) {
      if (counter) {
        //ビルトインの型名じゃないものがきて、かつ、一度でも何かの型を読んでいたら
        //変数宣言(またはtypedef)の後の識別子にきてるので、終了
        break;
      }
      //まだ何も型名を読んでいなくて、ビルトインの方じゃない場合は、構造体か、typedefされた型名になる。
      if (tk->kind == TK_STRUCT) {
        ty = struct_decl();
      } else if (tk->kind == TK_ENUM) {
        ty = enum_decl();
      } else {
        ty = find_typedef(tk);
        // fprintf(stderr, "found typedef: %s\n", my_strndup(tk->str, tk->len));
        // fprintf(stderr, "found is_incomplete: %d\n", ty->is_incomplete);
        assert(ty);
        token = token->next;
      }

      // ビルトイン以外の型を読んだのでカウンターを上げる
      counter += OTHER;
      continue;
    }

    if (consume_kind(TK_VOID)) {
      counter += VOID;
    } else if (consume_kind(TK_BOOL)) {
      counter += BOOL;
    } else if (consume_kind(TK_CHAR)) {
      counter += CHAR;
    } else if (consume_kind(TK_SHORT)) {
      counter += SHORT;
    } else if (consume_kind(TK_INT)) {
      counter += INT;
    } else if (consume_kind(TK_LONG)) {
      counter += LONG;
    }

    // counterがとり得る値のみ許可して他はエラー
    switch (counter) {
      case VOID:
        ty = void_type;
        break;
      case BOOL:
        ty = bool_type;
        break;
      case CHAR:
        ty = char_type;
        break;
      case SHORT:
      case SHORT + INT: // これで short int, int short どっちも判断できる
        ty = short_type;
        break;
      case INT:
        ty = int_type;
        break;
      case LONG:
      case LONG + INT:
      case LONG + LONG:
      case LONG + LONG + INT:
        ty = long_type;
        break;
      default:
        error_at(tk->str, "不正な型です");
    }
  }

  return ty;
}

// Assembly:
pushq %rbp
pushq %r15
pushq %r14
pushq %r13
pushq %r12
pushq %rbx
subq $0x18, %rsp
movq %rdi, %rbx
leaq 0xa584(%rip), %r12      # 0xf480
movq (%r12), %r15
movq %r15, %rdi
callq 0x54e7
testb %al, %al
je 0x53d3
leaq 0xa449(%rip), %rax      # 0xf360
movq (%rax), %rbp
testq %rbx, %rbx
je 0x4f22
andl $0x0, (%rbx)
xorl %r14d, %r14d
movq %r15, %rdi
callq 0x54e7
testb %al, %al
je 0x5376
movl (%r15), %eax
leal -0x15(%rax), %ecx
cmpl $0x2, %ecx
ja 0x4f6d
testq %rbx, %rbx
je 0x5395
cmpl $0x16, %eax
je 0x5091
cmpl $0x15, %eax
jne 0x50a0
movq 0x8(%r15), %rax
movq %rax, (%r12)
movl (%rbx), %eax
orl $0x1, %eax
jmp 0x50ad
leal -0xa(%rax), %ecx
cmpl $0x6, %ecx
jae 0x5017
jae 0x4f90
movl %ecx, %eax
movq 0x8(%r15), %rcx
movq %rcx, (%r12)
leaq 0x56f8(%rip), %rcx      # 0xa684
addl (%rcx,%rax,4), %r14d
cmpl $0x900, %r14d           # imm = 0x900
je 0x50bf
cmpl $0x4, %r14d
je 0x52ee
cmpl $0x10, %r14d
je 0x52fc
cmpl $0x40, %r14d
je 0x5126
cmpl $0x100, %r14d           # imm = 0x100
je 0x530e
cmpl $0x140, %r14d           # imm = 0x140
je 0x5126
cmpl $0x400, %r14d           # imm = 0x400
je 0x50bf
cmpl $0x500, %r14d           # imm = 0x500
je 0x50bf
cmpl $0x800, %r14d           # imm = 0x800
je 0x50bf
cmpl $0x1, %r14d
jne 0x53e0
leaq 0xa2e3(%rip), %rax      # 0xf2f0
movq (%rax), %rbp
pushq $0x1
jmp 0x5308
testl %r14d, %r14d
jne 0x5376
cmpl $0x11, %eax
je 0x50c8
cmpl $0x10, %eax
jne 0x5105
pushq $0x10
popq %rdi
callq 0x5579
movq (%r12), %r15
movl (%r15), %r14d
cmpl $0x2, %r14d
jne 0x5135
movq 0x8(%r15), %rax
movq %rax, (%r12)
leaq 0x52bc(%rip), %rdi      # 0xa316
callq 0x4ea0
testb %al, %al
jne 0x5138
movq %r15, %rdi
callq 0x55ad
testq %rax, %rax
je 0x535e
movq 0x10(%rax), %rbp
movl $0x1000, %r14d          # imm = 0x1000
cmpl $0x9, (%rbp)
je 0x5355
jmp 0x541f
movq 0x8(%r15), %rax
movq %rax, (%r12)
movl (%rbx), %eax
orl $0x2, %eax
jmp 0x50ad
movl (%rbx), %eax
movq 0x8(%r15), %rcx
movq %rcx, (%r12)
orl $0x4, %eax
movl %eax, (%rbx)
leal -0x1(%rax), %ecx
testl %ecx, %eax
je 0x5355
jmp 0x53a2
leaq 0xa30a(%rip), %rax      # 0xf3d0
jmp 0x512d
pushq $0x11
popq %rdi
callq 0x5579
movq (%r12), %r15
movl (%r15), %ebp
cmpl $0x2, %ebp
jne 0x518a
movq 0x8(%r15), %rax
movq %rax, (%r12)
leaq 0x5227(%rip), %rdi      # 0xa316
callq 0x4ea0
testb %al, %al
je 0x5330
movl %ebp, 0x4(%rsp)
jmp 0x5191
movq %r15, %rdi
callq 0x5517
testq %rax, %rax
je 0x53b4
movq %rax, %rbp
movq 0x8(%r15), %rax
movq %rax, (%r12)
jmp 0x52e6
leaq 0xa2db(%rip), %rax      # 0xf408
movq (%rax), %rbp
jmp 0x5355
xorl %r15d, %r15d
leaq 0x51d7(%rip), %rdi      # 0xa316
callq 0x498f
testq %rax, %rax
je 0x5320
cmpl $0x2, %r14d
jne 0x5214
movq %r15, %rdi
callq 0x55ad
testq %rax, %rax
je 0x5214
movl 0x18(%rax), %ecx
cmpl 0xa2bf(%rip), %ecx      # 0xf430
jne 0x5214
movq 0x10(%rax), %rbp
cmpl $0x9, (%rbp)
je 0x522d
jmp 0x541f
movl %ebp, 0x4(%rsp)
xorl %r15d, %r15d
leaq 0x517e(%rip), %rdi      # 0xa316
callq 0x5644
xorl %r14d, %r14d
callq 0x8a0f
movq %rax, %rbp
callq 0x56c6
movq %rax, %r13
leaq 0x574a(%rip), %rdi      # 0xa901
callq 0x498f
testq %rax, %rax
je 0x51c9
callq 0x56fc
movq %rax, %r14
movq %r13, %rdi
callq 0x6abd
movq %rbp, 0x20(%rax)
movl %r14d, 0x28(%rax)
callq 0x493e
testb %al, %al
jne 0x51f3
incl %r14d
leaq 0x54c3(%rip), %rdi      # 0xa6af
callq 0x5644
jmp 0x51a8
movl $0x1000, %r14d          # imm = 0x1000
cmpl $0x2, 0x4(%rsp)
jne 0x5355
movq %r15, %rdi
movq %rbp, %rsi
callq 0x55f5
jmp 0x5355
callq 0x8a19
movq %rax, %rbp
cmpl $0x2, %r14d
jne 0x522d
movq %r15, %rdi
movq %rbp, %rsi
callq 0x55f5
andq $0x0, 0x8(%rsp)
leaq 0x8(%rsp), %r15
leaq 0x546e(%rip), %rdi      # 0xa6ad
callq 0x498f
testq %rax, %rax
jne 0x529a
xorl %edi, %edi
callq 0x4ee4
movq (%r12), %r13
movq %rax, %rdi
leaq 0x10(%rsp), %rsi
callq 0x5443
cmpb $0x1, 0xc(%rax)
je 0x5388
movq %rax, %r14
leaq 0x5445(%rip), %rdi      # 0xa6ba
callq 0x5644
pushq $0x1
popq %rdi
pushq $0x20
popq %rsi
callq 0x2100
movq 0x10(%rsp), %rcx
movq %rcx, 0x10(%rax)
movq %r14, 0x8(%rax)
movq %rax, (%r15)
movq %rax, %r15
jmp 0x5238
movq 0x8(%rsp), %rcx
movq %rcx, 0x20(%rbp)
xorl %eax, %eax
testq %rcx, %rcx
je 0x52d0
movq 0x8(%rcx), %rdi
movl 0x8(%rdi), %esi
cltd
idivl %esi
cmpl $0x1, %edx
sbbl $-0x1, %eax
imull %esi, %eax
movl %eax, 0x18(%rcx)
addl 0x4(%rdi), %eax
cmpl %esi, 0x8(%rbp)
jge 0x52cb
movl %esi, 0x8(%rbp)
movq (%rcx), %rcx
jmp 0x52a5
movl 0x8(%rbp), %ecx
cltd
idivl %ecx
cmpl $0x1, %edx
sbbl $-0x1, %eax
imull %ecx, %eax
movl %eax, 0x4(%rbp)
movb $0x0, 0xc(%rbp)
movl $0x1000, %r14d          # imm = 0x1000
jmp 0x5355
leaq 0xa033(%rip), %rax      # 0xf328
movq (%rax), %rbp
pushq $0x4
jmp 0x5308
leaq 0xa095(%rip), %rax      # 0xf398
movq (%rax), %rbp
pushq $0x10
popq %rax
movl %eax, %r14d
jmp 0x5355
leaq 0xa04b(%rip), %rax      # 0xf360
movq (%rax), %rbp
movl $0x100, %r14d           # imm = 0x100
jmp 0x5355
movl $0x1000, %r14d          # imm = 0x1000
callq 0x8a19
movq %rax, %rbp
jmp 0x5355
movq %r15, %rdi
callq 0x55ad
testq %rax, %rax
je 0x53ed
movq 0x10(%rax), %rbp
movl $0x1000, %r14d          # imm = 0x1000
cmpl $0xa, (%rbp)
jne 0x5406
movq (%r12), %r15
jmp 0x4f25
callq 0x8a19
movq %rax, %rbp
movq %r15, %rdi
movq %rax, %rsi
callq 0x55f5
jmp 0x52e6
movq %rbp, %rax
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
movq 0x18(%r13), %rdi
leaq 0x543c(%rip), %rsi      # 0xa7cf
jmp 0x53ad
movq 0x18(%r15), %rdi
leaq 0x532e(%rip), %rsi      # 0xa6ce
jmp 0x53ad
movq 0x18(%r15), %rdi
leaq 0x5361(%rip), %rsi      # 0xa70e
xorl %eax, %eax
callq 0x46f0
leaq 0x538e(%rip), %rdi      # 0xa749
leaq 0x52ef(%rip), %rsi      # 0xa6b1
leaq 0x5383(%rip), %rcx      # 0xa74c
movl $0x41f, %edx            # imm = 0x41F
callq 0x20d0
movq 0x18(%r15), %rdi
leaq 0x52de(%rip), %rsi      # 0xa6bc
jmp 0x53ad
movq 0x18(%r15), %rdi
leaq 0x5380(%rip), %rsi      # 0xa76b
jmp 0x53ad
movq 0x18(%r15), %rbx
movl 0x20(%r15), %esi
movq %rbx, %rdi
callq 0x4903
leaq 0x5435(%rip), %rsi      # 0xa839
jmp 0x5436
movq 0x18(%r15), %rbx
movl 0x20(%r15), %esi
movq %rbx, %rdi
callq 0x4903
leaq 0x543e(%rip), %rsi      # 0xa85b
jmp 0x5436
movq 0x18(%r15), %rbx
movl 0x20(%r15), %esi
movq %rbx, %rdi
callq 0x4903
leaq 0x5348(%rip), %rsi      # 0xa77e
movq %rbx, %rdi
movq %rax, %rdx
xorl %eax, %eax
callq 0x46f0