char *type_string(int type) {
  switch (type) {
  case 1:
    return (char *)("char");
    break;
  case 2:
    return (char *)("integer");
    break;
  case 3:
    return (char *)("real");
    break;
  case 4:
    return (char *)("boolean");
    break;
  case 5:
    return (char *)("string");
    break;
  case 6:
    return (char *)("array");
    break;
  case 7:
    return (char *)("record");
    break;
  case 8:
    return (char *)("type");
    break;
  case 9:
    return (char *)("const");
    break;
  case 10:
    return (char *)("function");
    break;
  case 11:
    return (char *)("procedure");
    break;
  default:
    return (char *)("unknown");
    break;
  }
}


x86 assembly (clang, -O0):
<type_string>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0xc(%rbp)
mov    -0xc(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,%ecx
mov    %rcx,-0x18(%rbp)
sub    $0xa,%eax
ja     11e0 <type_string+0xe0>
mov    -0x18(%rbp),%rax
lea    0xed9(%rip),%rcx
movslq (%rcx,%rax,4),%rax
add    %rcx,%rax
jmp    *%rax
lea    0xef5(%rip),%rax
mov    %rax,-0x8(%rbp)
jmp    11eb <type_string+0xeb>
lea    0xeea(%rip),%rax
mov    %rax,-0x8(%rbp)
jmp    11eb <type_string+0xeb>
lea    0xee2(%rip),%rax
mov    %rax,-0x8(%rbp)
jmp    11eb <type_string+0xeb>
lea    0xed7(%rip),%rax
mov    %rax,-0x8(%rbp)
jmp    11eb <type_string+0xeb>
lea    0xecf(%rip),%rax
mov    %rax,-0x8(%rbp)
jmp    11eb <type_string+0xeb>
lea    0xec6(%rip),%rax
mov    %rax,-0x8(%rbp)
jmp    11eb <type_string+0xeb>
lea    0xebc(%rip),%rax
mov    %rax,-0x8(%rbp)
jmp    11eb <type_string+0xeb>
lea    0xeb3(%rip),%rax
mov    %rax,-0x8(%rbp)
jmp    11eb <type_string+0xeb>
lea    0xea8(%rip),%rax
mov    %rax,-0x8(%rbp)
jmp    11eb <type_string+0xeb>
lea    0xe9e(%rip),%rax
mov    %rax,-0x8(%rbp)
jmp    11eb <type_string+0xeb>
lea    0xe97(%rip),%rax
mov    %rax,-0x8(%rbp)
jmp    11eb <type_string+0xeb>
lea    0xe91(%rip),%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<type_string>:
add    $0xffffffff,%edi
cmp    $0xa,%edi
ja     111a <type_string+0x1a>
movslq %edi,%rax
lea    0xf42(%rip),%rcx
movslq (%rcx,%rax,4),%rax
add    %rcx,%rax
ret
lea    0xf2b(%rip),%rax
ret

LLVM IR (-O0):
@.str = [5 x i8] c"char\00"
@.str.1 = [8 x i8] c"integer\00"
@.str.2 = [5 x i8] c"real\00"
@.str.3 = [8 x i8] c"boolean\00"
@.str.4 = [7 x i8] c"string\00"
@.str.5 = [6 x i8] c"array\00"
@.str.6 = [7 x i8] c"record\00"
@.str.7 = [5 x i8] c"type\00"
@.str.8 = [6 x i8] c"const\00"
@.str.9 = [9 x i8] c"function\00"
@.str.10 = [10 x i8] c"procedure\00"
@.str.11 = [8 x i8] c"unknown\00"
define i8* @type_string(i32 %0) {
%2 = alloca i8*
%3 = alloca i32
store i32 %0, i32* %3
%4 = load i32, i32* %3
switch i32 %4, label %16 [
i32 1, label %5
i32 2, label %6
i32 3, label %7
i32 4, label %8
i32 5, label %9
i32 6, label %10
i32 7, label %11
i32 8, label %12
i32 9, label %13
i32 10, label %14
i32 11, label %15
]
5: ; preds = %1
store i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str, i64 0, i64 0), i8** %2
br label %17
6: ; preds = %1
store i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str.1, i64 0, i64 0), i8** %2
br label %17
7: ; preds = %1
store i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.2, i64 0, i64 0), i8** %2
br label %17
8: ; preds = %1
store i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str.3, i64 0, i64 0), i8** %2
br label %17
9: ; preds = %1
store i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str.4, i64 0, i64 0), i8** %2
br label %17
10: ; preds = %1
store i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.5, i64 0, i64 0), i8** %2
br label %17
11: ; preds = %1
store i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str.6, i64 0, i64 0), i8** %2
br label %17
12: ; preds = %1
store i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str.7, i64 0, i64 0), i8** %2
br label %17
13: ; preds = %1
store i8* getelementptr inbounds ([6 x i8], [6 x i8]* @.str.8, i64 0, i64 0), i8** %2
br label %17
14: ; preds = %1
store i8* getelementptr inbounds ([9 x i8], [9 x i8]* @.str.9, i64 0, i64 0), i8** %2
br label %17
15: ; preds = %1
store i8* getelementptr inbounds ([10 x i8], [10 x i8]* @.str.10, i64 0, i64 0), i8** %2
br label %17
16: ; preds = %1
store i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str.11, i64 0, i64 0), i8** %2
br label %17
17: ; preds = %16, %15, %14, %13, %12, %11, %10, %9, %8, %7, %6, %5
%18 = load i8*, i8** %2
ret i8* %18
}

LLVM IR (-O2):
@.str = [5 x i8] c"char\00"
@.str.1 = [8 x i8] c"integer\00"
@.str.2 = [5 x i8] c"real\00"
@.str.3 = [8 x i8] c"boolean\00"
@.str.4 = [7 x i8] c"string\00"
@.str.5 = [6 x i8] c"array\00"
@.str.6 = [7 x i8] c"record\00"
@.str.7 = [5 x i8] c"type\00"
@.str.8 = [6 x i8] c"const\00"
@.str.9 = [9 x i8] c"function\00"
@.str.10 = [10 x i8] c"procedure\00"
@.str.11 = [8 x i8] c"unknown\00"
@reltable.type_string = [11 x i32] [i32 trunc (i64 sub (i64 ptrtoint ([5 x i8]* @.str to i64), i64 ptrtoint ([11 x i32]* @reltable.type_string to i64)) to i32), i32 trunc (i64 sub (i64 ptrtoint ([8 x i8]* @.str.1 to i64), i64 ptrtoint ([11 x i32]* @reltable.type_string to i64)) to i32), i32 trunc (i64 sub (i64 ptrtoint ([5 x i8]* @.str.2 to i64), i64 ptrtoint ([11 x i32]* @reltable.type_string to i64)) to i32), i32 trunc (i64 sub (i64 ptrtoint ([8 x i8]* @.str.3 to i64), i64 ptrtoint ([11 x i32]* @reltable.type_string to i64)) to i32), i32 trunc (i64 sub (i64 ptrtoint ([7 x i8]* @.str.4 to i64), i64 ptrtoint ([11 x i32]* @reltable.type_string to i64)) to i32), i32 trunc (i64 sub (i64 ptrtoint ([6 x i8]* @.str.5 to i64), i64 ptrtoint ([11 x i32]* @reltable.type_string to i64)) to i32), i32 trunc (i64 sub (i64 ptrtoint ([7 x i8]* @.str.6 to i64), i64 ptrtoint ([11 x i32]* @reltable.type_string to i64)) to i32), i32 trunc (i64 sub (i64 ptrtoint ([5 x i8]* @.str.7 to i64), i64 ptrtoint ([11 x i32]* @reltable.type_string to i64)) to i32), i32 trunc (i64 sub (i64 ptrtoint ([6 x i8]* @.str.8 to i64), i64 ptrtoint ([11 x i32]* @reltable.type_string to i64)) to i32), i32 trunc (i64 sub (i64 ptrtoint ([9 x i8]* @.str.9 to i64), i64 ptrtoint ([11 x i32]* @reltable.type_string to i64)) to i32), i32 trunc (i64 sub (i64 ptrtoint ([10 x i8]* @.str.10 to i64), i64 ptrtoint ([11 x i32]* @reltable.type_string to i64)) to i32)]
define i8* @type_string(i32 %0) {
%2 = add i32 %0, -1
%3 = icmp ult i32 %2, 11
br i1 %3, label %4, label %8
4: ; preds = %1
%5 = sext i32 %2 to i64
%6 = shl i64 %5, 2
%7 = call i8* @llvm.load.relative.i64(i8* bitcast ([11 x i32]* @reltable.type_string to i8*), i64 %6)
br label %8
8: ; preds = %1, %4
%9 = phi i8* [ %7, %4 ], [ getelementptr inbounds ([8 x i8], [8 x i8]* @.str.11, i64 0, i64 0), %1 ]
ret i8* %9
}