coptok(cpp) char **cpp;
{
  char *val;
  int stc, stop, paren;
  paren = 0;
  val = *cpp;
  if (getch() == ')')
    return (0);
  while (((stc = getch()) != ',' && stc != ')') || paren > 0) {
    if (stc == '"' || stc == '\'') {
      stop = stc;
      if (stop == '\'')
        *(*cpp)++ = '\'';
      while ((stc = getch()) != stop) {
        if (stc == '\n') {
          error("non-terminated string");
          break;
        }
        if (stc == '\\')
          if ((stc = getch()) != stop && stc != '\\')
            *(*cpp)++ = '\\';
        *(*cpp)++ = stc;
      }
      if (stop == '\'')
        *(*cpp)++ = '\'';
    } else if (stc == '\\') {
      stc = getch();
      if (stc != '"' && stc != '\\')
        *(*cpp)++ = '\\';
      *(*cpp)++ = stc;
    } else {
      *(*cpp)++ = stc;
      if (stc == '(')
        paren++;
      if (stc == ')')
        paren--;
    }
  }
  *(*cpp)++ = 0;
  ungetc(stc);
  return (val);
}


x86 assembly (clang, -O0):
<coptok>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x10(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x10(%rbp),%rax
mov    (%rax),%rax
mov    %rax,-0x18(%rbp)
mov    $0x0,%al
call   1040 <getch@plt>
cmp    $0x29,%eax
jne    116a <coptok+0x3a>
movl   $0x0,-0x4(%rbp)
jmp    1363 <coptok+0x233>
jmp    116f <coptok+0x3f>
mov    $0x0,%al
call   1040 <getch@plt>
mov    %eax,-0x1c(%rbp)
cmp    $0x2c,%eax
je     1191 <coptok+0x61>
mov    $0x1,%al
cmpl   $0x29,-0x1c(%rbp)
mov    %al,-0x25(%rbp)
jne    119b <coptok+0x6b>
cmpl   $0x0,-0x24(%rbp)
setg   %al
mov    %al,-0x25(%rbp)
mov    -0x25(%rbp),%al
test   $0x1,%al
jne    11ab <coptok+0x7b>
jmp    133e <coptok+0x20e>
cmpl   $0x22,-0x1c(%rbp)
je     11bf <coptok+0x8f>
cmpl   $0x27,-0x1c(%rbp)
jne    1298 <coptok+0x168>
mov    -0x1c(%rbp),%eax
mov    %eax,-0x20(%rbp)
cmpl   $0x27,-0x20(%rbp)
jne    11e3 <coptok+0xb3>
mov    -0x10(%rbp),%rcx
mov    (%rcx),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,(%rcx)
movb   $0x27,(%rax)
jmp    11e8 <coptok+0xb8>
mov    $0x0,%al
call   1040 <getch@plt>
mov    %eax,-0x1c(%rbp)
cmp    -0x20(%rbp),%eax
je     1275 <coptok+0x145>
cmpl   $0xa,-0x1c(%rbp)
jne    1218 <coptok+0xe8>
lea    0xdf4(%rip),%rdi
mov    $0x0,%al
call   1050 <error@plt>
jmp    1275 <coptok+0x145>
cmpl   $0x5c,-0x1c(%rbp)
jne    1258 <coptok+0x128>
mov    $0x0,%al
call   1040 <getch@plt>
mov    %eax,-0x1c(%rbp)
cmp    -0x20(%rbp),%eax
je     1253 <coptok+0x123>
cmpl   $0x5c,-0x1c(%rbp)
je     1253 <coptok+0x123>
mov    -0x10(%rbp),%rcx
mov    (%rcx),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,(%rcx)
movb   $0x5c,(%rax)
jmp    1258 <coptok+0x128>
mov    -0x1c(%rbp),%eax
mov    %al,%cl
mov    -0x10(%rbp),%rdx
mov    (%rdx),%rax
mov    %rax,%rsi
add    $0x1,%rsi
mov    %rsi,(%rdx)
mov    %cl,(%rax)
jmp    11e8 <coptok+0xb8>
cmpl   $0x27,-0x20(%rbp)
jne    1293 <coptok+0x163>
mov    -0x10(%rbp),%rcx
mov    (%rcx),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,(%rcx)
movb   $0x27,(%rax)
jmp    1339 <coptok+0x209>
cmpl   $0x5c,-0x1c(%rbp)
jne    12f1 <coptok+0x1c1>
mov    $0x0,%al
call   1040 <getch@plt>
mov    %eax,-0x1c(%rbp)
cmpl   $0x22,-0x1c(%rbp)
je     12d4 <coptok+0x1a4>
cmpl   $0x5c,-0x1c(%rbp)
je     12d4 <coptok+0x1a4>
mov    -0x10(%rbp),%rcx
mov    (%rcx),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,(%rcx)
movb   $0x5c,(%rax)
mov    -0x1c(%rbp),%eax
mov    %al,%cl
mov    -0x10(%rbp),%rdx
mov    (%rdx),%rax
mov    %rax,%rsi
add    $0x1,%rsi
mov    %rsi,(%rdx)
mov    %cl,(%rax)
jmp    1334 <coptok+0x204>
mov    -0x1c(%rbp),%eax
mov    %al,%cl
mov    -0x10(%rbp),%rdx
mov    (%rdx),%rax
mov    %rax,%rsi
add    $0x1,%rsi
mov    %rsi,(%rdx)
mov    %cl,(%rax)
cmpl   $0x28,-0x1c(%rbp)
jne    131c <coptok+0x1ec>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
cmpl   $0x29,-0x1c(%rbp)
jne    132f <coptok+0x1ff>
mov    -0x24(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x24(%rbp)
jmp    1334 <coptok+0x204>
jmp    1339 <coptok+0x209>
jmp    116f <coptok+0x3f>
mov    -0x10(%rbp),%rcx
mov    (%rcx),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,(%rcx)
movb   $0x0,(%rax)
mov    -0x1c(%rbp),%edi
mov    $0x0,%al
call   1030 <ungetc@plt>
mov    -0x18(%rbp),%rax
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<coptok>:
push   %rbp
push   %r15
push   %r14
push   %r12
push   %rbx
mov    %rdi,%rbx
mov    (%rdi),%r15
xor    %ebp,%ebp
xor    %eax,%eax
call   1040 <getch@plt>
cmp    $0x29,%eax
je     12b1 <coptok+0x181>
xor    %eax,%eax
call   1040 <getch@plt>
mov    %eax,%ebp
cmp    $0x29,%eax
je     1298 <coptok+0x168>
cmp    $0x2c,%ebp
je     1298 <coptok+0x168>
lea    0xe8e(%rip),%r14
xor    %r12d,%r12d
cs nopw 0x0(%rax,%rax,1)
nop
cmp    $0x22,%ebp
je     1193 <coptok+0x63>
cmp    $0x5c,%ebp
je     1200 <coptok+0xd0>
cmp    $0x27,%ebp
jne    1230 <coptok+0x100>
cmp    $0x27,%ebp
jne    11c5 <coptok+0x95>
mov    (%rbx),%rax
lea    0x1(%rax),%rcx
mov    %rcx,(%rbx)
movb   $0x27,(%rax)
jmp    11c5 <coptok+0x95>
nopw   0x0(%rax,%rax,1)
cmp    $0xa,%eax
je     1255 <coptok+0x125>
mov    (%rbx),%rcx
lea    0x1(%rcx),%rdx
mov    %rdx,(%rbx)
mov    %al,(%rcx)
xor    %eax,%eax
call   1040 <getch@plt>
cmp    %ebp,%eax
je     1260 <coptok+0x130>
cmp    $0x5c,%eax
jne    11b0 <coptok+0x80>
xor    %eax,%eax
call   1040 <getch@plt>
cmp    %ebp,%eax
je     11b9 <coptok+0x89>
cmp    $0x5c,%eax
je     11b9 <coptok+0x89>
mov    (%rbx),%rcx
lea    0x1(%rcx),%rdx
mov    %rdx,(%rbx)
movb   $0x5c,(%rcx)
jmp    11b9 <coptok+0x89>
nopl   0x0(%rax,%rax,1)
xor    %eax,%eax
call   1040 <getch@plt>
cmp    $0x22,%eax
je     121e <coptok+0xee>
cmp    $0x5c,%eax
je     121e <coptok+0xee>
mov    (%rbx),%rcx
lea    0x1(%rcx),%rdx
mov    %rdx,(%rbx)
movb   $0x5c,(%rcx)
mov    (%rbx),%rcx
lea    0x1(%rcx),%rdx
mov    %rdx,(%rbx)
mov    %al,(%rcx)
jmp    1272 <coptok+0x142>
nopl   0x0(%rax)
mov    (%rbx),%rax
lea    0x1(%rax),%rcx
mov    %rcx,(%rbx)
mov    %bpl,(%rax)
xor    %eax,%eax
cmp    $0x28,%ebp
sete   %al
add    %eax,%r12d
xor    %eax,%eax
cmp    $0x29,%ebp
sete   %al
sub    %eax,%r12d
jmp    1272 <coptok+0x142>
mov    %r14,%rdi
xor    %eax,%eax
call   1050 <error@plt>
nop
cmp    $0x27,%ebp
jne    1272 <coptok+0x142>
mov    (%rbx),%rax
lea    0x1(%rax),%rcx
mov    %rcx,(%rbx)
movb   $0x27,(%rax)
xor    %eax,%eax
call   1040 <getch@plt>
mov    %eax,%ebp
cmp    $0x2c,%eax
setne  %al
cmp    $0x29,%ebp
setne  %cl
test   %cl,%al
jne    1180 <coptok+0x50>
test   %r12d,%r12d
jg     1180 <coptok+0x50>
mov    (%rbx),%rax
lea    0x1(%rax),%rcx
mov    %rcx,(%rbx)
movb   $0x0,(%rax)
mov    %ebp,%edi
xor    %eax,%eax
call   1030 <ungetc@plt>
mov    %r15d,%ebp
mov    %ebp,%eax
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [22 x i8] c"non-terminated string\00"
define i32 @coptok(i8** %0) {
%2 = alloca i32
%3 = alloca i8**
%4 = alloca i8*
%5 = alloca i32
%6 = alloca i32
%7 = alloca i32
store i8** %0, i8*** %3
store i32 0, i32* %7
%8 = load i8**, i8*** %3
%9 = load i8*, i8** %8
store i8* %9, i8** %4
%10 = call i32 (...) @getch()
%11 = icmp eq i32 %10, 41
br i1 %11, label %12, label %13
12: ; preds = %1
store i32 0, i32* %2
br label %126
13: ; preds = %1
br label %14
14: ; preds = %117, %13
%15 = call i32 (...) @getch()
store i32 %15, i32* %5
%16 = icmp ne i32 %15, 44
br i1 %16, label %17, label %20
17: ; preds = %14
%18 = load i32, i32* %5
%19 = icmp ne i32 %18, 41
br i1 %19, label %23, label %20
20: ; preds = %17, %14
%21 = load i32, i32* %7
%22 = icmp sgt i32 %21, 0
br label %23
23: ; preds = %20, %17
%24 = phi i1 [ true, %17 ], [ %22, %20 ]
br i1 %24, label %25, label %118
25: ; preds = %23
%26 = load i32, i32* %5
%27 = icmp eq i32 %26, 34
br i1 %27, label %31, label %28
28: ; preds = %25
%29 = load i32, i32* %5
%30 = icmp eq i32 %29, 39
br i1 %30, label %31, label %78
31: ; preds = %28, %25
%32 = load i32, i32* %5
store i32 %32, i32* %6
%33 = load i32, i32* %6
%34 = icmp eq i32 %33, 39
br i1 %34, label %35, label %39
35: ; preds = %31
%36 = load i8**, i8*** %3
%37 = load i8*, i8** %36
%38 = getelementptr inbounds i8, i8* %37, i32 1
store i8* %38, i8** %36
store i8 39, i8* %37
br label %39
39: ; preds = %35, %31
br label %40
40: ; preds = %64, %39
%41 = call i32 (...) @getch()
store i32 %41, i32* %5
%42 = load i32, i32* %6
%43 = icmp ne i32 %41, %42
br i1 %43, label %44, label %70
44: ; preds = %40
%45 = load i32, i32* %5
%46 = icmp eq i32 %45, 10
br i1 %46, label %47, label %49
47: ; preds = %44
%48 = call i32 (i8*, ...) bitcast (i32 (...)* @error to i32 (i8*, ...)*)(i8* getelementptr inbounds ([22 x i8], [22 x i8]* @.str, i64 0, i64 0))
br label %70
49: ; preds = %44
%50 = load i32, i32* %5
%51 = icmp eq i32 %50, 92
br i1 %51, label %52, label %64
52: ; preds = %49
%53 = call i32 (...) @getch()
store i32 %53, i32* %5
%54 = load i32, i32* %6
%55 = icmp ne i32 %53, %54
br i1 %55, label %56, label %63
56: ; preds = %52
%57 = load i32, i32* %5
%58 = icmp ne i32 %57, 92
br i1 %58, label %59, label %63
59: ; preds = %56
%60 = load i8**, i8*** %3
%61 = load i8*, i8** %60
%62 = getelementptr inbounds i8, i8* %61, i32 1
store i8* %62, i8** %60
store i8 92, i8* %61
br label %63
63: ; preds = %59, %56, %52
br label %64
64: ; preds = %63, %49
%65 = load i32, i32* %5
%66 = trunc i32 %65 to i8
%67 = load i8**, i8*** %3
%68 = load i8*, i8** %67
%69 = getelementptr inbounds i8, i8* %68, i32 1
store i8* %69, i8** %67
store i8 %66, i8* %68
br label %40
70: ; preds = %47, %40
%71 = load i32, i32* %6
%72 = icmp eq i32 %71, 39
br i1 %72, label %73, label %77
73: ; preds = %70
%74 = load i8**, i8*** %3
%75 = load i8*, i8** %74
%76 = getelementptr inbounds i8, i8* %75, i32 1
store i8* %76, i8** %74
store i8 39, i8* %75
br label %77
77: ; preds = %73, %70
br label %117
78: ; preds = %28
%79 = load i32, i32* %5
%80 = icmp eq i32 %79, 92
br i1 %80, label %81, label %98
81: ; preds = %78
%82 = call i32 (...) @getch()
store i32 %82, i32* %5
%83 = load i32, i32* %5
%84 = icmp ne i32 %83, 34
br i1 %84, label %85, label %92
85: ; preds = %81
%86 = load i32, i32* %5
%87 = icmp ne i32 %86, 92
br i1 %87, label %88, label %92
88: ; preds = %85
%89 = load i8**, i8*** %3
%90 = load i8*, i8** %89
%91 = getelementptr inbounds i8, i8* %90, i32 1
store i8* %91, i8** %89
store i8 92, i8* %90
br label %92
92: ; preds = %88, %85, %81
%93 = load i32, i32* %5
%94 = trunc i32 %93 to i8
%95 = load i8**, i8*** %3
%96 = load i8*, i8** %95
%97 = getelementptr inbounds i8, i8* %96, i32 1
store i8* %97, i8** %95
store i8 %94, i8* %96
br label %116
98: ; preds = %78
%99 = load i32, i32* %5
%100 = trunc i32 %99 to i8
%101 = load i8**, i8*** %3
%102 = load i8*, i8** %101
%103 = getelementptr inbounds i8, i8* %102, i32 1
store i8* %103, i8** %101
store i8 %100, i8* %102
%104 = load i32, i32* %5
%105 = icmp eq i32 %104, 40
br i1 %105, label %106, label %109
106: ; preds = %98
%107 = load i32, i32* %7
%108 = add nsw i32 %107, 1
store i32 %108, i32* %7
br label %109
109: ; preds = %106, %98
%110 = load i32, i32* %5
%111 = icmp eq i32 %110, 41
br i1 %111, label %112, label %115
112: ; preds = %109
%113 = load i32, i32* %7
%114 = add nsw i32 %113, -1
store i32 %114, i32* %7
br label %115
115: ; preds = %112, %109
br label %116
116: ; preds = %115, %92
br label %117
117: ; preds = %116, %77
br label %14
118: ; preds = %23
%119 = load i8**, i8*** %3
%120 = load i8*, i8** %119
%121 = getelementptr inbounds i8, i8* %120, i32 1
store i8* %121, i8** %119
store i8 0, i8* %120
%122 = load i32, i32* %5
%123 = call i32 (i32, ...) bitcast (i32 (...)* @ungetc to i32 (i32, ...)*)(i32 %122)
%124 = load i8*, i8** %4
%125 = ptrtoint i8* %124 to i32
store i32 %125, i32* %2
br label %126
126: ; preds = %118, %12
%127 = load i32, i32* %2
ret i32 %127
}

LLVM IR (-O2):
@.str = [22 x i8] c"non-terminated string\00"
define i32 @coptok(i8** nocapture %0) {
%2 = load i8*, i8** %0
%3 = tail call i32 (...) @getch()
%4 = icmp eq i32 %3, 41
br i1 %4, label %75, label %5
5: ; preds = %1
%6 = tail call i32 (...) @getch()
switch i32 %6, label %7 [
i32 44, label %68
i32 41, label %68
]
7: ; preds = %5, %60
%8 = phi i32 [ %62, %60 ], [ %6, %5 ]
%9 = phi i32 [ %61, %60 ], [ 0, %5 ]
%10 = icmp eq i32 %8, 39
switch i32 %8, label %50 [
i32 39, label %11
i32 34, label %11
i32 92, label %41
]
11: ; preds = %7, %7
br i1 %10, label %12, label %15
12: ; preds = %11
%13 = load i8*, i8** %0
%14 = getelementptr inbounds i8, i8* %13, i64 1
store i8* %14, i8** %0
store i8 39, i8* %13
br label %15
15: ; preds = %12, %11
%16 = tail call i32 (...) @getch()
%17 = icmp eq i32 %16, %8
br i1 %17, label %37, label %18
18: ; preds = %15, %30
%19 = phi i32 [ %35, %30 ], [ %16, %15 ]
switch i32 %19, label %30 [
i32 10, label %20
i32 92, label %22
]
20: ; preds = %18
%21 = tail call i32 (i8*, ...) bitcast (i32 (...)* @error to i32 (i8*, ...)*)(i8* getelementptr inbounds ([22 x i8], [22 x i8]* @.str, i64 0, i64 0))
br label %37
22: ; preds = %18
%23 = tail call i32 (...) @getch()
%24 = icmp ne i32 %23, %8
%25 = icmp ne i32 %23, 92
%26 = and i1 %24, %25
br i1 %26, label %27, label %30
27: ; preds = %22
%28 = load i8*, i8** %0
%29 = getelementptr inbounds i8, i8* %28, i64 1
store i8* %29, i8** %0
store i8 92, i8* %28
br label %30
30: ; preds = %18, %22, %27
%31 = phi i32 [ %23, %27 ], [ %23, %22 ], [ %19, %18 ]
%32 = trunc i32 %31 to i8
%33 = load i8*, i8** %0
%34 = getelementptr inbounds i8, i8* %33, i64 1
store i8* %34, i8** %0
store i8 %32, i8* %33
%35 = tail call i32 (...) @getch()
%36 = icmp eq i32 %35, %8
br i1 %36, label %37, label %18
37: ; preds = %30, %15, %20
br i1 %10, label %38, label %60
38: ; preds = %37
%39 = load i8*, i8** %0
%40 = getelementptr inbounds i8, i8* %39, i64 1
store i8* %40, i8** %0
store i8 39, i8* %39
br label %60
41: ; preds = %7
%42 = tail call i32 (...) @getch()
switch i32 %42, label %43 [
i32 92, label %46
i32 34, label %46
]
43: ; preds = %41
%44 = load i8*, i8** %0
%45 = getelementptr inbounds i8, i8* %44, i64 1
store i8* %45, i8** %0
store i8 92, i8* %44
br label %46
46: ; preds = %41, %41, %43
%47 = trunc i32 %42 to i8
%48 = load i8*, i8** %0
%49 = getelementptr inbounds i8, i8* %48, i64 1
store i8* %49, i8** %0
store i8 %47, i8* %48
br label %60
50: ; preds = %7
%51 = trunc i32 %8 to i8
%52 = load i8*, i8** %0
%53 = getelementptr inbounds i8, i8* %52, i64 1
store i8* %53, i8** %0
store i8 %51, i8* %52
%54 = icmp eq i32 %8, 40
%55 = zext i1 %54 to i32
%56 = add nsw i32 %9, %55
%57 = icmp eq i32 %8, 41
%58 = sext i1 %57 to i32
%59 = add nsw i32 %56, %58
br label %60
60: ; preds = %50, %46, %37, %38
%61 = phi i32 [ %9, %38 ], [ %9, %37 ], [ %9, %46 ], [ %59, %50 ]
%62 = tail call i32 (...) @getch()
%63 = icmp ne i32 %62, 44
%64 = icmp ne i32 %62, 41
%65 = and i1 %63, %64
%66 = icmp sgt i32 %61, 0
%67 = select i1 %65, i1 true, i1 %66
br i1 %67, label %7, label %68
68: ; preds = %60, %5, %5
%69 = phi i32 [ %6, %5 ], [ %6, %5 ], [ %62, %60 ]
%70 = load i8*, i8** %0
%71 = getelementptr inbounds i8, i8* %70, i64 1
store i8* %71, i8** %0
store i8 0, i8* %70
%72 = tail call i32 (i32, ...) bitcast (i32 (...)* @ungetc to i32 (i32, ...)*)(i32 %69)
%73 = ptrtoint i8* %2 to i64
%74 = trunc i64 %73 to i32
br label %75
75: ; preds = %1, %68
%76 = phi i32 [ %74, %68 ], [ 0, %1 ]
ret i32 %76
}