extern const char *str_match(const char *(*matcher)(const char *, const char *),
                             const char *str, const char **choices) {
  const char **choicep;
  const char *choice;
  const char *rv;
  for (choicep = choices; (choice = *choicep); choicep++) {
    if ((rv = matcher(str, choice))) {
      return rv;
    }
  }
  return 0;
}


x86 assembly (clang, -O0):
<str_match>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %rdx,-0x20(%rbp)
mov    -0x20(%rbp),%rax
mov    %rax,-0x28(%rbp)
mov    -0x28(%rbp),%rax
mov    (%rax),%rax
mov    %rax,-0x30(%rbp)
cmp    $0x0,%rax
je     1170 <str_match+0x70>
mov    -0x10(%rbp),%rax
mov    -0x18(%rbp),%rdi
mov    -0x30(%rbp),%rsi
call   *%rax
mov    %rax,-0x38(%rbp)
cmp    $0x0,%rax
je     115a <str_match+0x5a>
mov    -0x38(%rbp),%rax
mov    %rax,-0x8(%rbp)
jmp    1178 <str_match+0x78>
jmp    115f <str_match+0x5f>
mov    -0x28(%rbp),%rax
add    $0x8,%rax
mov    %rax,-0x28(%rbp)
jmp    111c <str_match+0x1c>
movq   $0x0,-0x8(%rbp)
mov    -0x8(%rbp),%rax
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<str_match>:
push   %r15
push   %r14
push   %r12
push   %rbx
push   %rax
mov    %rsi,%r15
mov    (%rdx),%rsi
test   %rsi,%rsi
je     1139 <str_match+0x39>
mov    %rdx,%rbx
mov    %rdi,%r12
add    $0x8,%rbx
xor    %r14d,%r14d
mov    %r15,%rdi
call   *%r12
test   %rax,%rax
jne    113e <str_match+0x3e>
mov    (%rbx),%rsi
add    $0x8,%rbx
test   %rsi,%rsi
jne    1120 <str_match+0x20>
jmp    1141 <str_match+0x41>
xor    %r14d,%r14d
jmp    1141 <str_match+0x41>
mov    %rax,%r14
mov    %r14,%rax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
ret

LLVM IR (-O0):
define i8* @str_match(i8* (i8*, i8*)* %0, i8* %1, i8** %2) {
%4 = alloca i8*
%5 = alloca i8* (i8*, i8*)*
%6 = alloca i8*
%7 = alloca i8**
%8 = alloca i8**
%9 = alloca i8*
%10 = alloca i8*
store i8* (i8*, i8*)* %0, i8* (i8*, i8*)** %5
store i8* %1, i8** %6
store i8** %2, i8*** %7
%11 = load i8**, i8*** %7
store i8** %11, i8*** %8
br label %12
12: ; preds = %25, %3
%13 = load i8**, i8*** %8
%14 = load i8*, i8** %13
store i8* %14, i8** %9
%15 = icmp ne i8* %14, null
br i1 %15, label %16, label %28
16: ; preds = %12
%17 = load i8* (i8*, i8*)*, i8* (i8*, i8*)** %5
%18 = load i8*, i8** %6
%19 = load i8*, i8** %9
%20 = call i8* %17(i8* %18, i8* %19)
store i8* %20, i8** %10
%21 = icmp ne i8* %20, null
br i1 %21, label %22, label %24
22: ; preds = %16
%23 = load i8*, i8** %10
store i8* %23, i8** %4
br label %29
24: ; preds = %16
br label %25
25: ; preds = %24
%26 = load i8**, i8*** %8
%27 = getelementptr inbounds i8*, i8** %26, i32 1
store i8** %27, i8*** %8
br label %12
28: ; preds = %12
store i8* null, i8** %4
br label %29
29: ; preds = %28, %22
%30 = load i8*, i8** %4
ret i8* %30
}

LLVM IR (-O2):
define i8* @str_match(i8* (i8*, i8*)* nocapture %0, i8* %1, i8** nocapture %2) {
%4 = load i8*, i8** %2
%5 = icmp eq i8* %4, null
br i1 %5, label %15, label %9
6: ; preds = %9
%7 = load i8*, i8** %14
%8 = icmp eq i8* %7, null
br i1 %8, label %15, label %9
9: ; preds = %3, %6
%10 = phi i8* [ %7, %6 ], [ %4, %3 ]
%11 = phi i8** [ %14, %6 ], [ %2, %3 ]
%12 = tail call i8* %0(i8* %1, i8* %10)
%13 = icmp eq i8* %12, null
%14 = getelementptr inbounds i8*, i8** %11, i64 1
br i1 %13, label %6, label %15
15: ; preds = %9, %6, %3
%16 = phi i8* [ null, %3 ], [ null, %6 ], [ %12, %9 ]
ret i8* %16
}