unsigned char roots_extract_name(char *dn, const char *s) {
  unsigned char l = 0, n = 0;
  while (*s) {
    n = *s++;
    while (n--)
      dn[l++] = *s++;
    dn[l++] = *s == 0 ? *s : '.';
  }
  return l;
}


x86 assembly (clang, -O0):
<roots_extract_name>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
movb   $0x0,-0x11(%rbp)
movb   $0x0,-0x12(%rbp)
mov    -0x10(%rbp),%rax
cmpb   $0x0,(%rax)
je     11c4 <roots_extract_name+0xc4>
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
mov    (%rax),%al
mov    %al,-0x12(%rbp)
mov    -0x12(%rbp),%al
mov    %al,%cl
add    $0xff,%cl
mov    %cl,-0x12(%rbp)
cmp    $0x0,%al
je     1176 <roots_extract_name+0x76>
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
mov    (%rax),%dl
mov    -0x8(%rbp),%rax
mov    -0x11(%rbp),%cl
mov    %cl,%sil
add    $0x1,%sil
mov    %sil,-0x11(%rbp)
movzbl %cl,%ecx
mov    %dl,(%rax,%rcx,1)
jmp    1135 <roots_extract_name+0x35>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
jne    1195 <roots_extract_name+0x95>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
mov    %eax,-0x18(%rbp)
jmp    11a2 <roots_extract_name+0xa2>
mov    $0x2e,%eax
mov    %eax,-0x18(%rbp)
jmp    11a2 <roots_extract_name+0xa2>
mov    -0x18(%rbp),%eax
mov    %al,%dl
mov    -0x8(%rbp),%rax
mov    -0x11(%rbp),%cl
mov    %cl,%sil
add    $0x1,%sil
mov    %sil,-0x11(%rbp)
movzbl %cl,%ecx
mov    %dl,(%rax,%rcx,1)
jmp    1114 <roots_extract_name+0x14>
movzbl -0x11(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<roots_extract_name>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
mov    (%rsi),%r12b
xor    %r9d,%r9d
test   %r12b,%r12b
je     1331 <roots_extract_name+0x231>
lea    0x1(%rdi),%r8
xor    %eax,%eax
jmp    1154 <roots_extract_name+0x54>
add    %al,%r11b
add    $0xff,%r11b
mov    %r11d,%eax
nopl   0x0(%rax,%rax,1)
cmpb   $0x0,(%rdx)
mov    $0x2e,%ecx
cmove  %r9d,%ecx
add    $0x2,%al
movzbl %r14b,%esi
mov    %cl,(%rdi,%rsi,1)
mov    (%rdx),%r12b
mov    %rdx,%rsi
test   %r12b,%r12b
je     1333 <roots_extract_name+0x233>
lea    0x1(%rsi),%rdx
lea    -0x1(%r12),%ecx
cmp    $0x1f,%cl
jb     11a0 <roots_extract_name+0xa0>
mov    %eax,%ebx
add    %cl,%bl
jb     11a0 <roots_extract_name+0xa0>
movzbl %cl,%r10d
movzbl %al,%r15d
lea    (%r15,%r10,1),%rcx
add    %r8,%rcx
cmp    %rcx,%rdx
jae    1273 <roots_extract_name+0x173>
lea    (%rsi,%r10,1),%rcx
add    $0x2,%rcx
lea    (%rdi,%r15,1),%rbx
cmp    %rcx,%rbx
jae    1273 <roots_extract_name+0x173>
cs nopw 0x0(%rax,%rax,1)
nop
mov    %eax,%r14d
lea    -0x1(%r12),%r10d
test   $0x3,%r12b
je     1200 <roots_extract_name+0x100>
movzbl %r14b,%r14d
movzbl %r12b,%r12d
mov    %r12d,%eax
and    $0x3,%eax
xor    %ecx,%ecx
xchg   %ax,%ax
lea    (%r14,%rcx,1),%ebp
movzbl (%rdx,%rcx,1),%ebx
movzbl %bpl,%ebp
mov    %bl,(%rdi,%rbp,1)
add    $0x1,%rcx
cmp    %cl,%al
jne    11c0 <roots_extract_name+0xc0>
add    %rcx,%rdx
sub    %ecx,%r12d
lea    -0x1(%r14),%eax
movzbl %al,%eax
add    %ecx,%eax
add    %ecx,%r14d
cmp    $0x3,%r10b
jb     1130 <roots_extract_name+0x30>
jmp    120a <roots_extract_name+0x10a>
cs nopw 0x0(%rax,%rax,1)
nop
cmp    $0x3,%r10b
jb     1130 <roots_extract_name+0x30>
movzbl %r12b,%r10d
movzbl %r14b,%r14d
xor    %eax,%eax
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
lea    (%r14,%rax,1),%rbp
movzbl (%rdx,%rax,1),%ebx
lea    0x1(%rbp),%esi
movzbl %bpl,%ecx
mov    %bl,(%rdi,%rcx,1)
movzbl 0x1(%rdx,%rax,1),%ecx
lea    0x2(%rbp),%ebx
movzbl %sil,%esi
mov    %cl,(%rdi,%rsi,1)
movzbl 0x2(%rdx,%rax,1),%ecx
lea    0x3(%rbp),%esi
movzbl %bl,%ebp
mov    %cl,(%rdi,%rbp,1)
movzbl 0x3(%rdx,%rax,1),%ecx
movzbl %sil,%esi
mov    %cl,(%rdi,%rsi,1)
add    $0x4,%rax
cmp    %al,%r10b
jne    1220 <roots_extract_name+0x120>
add    %rax,%rdx
add    %eax,%r14d
lea    -0x1(%r14),%eax
jmp    1130 <roots_extract_name+0x30>
add    $0x1,%r10
mov    %r10d,%r11d
and    $0xffffffe0,%r11d
lea    -0x20(%r11),%rcx
mov    %rcx,%r14
shr    $0x5,%r14
add    $0x1,%r14
test   %rcx,%rcx
je     1327 <roots_extract_name+0x227>
mov    %r14,%rcx
and    $0xfffffffffffffffe,%rcx
lea    0x20(%r15),%ebx
movzbl %bl,%r13d
xor    %ebx,%ebx
nopw   0x0(%rax,%rax,1)
lea    (%r15,%rbx,1),%ebp
movups 0x1(%rsi,%rbx,1),%xmm0
movups 0x11(%rsi,%rbx,1),%xmm1
movzbl %bpl,%ebp
movups %xmm0,(%rdi,%rbp,1)
movups %xmm1,0x10(%rdi,%rbp,1)
lea    0x0(%r13,%rbx,1),%ebp
movups 0x21(%rsi,%rbx,1),%xmm0
movups 0x31(%rsi,%rbx,1),%xmm1
movzbl %bpl,%ebp
movups %xmm0,(%rdi,%rbp,1)
movups %xmm1,0x10(%rdi,%rbp,1)
add    $0x40,%rbx
add    $0xfffffffffffffffe,%rcx
jne    12b0 <roots_extract_name+0x1b0>
test   $0x1,%r14b
je     130f <roots_extract_name+0x20f>
lea    (%rax,%rbx,1),%ecx
movups (%rdx,%rbx,1),%xmm0
movups 0x10(%rdx,%rbx,1),%xmm1
movzbl %cl,%ecx
movups %xmm0,(%rdi,%rcx,1)
movups %xmm1,0x10(%rdi,%rcx,1)
add    %r11,%rdx
lea    (%rax,%r11,1),%r14d
cmp    %r11,%r10
je     1121 <roots_extract_name+0x21>
sub    %r11b,%r12b
jmp    11a3 <roots_extract_name+0xa3>
xor    %ebx,%ebx
test   $0x1,%r14b
jne    12f7 <roots_extract_name+0x1f7>
jmp    130f <roots_extract_name+0x20f>
xor    %eax,%eax
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
define zeroext i8 @roots_extract_name(i8* nocapture writeonly %0, i8* nocapture %1) {
%3 = load i8, i8* %1
%4 = icmp eq i8 %3, 0
br i1 %4, label %167, label %5
5: ; preds = %2
%6 = getelementptr i8, i8* %0, i64 1
br label %7
7: ; preds = %5, %155
%8 = phi i8 [ %165, %155 ], [ %3, %5 ]
%9 = phi i8 [ %162, %155 ], [ 0, %5 ]
%10 = phi i8* [ %158, %155 ], [ %1, %5 ]
%11 = getelementptr i8, i8* %10, i64 1
%12 = add i8 %8, -1
%13 = zext i8 %12 to i64
%14 = add nuw nsw i64 %13, 1
%15 = icmp ult i8 %12, 31
br i1 %15, label %101, label %16
16: ; preds = %7
%17 = add i8 %8, -1
%18 = xor i8 %9, -1
%19 = icmp ugt i8 %17, %18
br i1 %19, label %101, label %20
20: ; preds = %16
%21 = getelementptr i8, i8* %10, i64 2
%22 = add i8 %8, -1
%23 = zext i8 %22 to i64
%24 = getelementptr i8, i8* %21, i64 %23
%25 = zext i8 %9 to i64
%26 = getelementptr i8, i8* %0, i64 %25
%27 = add nuw nsw i64 %25, %23
%28 = getelementptr i8, i8* %6, i64 %27
%29 = icmp ult i8* %11, %28
%30 = icmp ult i8* %26, %24
%31 = and i1 %29, %30
br i1 %31, label %101, label %32
32: ; preds = %20
%33 = and i64 %14, 480
%34 = getelementptr i8, i8* %11, i64 %33
%35 = trunc i64 %33 to i8
%36 = sub i8 %8, %35
%37 = trunc i64 %33 to i8
%38 = add i8 %9, %37
%39 = add nsw i64 %33, -32
%40 = lshr exact i64 %39, 5
%41 = add nuw nsw i64 %40, 1
%42 = and i64 %41, 1
%43 = icmp eq i64 %39, 0
br i1 %43, label %79, label %44
44: ; preds = %32
%45 = and i64 %41, 1152921504606846974
br label %46
46: ; preds = %46, %44
%47 = phi i64 [ 0, %44 ], [ %76, %46 ]
%48 = phi i64 [ 0, %44 ], [ %77, %46 ]
%49 = getelementptr i8, i8* %11, i64 %47
%50 = trunc i64 %47 to i8
%51 = add i8 %9, %50
%52 = bitcast i8* %49 to <16 x i8>*
%53 = load <16 x i8>, <16 x i8>* %52
%54 = getelementptr i8, i8* %49, i64 16
%55 = bitcast i8* %54 to <16 x i8>*
%56 = load <16 x i8>, <16 x i8>* %55
%57 = zext i8 %51 to i64
%58 = getelementptr inbounds i8, i8* %0, i64 %57
%59 = bitcast i8* %58 to <16 x i8>*
store <16 x i8> %53, <16 x i8>* %59
%60 = getelementptr inbounds i8, i8* %58, i64 16
%61 = bitcast i8* %60 to <16 x i8>*
store <16 x i8> %56, <16 x i8>* %61
%62 = or i64 %47, 32
%63 = getelementptr i8, i8* %11, i64 %62
%64 = trunc i64 %62 to i8
%65 = add i8 %9, %64
%66 = bitcast i8* %63 to <16 x i8>*
%67 = load <16 x i8>, <16 x i8>* %66
%68 = getelementptr i8, i8* %63, i64 16
%69 = bitcast i8* %68 to <16 x i8>*
%70 = load <16 x i8>, <16 x i8>* %69
%71 = zext i8 %65 to i64
%72 = getelementptr inbounds i8, i8* %0, i64 %71
%73 = bitcast i8* %72 to <16 x i8>*
store <16 x i8> %67, <16 x i8>* %73
%74 = getelementptr inbounds i8, i8* %72, i64 16
%75 = bitcast i8* %74 to <16 x i8>*
store <16 x i8> %70, <16 x i8>* %75
%76 = add nuw i64 %47, 64
%77 = add i64 %48, 2
%78 = icmp eq i64 %77, %45
br i1 %78, label %79, label %46
79: ; preds = %46, %32
%80 = phi i64 [ 0, %32 ], [ %76, %46 ]
%81 = icmp eq i64 %42, 0
br i1 %81, label %96, label %82
82: ; preds = %79
%83 = getelementptr i8, i8* %11, i64 %80
%84 = trunc i64 %80 to i8
%85 = add i8 %9, %84
%86 = bitcast i8* %83 to <16 x i8>*
%87 = load <16 x i8>, <16 x i8>* %86
%88 = getelementptr i8, i8* %83, i64 16
%89 = bitcast i8* %88 to <16 x i8>*
%90 = load <16 x i8>, <16 x i8>* %89
%91 = zext i8 %85 to i64
%92 = getelementptr inbounds i8, i8* %0, i64 %91
%93 = bitcast i8* %92 to <16 x i8>*
store <16 x i8> %87, <16 x i8>* %93
%94 = getelementptr inbounds i8, i8* %92, i64 16
%95 = bitcast i8* %94 to <16 x i8>*
store <16 x i8> %90, <16 x i8>* %95
br label %96
96: ; preds = %79, %82
%97 = icmp eq i64 %14, %33
%98 = trunc i64 %33 to i8
%99 = add i8 %98, -1
%100 = add i8 %9, %99
br i1 %97, label %155, label %101
101: ; preds = %20, %16, %7, %96
%102 = phi i8* [ %11, %20 ], [ %11, %16 ], [ %11, %7 ], [ %34, %96 ]
%103 = phi i8 [ %8, %20 ], [ %8, %16 ], [ %8, %7 ], [ %36, %96 ]
%104 = phi i8 [ %9, %20 ], [ %9, %16 ], [ %9, %7 ], [ %38, %96 ]
%105 = add i8 %103, -1
%106 = and i8 %103, 3
%107 = icmp eq i8 %106, 0
br i1 %107, label %121, label %108
108: ; preds = %101, %108
%109 = phi i8* [ %118, %108 ], [ %102, %101 ]
%110 = phi i8 [ %113, %108 ], [ %103, %101 ]
%111 = phi i8 [ %115, %108 ], [ %104, %101 ]
%112 = phi i8 [ %119, %108 ], [ 0, %101 ]
%113 = add i8 %110, -1
%114 = load i8, i8* %109
%115 = add i8 %111, 1
%116 = zext i8 %111 to i64
%117 = getelementptr inbounds i8, i8* %0, i64 %116
store i8 %114, i8* %117
%118 = getelementptr inbounds i8, i8* %109, i64 1
%119 = add i8 %112, 1
%120 = icmp eq i8 %119, %106
br i1 %120, label %121, label %108
121: ; preds = %108, %101
%122 = phi i8 [ undef, %101 ], [ %111, %108 ]
%123 = phi i8 [ undef, %101 ], [ %115, %108 ]
%124 = phi i8* [ undef, %101 ], [ %118, %108 ]
%125 = phi i8* [ %102, %101 ], [ %118, %108 ]
%126 = phi i8 [ %103, %101 ], [ %113, %108 ]
%127 = phi i8 [ %104, %101 ], [ %115, %108 ]
%128 = icmp ult i8 %105, 3
br i1 %128, label %155, label %129
129: ; preds = %121, %129
%130 = phi i8* [ %153, %129 ], [ %125, %121 ]
%131 = phi i8 [ %148, %129 ], [ %126, %121 ]
%132 = phi i8 [ %150, %129 ], [ %127, %121 ]
%133 = load i8, i8* %130
%134 = add i8 %132, 1
%135 = zext i8 %132 to i64
%136 = getelementptr inbounds i8, i8* %0, i64 %135
store i8 %133, i8* %136
%137 = getelementptr inbounds i8, i8* %130, i64 1
%138 = load i8, i8* %137
%139 = add i8 %132, 2
%140 = zext i8 %134 to i64
%141 = getelementptr inbounds i8, i8* %0, i64 %140
store i8 %138, i8* %141
%142 = getelementptr inbounds i8, i8* %130, i64 2
%143 = load i8, i8* %142
%144 = add i8 %132, 3
%145 = zext i8 %139 to i64
%146 = getelementptr inbounds i8, i8* %0, i64 %145
store i8 %143, i8* %146
%147 = getelementptr inbounds i8, i8* %130, i64 3
%148 = add i8 %131, -4
%149 = load i8, i8* %147
%150 = add i8 %132, 4
%151 = zext i8 %144 to i64
%152 = getelementptr inbounds i8, i8* %0, i64 %151
store i8 %149, i8* %152
%153 = getelementptr inbounds i8, i8* %130, i64 4
%154 = icmp eq i8 %148, 0
br i1 %154, label %155, label %129
155: ; preds = %121, %129, %96
%156 = phi i8 [ %100, %96 ], [ %122, %121 ], [ %144, %129 ]
%157 = phi i8 [ %38, %96 ], [ %123, %121 ], [ %150, %129 ]
%158 = phi i8* [ %34, %96 ], [ %124, %121 ], [ %153, %129 ]
%159 = load i8, i8* %158
%160 = icmp eq i8 %159, 0
%161 = select i1 %160, i8 0, i8 46
%162 = add i8 %156, 2
%163 = zext i8 %157 to i64
%164 = getelementptr inbounds i8, i8* %0, i64 %163
store i8 %161, i8* %164
%165 = load i8, i8* %158
%166 = icmp eq i8 %165, 0
br i1 %166, label %167, label %7
167: ; preds = %155, %2
%168 = phi i8 [ 0, %2 ], [ %162, %155 ]
ret i8 %168
}