// File: /workspace/github_c_makefile_star2_O0/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
movq %rsp, %rbp
subq $0x30, %rsp
movq %rdi, -0x8(%rbp)
leaq 0xea7d(%rip), %rax      # 0x155d0
movq (%rax), %rdi
callq 0x6fc0
testb $0x1, %al
jne 0x6b7b
leaq 0xea6a(%rip), %rax      # 0x155d0
movq (%rax), %rax
movq 0x18(%rax), %rdi
leaq 0x9a9d(%rip), %rsi      # 0x10611
movb $0x0, %al
callq 0x6370
leaq 0xe92e(%rip), %rax      # 0x154b0
movq (%rax), %rax
movq %rax, -0x10(%rbp)
movl $0x0, -0x14(%rbp)
cmpq $0x0, -0x8(%rbp)
je 0x6ba1
movq -0x8(%rbp), %rax
movl $0x0, (%rax)
jmp 0x6ba3
leaq 0xea26(%rip), %rax      # 0x155d0
movq (%rax), %rdi
callq 0x6fc0
testb $0x1, %al
jne 0x6bbb
jmp 0x6ee1
leaq 0xea0e(%rip), %rax      # 0x155d0
movq (%rax), %rax
movq %rax, -0x20(%rbp)
movl $0x15, %edi
callq 0x7030
testb $0x1, %al
jne 0x6bf8
movl $0x16, %edi
callq 0x7030
testb $0x1, %al
jne 0x6bf8
movl $0x17, %edi
callq 0x7030
testb $0x1, %al
jne 0x6bf8
jmp 0x6c9f
cmpq $0x0, -0x8(%rbp)
jne 0x6c15
movq -0x20(%rbp), %rax
movq 0x18(%rax), %rdi
leaq 0x9a15(%rip), %rsi      # 0x10623
movb $0x0, %al
callq 0x6370
movl $0x15, %edi
callq 0x7060
cmpq $0x0, %rax
je 0x6c32
movq -0x8(%rbp), %rax
movl (%rax), %ecx
orl $0x1, %ecx
movl %ecx, (%rax)
jmp 0x6c6e
movl $0x16, %edi
callq 0x7060
cmpq $0x0, %rax
je 0x6c4f
movq -0x8(%rbp), %rax
movl (%rax), %ecx
orl $0x2, %ecx
movl %ecx, (%rax)
jmp 0x6c6c
movl $0x17, %edi
callq 0x7060
cmpq $0x0, %rax
je 0x6c6a
movq -0x8(%rbp), %rax
movl (%rax), %ecx
orl $0x4, %ecx
movl %ecx, (%rax)
jmp 0x6c6c
jmp 0x6c6e
movq -0x8(%rbp), %rax
movl (%rax), %eax
movq -0x8(%rbp), %rcx
movl (%rcx), %ecx
subl $0x1, %ecx
andl %ecx, %eax
cmpl $0x0, %eax
je 0x6c9a
movq -0x20(%rbp), %rax
movq 0x18(%rax), %rdi
leaq 0x99d0(%rip), %rsi      # 0x10663
movb $0x0, %al
callq 0x6370
jmp 0x6ba3
movq -0x20(%rbp), %rdi
callq 0x70c0
testb $0x1, %al
jne 0x6d42
cmpl $0x0, -0x14(%rbp)
je 0x6cbb
jmp 0x6ee1
movq -0x20(%rbp), %rax
cmpl $0x10, (%rax)
jne 0x6ccf
callq 0x71c0
movq %rax, -0x10(%rbp)
jmp 0x6d32
movq -0x20(%rbp), %rax
cmpl $0x11, (%rax)
jne 0x6ce3
callq 0x7810
movq %rax, -0x10(%rbp)
jmp 0x6d30
movq -0x20(%rbp), %rdi
callq 0x70f0
movq %rax, -0x10(%rbp)
cmpq $0x0, -0x10(%rbp)
je 0x6cf9
jmp 0x6d18
leaq 0x999e(%rip), %rdi      # 0x1069e
leaq 0x98ec(%rip), %rsi      # 0x105f3
movl $0x41f, %edx            # imm = 0x41F
leaq 0x998e(%rip), %rcx      # 0x106a1
callq 0x20b0
leaq 0xe8b1(%rip), %rax      # 0x155d0
movq (%rax), %rax
movq 0x8(%rax), %rcx
leaq 0xe8a3(%rip), %rax      # 0x155d0
movq %rcx, (%rax)
jmp 0x6d32
movl -0x14(%rbp), %eax
addl $0x1000, %eax           # imm = 0x1000
movl %eax, -0x14(%rbp)
jmp 0x6ba3
movl $0xa, %edi
callq 0x7060
cmpq $0x0, %rax
je 0x6d60
movl -0x14(%rbp), %eax
addl $0x1, %eax
movl %eax, -0x14(%rbp)
jmp 0x6df3
movl $0xb, %edi
callq 0x7060
cmpq $0x0, %rax
je 0x6d7b
movl -0x14(%rbp), %eax
addl $0x4, %eax
movl %eax, -0x14(%rbp)
jmp 0x6df1
movl $0xd, %edi
callq 0x7060
cmpq $0x0, %rax
je 0x6d96
movl -0x14(%rbp), %eax
addl $0x10, %eax
movl %eax, -0x14(%rbp)
jmp 0x6def
movl $0xf, %edi
callq 0x7060
cmpq $0x0, %rax
je 0x6db1
movl -0x14(%rbp), %eax
addl $0x40, %eax
movl %eax, -0x14(%rbp)
jmp 0x6ded
movl $0xc, %edi
callq 0x7060
cmpq $0x0, %rax
je 0x6dce
movl -0x14(%rbp), %eax
addl $0x100, %eax            # imm = 0x100
movl %eax, -0x14(%rbp)
jmp 0x6deb
movl $0xe, %edi
callq 0x7060
cmpq $0x0, %rax
je 0x6de9
movl -0x14(%rbp), %eax
addl $0x400, %eax            # imm = 0x400
movl %eax, -0x14(%rbp)
jmp 0x6deb
jmp 0x6ded
jmp 0x6def
jmp 0x6df1
jmp 0x6df3
movl -0x14(%rbp), %eax
movl %eax, -0x24(%rbp)
subl $0x1, %eax
je 0x6e66
jmp 0x6e00
movl -0x24(%rbp), %eax
subl $0x4, %eax
je 0x6e76
jmp 0x6e0a
movl -0x24(%rbp), %eax
subl $0x10, %eax
je 0x6e86
jmp 0x6e14
movl -0x24(%rbp), %eax
subl $0x40, %eax
je 0x6e96
jmp 0x6e1e
movl -0x24(%rbp), %eax
subl $0x100, %eax            # imm = 0x100
je 0x6ea6
jmp 0x6e2a
movl -0x24(%rbp), %eax
subl $0x140, %eax            # imm = 0x140
je 0x6e96
jmp 0x6e36
movl -0x24(%rbp), %eax
subl $0x400, %eax            # imm = 0x400
je 0x6eb6
jmp 0x6e42
movl -0x24(%rbp), %eax
subl $0x500, %eax            # imm = 0x500
je 0x6eb6
jmp 0x6e4e
movl -0x24(%rbp), %eax
subl $0x800, %eax            # imm = 0x800
je 0x6eb6
jmp 0x6e5a
movl -0x24(%rbp), %eax
subl $0x900, %eax            # imm = 0x900
je 0x6eb6
jmp 0x6ec6
leaq 0xe5d3(%rip), %rax      # 0x15440
movq (%rax), %rax
movq %rax, -0x10(%rbp)
jmp 0x6edc
leaq 0xe5fb(%rip), %rax      # 0x15478
movq (%rax), %rax
movq %rax, -0x10(%rbp)
jmp 0x6edc
leaq 0xe65b(%rip), %rax      # 0x154e8
movq (%rax), %rax
movq %rax, -0x10(%rbp)
jmp 0x6edc
leaq 0xe6bb(%rip), %rax      # 0x15558
movq (%rax), %rax
movq %rax, -0x10(%rbp)
jmp 0x6edc
leaq 0xe603(%rip), %rax      # 0x154b0
movq (%rax), %rax
movq %rax, -0x10(%rbp)
jmp 0x6edc
leaq 0xe663(%rip), %rax      # 0x15520
movq (%rax), %rax
movq %rax, -0x10(%rbp)
jmp 0x6edc
movq -0x20(%rbp), %rax
movq 0x18(%rax), %rdi
leaq 0x97eb(%rip), %rsi      # 0x106c0
movb $0x0, %al
callq 0x6370
jmp 0x6ba3
movq -0x10(%rbp), %rax
addq $0x30, %rsp
popq %rbp
retq
nopl (%rax,%rax)