char **perl_split_on_char(buf, achar)
char *buf;
char achar;
{
  char **return_buf;
  int cntr = 0;
  char *temp, temp2[2], *temp3;
  temp3 = (char *)malloc(sizeof(char) * (1 + strlen(buf)));
  temp2[0] = achar;
  temp2[1] = '\0';
  return_buf =
      (char **)malloc(sizeof(char *) * ((numchars(temp3, achar) + 1) + 2));
  return_buf[cntr++] = (char *)strtok(temp3, temp2);
  while (temp = (char *)strtok(0, temp2))
    if (temp != 0) {
      return_buf[cntr] = temp;
      ++cntr;
    }
  return_buf[cntr] = 0;
  return (return_buf);
}


x86 assembly (clang, -O0):
<perl_split_on_char>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %sil,%al
mov    %rdi,-0x8(%rbp)
mov    %al,-0x9(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x8(%rbp),%rdi
call   1030 <strlen@plt>
mov    %rax,%rdi
add    $0x1,%rdi
shl    $0x0,%rdi
call   1050 <malloc@plt>
mov    %rax,-0x38(%rbp)
mov    -0x9(%rbp),%al
mov    %al,-0x2a(%rbp)
movb   $0x0,-0x29(%rbp)
mov    -0x38(%rbp),%rdi
movsbl -0x9(%rbp),%esi
mov    $0x0,%al
call   1040 <numchars@plt>
add    $0x1,%eax
add    $0x2,%eax
movslq %eax,%rdi
shl    $0x3,%rdi
call   1050 <malloc@plt>
mov    %rax,-0x18(%rbp)
mov    -0x38(%rbp),%rdi
lea    -0x2a(%rbp),%rsi
call   1060 <strtok@plt>
mov    %rax,%rdx
mov    -0x18(%rbp),%rax
mov    -0x1c(%rbp),%ecx
mov    %ecx,%esi
add    $0x1,%esi
mov    %esi,-0x1c(%rbp)
movslq %ecx,%rcx
mov    %rdx,(%rax,%rcx,8)
lea    -0x2a(%rbp),%rsi
xor    %eax,%eax
mov    %eax,%edi
call   1060 <strtok@plt>
mov    %rax,-0x28(%rbp)
cmp    $0x0,%rax
je     120f <perl_split_on_char+0xcf>
cmpq   $0x0,-0x28(%rbp)
je     120a <perl_split_on_char+0xca>
mov    -0x28(%rbp),%rdx
mov    -0x18(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    %rdx,(%rax,%rcx,8)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    11cb <perl_split_on_char+0x8b>
mov    -0x18(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movq   $0x0,(%rax,%rcx,8)
mov    -0x18(%rbp),%rax
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<perl_split_on_char>:
push   %r15
push   %r14
push   %r12
push   %rbx
push   %rax
mov    %esi,%ebx
call   1030 <strlen@plt>
lea    0x1(%rax),%rdi
call   1050 <malloc@plt>
mov    %rax,%r14
mov    %bl,0x6(%rsp)
movb   $0x0,0x7(%rsp)
movsbl %bl,%esi
mov    %rax,%rdi
xor    %eax,%eax
call   1040 <numchars@plt>
cltq
lea    0x18(,%rax,8),%rdi
call   1050 <malloc@plt>
mov    %rax,%r12
lea    0x6(%rsp),%r15
mov    %r14,%rdi
mov    %r15,%rsi
call   1060 <strtok@plt>
mov    %rax,(%r12)
xor    %edi,%edi
mov    %r15,%rsi
call   1060 <strtok@plt>
test   %rax,%rax
je     11cb <perl_split_on_char+0x8b>
mov    $0x1,%ebx
lea    0x6(%rsp),%r14
mov    %rax,(%r12,%rbx,8)
add    $0x1,%rbx
xor    %edi,%edi
mov    %r14,%rsi
call   1060 <strtok@plt>
test   %rax,%rax
jne    11b0 <perl_split_on_char+0x70>
mov    %ebx,%eax
jmp    11d0 <perl_split_on_char+0x90>
mov    $0x1,%eax
movq   $0x0,(%r12,%rax,8)
mov    %r12,%rax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
ret

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

LLVM IR (-O2):
define i8** @perl_split_on_char(i8* nocapture %0, i32 %1) {
%3 = alloca [2 x i8]
%4 = trunc i32 %1 to i8
%5 = getelementptr inbounds [2 x i8], [2 x i8]* %3, i64 0, i64 0
%6 = tail call i64 @strlen(i8* dereferenceable(1) %0)
%7 = add i64 %6, 1
%8 = tail call i8* @malloc(i64 %7)
store i8 %4, i8* %5
%9 = getelementptr inbounds [2 x i8], [2 x i8]* %3, i64 0, i64 1
store i8 0, i8* %9
%10 = shl i32 %1, 24
%11 = ashr exact i32 %10, 24
%12 = tail call i32 (i8*, i32, ...) bitcast (i32 (...)* @numchars to i32 (i8*, i32, ...)*)(i8* %8, i32 %11)
%13 = add nsw i32 %12, 3
%14 = sext i32 %13 to i64
%15 = shl nsw i64 %14, 3
%16 = tail call i8* @malloc(i64 %15)
%17 = bitcast i8* %16 to i8**
%18 = call i8* @strtok(i8* %8, i8* %5)
store i8* %18, i8** %17
%19 = call i8* @strtok(i8* null, i8* %5)
%20 = icmp eq i8* %19, null
br i1 %20, label %30, label %21
21: ; preds = %2, %21
%22 = phi i64 [ %25, %21 ], [ 1, %2 ]
%23 = phi i8* [ %26, %21 ], [ %19, %2 ]
%24 = getelementptr inbounds i8*, i8** %17, i64 %22
store i8* %23, i8** %24
%25 = add nuw i64 %22, 1
%26 = call i8* @strtok(i8* null, i8* %5)
%27 = icmp eq i8* %26, null
br i1 %27, label %28, label %21
28: ; preds = %21
%29 = and i64 %25, 4294967295
br label %30
30: ; preds = %28, %2
%31 = phi i64 [ 1, %2 ], [ %29, %28 ]
%32 = getelementptr inbounds i8*, i8** %17, i64 %31
store i8* null, i8** %32
ret i8** %17
}