int R_EncodePEMBlock(encodedBlock, encodedBlockLen, block, blockLen)
unsigned char *encodedBlock;
unsigned int *encodedBlockLen;
unsigned char *block;
unsigned int blockLen;
{
  unsigned int i, lastLen;
  if (blockLen < 1) {
    *encodedBlockLen = 0;
    return (0);
  }
  for (i = 0; i < (blockLen - 1) / 3; i++)
    EncodeQuantum(&encodedBlock[4 * i], &block[3 * i]);
  lastLen = blockLen - 3 * i;
  EncodeLastQuantum(&encodedBlock[4 * i], &block[3 * i], lastLen);
  *encodedBlockLen = 4 * i + 4;
  return (0);
}


x86 assembly (clang, -O0):
<R_EncodePEMBlock>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %rdx,-0x20(%rbp)
mov    %ecx,-0x24(%rbp)
cmpl   $0x1,-0x24(%rbp)
jae    1157 <R_EncodePEMBlock+0x37>
mov    -0x18(%rbp),%rax
movl   $0x0,(%rax)
movl   $0x0,-0x4(%rbp)
jmp    11f9 <R_EncodePEMBlock+0xd9>
movl   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%eax
mov    %eax,-0x30(%rbp)
mov    -0x24(%rbp),%eax
sub    $0x1,%eax
mov    $0x3,%ecx
xor    %edx,%edx
div    %ecx
mov    %eax,%ecx
mov    -0x30(%rbp),%eax
cmp    %ecx,%eax
jae    11b1 <R_EncodePEMBlock+0x91>
mov    -0x10(%rbp),%rdi
mov    -0x28(%rbp),%eax
shl    $0x2,%eax
mov    %eax,%eax
add    %rax,%rdi
mov    -0x20(%rbp),%rsi
imul   $0x3,-0x28(%rbp),%eax
mov    %eax,%eax
add    %rax,%rsi
mov    $0x0,%al
call   1040 <EncodeQuantum@plt>
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    115e <R_EncodePEMBlock+0x3e>
mov    -0x24(%rbp),%eax
imul   $0x3,-0x28(%rbp),%ecx
sub    %ecx,%eax
mov    %eax,-0x2c(%rbp)
mov    -0x10(%rbp),%rdi
mov    -0x28(%rbp),%eax
shl    $0x2,%eax
mov    %eax,%eax
add    %rax,%rdi
mov    -0x20(%rbp),%rsi
imul   $0x3,-0x28(%rbp),%eax
mov    %eax,%eax
add    %rax,%rsi
mov    -0x2c(%rbp),%edx
mov    $0x0,%al
call   1030 <EncodeLastQuantum@plt>
mov    -0x28(%rbp),%ecx
shl    $0x2,%ecx
add    $0x4,%ecx
mov    -0x18(%rbp),%rax
mov    %ecx,(%rax)
movl   $0x0,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<R_EncodePEMBlock>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x18,%rsp
mov    %rsi,%rbx
test   %ecx,%ecx
je     11c8 <R_EncodePEMBlock+0xa8>
mov    %ecx,%r12d
mov    %rdi,%r13
lea    -0x1(%r12),%eax
xor    %r14d,%r14d
cmp    $0x3,%eax
jb     119b <R_EncodePEMBlock+0x7b>
mov    %rbx,0x10(%rsp)
mov    %eax,%eax
mov    $0xaaaaaaab,%r14d
imul   %rax,%r14
shr    $0x21,%r14
mov    %r14,%rbp
mov    %rdx,0x8(%rsp)
mov    %rdx,%rbx
xor    %r15d,%r15d
nop
mov    %r15d,%edi
and    $0xfffffffc,%edi
add    %r13,%rdi
mov    %rbx,%rsi
xor    %eax,%eax
call   1040 <EncodeQuantum@plt>
add    $0x4,%r15
add    $0x3,%rbx
add    $0xffffffffffffffff,%rbp
jne    1170 <R_EncodePEMBlock+0x50>
mov    0x10(%rsp),%rbx
mov    0x8(%rsp),%rdx
lea    (%r14,%r14,2),%eax
sub    %eax,%r12d
mov    %r14d,%ecx
shl    $0x2,%ecx
add    %rcx,%r13
add    %rax,%rdx
mov    %r13,%rdi
mov    %rdx,%rsi
mov    %r12d,%edx
xor    %eax,%eax
call   1030 <EncodeLastQuantum@plt>
lea    0x4(,%r14,4),%eax
jmp    11ca <R_EncodePEMBlock+0xaa>
xor    %eax,%eax
mov    %eax,(%rbx)
xor    %eax,%eax
add    $0x18,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define i32 @R_EncodePEMBlock(i8* %0, i32* %1, i8* %2, i32 %3) {
%5 = alloca i32
%6 = alloca i8*
%7 = alloca i32*
%8 = alloca i8*
%9 = alloca i32
%10 = alloca i32
%11 = alloca i32
store i8* %0, i8** %6
store i32* %1, i32** %7
store i8* %2, i8** %8
store i32 %3, i32* %9
%12 = load i32, i32* %9
%13 = icmp ult i32 %12, 1
br i1 %13, label %14, label %16
14: ; preds = %4
%15 = load i32*, i32** %7
store i32 0, i32* %15
store i32 0, i32* %5
br label %59
16: ; preds = %4
store i32 0, i32* %10
br label %17
17: ; preds = %35, %16
%18 = load i32, i32* %10
%19 = load i32, i32* %9
%20 = sub i32 %19, 1
%21 = udiv i32 %20, 3
%22 = icmp ult i32 %18, %21
br i1 %22, label %23, label %38
23: ; preds = %17
%24 = load i8*, i8** %6
%25 = load i32, i32* %10
%26 = mul i32 4, %25
%27 = zext i32 %26 to i64
%28 = getelementptr inbounds i8, i8* %24, i64 %27
%29 = load i8*, i8** %8
%30 = load i32, i32* %10
%31 = mul i32 3, %30
%32 = zext i32 %31 to i64
%33 = getelementptr inbounds i8, i8* %29, i64 %32
%34 = call i32 (i8*, i8*, ...) bitcast (i32 (...)* @EncodeQuantum to i32 (i8*, i8*, ...)*)(i8* %28, i8* %33)
br label %35
35: ; preds = %23
%36 = load i32, i32* %10
%37 = add i32 %36, 1
store i32 %37, i32* %10
br label %17
38: ; preds = %17
%39 = load i32, i32* %9
%40 = load i32, i32* %10
%41 = mul i32 3, %40
%42 = sub i32 %39, %41
store i32 %42, i32* %11
%43 = load i8*, i8** %6
%44 = load i32, i32* %10
%45 = mul i32 4, %44
%46 = zext i32 %45 to i64
%47 = getelementptr inbounds i8, i8* %43, i64 %46
%48 = load i8*, i8** %8
%49 = load i32, i32* %10
%50 = mul i32 3, %49
%51 = zext i32 %50 to i64
%52 = getelementptr inbounds i8, i8* %48, i64 %51
%53 = load i32, i32* %11
%54 = call i32 (i8*, i8*, i32, ...) bitcast (i32 (...)* @EncodeLastQuantum to i32 (i8*, i8*, i32, ...)*)(i8* %47, i8* %52, i32 %53)
%55 = load i32, i32* %10
%56 = mul i32 4, %55
%57 = add i32 %56, 4
%58 = load i32*, i32** %7
store i32 %57, i32* %58
store i32 0, i32* %5
br label %59
59: ; preds = %38, %14
%60 = load i32, i32* %5
ret i32 %60
}

LLVM IR (-O2):
define i32 @R_EncodePEMBlock(i8* %0, i32* nocapture writeonly %1, i8* %2, i32 %3) {
%5 = icmp eq i32 %3, 0
br i1 %5, label %33, label %6
6: ; preds = %4
%7 = add i32 %3, -1
%8 = icmp ult i32 %7, 3
br i1 %8, label %22, label %9
9: ; preds = %6
%10 = udiv i32 %7, 3
%11 = zext i32 %10 to i64
br label %12
12: ; preds = %9, %12
%13 = phi i64 [ 0, %9 ], [ %20, %12 ]
%14 = shl i64 %13, 2
%15 = and i64 %14, 4294967292
%16 = getelementptr inbounds i8, i8* %0, i64 %15
%17 = mul nuw nsw i64 %13, 3
%18 = getelementptr inbounds i8, i8* %2, i64 %17
%19 = tail call i32 (i8*, i8*, ...) bitcast (i32 (...)* @EncodeQuantum to i32 (i8*, i8*, ...)*)(i8* %16, i8* %18)
%20 = add nuw nsw i64 %13, 1
%21 = icmp eq i64 %20, %11
br i1 %21, label %22, label %12
22: ; preds = %12, %6
%23 = phi i32 [ 0, %6 ], [ %10, %12 ]
%24 = mul i32 %23, 3
%25 = sub i32 %3, %24
%26 = shl i32 %23, 2
%27 = zext i32 %26 to i64
%28 = getelementptr inbounds i8, i8* %0, i64 %27
%29 = zext i32 %24 to i64
%30 = getelementptr inbounds i8, i8* %2, i64 %29
%31 = tail call i32 (i8*, i8*, i32, ...) bitcast (i32 (...)* @EncodeLastQuantum to i32 (i8*, i8*, i32, ...)*)(i8* %28, i8* %30, i32 %25)
%32 = add i32 %26, 4
br label %33
33: ; preds = %4, %22
%34 = phi i32 [ %32, %22 ], [ 0, %4 ]
store i32 %34, i32* %1
ret i32 0
}