const char *getTok(const char **pp) {
  enum { inAtom, inString, init, inComment };
  int state = init;
  const char *tokStart = 0;
  for (;;) {
    switch (**pp) {
    case '\0':
      if (state == inAtom)
        return tokStart;
      return 0;
    case ' ':
    case '\r':
    case '\t':
    case '\n':
      if (state == inAtom)
        return tokStart;
      break;
    case '(':
      if (state == inAtom)
        return tokStart;
      if (state != inString)
        state++;
      break;
    case ')':
      if (state > init)
        --state;
      else if (state != inString)
        return 0;
      break;
    case ';':
    case '/':
    case '=':
      if (state == inAtom)
        return tokStart;
      if (state == init)
        return (*pp)++;
      break;
    case '\\':
      ++*pp;
      if (**pp == '\0')
        return 0;
      break;
    case '"':
      switch (state) {
      case inString:
        ++*pp;
        return tokStart;
      case inAtom:
        return tokStart;
      case init:
        tokStart = *pp;
        state = inString;
        break;
      }
      break;
    default:
      if (state == init) {
        tokStart = *pp;
        state = inAtom;
      }
      break;
    }
    ++*pp;
  }
}


x86 assembly (clang, -O0):
<getTok>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
movl   $0x2,-0x14(%rbp)
movq   $0x0,-0x20(%rbp)
mov    -0x10(%rbp),%rax
mov    (%rax),%rax
movsbl (%rax),%eax
mov    %eax,%ecx
mov    %rcx,-0x28(%rbp)
sub    $0x5c,%eax
ja     12d3 <getTok+0x1d3>
mov    -0x28(%rbp),%rax
lea    0xec5(%rip),%rcx
movslq (%rcx,%rax,4),%rax
add    %rcx,%rax
jmp    *%rax
cmpl   $0x0,-0x14(%rbp)
jne    115b <getTok+0x5b>
mov    -0x20(%rbp),%rax
mov    %rax,-0x8(%rbp)
jmp    1307 <getTok+0x207>
movq   $0x0,-0x8(%rbp)
jmp    1307 <getTok+0x207>
cmpl   $0x0,-0x14(%rbp)
jne    117f <getTok+0x7f>
mov    -0x20(%rbp),%rax
mov    %rax,-0x8(%rbp)
jmp    1307 <getTok+0x207>
jmp    12f4 <getTok+0x1f4>
cmpl   $0x0,-0x14(%rbp)
jne    119b <getTok+0x9b>
mov    -0x20(%rbp),%rax
mov    %rax,-0x8(%rbp)
jmp    1307 <getTok+0x207>
cmpl   $0x1,-0x14(%rbp)
je     11ae <getTok+0xae>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    12f4 <getTok+0x1f4>
cmpl   $0x2,-0x14(%rbp)
jle    11cb <getTok+0xcb>
mov    -0x14(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x14(%rbp)
jmp    11e7 <getTok+0xe7>
cmpl   $0x1,-0x14(%rbp)
je     11e2 <getTok+0xe2>
movq   $0x0,-0x8(%rbp)
jmp    1307 <getTok+0x207>
jmp    11e7 <getTok+0xe7>
jmp    12f4 <getTok+0x1f4>
cmpl   $0x0,-0x14(%rbp)
jne    1203 <getTok+0x103>
mov    -0x20(%rbp),%rax
mov    %rax,-0x8(%rbp)
jmp    1307 <getTok+0x207>
cmpl   $0x2,-0x14(%rbp)
jne    1227 <getTok+0x127>
mov    -0x10(%rbp),%rcx
mov    (%rcx),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,(%rcx)
mov    %rax,-0x8(%rbp)
jmp    1307 <getTok+0x207>
jmp    12f4 <getTok+0x1f4>
mov    -0x10(%rbp),%rax
mov    (%rax),%rcx
add    $0x1,%rcx
mov    %rcx,(%rax)
mov    -0x10(%rbp),%rax
mov    (%rax),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
jne    125a <getTok+0x15a>
movq   $0x0,-0x8(%rbp)
jmp    1307 <getTok+0x207>
jmp    12f4 <getTok+0x1f4>
mov    -0x14(%rbp),%eax
mov    %eax,-0x2c(%rbp)
test   %eax,%eax
je     12af <getTok+0x1af>
jmp    1272 <getTok+0x172>
mov    -0x2c(%rbp),%eax
sub    $0x1,%eax
je     1294 <getTok+0x194>
jmp    1283 <getTok+0x183>
mov    -0x2c(%rbp),%eax
sub    $0x2,%eax
je     12bc <getTok+0x1bc>
jmp    12ce <getTok+0x1ce>
mov    -0x10(%rbp),%rax
mov    (%rax),%rcx
add    $0x1,%rcx
mov    %rcx,(%rax)
mov    -0x20(%rbp),%rax
mov    %rax,-0x8(%rbp)
jmp    1307 <getTok+0x207>
mov    -0x20(%rbp),%rax
mov    %rax,-0x8(%rbp)
jmp    1307 <getTok+0x207>
mov    -0x10(%rbp),%rax
mov    (%rax),%rax
mov    %rax,-0x20(%rbp)
movl   $0x1,-0x14(%rbp)
jmp    12f4 <getTok+0x1f4>
cmpl   $0x2,-0x14(%rbp)
jne    12ef <getTok+0x1ef>
mov    -0x10(%rbp),%rax
mov    (%rax),%rax
mov    %rax,-0x20(%rbp)
movl   $0x0,-0x14(%rbp)
jmp    12f4 <getTok+0x1f4>
mov    -0x10(%rbp),%rax
mov    (%rax),%rcx
add    $0x1,%rcx
mov    %rcx,(%rax)
jmp    1117 <getTok+0x17>
mov    -0x8(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<getTok>:
mov    (%rdi),%rcx
mov    $0x2,%edx
xor    %r8d,%r8d
lea    0xeee(%rip),%r9
xor    %eax,%eax
jmp    112f <getTok+0x2f>
cs nopw 0x0(%rax,%rax,1)
test   %edx,%edx
je     11be <getTok+0xbe>
add    $0x1,%rcx
mov    %rcx,(%rdi)
movsbl (%rcx),%esi
cmp    $0x5c,%esi
ja     114b <getTok+0x4b>
movslq (%r9,%rsi,4),%rsi
add    %r9,%rsi
jmp    *%rsi
test   %edx,%edx
je     11be <getTok+0xbe>
cmp    $0x2,%edx
jne    1128 <getTok+0x28>
jmp    11a8 <getTok+0xa8>
cmp    $0x2,%edx
cmove  %r8d,%edx
cmove  %rcx,%rax
jmp    1128 <getTok+0x28>
cmp    $0x2,%edx
je     119e <getTok+0x9e>
test   %edx,%edx
je     11be <getTok+0xbe>
cmp    $0x1,%edx
jne    1128 <getTok+0x28>
jmp    11bf <getTok+0xbf>
cmp    $0x1,%edx
je     1128 <getTok+0x28>
test   %edx,%edx
je     11be <getTok+0xbe>
add    $0x1,%edx
jmp    1128 <getTok+0x28>
cmp    $0x3,%edx
jl     1192 <getTok+0x92>
add    $0xffffffff,%edx
jmp    1128 <getTok+0x28>
lea    0x1(%rcx),%rsi
mov    %rsi,(%rdi)
cmpb   $0x0,0x1(%rcx)
mov    %rsi,%rcx
jne    1128 <getTok+0x28>
jmp    11b3 <getTok+0xb3>
cmp    $0x1,%edx
mov    $0x1,%edx
je     1128 <getTok+0x28>
jmp    11b3 <getTok+0xb3>
mov    $0x1,%edx
mov    %rcx,%rax
jmp    1128 <getTok+0x28>
lea    0x1(%rcx),%rax
mov    %rax,(%rdi)
mov    %rcx,%rax
ret
xor    %eax,%eax
ret
xor    %ecx,%ecx
test   %edx,%edx
cmovne %rcx,%rax
ret
add    $0x1,%rcx
mov    %rcx,(%rdi)
ret

LLVM IR (-O0):
define i8* @getTok(i8** %0) {
%2 = alloca i8*
%3 = alloca i8**
%4 = alloca i32
%5 = alloca i8*
store i8** %0, i8*** %3
store i32 2, i32* %4
store i8* null, i8** %5
br label %6
6: ; preds = %91, %1
%7 = load i8**, i8*** %3
%8 = load i8*, i8** %7
%9 = load i8, i8* %8
%10 = sext i8 %9 to i32
switch i32 %10, label %84 [
i32 0, label %11
i32 32, label %17
i32 13, label %17
i32 9, label %17
i32 10, label %17
i32 40, label %23
i32 41, label %35
i32 59, label %47
i32 47, label %47
i32 61, label %47
i32 92, label %60
i32 34, label %71
]
11: ; preds = %6
%12 = load i32, i32* %4
%13 = icmp eq i32 %12, 0
br i1 %13, label %14, label %16
14: ; preds = %11
%15 = load i8*, i8** %5
store i8* %15, i8** %2
br label %95
16: ; preds = %11
store i8* null, i8** %2
br label %95
17: ; preds = %6, %6, %6, %6
%18 = load i32, i32* %4
%19 = icmp eq i32 %18, 0
br i1 %19, label %20, label %22
20: ; preds = %17
%21 = load i8*, i8** %5
store i8* %21, i8** %2
br label %95
22: ; preds = %17
br label %91
23: ; preds = %6
%24 = load i32, i32* %4
%25 = icmp eq i32 %24, 0
br i1 %25, label %26, label %28
26: ; preds = %23
%27 = load i8*, i8** %5
store i8* %27, i8** %2
br label %95
28: ; preds = %23
%29 = load i32, i32* %4
%30 = icmp ne i32 %29, 1
br i1 %30, label %31, label %34
31: ; preds = %28
%32 = load i32, i32* %4
%33 = add nsw i32 %32, 1
store i32 %33, i32* %4
br label %34
34: ; preds = %31, %28
br label %91
35: ; preds = %6
%36 = load i32, i32* %4
%37 = icmp sgt i32 %36, 2
br i1 %37, label %38, label %41
38: ; preds = %35
%39 = load i32, i32* %4
%40 = add nsw i32 %39, -1
store i32 %40, i32* %4
br label %46
41: ; preds = %35
%42 = load i32, i32* %4
%43 = icmp ne i32 %42, 1
br i1 %43, label %44, label %45
44: ; preds = %41
store i8* null, i8** %2
br label %95
45: ; preds = %41
br label %46
46: ; preds = %45, %38
br label %91
47: ; preds = %6, %6, %6
%48 = load i32, i32* %4
%49 = icmp eq i32 %48, 0
br i1 %49, label %50, label %52
50: ; preds = %47
%51 = load i8*, i8** %5
store i8* %51, i8** %2
br label %95
52: ; preds = %47
%53 = load i32, i32* %4
%54 = icmp eq i32 %53, 2
br i1 %54, label %55, label %59
55: ; preds = %52
%56 = load i8**, i8*** %3
%57 = load i8*, i8** %56
%58 = getelementptr inbounds i8, i8* %57, i32 1
store i8* %58, i8** %56
store i8* %57, i8** %2
br label %95
59: ; preds = %52
br label %91
60: ; preds = %6
%61 = load i8**, i8*** %3
%62 = load i8*, i8** %61
%63 = getelementptr inbounds i8, i8* %62, i32 1
store i8* %63, i8** %61
%64 = load i8**, i8*** %3
%65 = load i8*, i8** %64
%66 = load i8, i8* %65
%67 = sext i8 %66 to i32
%68 = icmp eq i32 %67, 0
br i1 %68, label %69, label %70
69: ; preds = %60
store i8* null, i8** %2
br label %95
70: ; preds = %60
br label %91
71: ; preds = %6
%72 = load i32, i32* %4
switch i32 %72, label %83 [
i32 1, label %73
i32 0, label %78
i32 2, label %80
]
73: ; preds = %71
%74 = load i8**, i8*** %3
%75 = load i8*, i8** %74
%76 = getelementptr inbounds i8, i8* %75, i32 1
store i8* %76, i8** %74
%77 = load i8*, i8** %5
store i8* %77, i8** %2
br label %95
78: ; preds = %71
%79 = load i8*, i8** %5
store i8* %79, i8** %2
br label %95
80: ; preds = %71
%81 = load i8**, i8*** %3
%82 = load i8*, i8** %81
store i8* %82, i8** %5
store i32 1, i32* %4
br label %83
83: ; preds = %71, %80
br label %91
84: ; preds = %6
%85 = load i32, i32* %4
%86 = icmp eq i32 %85, 2
br i1 %86, label %87, label %90
87: ; preds = %84
%88 = load i8**, i8*** %3
%89 = load i8*, i8** %88
store i8* %89, i8** %5
store i32 0, i32* %4
br label %90
90: ; preds = %87, %84
br label %91
91: ; preds = %90, %83, %70, %59, %46, %34, %22
%92 = load i8**, i8*** %3
%93 = load i8*, i8** %92
%94 = getelementptr inbounds i8, i8* %93, i32 1
store i8* %94, i8** %92
br label %6
95: ; preds = %78, %73, %69, %55, %50, %44, %26, %20, %16, %14
%96 = load i8*, i8** %2
ret i8* %96
}

LLVM IR (-O2):
define i8* @getTok(i8** nocapture %0) {
%2 = load i8*, i8** %0
br label %3
3: ; preds = %38, %1
%4 = phi i8* [ %2, %1 ], [ %42, %38 ]
%5 = phi i32 [ 2, %1 ], [ %40, %38 ]
%6 = phi i8* [ null, %1 ], [ %41, %38 ]
%7 = load i8, i8* %4
%8 = sext i8 %7 to i32
switch i32 %8, label %34 [
i32 0, label %9
i32 32, label %12
i32 13, label %12
i32 9, label %12
i32 10, label %12
i32 40, label %14
i32 41, label %17
i32 59, label %23
i32 47, label %23
i32 61, label %23
i32 92, label %26
i32 34, label %30
]
9: ; preds = %3
%10 = icmp eq i32 %5, 0
%11 = select i1 %10, i8* %6, i8* null
br label %43
12: ; preds = %3, %3, %3, %3
%13 = icmp eq i32 %5, 0
br i1 %13, label %43, label %38
14: ; preds = %3
switch i32 %5, label %15 [
i32 0, label %43
i32 1, label %38
]
15: ; preds = %14
%16 = add nsw i32 %5, 1
br label %38
17: ; preds = %3
%18 = icmp sgt i32 %5, 2
br i1 %18, label %19, label %21
19: ; preds = %17
%20 = add nsw i32 %5, -1
br label %38
21: ; preds = %17
%22 = icmp eq i32 %5, 1
br i1 %22, label %38, label %43
23: ; preds = %3, %3, %3
switch i32 %5, label %38 [
i32 0, label %43
i32 2, label %24
]
24: ; preds = %23
%25 = getelementptr inbounds i8, i8* %4, i64 1
store i8* %25, i8** %0
br label %43
26: ; preds = %3
%27 = getelementptr inbounds i8, i8* %4, i64 1
store i8* %27, i8** %0
%28 = load i8, i8* %27
%29 = icmp eq i8 %28, 0
br i1 %29, label %43, label %38
30: ; preds = %3
switch i32 %5, label %38 [
i32 1, label %31
i32 0, label %43
i32 2, label %33
]
31: ; preds = %30
%32 = getelementptr inbounds i8, i8* %4, i64 1
store i8* %32, i8** %0
br label %43
33: ; preds = %30
br label %38
34: ; preds = %3
%35 = icmp eq i32 %5, 2
%36 = select i1 %35, i32 0, i32 %5
%37 = select i1 %35, i8* %4, i8* %6
br label %38
38: ; preds = %34, %23, %14, %33, %30, %26, %19, %21, %15, %12
%39 = phi i8* [ %4, %30 ], [ %4, %33 ], [ %27, %26 ], [ %4, %19 ], [ %4, %21 ], [ %4, %15 ], [ %4, %12 ], [ %4, %14 ], [ %4, %23 ], [ %4, %34 ]
%40 = phi i32 [ %5, %30 ], [ 1, %33 ], [ %5, %26 ], [ %20, %19 ], [ 1, %21 ], [ %16, %15 ], [ %5, %12 ], [ %5, %14 ], [ %5, %23 ], [ %36, %34 ]
%41 = phi i8* [ %6, %30 ], [ %4, %33 ], [ %6, %26 ], [ %6, %19 ], [ %6, %21 ], [ %6, %15 ], [ %6, %12 ], [ %6, %14 ], [ %6, %23 ], [ %37, %34 ]
%42 = getelementptr inbounds i8, i8* %39, i64 1
store i8* %42, i8** %0
br label %3
43: ; preds = %30, %26, %23, %21, %14, %12, %9, %31, %24
%44 = phi i8* [ %6, %31 ], [ %4, %24 ], [ %11, %9 ], [ %6, %30 ], [ null, %26 ], [ %6, %23 ], [ null, %21 ], [ %6, %14 ], [ %6, %12 ]
ret i8* %44
}