void strip_address(const char **r_parm, unsigned *r_length) {
  const char *parm = *r_parm;
  unsigned parm_length = *r_length;
  if (parm_length && parm[0] == '<') {
    parm++;
    parm_length--;
  }
  {
    unsigned jj;
    for (jj = 0; jj < parm_length && parm[jj] != '>'; jj++)
      ;
    parm_length = jj;
  }
  *r_parm = parm;
  *r_length = parm_length;
}


x86 assembly (clang, -O0):
<strip_address>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    -0x8(%rbp),%rax
mov    (%rax),%rax
mov    %rax,-0x18(%rbp)
mov    -0x10(%rbp),%rax
mov    (%rax),%eax
mov    %eax,-0x1c(%rbp)
cmpl   $0x0,-0x1c(%rbp)
je     114f <strip_address+0x4f>
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x3c,%eax
jne    114f <strip_address+0x4f>
mov    -0x18(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
mov    -0x1c(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x1c(%rbp)
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%ecx
xor    %eax,%eax
cmp    -0x1c(%rbp),%ecx
mov    %al,-0x21(%rbp)
jae    117b <strip_address+0x7b>
mov    -0x18(%rbp),%rax
mov    -0x20(%rbp),%ecx
movsbl (%rax,%rcx,1),%eax
cmp    $0x3e,%eax
setne  %al
mov    %al,-0x21(%rbp)
mov    -0x21(%rbp),%al
test   $0x1,%al
jne    118b <strip_address+0x8b>
jmp    119e <strip_address+0x9e>
jmp    1190 <strip_address+0x90>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    1156 <strip_address+0x56>
mov    -0x20(%rbp),%eax
mov    %eax,-0x1c(%rbp)
mov    -0x18(%rbp),%rcx
mov    -0x8(%rbp),%rax
mov    %rcx,(%rax)
mov    -0x1c(%rbp),%ecx
mov    -0x10(%rbp),%rax
mov    %ecx,(%rax)
pop    %rbp
ret

x86 assembly (clang, -O2):
<strip_address>:
mov    (%rdi),%rax
mov    (%rsi),%edx
xor    %ecx,%ecx
test   %edx,%edx
je     1131 <strip_address+0x31>
cmpb   $0x3c,(%rax)
jne    1119 <strip_address+0x19>
add    $0x1,%rax
add    $0xffffffff,%edx
je     1131 <strip_address+0x31>
mov    %edx,%edx
xor    %ecx,%ecx
nopl   (%rax)
cmpb   $0x3e,(%rax,%rcx,1)
je     1131 <strip_address+0x31>
add    $0x1,%rcx
cmp    %rcx,%rdx
jne    1120 <strip_address+0x20>
mov    %edx,%ecx
mov    %rax,(%rdi)
mov    %ecx,(%rsi)
ret

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

LLVM IR (-O2):
define void @strip_address(i8** nocapture %0, i32* nocapture %1) {
%3 = load i8*, i8** %0
%4 = load i32, i32* %1
%5 = icmp eq i32 %4, 0
br i1 %5, label %27, label %6
6: ; preds = %2
%7 = load i8, i8* %3
%8 = icmp eq i8 %7, 60
br i1 %8, label %9, label %13
9: ; preds = %6
%10 = getelementptr inbounds i8, i8* %3, i64 1
%11 = add i32 %4, -1
%12 = icmp eq i32 %11, 0
br i1 %12, label %27, label %13
13: ; preds = %6, %9
%14 = phi i32 [ %11, %9 ], [ %4, %6 ]
%15 = phi i8* [ %10, %9 ], [ %3, %6 ]
%16 = zext i32 %14 to i64
br label %17
17: ; preds = %13, %22
%18 = phi i64 [ 0, %13 ], [ %23, %22 ]
%19 = getelementptr inbounds i8, i8* %15, i64 %18
%20 = load i8, i8* %19
%21 = icmp eq i8 %20, 62
br i1 %21, label %25, label %22
22: ; preds = %17
%23 = add nuw nsw i64 %18, 1
%24 = icmp eq i64 %23, %16
br i1 %24, label %27, label %17
25: ; preds = %17
%26 = trunc i64 %18 to i32
br label %27
27: ; preds = %22, %25, %2, %9
%28 = phi i8* [ %10, %9 ], [ %3, %2 ], [ %15, %25 ], [ %15, %22 ]
%29 = phi i32 [ 0, %9 ], [ 0, %2 ], [ %26, %25 ], [ %14, %22 ]
store i8* %28, i8** %0
store i32 %29, i32* %1
ret void
}