int init_funcname_len(buf, file)
char **buf;
const char *file;
{
  char *p;
  const char *slash;
  int len;
  for (slash = file - 1; *file; file++)
    if (*file == '/')
      slash = file;
  len = strlen("Init_%s") + strlen(slash + 1);
  *buf = ruby_xmalloc(len);
  snprintf(*buf, len, "Init_%s", slash + 1);
  for (p = *buf; *p; p++) {
    if (*p == '.') {
      *p = '\0';
      break;
    }
  }
  return p - *buf;
}


x86 assembly (clang, -O0):
<init_funcname_len>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    -0x10(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x20(%rbp)
mov    -0x10(%rbp),%rax
cmpb   $0x0,(%rax)
je     1187 <init_funcname_len+0x57>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2f,%eax
jne    1171 <init_funcname_len+0x41>
mov    -0x10(%rbp),%rax
mov    %rax,-0x20(%rbp)
jmp    1176 <init_funcname_len+0x46>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    114c <init_funcname_len+0x1c>
mov    -0x20(%rbp),%rdi
add    $0x1,%rdi
call   1030 <strlen@plt>
add    $0x7,%rax
mov    %eax,-0x24(%rbp)
mov    -0x24(%rbp),%edi
mov    $0x0,%al
call   1050 <ruby_xmalloc@plt>
movslq %eax,%rcx
mov    -0x8(%rbp),%rax
mov    %rcx,(%rax)
mov    -0x8(%rbp),%rax
mov    (%rax),%rdi
movslq -0x24(%rbp),%rsi
mov    -0x20(%rbp),%rcx
add    $0x1,%rcx
lea    0xe37(%rip),%rdx
mov    $0x0,%al
call   1040 <snprintf@plt>
mov    -0x8(%rbp),%rax
mov    (%rax),%rax
mov    %rax,-0x18(%rbp)
mov    -0x18(%rbp),%rax
cmpb   $0x0,(%rax)
je     121a <init_funcname_len+0xea>
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2e,%eax
jne    1204 <init_funcname_len+0xd4>
mov    -0x18(%rbp),%rax
movb   $0x0,(%rax)
jmp    121a <init_funcname_len+0xea>
jmp    1209 <init_funcname_len+0xd9>
mov    -0x18(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
jmp    11db <init_funcname_len+0xab>
mov    -0x18(%rbp),%rax
mov    -0x8(%rbp),%rcx
mov    (%rcx),%rcx
sub    %rcx,%rax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<init_funcname_len>:
push   %r15
push   %r14
push   %r12
push   %rbx
push   %rax
mov    %rdi,%r14
lea    -0x1(%rsi),%r15
jmp    1157 <init_funcname_len+0x27>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
mov    %rsi,%r15
add    $0x1,%rsi
movzbl (%rsi),%eax
cmp    $0x2f,%al
je     1150 <init_funcname_len+0x20>
test   %al,%al
jne    1153 <init_funcname_len+0x23>
add    $0x1,%r15
mov    %r15,%rdi
call   1030 <strlen@plt>
mov    %rax,%r12
add    $0x7,%r12d
xor    %ebx,%ebx
mov    %r12d,%edi
xor    %eax,%eax
call   1050 <ruby_xmalloc@plt>
movslq %eax,%rdi
mov    %rdi,(%r14)
movslq %r12d,%rsi
lea    0xe6f(%rip),%rdx
mov    %r15,%rcx
xor    %eax,%eax
call   1040 <snprintf@plt>
mov    (%r14),%rax
xchg   %ax,%ax
movzbl (%rax,%rbx,1),%ecx
test   %cl,%cl
je     11b3 <init_funcname_len+0x83>
cmp    $0x2e,%cl
je     11b8 <init_funcname_len+0x88>
add    $0x1,%rbx
jmp    11a0 <init_funcname_len+0x70>
mov    %rax,%rcx
jmp    11bf <init_funcname_len+0x8f>
movb   $0x0,(%rax,%rbx,1)
mov    (%r14),%rcx
sub    %ecx,%eax
add    %eax,%ebx
mov    %ebx,%eax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
ret

LLVM IR (-O0):
@.str = [8 x i8] c"Init_%s\00"
define i32 @init_funcname_len(i8** %0, i8* %1) {
%3 = alloca i8**
%4 = alloca i8*
%5 = alloca i8*
%6 = alloca i8*
%7 = alloca i32
store i8** %0, i8*** %3
store i8* %1, i8** %4
%8 = load i8*, i8** %4
%9 = getelementptr inbounds i8, i8* %8, i64 -1
store i8* %9, i8** %6
br label %10
10: ; preds = %22, %2
%11 = load i8*, i8** %4
%12 = load i8, i8* %11
%13 = icmp ne i8 %12, 0
br i1 %13, label %14, label %25
14: ; preds = %10
%15 = load i8*, i8** %4
%16 = load i8, i8* %15
%17 = sext i8 %16 to i32
%18 = icmp eq i32 %17, 47
br i1 %18, label %19, label %21
19: ; preds = %14
%20 = load i8*, i8** %4
store i8* %20, i8** %6
br label %21
21: ; preds = %19, %14
br label %22
22: ; preds = %21
%23 = load i8*, i8** %4
%24 = getelementptr inbounds i8, i8* %23, i32 1
store i8* %24, i8** %4
br label %10
25: ; preds = %10
%26 = load i8*, i8** %6
%27 = getelementptr inbounds i8, i8* %26, i64 1
%28 = call i64 @strlen(i8* %27)
%29 = add i64 7, %28
%30 = trunc i64 %29 to i32
store i32 %30, i32* %7
%31 = load i32, i32* %7
%32 = call i32 (i32, ...) bitcast (i32 (...)* @ruby_xmalloc to i32 (i32, ...)*)(i32 %31)
%33 = sext i32 %32 to i64
%34 = inttoptr i64 %33 to i8*
%35 = load i8**, i8*** %3
store i8* %34, i8** %35
%36 = load i8**, i8*** %3
%37 = load i8*, i8** %36
%38 = load i32, i32* %7
%39 = sext i32 %38 to i64
%40 = load i8*, i8** %6
%41 = getelementptr inbounds i8, i8* %40, i64 1
%42 = call i32 (i8*, i64, i8*, ...) @snprintf(i8* %37, i64 %39, i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str, i64 0, i64 0), i8* %41)
%43 = load i8**, i8*** %3
%44 = load i8*, i8** %43
store i8* %44, i8** %5
br label %45
45: ; preds = %57, %25
%46 = load i8*, i8** %5
%47 = load i8, i8* %46
%48 = icmp ne i8 %47, 0
br i1 %48, label %49, label %60
49: ; preds = %45
%50 = load i8*, i8** %5
%51 = load i8, i8* %50
%52 = sext i8 %51 to i32
%53 = icmp eq i32 %52, 46
br i1 %53, label %54, label %56
54: ; preds = %49
%55 = load i8*, i8** %5
store i8 0, i8* %55
br label %60
56: ; preds = %49
br label %57
57: ; preds = %56
%58 = load i8*, i8** %5
%59 = getelementptr inbounds i8, i8* %58, i32 1
store i8* %59, i8** %5
br label %45
60: ; preds = %54, %45
%61 = load i8*, i8** %5
%62 = load i8**, i8*** %3
%63 = load i8*, i8** %62
%64 = ptrtoint i8* %61 to i64
%65 = ptrtoint i8* %63 to i64
%66 = sub i64 %64, %65
%67 = trunc i64 %66 to i32
ret i32 %67
}

LLVM IR (-O2):
@.str = [8 x i8] c"Init_%s\00"
define i32 @init_funcname_len(i8** nocapture %0, i8* %1) {
%3 = getelementptr inbounds i8, i8* %1, i64 -1
br label %4
4: ; preds = %9, %2
%5 = phi i8* [ %3, %2 ], [ %10, %9 ]
%6 = phi i8* [ %1, %2 ], [ %11, %9 ]
%7 = load i8, i8* %6
switch i8 %7, label %9 [
i8 0, label %12
i8 47, label %8
]
8: ; preds = %4
br label %9
9: ; preds = %4, %8
%10 = phi i8* [ %6, %8 ], [ %5, %4 ]
%11 = getelementptr inbounds i8, i8* %6, i64 1
br label %4
12: ; preds = %4
%13 = getelementptr inbounds i8, i8* %5, i64 1
%14 = tail call i64 @strlen(i8* %13)
%15 = trunc i64 %14 to i32
%16 = add i32 %15, 7
%17 = tail call i32 (i32, ...) bitcast (i32 (...)* @ruby_xmalloc to i32 (i32, ...)*)(i32 %16)
%18 = sext i32 %17 to i64
%19 = inttoptr i64 %18 to i8*
store i8* %19, i8** %0
%20 = sext i32 %16 to i64
%21 = tail call i32 (i8*, i64, i8*, ...) @snprintf(i8* %19, i64 %20, i8* getelementptr inbounds ([8 x i8], [8 x i8]* @.str, i64 0, i64 0), i8* %13)
%22 = load i8*, i8** %0
br label %23
23: ; preds = %28, %12
%24 = phi i8* [ %22, %12 ], [ %29, %28 ]
%25 = load i8, i8* %24
switch i8 %25, label %28 [
i8 0, label %30
i8 46, label %26
]
26: ; preds = %23
store i8 0, i8* %24
%27 = load i8*, i8** %0
br label %30
28: ; preds = %23
%29 = getelementptr inbounds i8, i8* %24, i64 1
br label %23
30: ; preds = %23, %26
%31 = phi i8* [ %27, %26 ], [ %22, %23 ]
%32 = ptrtoint i8* %24 to i64
%33 = ptrtoint i8* %31 to i64
%34 = sub i64 %32, %33
%35 = trunc i64 %34 to i32
ret i32 %35
}