void rle4b_unpack(unsigned char *src, unsigned char *dest) {
  unsigned char *s;
  unsigned long *d;
  unsigned long data;
  unsigned short blocnum;
  unsigned short data_cnt;
  blocnum = *((unsigned short *)src);
  s = src + 2;
  d = (unsigned long *)dest;
  data = 0;
  data_cnt = 7;
  while (blocnum--) {
    const unsigned char v8 = *s++;
    const unsigned long d4 = v8 & 0xF;
    unsigned short len = (v8 >> 4) + 1;
    while (len--) {
      data <<= 4;
      data |= d4;
      if (!data_cnt--) {
        *d++ = data;
        data_cnt = 7;
      }
    }
  }
}


x86 assembly (clang, -O0):
<rle4b_unpack>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    -0x8(%rbp),%rax
mov    (%rax),%ax
mov    %ax,-0x2a(%rbp)
mov    -0x8(%rbp),%rax
add    $0x2,%rax
mov    %rax,-0x18(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,-0x20(%rbp)
movq   $0x0,-0x28(%rbp)
movw   $0x7,-0x2c(%rbp)
mov    -0x2a(%rbp),%ax
mov    %ax,%cx
add    $0xffff,%cx
mov    %cx,-0x2a(%rbp)
cmp    $0x0,%ax
je     11f1 <rle4b_unpack+0xf1>
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x18(%rbp)
mov    (%rax),%al
mov    %al,-0x2d(%rbp)
movzbl -0x2d(%rbp),%eax
and    $0xf,%eax
cltq
mov    %rax,-0x38(%rbp)
movzbl -0x2d(%rbp),%eax
sar    $0x4,%eax
add    $0x1,%eax
mov    %ax,-0x3a(%rbp)
mov    -0x3a(%rbp),%ax
mov    %ax,%cx
add    $0xffff,%cx
mov    %cx,-0x3a(%rbp)
cmp    $0x0,%ax
je     11ec <rle4b_unpack+0xec>
mov    -0x28(%rbp),%rax
shl    $0x4,%rax
mov    %rax,-0x28(%rbp)
mov    -0x38(%rbp),%rax
or     -0x28(%rbp),%rax
mov    %rax,-0x28(%rbp)
mov    -0x2c(%rbp),%ax
mov    %ax,%cx
add    $0xffff,%cx
mov    %cx,-0x2c(%rbp)
cmp    $0x0,%ax
jne    11e7 <rle4b_unpack+0xe7>
mov    -0x28(%rbp),%rcx
mov    -0x20(%rbp),%rax
mov    %rax,%rdx
add    $0x8,%rdx
mov    %rdx,-0x20(%rbp)
mov    %rcx,(%rax)
movw   $0x7,-0x2c(%rbp)
jmp    1181 <rle4b_unpack+0x81>
jmp    1139 <rle4b_unpack+0x39>
pop    %rbp
ret

x86 assembly (clang, -O2):
<rle4b_unpack>:
movzwl (%rdi),%r8d
test   %r8w,%r8w
je     11c8 <rle4b_unpack+0xc8>
add    $0x2,%rdi
mov    $0x7,%dx
xor    %ecx,%ecx
jmp    112e <rle4b_unpack+0x2e>
nopw   0x0(%rax,%rax,1)
add    $0x1,%rdi
test   %r8w,%r8w
je     11c8 <rle4b_unpack+0xc8>
movzbl (%rdi),%eax
mov    %eax,%r9d
and    $0xf,%r9d
mov    %eax,%r11d
shr    $0x4,%r11d
bt     $0x4,%eax
jb     1170 <rle4b_unpack+0x70>
shl    $0x4,%rcx
or     %r9,%rcx
sub    $0x1,%dx
jae    115d <rle4b_unpack+0x5d>
mov    %rcx,(%rsi)
add    $0x8,%rsi
mov    $0x7,%dx
movzwl %r11w,%r10d
add    $0xffffffff,%r10d
jmp    1173 <rle4b_unpack+0x73>
nopw   0x0(%rax,%rax,1)
mov    %r11d,%r10d
add    $0xffffffff,%r8d
test   %r11w,%r11w
je     1120 <rle4b_unpack+0x20>
movswl %r10w,%eax
add    $0x1,%eax
jmp    1196 <rle4b_unpack+0x96>
cs nopw 0x0(%rax,%rax,1)
add    $0xfffe,%ax
je     1120 <rle4b_unpack+0x20>
shl    $0x4,%rcx
or     %r9,%rcx
sub    $0x1,%dx
jae    11ae <rle4b_unpack+0xae>
mov    %rcx,(%rsi)
add    $0x8,%rsi
mov    $0x7,%dx
shl    $0x4,%rcx
or     %r9,%rcx
sub    $0x1,%dx
jae    1190 <rle4b_unpack+0x90>
mov    %rcx,(%rsi)
add    $0x8,%rsi
mov    $0x7,%dx
jmp    1190 <rle4b_unpack+0x90>
ret

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

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