void encodestr(char *str) {
  register char ch, *buf;
  int n;
  buf = str;
  while ((ch = *str++) != '\0') {
    if (*str == ch && str[1] == ch && str[2] == ch) {
      n = 4;
      str += 3;
      while (*str == ch && n < 100) {
        str++;
        n++;
      }
      *buf++ = '\01';
      *buf++ = ch;
      *buf++ = n;
    } else
      *buf++ = ch;
  }
  *buf = '\0';
}


x86 assembly (clang, -O0):
<encodestr>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,-0x18(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x8(%rbp)
mov    (%rax),%al
mov    %al,-0x9(%rbp)
movsbl %al,%eax
cmp    $0x0,%eax
je     1224 <encodestr+0x124>
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
movsbl -0x9(%rbp),%ecx
cmp    %ecx,%eax
jne    120b <encodestr+0x10b>
mov    -0x8(%rbp),%rax
movsbl 0x1(%rax),%eax
movsbl -0x9(%rbp),%ecx
cmp    %ecx,%eax
jne    120b <encodestr+0x10b>
mov    -0x8(%rbp),%rax
movsbl 0x2(%rax),%eax
movsbl -0x9(%rbp),%ecx
cmp    %ecx,%eax
jne    120b <encodestr+0x10b>
movl   $0x4,-0x1c(%rbp)
mov    -0x8(%rbp),%rax
add    $0x3,%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
movsbl (%rax),%ecx
movsbl -0x9(%rbp),%edx
xor    %eax,%eax
cmp    %edx,%ecx
mov    %al,-0x1d(%rbp)
jne    11a0 <encodestr+0xa0>
cmpl   $0x64,-0x1c(%rbp)
setl   %al
mov    %al,-0x1d(%rbp)
mov    -0x1d(%rbp),%al
test   $0x1,%al
jne    11b0 <encodestr+0xb0>
jmp    11ca <encodestr+0xca>
mov    -0x8(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x8(%rbp)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    117e <encodestr+0x7e>
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x18(%rbp)
movb   $0x1,(%rax)
mov    -0x9(%rbp),%cl
mov    -0x18(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x18(%rbp)
mov    %cl,(%rax)
mov    -0x1c(%rbp),%eax
mov    %al,%cl
mov    -0x18(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x18(%rbp)
mov    %cl,(%rax)
jmp    121f <encodestr+0x11f>
mov    -0x9(%rbp),%cl
mov    -0x18(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x18(%rbp)
mov    %cl,(%rax)
jmp    1110 <encodestr+0x10>
mov    -0x18(%rbp),%rax
movb   $0x0,(%rax)
pop    %rbp
ret

x86 assembly (clang, -O2):
<encodestr>:
mov    (%rdi),%r8b
test   %r8b,%r8b
je     117b <encodestr+0x7b>
mov    %rdi,%rdx
jmp    1126 <encodestr+0x26>
nopl   (%rax)
add    $0x1,%rdx
mov    %r8b,(%rdi)
add    $0x1,%rdi
mov    %rdx,%rax
mov    (%rax),%r8b
test   %r8b,%r8b
je     117b <encodestr+0x7b>
cmp    %r8b,0x1(%rdx)
jne    1110 <encodestr+0x10>
cmp    %r8b,0x2(%rdx)
jne    1110 <encodestr+0x10>
cmp    %r8b,0x3(%rdx)
jne    1110 <encodestr+0x10>
lea    0x4(%rdx),%rax
mov    $0x4,%esi
cmp    %r8b,0x4(%rdx)
jne    1167 <encodestr+0x67>
mov    $0x4,%edx
nopl   0x0(%rax)
mov    %rax,%rcx
add    $0x1,%rax
lea    0x1(%rdx),%esi
cmp    %r8b,0x1(%rcx)
jne    1167 <encodestr+0x67>
cmp    $0x63,%edx
mov    %esi,%edx
jb     1150 <encodestr+0x50>
movb   $0x1,(%rdi)
mov    %r8b,0x1(%rdi)
mov    %sil,0x2(%rdi)
add    $0x3,%rdi
mov    %rax,%rdx
jmp    111e <encodestr+0x1e>
movb   $0x0,(%rdi)
ret

LLVM IR (-O0):
define void @encodestr(i8* %0) {
%2 = alloca i8*
%3 = alloca i8
%4 = alloca i8*
%5 = alloca i32
store i8* %0, i8** %2
%6 = load i8*, i8** %2
store i8* %6, i8** %4
br label %7
7: ; preds = %70, %1
%8 = load i8*, i8** %2
%9 = getelementptr inbounds i8, i8* %8, i32 1
store i8* %9, i8** %2
%10 = load i8, i8* %8
store i8 %10, i8* %3
%11 = sext i8 %10 to i32
%12 = icmp ne i32 %11, 0
br i1 %12, label %13, label %71
13: ; preds = %7
%14 = load i8*, i8** %2
%15 = load i8, i8* %14
%16 = sext i8 %15 to i32
%17 = load i8, i8* %3
%18 = sext i8 %17 to i32
%19 = icmp eq i32 %16, %18
br i1 %19, label %20, label %66
20: ; preds = %13
%21 = load i8*, i8** %2
%22 = getelementptr inbounds i8, i8* %21, i64 1
%23 = load i8, i8* %22
%24 = sext i8 %23 to i32
%25 = load i8, i8* %3
%26 = sext i8 %25 to i32
%27 = icmp eq i32 %24, %26
br i1 %27, label %28, label %66
28: ; preds = %20
%29 = load i8*, i8** %2
%30 = getelementptr inbounds i8, i8* %29, i64 2
%31 = load i8, i8* %30
%32 = sext i8 %31 to i32
%33 = load i8, i8* %3
%34 = sext i8 %33 to i32
%35 = icmp eq i32 %32, %34
br i1 %35, label %36, label %66
36: ; preds = %28
store i32 4, i32* %5
%37 = load i8*, i8** %2
%38 = getelementptr inbounds i8, i8* %37, i64 3
store i8* %38, i8** %2
br label %39
39: ; preds = %51, %36
%40 = load i8*, i8** %2
%41 = load i8, i8* %40
%42 = sext i8 %41 to i32
%43 = load i8, i8* %3
%44 = sext i8 %43 to i32
%45 = icmp eq i32 %42, %44
br i1 %45, label %46, label %49
46: ; preds = %39
%47 = load i32, i32* %5
%48 = icmp slt i32 %47, 100
br label %49
49: ; preds = %46, %39
%50 = phi i1 [ false, %39 ], [ %48, %46 ]
br i1 %50, label %51, label %56
51: ; preds = %49
%52 = load i8*, i8** %2
%53 = getelementptr inbounds i8, i8* %52, i32 1
store i8* %53, i8** %2
%54 = load i32, i32* %5
%55 = add nsw i32 %54, 1
store i32 %55, i32* %5
br label %39
56: ; preds = %49
%57 = load i8*, i8** %4
%58 = getelementptr inbounds i8, i8* %57, i32 1
store i8* %58, i8** %4
store i8 1, i8* %57
%59 = load i8, i8* %3
%60 = load i8*, i8** %4
%61 = getelementptr inbounds i8, i8* %60, i32 1
store i8* %61, i8** %4
store i8 %59, i8* %60
%62 = load i32, i32* %5
%63 = trunc i32 %62 to i8
%64 = load i8*, i8** %4
%65 = getelementptr inbounds i8, i8* %64, i32 1
store i8* %65, i8** %4
store i8 %63, i8* %64
br label %70
66: ; preds = %28, %20, %13
%67 = load i8, i8* %3
%68 = load i8*, i8** %4
%69 = getelementptr inbounds i8, i8* %68, i32 1
store i8* %69, i8** %4
store i8 %67, i8* %68
br label %70
70: ; preds = %66, %56
br label %7
71: ; preds = %7
%72 = load i8*, i8** %4
store i8 0, i8* %72
ret void
}

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