int Packed_Length(char *qvs, int rlen, int rchar) {
  int k, clen;
  clen = 0;
  for (k = 0; k < rlen; k++)
    if (qvs[k] != rchar)
      clen += 1;
  return (clen);
}


x86 assembly (clang, -O0):
<Packed_Length>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
movl   $0x0,-0x18(%rbp)
movl   $0x0,-0x14(%rbp)
mov    -0x14(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    1159 <Packed_Length+0x59>
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    -0x10(%rbp),%eax
je     1146 <Packed_Length+0x46>
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    114b <Packed_Length+0x4b>
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    111c <Packed_Length+0x1c>
mov    -0x18(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<Packed_Length>:
test   %esi,%esi
jle    1116 <Packed_Length+0x16>
mov    %esi,%r9d
cmp    $0x8,%esi
jae    1119 <Packed_Length+0x19>
xor    %r10d,%r10d
xor    %eax,%eax
jmp    1250 <Packed_Length+0x150>
xor    %eax,%eax
ret
mov    %r9d,%r10d
and    $0xfffffff8,%r10d
movd   %edx,%xmm0
pshufd $0x0,%xmm0,%xmm0
lea    -0x8(%r10),%rax
mov    %rax,%r8
shr    $0x3,%r8
add    $0x1,%r8
test   %rax,%rax
je     1269 <Packed_Length+0x169>
mov    %r8,%rcx
and    $0xfffffffffffffffe,%rcx
pxor   %xmm1,%xmm1
xor    %eax,%eax
movdqa 0xeaa(%rip),%xmm3
pxor   %xmm2,%xmm2
nopw   0x0(%rax,%rax,1)
movd   (%rdi,%rax,1),%xmm4
punpcklbw %xmm4,%xmm4
punpcklwd %xmm4,%xmm5
movd   0x4(%rdi,%rax,1),%xmm4
punpcklbw %xmm4,%xmm4
punpcklwd %xmm4,%xmm4
psrad  $0x18,%xmm5
psrad  $0x18,%xmm4
pcmpeqd %xmm0,%xmm5
paddd  %xmm1,%xmm5
pcmpeqd %xmm0,%xmm4
paddd  %xmm2,%xmm4
movd   0x8(%rdi,%rax,1),%xmm1
punpcklbw %xmm1,%xmm1
punpcklwd %xmm1,%xmm1
psrad  $0x18,%xmm1
pcmpeqd %xmm0,%xmm1
movd   0xc(%rdi,%rax,1),%xmm2
punpcklbw %xmm2,%xmm2
punpcklwd %xmm2,%xmm2
psrad  $0x18,%xmm2
pcmpeqd %xmm0,%xmm2
paddd  %xmm3,%xmm1
paddd  %xmm5,%xmm1
paddd  %xmm3,%xmm2
paddd  %xmm4,%xmm2
add    $0x10,%rax
add    $0xfffffffffffffffe,%rcx
jne    1160 <Packed_Length+0x60>
test   $0x1,%r8b
je     1224 <Packed_Length+0x124>
movd   (%rdi,%rax,1),%xmm3
movd   0x4(%rdi,%rax,1),%xmm4
punpcklbw %xmm3,%xmm3
punpcklwd %xmm3,%xmm3
psrad  $0x18,%xmm3
punpcklbw %xmm4,%xmm4
punpcklwd %xmm4,%xmm4
psrad  $0x18,%xmm4
pcmpeqd %xmm0,%xmm3
paddd  %xmm3,%xmm1
pcmpeqd %xmm0,%xmm4
paddd  %xmm4,%xmm2
pcmpeqd %xmm0,%xmm0
psubd  %xmm0,%xmm1
psubd  %xmm0,%xmm2
paddd  %xmm2,%xmm1
pshufd $0xee,%xmm1,%xmm0
paddd  %xmm1,%xmm0
pshufd $0x55,%xmm0,%xmm1
paddd  %xmm0,%xmm1
movd   %xmm1,%eax
cmp    %r9,%r10
je     1268 <Packed_Length+0x168>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
movsbl (%rdi,%r10,1),%ecx
xor    %esi,%esi
cmp    %edx,%ecx
setne  %sil
add    %esi,%eax
add    $0x1,%r10
cmp    %r10,%r9
jne    1250 <Packed_Length+0x150>
ret
pxor   %xmm1,%xmm1
xor    %eax,%eax
pxor   %xmm2,%xmm2
test   $0x1,%r8b
jne    11e3 <Packed_Length+0xe3>
jmp    1224 <Packed_Length+0x124>

LLVM IR (-O0):
define i32 @Packed_Length(i8* %0, i32 %1, i32 %2) {
%4 = alloca i8*
%5 = alloca i32
%6 = alloca i32
%7 = alloca i32
%8 = alloca i32
store i8* %0, i8** %4
store i32 %1, i32* %5
store i32 %2, i32* %6
store i32 0, i32* %8
store i32 0, i32* %7
br label %9
9: ; preds = %26, %3
%10 = load i32, i32* %7
%11 = load i32, i32* %5
%12 = icmp slt i32 %10, %11
br i1 %12, label %13, label %29
13: ; preds = %9
%14 = load i8*, i8** %4
%15 = load i32, i32* %7
%16 = sext i32 %15 to i64
%17 = getelementptr inbounds i8, i8* %14, i64 %16
%18 = load i8, i8* %17
%19 = sext i8 %18 to i32
%20 = load i32, i32* %6
%21 = icmp ne i32 %19, %20
br i1 %21, label %22, label %25
22: ; preds = %13
%23 = load i32, i32* %8
%24 = add nsw i32 %23, 1
store i32 %24, i32* %8
br label %25
25: ; preds = %22, %13
br label %26
26: ; preds = %25
%27 = load i32, i32* %7
%28 = add nsw i32 %27, 1
store i32 %28, i32* %7
br label %9
29: ; preds = %9
%30 = load i32, i32* %8
ret i32 %30
}

LLVM IR (-O2):
define i32 @Packed_Length(i8* nocapture %0, i32 %1, i32 %2) {
%4 = icmp sgt i32 %1, 0
br i1 %4, label %5, label %100
5: ; preds = %3
%6 = zext i32 %1 to i64
%7 = icmp ult i32 %1, 8
br i1 %7, label %86, label %8
8: ; preds = %5
%9 = and i64 %6, 4294967288
%10 = insertelement <4 x i32> poison, i32 %2, i64 0
%11 = shufflevector <4 x i32> %10, <4 x i32> poison, <4 x i32> zeroinitializer
%12 = insertelement <4 x i32> poison, i32 %2, i64 0
%13 = shufflevector <4 x i32> %12, <4 x i32> poison, <4 x i32> zeroinitializer
%14 = add nsw i64 %9, -8
%15 = lshr exact i64 %14, 3
%16 = add nuw nsw i64 %15, 1
%17 = and i64 %16, 1
%18 = icmp eq i64 %14, 0
br i1 %18, label %58, label %19
19: ; preds = %8
%20 = and i64 %16, 4611686018427387902
br label %21
21: ; preds = %21, %19
%22 = phi i64 [ 0, %19 ], [ %55, %21 ]
%23 = phi <4 x i32> [ zeroinitializer, %19 ], [ %53, %21 ]
%24 = phi <4 x i32> [ zeroinitializer, %19 ], [ %54, %21 ]
%25 = phi i64 [ 0, %19 ], [ %56, %21 ]
%26 = getelementptr inbounds i8, i8* %0, i64 %22
%27 = bitcast i8* %26 to <4 x i8>*
%28 = load <4 x i8>, <4 x i8>* %27
%29 = getelementptr inbounds i8, i8* %26, i64 4
%30 = bitcast i8* %29 to <4 x i8>*
%31 = load <4 x i8>, <4 x i8>* %30
%32 = sext <4 x i8> %28 to <4 x i32>
%33 = sext <4 x i8> %31 to <4 x i32>
%34 = icmp ne <4 x i32> %11, %32
%35 = icmp ne <4 x i32> %13, %33
%36 = zext <4 x i1> %34 to <4 x i32>
%37 = zext <4 x i1> %35 to <4 x i32>
%38 = add <4 x i32> %23, %36
%39 = add <4 x i32> %24, %37
%40 = or i64 %22, 8
%41 = getelementptr inbounds i8, i8* %0, i64 %40
%42 = bitcast i8* %41 to <4 x i8>*
%43 = load <4 x i8>, <4 x i8>* %42
%44 = getelementptr inbounds i8, i8* %41, i64 4
%45 = bitcast i8* %44 to <4 x i8>*
%46 = load <4 x i8>, <4 x i8>* %45
%47 = sext <4 x i8> %43 to <4 x i32>
%48 = sext <4 x i8> %46 to <4 x i32>
%49 = icmp ne <4 x i32> %11, %47
%50 = icmp ne <4 x i32> %13, %48
%51 = zext <4 x i1> %49 to <4 x i32>
%52 = zext <4 x i1> %50 to <4 x i32>
%53 = add <4 x i32> %38, %51
%54 = add <4 x i32> %39, %52
%55 = add nuw i64 %22, 16
%56 = add i64 %25, 2
%57 = icmp eq i64 %56, %20
br i1 %57, label %58, label %21
58: ; preds = %21, %8
%59 = phi <4 x i32> [ undef, %8 ], [ %53, %21 ]
%60 = phi <4 x i32> [ undef, %8 ], [ %54, %21 ]
%61 = phi i64 [ 0, %8 ], [ %55, %21 ]
%62 = phi <4 x i32> [ zeroinitializer, %8 ], [ %53, %21 ]
%63 = phi <4 x i32> [ zeroinitializer, %8 ], [ %54, %21 ]
%64 = icmp eq i64 %17, 0
br i1 %64, label %80, label %65
65: ; preds = %58
%66 = getelementptr inbounds i8, i8* %0, i64 %61
%67 = bitcast i8* %66 to <4 x i8>*
%68 = load <4 x i8>, <4 x i8>* %67
%69 = getelementptr inbounds i8, i8* %66, i64 4
%70 = bitcast i8* %69 to <4 x i8>*
%71 = load <4 x i8>, <4 x i8>* %70
%72 = sext <4 x i8> %68 to <4 x i32>
%73 = sext <4 x i8> %71 to <4 x i32>
%74 = icmp ne <4 x i32> %11, %72
%75 = icmp ne <4 x i32> %13, %73
%76 = zext <4 x i1> %74 to <4 x i32>
%77 = zext <4 x i1> %75 to <4 x i32>
%78 = add <4 x i32> %62, %76
%79 = add <4 x i32> %63, %77
br label %80
80: ; preds = %58, %65
%81 = phi <4 x i32> [ %59, %58 ], [ %78, %65 ]
%82 = phi <4 x i32> [ %60, %58 ], [ %79, %65 ]
%83 = add <4 x i32> %82, %81
%84 = call i32 @llvm.vector.reduce.add.v4i32(<4 x i32> %83)
%85 = icmp eq i64 %9, %6
br i1 %85, label %100, label %86
86: ; preds = %5, %80
%87 = phi i64 [ 0, %5 ], [ %9, %80 ]
%88 = phi i32 [ 0, %5 ], [ %84, %80 ]
br label %89
89: ; preds = %86, %89
%90 = phi i64 [ %98, %89 ], [ %87, %86 ]
%91 = phi i32 [ %97, %89 ], [ %88, %86 ]
%92 = getelementptr inbounds i8, i8* %0, i64 %90
%93 = load i8, i8* %92
%94 = sext i8 %93 to i32
%95 = icmp ne i32 %94, %2
%96 = zext i1 %95 to i32
%97 = add nuw nsw i32 %91, %96
%98 = add nuw nsw i64 %90, 1
%99 = icmp eq i64 %98, %6
br i1 %99, label %100, label %89
100: ; preds = %89, %80, %3
%101 = phi i32 [ 0, %3 ], [ %84, %80 ], [ %97, %89 ]
ret i32 %101
}