void scan(unsigned long *at, char (*f)(char)) {
  char *p, c;
  unsigned long *t;
  t = at + 5;
  while ((p = (char *)*t++) != '\0')
    while ((c = *p) != '\0')
      *p++ = (*f)(c);
}


x86 assembly (clang, -O0):
<scan>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    -0x8(%rbp),%rax
add    $0x28,%rax
mov    %rax,-0x28(%rbp)
mov    -0x28(%rbp),%rax
mov    %rax,%rcx
add    $0x8,%rcx
mov    %rcx,-0x28(%rbp)
mov    (%rax),%rax
mov    %rax,-0x18(%rbp)
cmp    $0x0,%rax
je     117d <scan+0x7d>
jmp    1141 <scan+0x41>
mov    -0x18(%rbp),%rax
mov    (%rax),%al
mov    %al,-0x19(%rbp)
movsbl %al,%eax
cmp    $0x0,%eax
je     1178 <scan+0x78>
mov    -0x10(%rbp),%rax
movsbl -0x19(%rbp),%edi
call   *%rax
mov    %al,%cl
mov    -0x18(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x18(%rbp)
mov    %cl,(%rax)
jmp    1141 <scan+0x41>
jmp    111c <scan+0x1c>
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<scan>:
push   %r15
push   %r14
push   %rbx
mov    0x28(%rdi),%rbx
test   %rbx,%rbx
je     1156 <scan+0x56>
mov    %rsi,%r15
mov    %rdi,%r14
add    $0x30,%r14
jmp    112c <scan+0x2c>
nopw   0x0(%rax,%rax,1)
mov    (%r14),%rbx
add    $0x8,%r14
test   %rbx,%rbx
je     1156 <scan+0x56>
mov    (%rbx),%al
test   %al,%al
je     1120 <scan+0x20>
add    $0x1,%rbx
cs nopw 0x0(%rax,%rax,1)
movsbl %al,%edi
call   *%r15
mov    %al,-0x1(%rbx)
movzbl (%rbx),%eax
add    $0x1,%rbx
test   %al,%al
jne    1140 <scan+0x40>
jmp    1120 <scan+0x20>
pop    %rbx
pop    %r14
pop    %r15
ret

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

LLVM IR (-O2):
define void @scan(i64* nocapture %0, i8 (i8)* nocapture %1) {
%3 = getelementptr inbounds i64, i64* %0, i64 5
%4 = load i64, i64* %3
%5 = icmp eq i64 %4, 0
br i1 %5, label %25, label %6
6: ; preds = %2
%7 = getelementptr inbounds i64, i64* %0, i64 6
br label %12
8: ; preds = %18, %12
%9 = getelementptr inbounds i64, i64* %14, i64 1
%10 = load i64, i64* %14
%11 = icmp eq i64 %10, 0
br i1 %11, label %25, label %12
12: ; preds = %6, %8
%13 = phi i64 [ %10, %8 ], [ %4, %6 ]
%14 = phi i64* [ %9, %8 ], [ %7, %6 ]
%15 = inttoptr i64 %13 to i8*
%16 = load i8, i8* %15
%17 = icmp eq i8 %16, 0
br i1 %17, label %8, label %18
18: ; preds = %12, %18
%19 = phi i8 [ %23, %18 ], [ %16, %12 ]
%20 = phi i8* [ %22, %18 ], [ %15, %12 ]
%21 = tail call signext i8 %1(i8 signext %19)
%22 = getelementptr inbounds i8, i8* %20, i64 1
store i8 %21, i8* %20
%23 = load i8, i8* %22
%24 = icmp eq i8 %23, 0
br i1 %24, label %8, label %18
25: ; preds = %8, %2
ret void
}