int stem(char **pz, const char *zFrom, const char *zTo,
         int (*xCond)(const char *)) {
  char *z = *pz;
  while (*zFrom && *zFrom == *z) {
    z++;
    zFrom++;
  }
  if (*zFrom != 0)
    return 0;
  if (xCond && !xCond(z))
    return 1;
  while (*zTo) {
    *(--z) = *(zTo++);
  }
  *pz = z;
  return 1;
}


x86 assembly (clang, -O0):
<stem>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %rdx,-0x20(%rbp)
mov    %rcx,-0x28(%rbp)
mov    -0x10(%rbp),%rax
mov    (%rax),%rax
mov    %rax,-0x30(%rbp)
mov    -0x18(%rbp),%rax
movsbl (%rax),%ecx
xor    %eax,%eax
cmp    $0x0,%ecx
mov    %al,-0x31(%rbp)
je     114e <stem+0x4e>
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
mov    -0x30(%rbp),%rcx
movsbl (%rcx),%ecx
cmp    %ecx,%eax
sete   %al
mov    %al,-0x31(%rbp)
mov    -0x31(%rbp),%al
test   $0x1,%al
jne    115e <stem+0x5e>
jmp    117b <stem+0x7b>
mov    -0x30(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x30(%rbp)
mov    -0x18(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
jmp    1123 <stem+0x23>
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
je     1197 <stem+0x97>
movl   $0x0,-0x4(%rbp)
jmp    120d <stem+0x10d>
cmpq   $0x0,-0x28(%rbp)
je     11c1 <stem+0xc1>
mov    -0x28(%rbp),%rax
mov    -0x30(%rbp),%rdi
call   *%rax
cmp    $0x0,%eax
jne    11c1 <stem+0xc1>
movl   $0x1,-0x4(%rbp)
jmp    120d <stem+0x10d>
jmp    11c6 <stem+0xc6>
mov    -0x20(%rbp),%rax
cmpb   $0x0,(%rax)
je     11fb <stem+0xfb>
mov    -0x20(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x20(%rbp)
mov    (%rax),%cl
mov    -0x30(%rbp),%rax
mov    %rax,%rdx
add    $0xffffffffffffffff,%rdx
mov    %rdx,-0x30(%rbp)
mov    %cl,-0x1(%rax)
jmp    11c6 <stem+0xc6>
mov    -0x30(%rbp),%rcx
mov    -0x10(%rbp),%rax
mov    %rcx,(%rax)
movl   $0x1,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<stem>:
push   %r15
push   %r14
push   %rbx
mov    %rdx,%r15
mov    %rdi,%r14
mov    (%rdi),%rbx
mov    (%rsi),%al
test   %al,%al
je     1133 <stem+0x33>
add    $0x1,%rsi
nopl   0x0(%rax,%rax,1)
cmp    (%rbx),%al
jne    116d <stem+0x6d>
add    $0x1,%rbx
movzbl (%rsi),%eax
add    $0x1,%rsi
test   %al,%al
jne    1120 <stem+0x20>
test   %rcx,%rcx
je     1141 <stem+0x41>
mov    %rbx,%rdi
call   *%rcx
test   %eax,%eax
je     1166 <stem+0x66>
mov    (%r15),%al
test   %al,%al
je     1163 <stem+0x63>
add    $0x1,%r15
nopl   0x0(%rax)
mov    %al,-0x1(%rbx)
add    $0xffffffffffffffff,%rbx
movzbl (%r15),%eax
add    $0x1,%r15
test   %al,%al
jne    1150 <stem+0x50>
mov    %rbx,(%r14)
mov    $0x1,%eax
jmp    116f <stem+0x6f>
xor    %eax,%eax
pop    %rbx
pop    %r14
pop    %r15
ret

LLVM IR (-O0):
define i32 @stem(i8** %0, i8* %1, i8* %2, i32 (i8*)* %3) {
%5 = alloca i32
%6 = alloca i8**
%7 = alloca i8*
%8 = alloca i8*
%9 = alloca i32 (i8*)*
%10 = alloca i8*
store i8** %0, i8*** %6
store i8* %1, i8** %7
store i8* %2, i8** %8
store i32 (i8*)* %3, i32 (i8*)** %9
%11 = load i8**, i8*** %6
%12 = load i8*, i8** %11
store i8* %12, i8** %10
br label %13
13: ; preds = %28, %4
%14 = load i8*, i8** %7
%15 = load i8, i8* %14
%16 = sext i8 %15 to i32
%17 = icmp ne i32 %16, 0
br i1 %17, label %18, label %26
18: ; preds = %13
%19 = load i8*, i8** %7
%20 = load i8, i8* %19
%21 = sext i8 %20 to i32
%22 = load i8*, i8** %10
%23 = load i8, i8* %22
%24 = sext i8 %23 to i32
%25 = icmp eq i32 %21, %24
br label %26
26: ; preds = %18, %13
%27 = phi i1 [ false, %13 ], [ %25, %18 ]
br i1 %27, label %28, label %33
28: ; preds = %26
%29 = load i8*, i8** %10
%30 = getelementptr inbounds i8, i8* %29, i32 1
store i8* %30, i8** %10
%31 = load i8*, i8** %7
%32 = getelementptr inbounds i8, i8* %31, i32 1
store i8* %32, i8** %7
br label %13
33: ; preds = %26
%34 = load i8*, i8** %7
%35 = load i8, i8* %34
%36 = sext i8 %35 to i32
%37 = icmp ne i32 %36, 0
br i1 %37, label %38, label %39
38: ; preds = %33
store i32 0, i32* %5
br label %62
39: ; preds = %33
%40 = load i32 (i8*)*, i32 (i8*)** %9
%41 = icmp ne i32 (i8*)* %40, null
br i1 %41, label %42, label %48
42: ; preds = %39
%43 = load i32 (i8*)*, i32 (i8*)** %9
%44 = load i8*, i8** %10
%45 = call i32 %43(i8* %44)
%46 = icmp ne i32 %45, 0
br i1 %46, label %48, label %47
47: ; preds = %42
store i32 1, i32* %5
br label %62
48: ; preds = %42, %39
br label %49
49: ; preds = %53, %48
%50 = load i8*, i8** %8
%51 = load i8, i8* %50
%52 = icmp ne i8 %51, 0
br i1 %52, label %53, label %59
53: ; preds = %49
%54 = load i8*, i8** %8
%55 = getelementptr inbounds i8, i8* %54, i32 1
store i8* %55, i8** %8
%56 = load i8, i8* %54
%57 = load i8*, i8** %10
%58 = getelementptr inbounds i8, i8* %57, i32 -1
store i8* %58, i8** %10
store i8 %56, i8* %58
br label %49
59: ; preds = %49
%60 = load i8*, i8** %10
%61 = load i8**, i8*** %6
store i8* %60, i8** %61
store i32 1, i32* %5
br label %62
62: ; preds = %59, %47, %38
%63 = load i32, i32* %5
ret i32 %63
}

LLVM IR (-O2):
define i32 @stem(i8** nocapture %0, i8* nocapture %1, i8* nocapture %2, i32 (i8*)* %3) {
%5 = load i8*, i8** %0
%6 = load i8, i8* %1
%7 = icmp eq i8 %6, 0
br i1 %7, label %19, label %8
8: ; preds = %4, %14
%9 = phi i8 [ %17, %14 ], [ %6, %4 ]
%10 = phi i8* [ %15, %14 ], [ %5, %4 ]
%11 = phi i8* [ %16, %14 ], [ %1, %4 ]
%12 = load i8, i8* %10
%13 = icmp eq i8 %9, %12
br i1 %13, label %14, label %38
14: ; preds = %8
%15 = getelementptr inbounds i8, i8* %10, i64 1
%16 = getelementptr inbounds i8, i8* %11, i64 1
%17 = load i8, i8* %16
%18 = icmp eq i8 %17, 0
br i1 %18, label %19, label %8
19: ; preds = %14, %4
%20 = phi i8* [ %5, %4 ], [ %15, %14 ]
%21 = icmp eq i32 (i8*)* %3, null
br i1 %21, label %25, label %22
22: ; preds = %19
%23 = tail call i32 %3(i8* %20)
%24 = icmp eq i32 %23, 0
br i1 %24, label %38, label %25
25: ; preds = %22, %19
%26 = load i8, i8* %2
%27 = icmp eq i8 %26, 0
br i1 %27, label %36, label %28
28: ; preds = %25, %28
%29 = phi i8 [ %34, %28 ], [ %26, %25 ]
%30 = phi i8* [ %33, %28 ], [ %20, %25 ]
%31 = phi i8* [ %32, %28 ], [ %2, %25 ]
%32 = getelementptr inbounds i8, i8* %31, i64 1
%33 = getelementptr inbounds i8, i8* %30, i64 -1
store i8 %29, i8* %33
%34 = load i8, i8* %32
%35 = icmp eq i8 %34, 0
br i1 %35, label %36, label %28
36: ; preds = %28, %25
%37 = phi i8* [ %20, %25 ], [ %33, %28 ]
store i8* %37, i8** %0
br label %38
38: ; preds = %8, %22, %36
%39 = phi i32 [ 1, %36 ], [ 1, %22 ], [ 0, %8 ]
ret i32 %39
}