char *branchto(cp, to)
register char *cp;
{
  register c, level;
  level = 0;
  while (c = *cp++) {
    if (c == '%') {
      if ((c = *cp++) == to || c == ';') {
        if (level == 0) {
          return cp;
        }
      }
      if (c == '?')
        level++;
      if (c == ';')
        level--;
    }
  }
  return ("no matching ENDIF");
}


x86 assembly (clang, -O0):
<branchto>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movsbl (%rax),%eax
mov    %eax,-0x18(%rbp)
cmp    $0x0,%eax
je     11ae <branchto+0xae>
cmpl   $0x25,-0x18(%rbp)
jne    11a9 <branchto+0xa9>
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movsbl (%rax),%eax
mov    %eax,-0x18(%rbp)
cmp    -0x14(%rbp),%eax
je     1162 <branchto+0x62>
cmpl   $0x3b,-0x18(%rbp)
jne    117e <branchto+0x7e>
cmpl   $0x0,-0x1c(%rbp)
jne    1179 <branchto+0x79>
mov    -0x10(%rbp),%rax
mov    %rax,-0x8(%rbp)
jmp    11b9 <branchto+0xb9>
jmp    117e <branchto+0x7e>
cmpl   $0x3f,-0x18(%rbp)
jne    1191 <branchto+0x91>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
cmpl   $0x3b,-0x18(%rbp)
jne    11a4 <branchto+0xa4>
mov    -0x1c(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x1c(%rbp)
jmp    11a9 <branchto+0xa9>
jmp    1112 <branchto+0x12>
lea    0xe4b(%rip),%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<branchto>:
mov    %rdi,%rax
xor    %r9d,%r9d
add    $0x1,%rax
nopw   0x0(%rax,%rax,1)
movzbl -0x1(%rax),%edx
test   %dl,%dl
je     1154 <branchto+0x54>
add    $0x1,%rax
cmp    $0x25,%dl
jne    1110 <branchto+0x10>
movsbl -0x1(%rax),%edx
cmp    $0x3b,%edx
setne  %r8b
cmp    %esi,%edx
setne  %cl
test   %cl,%r8b
jne    113b <branchto+0x3b>
test   %r9d,%r9d
je     115b <branchto+0x5b>
xor    %ecx,%ecx
cmp    $0x3b,%dl
sete   %cl
xor    %edi,%edi
cmp    $0x3f,%dl
sete   %dil
add    %edi,%r9d
sub    %ecx,%r9d
jmp    1106 <branchto+0x6>
lea    0xea5(%rip),%rax
ret

LLVM IR (-O0):
@.str = [18 x i8] c"no matching ENDIF\00"
define i8* @branchto(i8* %0, i32 %1) {
%3 = alloca i8*
%4 = alloca i8*
%5 = alloca i32
%6 = alloca i32
%7 = alloca i32
store i8* %0, i8** %4
store i32 %1, i32* %5
store i32 0, i32* %7
br label %8
8: ; preds = %46, %2
%9 = load i8*, i8** %4
%10 = getelementptr inbounds i8, i8* %9, i32 1
store i8* %10, i8** %4
%11 = load i8, i8* %9
%12 = sext i8 %11 to i32
store i32 %12, i32* %6
%13 = icmp ne i32 %12, 0
br i1 %13, label %14, label %47
14: ; preds = %8
%15 = load i32, i32* %6
%16 = icmp eq i32 %15, 37
br i1 %16, label %17, label %46
17: ; preds = %14
%18 = load i8*, i8** %4
%19 = getelementptr inbounds i8, i8* %18, i32 1
store i8* %19, i8** %4
%20 = load i8, i8* %18
%21 = sext i8 %20 to i32
store i32 %21, i32* %6
%22 = load i32, i32* %5
%23 = icmp eq i32 %21, %22
br i1 %23, label %27, label %24
24: ; preds = %17
%25 = load i32, i32* %6
%26 = icmp eq i32 %25, 59
br i1 %26, label %27, label %33
27: ; preds = %24, %17
%28 = load i32, i32* %7
%29 = icmp eq i32 %28, 0
br i1 %29, label %30, label %32
30: ; preds = %27
%31 = load i8*, i8** %4
store i8* %31, i8** %3
br label %48
32: ; preds = %27
br label %33
33: ; preds = %32, %24
%34 = load i32, i32* %6
%35 = icmp eq i32 %34, 63
br i1 %35, label %36, label %39
36: ; preds = %33
%37 = load i32, i32* %7
%38 = add nsw i32 %37, 1
store i32 %38, i32* %7
br label %39
39: ; preds = %36, %33
%40 = load i32, i32* %6
%41 = icmp eq i32 %40, 59
br i1 %41, label %42, label %45
42: ; preds = %39
%43 = load i32, i32* %7
%44 = add nsw i32 %43, -1
store i32 %44, i32* %7
br label %45
45: ; preds = %42, %39
br label %46
46: ; preds = %45, %14
br label %8
47: ; preds = %8
store i8* getelementptr inbounds ([18 x i8], [18 x i8]* @.str, i64 0, i64 0), i8** %3
br label %48
48: ; preds = %47, %30
%49 = load i8*, i8** %3
ret i8* %49
}

LLVM IR (-O2):
@.str = [18 x i8] c"no matching ENDIF\00"
define i8* @branchto(i8* %0, i32 %1) {
br label %3
3: ; preds = %19, %2
%4 = phi i8* [ %11, %19 ], [ %0, %2 ]
%5 = phi i32 [ %24, %19 ], [ 0, %2 ]
br label %6
6: ; preds = %3, %6
%7 = phi i8* [ %8, %6 ], [ %4, %3 ]
%8 = getelementptr inbounds i8, i8* %7, i64 1
%9 = load i8, i8* %7
switch i8 %9, label %6 [
i8 0, label %25
i8 37, label %10
]
10: ; preds = %6
%11 = getelementptr inbounds i8, i8* %7, i64 2
%12 = load i8, i8* %8
%13 = sext i8 %12 to i32
%14 = icmp eq i32 %13, %1
%15 = icmp eq i8 %12, 59
%16 = or i1 %15, %14
%17 = icmp eq i32 %5, 0
%18 = select i1 %16, i1 %17, i1 false
br i1 %18, label %25, label %19
19: ; preds = %10
%20 = icmp eq i8 %12, 63
%21 = zext i1 %20 to i32
%22 = add nsw i32 %5, %21
%23 = sext i1 %15 to i32
%24 = add nsw i32 %22, %23
br label %3
25: ; preds = %10, %6
%26 = phi i8* [ getelementptr inbounds ([18 x i8], [18 x i8]* @.str, i64 0, i64 0), %6 ], [ %11, %10 ]
ret i8* %26
}