int perl_string(const unsigned int *str, unsigned int delim, int j, int n) {
  for (; j < n; j++) {
    if (str[j] == '\\')
      j++;
    else if (str[j] == delim)
      return j;
  }
  return j;
}


x86 assembly (clang, -O0):
<perl_string>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
mov    %edx,-0x18(%rbp)
mov    %ecx,-0x1c(%rbp)
mov    -0x18(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jge    1174 <perl_string+0x74>
mov    -0x10(%rbp),%rax
movslq -0x18(%rbp),%rcx
cmpl   $0x5c,(%rax,%rcx,4)
jne    113d <perl_string+0x3d>
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    1161 <perl_string+0x61>
mov    -0x10(%rbp),%rax
movslq -0x18(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
cmp    -0x14(%rbp),%eax
jne    115c <perl_string+0x5c>
mov    -0x18(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    117a <perl_string+0x7a>
jmp    1161 <perl_string+0x61>
jmp    1166 <perl_string+0x66>
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    1111 <perl_string+0x11>
mov    -0x18(%rbp),%eax
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<perl_string>:
mov    %edx,%eax
cmp    %ecx,%edx
jl     111a <perl_string+0x1a>
jmp    1129 <perl_string+0x29>
nopl   0x0(%rax,%rax,1)
add    $0x1,%eax
add    $0x1,%eax
cmp    %ecx,%eax
jge    1129 <perl_string+0x29>
movslq %eax,%rdx
mov    (%rdi,%rdx,4),%edx
cmp    $0x5c,%edx
je     1110 <perl_string+0x10>
cmp    %esi,%edx
jne    1113 <perl_string+0x13>
ret

LLVM IR (-O0):
define i32 @perl_string(i32* %0, i32 %1, i32 %2, i32 %3) {
%5 = alloca i32
%6 = alloca i32*
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
store i32* %0, i32** %6
store i32 %1, i32* %7
store i32 %2, i32* %8
store i32 %3, i32* %9
br label %10
10: ; preds = %36, %4
%11 = load i32, i32* %8
%12 = load i32, i32* %9
%13 = icmp slt i32 %11, %12
br i1 %13, label %14, label %39
14: ; preds = %10
%15 = load i32*, i32** %6
%16 = load i32, i32* %8
%17 = sext i32 %16 to i64
%18 = getelementptr inbounds i32, i32* %15, i64 %17
%19 = load i32, i32* %18
%20 = icmp eq i32 %19, 92
br i1 %20, label %21, label %24
21: ; preds = %14
%22 = load i32, i32* %8
%23 = add nsw i32 %22, 1
store i32 %23, i32* %8
br label %35
24: ; preds = %14
%25 = load i32*, i32** %6
%26 = load i32, i32* %8
%27 = sext i32 %26 to i64
%28 = getelementptr inbounds i32, i32* %25, i64 %27
%29 = load i32, i32* %28
%30 = load i32, i32* %7
%31 = icmp eq i32 %29, %30
br i1 %31, label %32, label %34
32: ; preds = %24
%33 = load i32, i32* %8
store i32 %33, i32* %5
br label %41
34: ; preds = %24
br label %35
35: ; preds = %34, %21
br label %36
36: ; preds = %35
%37 = load i32, i32* %8
%38 = add nsw i32 %37, 1
store i32 %38, i32* %8
br label %10
39: ; preds = %10
%40 = load i32, i32* %8
store i32 %40, i32* %5
br label %41
41: ; preds = %39, %32
%42 = load i32, i32* %5
ret i32 %42
}

LLVM IR (-O2):
define i32 @perl_string(i32* nocapture %0, i32 %1, i32 %2, i32 %3) {
%5 = icmp slt i32 %2, %3
br i1 %5, label %6, label %20
6: ; preds = %4, %16
%7 = phi i32 [ %18, %16 ], [ %2, %4 ]
%8 = sext i32 %7 to i64
%9 = getelementptr inbounds i32, i32* %0, i64 %8
%10 = load i32, i32* %9
%11 = icmp eq i32 %10, 92
br i1 %11, label %12, label %14
12: ; preds = %6
%13 = add nsw i32 %7, 1
br label %16
14: ; preds = %6
%15 = icmp eq i32 %10, %1
br i1 %15, label %20, label %16
16: ; preds = %12, %14
%17 = phi i32 [ %13, %12 ], [ %7, %14 ]
%18 = add nsw i32 %17, 1
%19 = icmp slt i32 %18, %3
br i1 %19, label %6, label %20
20: ; preds = %14, %16, %4
%21 = phi i32 [ %2, %4 ], [ %18, %16 ], [ %7, %14 ]
ret i32 %21
}