balpar(bp) char *bp;
{
  int i, c, lpar;
  extern int peek;
  while ((c = getc()) == ' ' || c == '\t' || c == '\n')
    ;
  peek = c;
  if (c != '(') {
    error("missing left paren");
    bp[0] = '\0';
    return (bp);
  }
  for (lpar = i = 0; (bp[i++] = c = getc()) != '\0';) {
    if (c == '\'' || c == '"')
      while ((bp[i++] = getc()) != c)
        ;
    if (i >= 499 || c == '{' || c == '}') {
      error("missing right parenthesis at %.20s", bp);
      break;
    }
    if (c == '(')
      lpar++;
    else if (c == ')')
      lpar--;
    if (lpar == 0)
      break;
  }
  bp[i] = '\0';
  return (bp);
}


x86 assembly (clang, -O0):
<balpar>:
push   %rbp
mov    %rsp,%rbp
sub    $0x20,%rsp
mov    %rdi,-0x10(%rbp)
mov    $0x0,%al
call   1040 <getc@plt>
mov    %eax,%ecx
mov    %ecx,-0x18(%rbp)
mov    $0x1,%al
cmp    $0x20,%ecx
mov    %al,-0x1d(%rbp)
je     115f <balpar+0x3f>
mov    $0x1,%al
cmpl   $0x9,-0x18(%rbp)
mov    %al,-0x1d(%rbp)
je     115f <balpar+0x3f>
cmpl   $0xa,-0x18(%rbp)
sete   %al
mov    %al,-0x1d(%rbp)
mov    -0x1d(%rbp),%al
test   $0x1,%al
jne    116f <balpar+0x4f>
jmp    1174 <balpar+0x54>
jmp    112c <balpar+0xc>
mov    -0x18(%rbp),%ecx
mov    0x2e5a(%rip),%rax
mov    %ecx,(%rax)
cmpl   $0x28,-0x18(%rbp)
je     11ab <balpar+0x8b>
lea    0xe6f(%rip),%rdi
mov    $0x0,%al
call   1030 <error@plt>
mov    -0x10(%rbp),%rax
movb   $0x0,(%rax)
mov    -0x10(%rbp),%rax
mov    %eax,-0x4(%rbp)
jmp    12be <balpar+0x19e>
movl   $0x0,-0x14(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    $0x0,%al
call   1040 <getc@plt>
mov    %eax,-0x18(%rbp)
mov    -0x10(%rbp),%rcx
mov    -0x14(%rbp),%edx
mov    %edx,%esi
add    $0x1,%esi
mov    %esi,-0x14(%rbp)
movslq %edx,%rdx
mov    %al,(%rcx,%rdx,1)
movsbl %al,%eax
cmp    $0x0,%eax
je     12ab <balpar+0x18b>
cmpl   $0x27,-0x18(%rbp)
je     11f8 <balpar+0xd8>
cmpl   $0x22,-0x18(%rbp)
jne    122f <balpar+0x10f>
jmp    11fd <balpar+0xdd>
mov    $0x0,%al
call   1040 <getc@plt>
mov    -0x10(%rbp),%rcx
mov    -0x14(%rbp),%edx
mov    %edx,%esi
add    $0x1,%esi
mov    %esi,-0x14(%rbp)
movslq %edx,%rdx
mov    %al,(%rcx,%rdx,1)
movsbl %al,%eax
cmp    -0x18(%rbp),%eax
je     122a <balpar+0x10a>
jmp    11fd <balpar+0xdd>
jmp    122f <balpar+0x10f>
cmpl   $0x1f3,-0x14(%rbp)
jge    1250 <balpar+0x130>
cmpl   $0x7b,-0x18(%rbp)
je     1250 <balpar+0x130>
cmpl   $0x7d,-0x18(%rbp)
jne    1267 <balpar+0x147>
mov    -0x10(%rbp),%rsi
lea    0xdb8(%rip),%rdi
mov    $0x0,%al
call   1030 <error@plt>
jmp    12ab <balpar+0x18b>
cmpl   $0x28,-0x18(%rbp)
jne    127f <balpar+0x15f>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1297 <balpar+0x177>
cmpl   $0x29,-0x18(%rbp)
jne    1292 <balpar+0x172>
mov    -0x1c(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x1c(%rbp)
jmp    1297 <balpar+0x177>
cmpl   $0x0,-0x1c(%rbp)
jne    12a6 <balpar+0x186>
jmp    12ab <balpar+0x18b>
jmp    11b9 <balpar+0x99>
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
movb   $0x0,(%rax,%rcx,1)
mov    -0x10(%rbp),%rax
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x20,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<balpar>:
push   %rbp
push   %r15
push   %r14
push   %r12
push   %rbx
mov    %rdi,%r14
movabs $0x100000600,%rbx
cs nopw 0x0(%rax,%rax,1)
nop
xor    %eax,%eax
call   1040 <getc@plt>
cmp    $0x20,%eax
ja     1154 <balpar+0x34>
mov    %eax,%ecx
bt     %rcx,%rbx
jb     1140 <balpar+0x20>
mov    0x2e7d(%rip),%rcx
mov    %eax,(%rcx)
cmp    $0x28,%eax
jne    1204 <balpar+0xe4>
xor    %ebx,%ebx
xor    %r15d,%r15d
jmp    117f <balpar+0x5f>
nopl   (%rax)
cmp    $0x29,%r12d
jne    11df <balpar+0xbf>
add    $0xffffffff,%r15d
test   %r15d,%r15d
je     11fc <balpar+0xdc>
xor    %eax,%eax
call   1040 <getc@plt>
mov    %eax,%r12d
movslq %ebx,%rax
add    $0x1,%ebx
mov    %r12b,(%r14,%rax,1)
test   %r12b,%r12b
je     11fc <balpar+0xdc>
cmp    $0x27,%r12d
je     11a4 <balpar+0x84>
cmp    $0x22,%r12d
jne    11c9 <balpar+0xa9>
movslq %ebx,%rbp
add    %r14,%rbp
nopw   0x0(%rax,%rax,1)
xor    %eax,%eax
call   1040 <getc@plt>
mov    %al,0x0(%rbp)
movsbl %al,%eax
add    $0x1,%rbp
add    $0x1,%ebx
cmp    %r12d,%eax
jne    11b0 <balpar+0x90>
cmp    $0x1f2,%ebx
jg     11eb <balpar+0xcb>
cmp    $0x28,%r12d
jg     1170 <balpar+0x50>
jne    117a <balpar+0x5a>
add    $0x1,%r15d
jmp    117a <balpar+0x5a>
cmp    $0x7d,%r12d
je     11eb <balpar+0xcb>
cmp    $0x7b,%r12d
jne    117a <balpar+0x5a>
lea    0xe21(%rip),%rdi
mov    %r14,%rsi
xor    %eax,%eax
call   1030 <error@plt>
movslq %ebx,%rax
add    %r14,%rax
jmp    1215 <balpar+0xf5>
lea    0xdf5(%rip),%rdi
xor    %eax,%eax
call   1030 <error@plt>
mov    %r14,%rax
movb   $0x0,(%rax)
mov    %r14d,%eax
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@peek = external global i32
@.str = [19 x i8] c"missing left paren\00"
@.str.1 = [35 x i8] c"missing right parenthesis at %.20s\00"
define i32 @balpar(i8* %0) {
%2 = alloca i32
%3 = alloca i8*
%4 = alloca i32
%5 = alloca i32
%6 = alloca i32
store i8* %0, i8** %3
br label %7
7: ; preds = %18, %1
%8 = call i32 (...) @getc()
store i32 %8, i32* %5
%9 = icmp eq i32 %8, 32
br i1 %9, label %16, label %10
10: ; preds = %7
%11 = load i32, i32* %5
%12 = icmp eq i32 %11, 9
br i1 %12, label %16, label %13
13: ; preds = %10
%14 = load i32, i32* %5
%15 = icmp eq i32 %14, 10
br label %16
16: ; preds = %13, %10, %7
%17 = phi i1 [ true, %10 ], [ true, %7 ], [ %15, %13 ]
br i1 %17, label %18, label %19
18: ; preds = %16
br label %7
19: ; preds = %16
%20 = load i32, i32* %5
store i32 %20, i32* @peek
%21 = load i32, i32* %5
%22 = icmp ne i32 %21, 40
br i1 %22, label %23, label %29
23: ; preds = %19
%24 = call i32 (i8*, ...) bitcast (i32 (...)* @error to i32 (i8*, ...)*)(i8* getelementptr inbounds ([19 x i8], [19 x i8]* @.str, i64 0, i64 0))
%25 = load i8*, i8** %3
%26 = getelementptr inbounds i8, i8* %25, i64 0
store i8 0, i8* %26
%27 = load i8*, i8** %3
%28 = ptrtoint i8* %27 to i32
store i32 %28, i32* %2
br label %97
29: ; preds = %19
store i32 0, i32* %4
store i32 0, i32* %6
br label %30
30: ; preds = %89, %29
%31 = call i32 (...) @getc()
store i32 %31, i32* %5
%32 = trunc i32 %31 to i8
%33 = load i8*, i8** %3
%34 = load i32, i32* %4
%35 = add nsw i32 %34, 1
store i32 %35, i32* %4
%36 = sext i32 %34 to i64
%37 = getelementptr inbounds i8, i8* %33, i64 %36
store i8 %32, i8* %37
%38 = sext i8 %32 to i32
%39 = icmp ne i32 %38, 0
br i1 %39, label %40, label %90
40: ; preds = %30
%41 = load i32, i32* %5
%42 = icmp eq i32 %41, 39
br i1 %42, label %46, label %43
43: ; preds = %40
%44 = load i32, i32* %5
%45 = icmp eq i32 %44, 34
br i1 %45, label %46, label %60
46: ; preds = %43, %40
br label %47
47: ; preds = %58, %46
%48 = call i32 (...) @getc()
%49 = trunc i32 %48 to i8
%50 = load i8*, i8** %3
%51 = load i32, i32* %4
%52 = add nsw i32 %51, 1
store i32 %52, i32* %4
%53 = sext i32 %51 to i64
%54 = getelementptr inbounds i8, i8* %50, i64 %53
store i8 %49, i8* %54
%55 = sext i8 %49 to i32
%56 = load i32, i32* %5
%57 = icmp ne i32 %55, %56
br i1 %57, label %58, label %59
58: ; preds = %47
br label %47
59: ; preds = %47
br label %60
60: ; preds = %59, %43
%61 = load i32, i32* %4
%62 = icmp sge i32 %61, 499
br i1 %62, label %69, label %63
63: ; preds = %60
%64 = load i32, i32* %5
%65 = icmp eq i32 %64, 123
br i1 %65, label %69, label %66
66: ; preds = %63
%67 = load i32, i32* %5
%68 = icmp eq i32 %67, 125
br i1 %68, label %69, label %72
69: ; preds = %66, %63, %60
%70 = load i8*, i8** %3
%71 = call i32 (i8*, i8*, ...) bitcast (i32 (...)* @error to i32 (i8*, i8*, ...)*)(i8* getelementptr inbounds ([35 x i8], [35 x i8]* @.str.1, i64 0, i64 0), i8* %70)
br label %90
72: ; preds = %66
%73 = load i32, i32* %5
%74 = icmp eq i32 %73, 40
br i1 %74, label %75, label %78
75: ; preds = %72
%76 = load i32, i32* %6
%77 = add nsw i32 %76, 1
store i32 %77, i32* %6
br label %85
78: ; preds = %72
%79 = load i32, i32* %5
%80 = icmp eq i32 %79, 41
br i1 %80, label %81, label %84
81: ; preds = %78
%82 = load i32, i32* %6
%83 = add nsw i32 %82, -1
store i32 %83, i32* %6
br label %84
84: ; preds = %81, %78
br label %85
85: ; preds = %84, %75
%86 = load i32, i32* %6
%87 = icmp eq i32 %86, 0
br i1 %87, label %88, label %89
88: ; preds = %85
br label %90
89: ; preds = %85
br label %30
90: ; preds = %88, %69, %30
%91 = load i8*, i8** %3
%92 = load i32, i32* %4
%93 = sext i32 %92 to i64
%94 = getelementptr inbounds i8, i8* %91, i64 %93
store i8 0, i8* %94
%95 = load i8*, i8** %3
%96 = ptrtoint i8* %95 to i32
store i32 %96, i32* %2
br label %97
97: ; preds = %90, %23
%98 = load i32, i32* %2
ret i32 %98
}

LLVM IR (-O2):
@peek = external global i32
@.str = [19 x i8] c"missing left paren\00"
@.str.1 = [35 x i8] c"missing right parenthesis at %.20s\00"
define i32 @balpar(i8* %0) {
br label %2
2: ; preds = %4, %1
%3 = tail call i32 (...) @getc()
switch i32 %3, label %5 [
i32 32, label %4
i32 10, label %4
i32 9, label %4
]
4: ; preds = %2, %2, %2
br label %2
5: ; preds = %2
store i32 %3, i32* @peek
%6 = icmp eq i32 %3, 40
br i1 %6, label %9, label %7
7: ; preds = %5
%8 = tail call i32 (i8*, ...) bitcast (i32 (...)* @error to i32 (i8*, ...)*)(i8* getelementptr inbounds ([19 x i8], [19 x i8]* @.str, i64 0, i64 0))
br label %54
9: ; preds = %5, %45
%10 = phi i32 [ %35, %45 ], [ 0, %5 ]
%11 = phi i32 [ %46, %45 ], [ 0, %5 ]
%12 = tail call i32 (...) @getc()
%13 = trunc i32 %12 to i8
%14 = add nsw i32 %10, 1
%15 = sext i32 %10 to i64
%16 = getelementptr inbounds i8, i8* %0, i64 %15
store i8 %13, i8* %16
%17 = and i32 %12, 255
%18 = icmp eq i32 %17, 0
br i1 %18, label %50, label %19
19: ; preds = %9
switch i32 %12, label %33 [
i32 39, label %20
i32 34, label %20
]
20: ; preds = %19, %19
%21 = sext i32 %14 to i64
br label %22
22: ; preds = %20, %22
%23 = phi i64 [ %21, %20 ], [ %26, %22 ]
%24 = tail call i32 (...) @getc()
%25 = trunc i32 %24 to i8
%26 = add i64 %23, 1
%27 = getelementptr inbounds i8, i8* %0, i64 %23
store i8 %25, i8* %27
%28 = shl i32 %24, 24
%29 = ashr exact i32 %28, 24
%30 = icmp eq i32 %29, %12
br i1 %30, label %31, label %22
31: ; preds = %22
%32 = trunc i64 %26 to i32
br label %33
33: ; preds = %31, %19
%34 = phi i32 [ %14, %19 ], [ %32, %31 ]
%35 = freeze i32 %34
%36 = icmp sgt i32 %35, 498
br i1 %36, label %38, label %37
37: ; preds = %33
switch i32 %12, label %45 [
i32 125, label %38
i32 123, label %38
i32 40, label %41
i32 41, label %43
]
38: ; preds = %37, %37, %33
%39 = freeze i32 %34
%40 = tail call i32 (i8*, i8*, ...) bitcast (i32 (...)* @error to i32 (i8*, i8*, ...)*)(i8* getelementptr inbounds ([35 x i8], [35 x i8]* @.str.1, i64 0, i64 0), i8* %0)
br label %50
41: ; preds = %37
%42 = add nsw i32 %11, 1
br label %45
43: ; preds = %37
%44 = add nsw i32 %11, -1
br label %45
45: ; preds = %37, %43, %41
%46 = phi i32 [ %42, %41 ], [ %44, %43 ], [ %11, %37 ]
%47 = icmp eq i32 %46, 0
br i1 %47, label %48, label %9
48: ; preds = %45
%49 = freeze i32 %34
br label %50
50: ; preds = %48, %9, %38
%51 = phi i32 [ %39, %38 ], [ %49, %48 ], [ %14, %9 ]
%52 = sext i32 %51 to i64
%53 = getelementptr inbounds i8, i8* %0, i64 %52
br label %54
54: ; preds = %50, %7
%55 = phi i8* [ %53, %50 ], [ %0, %7 ]
store i8 0, i8* %55
%56 = ptrtoint i8* %0 to i64
%57 = trunc i64 %56 to i32
ret i32 %57
}