// File: /workspace/github_c_makefile_star2_O1/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
leaq 0xb1e3(%rip), %r15      # 0x10480
movq (%r15), %r14
movl (%r14), %eax
leal -0xa(%rax), %ecx
cmpl $0x6, %ecx
movq %rdi, (%rsp)
jb 0x52c6
cmpl $0x17, %eax
ja 0x585c
movl $0xe30000, %ecx         # imm = 0xE30000
btl %eax, %ecx
jae 0x585c
leaq 0xb093(%rip), %rax      # 0x10360
movq (%rax), %rbp
testq %rdi, %rdi
je 0x52db
movl $0x0, (%rdi)
xorl %r12d, %r12d
movq (%r15), %r14
movl (%r14), %ebx
leal -0xa(%rbx), %r13d
cmpl $0x6, %r13d
jae 0x52f8
leal -0x15(%rbx), %eax
cmpl $0x2, %eax
jbe 0x5300
jmp 0x5353
leal -0x15(%rbx), %eax
cmpl $0x3, %eax
jae 0x534b
testq %rdi, %rdi
je 0x588b
movq (%r15), %rax
movl $0x1, %ecx
cmpl $0x15, (%rax)
je 0x5330
movq (%r15), %rax
movl $0x2, %ecx
cmpl $0x16, (%rax)
je 0x5330
movq (%r15), %rax
movl $0x4, %ecx
cmpl $0x17, (%rax)
jne 0x5339
movq 0x8(%rax), %rax
movq %rax, (%r15)
orl %ecx, (%rdi)
movl (%rdi), %eax
leal -0x1(%rax), %ecx
testl %ecx, %eax
je 0x56f5
jmp 0x587e
leal -0x10(%rbx), %eax
cmpl $0x2, %eax
jae 0x53cb
cmpl $0x6, %r13d
jae 0x536d
cmpl $0xa, %ebx
jne 0x53b3
movq 0x8(%r14), %rax
movq %rax, (%r15)
incl %r12d
jmp 0x5643
movb $0x1, %r13b
testl %r12d, %r12d
jne 0x56f8
cmpl $0x11, %ebx
je 0x53fd
cmpl $0x10, %ebx
leaq 0x72dd(%rip), %r13      # 0xc665
jne 0x543e
movl $0x10, %edi
callq 0x5b2b
movq (%r15), %rbx
cmpl $0x2, (%rbx)
jne 0x5464
movq 0x8(%rbx), %rax
movq %rax, (%r15)
movq %rbx, %r14
jmp 0x5467
movq (%r15), %rax
cmpl $0xb, (%rax)
jne 0x53e5
movq 0x8(%rax), %rax
movq %rax, (%r15)
addl $0x4, %r12d
jmp 0x5643
movq %r14, %rdi
callq 0x5ac1
movq (%rsp), %rdi
testq %rax, %rax
jne 0x52ee
jmp 0x584a
movq (%r15), %rax
cmpl $0xd, (%rax)
jne 0x5422
movq 0x8(%rax), %rax
movq %rax, (%r15)
addl $0x10, %r12d
jmp 0x5643
movl $0x11, %edi
callq 0x5b2b
movq (%r15), %rbx
cmpl $0x2, (%rbx)
jne 0x54bd
movq 0x8(%rbx), %rax
movq %rax, (%r15)
movq %rbx, %r14
jmp 0x54c0
movq (%r15), %rax
cmpl $0xf, (%rax)
jne 0x55a0
movq 0x8(%rax), %rax
movq %rax, (%r15)
addl $0x40, %r12d
jmp 0x5643
movq %r14, %rdi
callq 0x5ac1
testq %rax, %rax
je 0x58aa
movq %rax, %rbp
movq 0x8(%r14), %rax
movq %rax, (%r15)
movl $0x1000, %r12d          # imm = 0x1000
jmp 0x5594
xorl %r14d, %r14d
testq %r14, %r14
je 0x5480
leaq 0x6ea3(%rip), %rdi      # 0xc316
callq 0x5244
testb %al, %al
je 0x55ce
leaq 0x6e8f(%rip), %rdi      # 0xc316
callq 0x5244
testb %al, %al
je 0x55bb
movq (%r15), %rax
movq 0x8(%rax), %rcx
movq %rcx, (%r15)
testq %rax, %rax
je 0x55bb
testq %r14, %r14
je 0x571e
movq %r14, %rdi
callq 0x5b62
jmp 0x5720
xorl %r14d, %r14d
testq %r14, %r14
je 0x54d9
leaq 0x6e4a(%rip), %rdi      # 0xc316
callq 0x5244
testb %al, %al
je 0x55f5
leaq 0x6e36(%rip), %rdi      # 0xc316
callq 0x5c3c
xorl %r13d, %r13d
callq 0xa29e
movq %rax, %rbp
leaq 0x73c2(%rip), %rbx      # 0xc8b9
callq 0x5cc0
movq %rax, %r12
movq %rbx, %rdi
callq 0x5244
testb %al, %al
je 0x552c
movq (%r15), %rax
movq 0x8(%rax), %rcx
movq %rcx, (%r15)
testq %rax, %rax
je 0x552c
callq 0x60d0
movq %rax, %rdi
xorl %esi, %esi
callq 0x5d39
movq %rax, %r13
movl $0x1, %edi
movl $0x30, %esi
callq 0x2100
movq %r12, 0x8(%rax)
movq 0xaefa(%rip), %rcx      # 0x10440
movq %rcx, (%rax)
movl 0xaee1(%rip), %ecx      # 0x10430
movl %ecx, 0x2c(%rax)
movq %rax, 0xaee7(%rip)      # 0x10440
movq %rbp, 0x20(%rax)
movl %r13d, 0x28(%rax)
callq 0x4b2b
testb %al, %al
jne 0x557e
incl %r13d
leaq 0x70f3(%rip), %rdi      # 0xc667
callq 0x5c3c
jmp 0x54f7
movl $0x1000, %r12d          # imm = 0x1000
testq %r14, %r14
je 0x5594
movq %r14, %rdi
movq %rbp, %rsi
callq 0x5bb8
xorl %r13d, %r13d
movq (%rsp), %rdi
jmp 0x56f8
movq (%r15), %rax
cmpl $0xc, (%rax)
jne 0x5620
movq 0x8(%rax), %rax
movq %rax, (%r15)
addl $0x100, %r12d           # imm = 0x100
jmp 0x5643
movl $0x1000, %r12d          # imm = 0x1000
xorl %r13d, %r13d
callq 0xa2c4
movq %rax, %rbp
jmp 0x5597
movq %r14, %rdi
callq 0x5b62
testq %rax, %rax
je 0x5706
movq 0x10(%rax), %rcx
cmpl $0x9, (%rcx)
jne 0x593a
movq 0x10(%rax), %rbp
jmp 0x5459
movq %r14, %rdi
callq 0x5b62
testq %rax, %rax
je 0x58d6
movq 0x10(%rax), %rcx
cmpl $0xa, (%rcx)
movq (%rsp), %rdi
jne 0x5908
movq 0x10(%rax), %rbp
jmp 0x583f
movq (%r15), %rcx
movl (%rcx), %eax
cmpl $0xe, %eax
jne 0x5631
movq 0x8(%rcx), %rcx
movq %rcx, (%r15)
leal 0x400(%r12), %ecx
cmpl $0xe, %eax
cmovnel %r12d, %ecx
movl %ecx, %r12d
cmpl $0x13f, %r12d           # imm = 0x13F
jg 0x5678
cmpl $0xf, %r12d
jle 0x56a1
cmpl $0x10, %r12d
je 0x56eb
cmpl $0x40, %r12d
je 0x56d9
cmpl $0x100, %r12d           # imm = 0x100
jne 0x58c9
leaq 0xacea(%rip), %rax      # 0x10360
jmp 0x56f2
cmpl $0x4ff, %r12d           # imm = 0x4FF
jle 0x56ba
cmpl $0x500, %r12d           # imm = 0x500
je 0x56d0
cmpl $0x800, %r12d           # imm = 0x800
je 0x56d0
cmpl $0x900, %r12d           # imm = 0x900
je 0x56d0
jmp 0x58c9
cmpl $0x1, %r12d
je 0x56e2
cmpl $0x4, %r12d
jne 0x58c9
leaq 0xac70(%rip), %rax      # 0x10328
jmp 0x56f2
cmpl $0x140, %r12d           # imm = 0x140
je 0x56d9
cmpl $0x400, %r12d           # imm = 0x400
jne 0x58c9
leaq 0xacf9(%rip), %rax      # 0x103d0
jmp 0x56f2
leaq 0xad28(%rip), %rax      # 0x10408
jmp 0x56f2
leaq 0xac07(%rip), %rax      # 0x102f0
jmp 0x56f2
leaq 0xaca6(%rip), %rax      # 0x10398
movq (%rax), %rbp
xorl %r13d, %r13d
testb %r13b, %r13b
je 0x52de
jmp 0x584a
callq 0xa2c4
movq %rax, %rbp
movq %r14, %rdi
movq %rax, %rsi
callq 0x5bb8
jmp 0x5459
xorl %eax, %eax
testq %rax, %rax
je 0x5743
movl 0x18(%rax), %ecx
cmpl 0xad02(%rip), %ecx      # 0x10430
jne 0x5743
movq 0x10(%rax), %rcx
cmpl $0x9, (%rcx)
jne 0x5986
movq 0x10(%rax), %rbp
jmp 0x575b
callq 0xa2c4
movq %rax, %rbp
testq %r14, %r14
je 0x575b
movq %r14, %rdi
movq %rbp, %rsi
callq 0x5bb8
movq $0x0, 0x8(%rsp)
leaq 0x8(%rsp), %r12
movq %r13, %rdi
callq 0x5244
testb %al, %al
je 0x5784
movq (%r15), %rax
movq 0x8(%rax), %rcx
movq %rcx, (%r15)
testq %rax, %rax
jne 0x57d9
xorl %edi, %edi
callq 0x5288
movq (%r15), %rbx
movq %rax, %rdi
leaq 0x10(%rsp), %rsi
callq 0x59d0
cmpb $0x1, 0xc(%rax)
je 0x5898
movq %rax, %r14
leaq 0x6ec3(%rip), %rdi      # 0xc672
callq 0x5c3c
movl $0x1, %edi
movl $0x20, %esi
callq 0x2100
movq 0x10(%rsp), %rcx
movq %rcx, 0x10(%rax)
movq %r14, 0x8(%rax)
movq %rax, (%r12)
movq %rax, %r12
jmp 0x5769
movq 0x8(%rsp), %rcx
movq %rcx, 0x20(%rbp)
testq %rcx, %rcx
je 0x5823
movl 0x8(%rbp), %esi
xorl %eax, %eax
movq (%rsp), %rdi
movq 0x8(%rcx), %r8
movl 0x8(%r8), %r9d
cltd
idivl %r9d
cmpl $0x1, %edx
sbbl $-0x1, %eax
imull %r9d, %eax
movl %eax, 0x18(%rcx)
addl 0x4(%r8), %eax
cmpl %r9d, %esi
jge 0x5819
movl %r9d, 0x8(%rbp)
movl %r9d, %esi
movq (%rcx), %rcx
testq %rcx, %rcx
jne 0x57f0
jmp 0x5829
xorl %eax, %eax
movq (%rsp), %rdi
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, %r12d          # imm = 0x1000
jmp 0x56f5
movq %rbp, %rax
addq $0x18, %rsp
popq %rbx
popq %r12
popq %r13
popq %r14
popq %r15
popq %rbp
retq
movq %r14, %rdi
callq 0x5ac1
movq (%rsp), %rdi
testq %rax, %rax
jne 0x52c6
movq 0x18(%r14), %rdi
leaq 0x6df8(%rip), %rsi      # 0xc674
jmp 0x58a3
movq 0x18(%r14), %rdi
leaq 0x6e3d(%rip), %rsi      # 0xc6c6
jmp 0x58a3
movq 0x18(%r14), %rdi
leaq 0x6df0(%rip), %rsi      # 0xc686
jmp 0x58a3
movq 0x18(%rbx), %rdi
leaq 0x6ee4(%rip), %rsi      # 0xc787
xorl %eax, %eax
callq 0x487c
leaq 0x6e50(%rip), %rdi      # 0xc701
leaq 0x6db1(%rip), %rsi      # 0xc669
leaq 0x6e45(%rip), %rcx      # 0xc704
movl $0x41f, %edx            # imm = 0x41F
callq 0x20d0
movq 0x18(%r14), %rdi
leaq 0x6e4f(%rip), %rsi      # 0xc723
jmp 0x58a3
movq 0x18(%rbx), %rbx
movq 0x18(%r14), %r12
movslq 0x20(%r14), %r15
leaq 0x1(%r15), %rdi
movl $0x1, %esi
callq 0x2100
movq %rax, %r14
testq %r15, %r15
jle 0x5964
movq %r14, %rdi
movq %r12, %rsi
movq %r15, %rdx
callq 0x2150
jmp 0x5967
movq 0x18(%rbx), %rbx
movq 0x18(%r14), %r12
movslq 0x20(%r14), %r15
leaq 0x1(%r15), %rdi
movl $0x1, %esi
callq 0x2100
movq %rax, %r14
testq %r15, %r15
jle 0x5975
movq %r14, %rdi
movq %r12, %rsi
movq %r15, %rdx
callq 0x2150
jmp 0x5978
movq 0x18(%rbx), %rbx
movq 0x18(%r14), %r12
movslq 0x20(%r14), %r15
leaq 0x1(%r15), %rdi
movl $0x1, %esi
callq 0x2100
movq %rax, %r14
testq %r15, %r15
jle 0x59b4
movq %r14, %rdi
movq %r12, %rsi
jmp 0x59aa
xorl %r15d, %r15d
movb $0x0, (%r14,%r15)
leaq 0x6e7e(%rip), %rsi      # 0xc7f1
jmp 0x59c3
xorl %r15d, %r15d
movb $0x0, (%r14,%r15)
leaq 0x6e8f(%rip), %rsi      # 0xc813
jmp 0x59c3
movq 0x18(%r14), %rbx
movslq 0x20(%r14), %r15
leaq 0x1(%r15), %rdi
movl $0x1, %esi
callq 0x2100
movq %rax, %r14
testq %r15, %r15
jle 0x59b4
movq %r14, %rdi
movq %rbx, %rsi
movq %r15, %rdx
callq 0x2150
jmp 0x59b7
xorl %r15d, %r15d
movb $0x0, (%r14,%r15)
leaq 0x6d73(%rip), %rsi      # 0xc736
movq %rbx, %rdi
movq %r14, %rdx
xorl %eax, %eax
callq 0x487c