#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */
typedef int /*<<< orphan*/ FILE;

/* Variables and functions */
scalar_t__ EOF;
int /*<<< orphan*/ bloqueToBase64(unsigned char *, unsigned char *, int);
scalar_t__ feof(int /*<<< orphan*/ *);
scalar_t__ ferror(int /*<<< orphan*/ *);
scalar_t__ getc(int /*<<< orphan*/ *);
int /*<<< orphan*/ perror(char *);
scalar_t__ putc(int, int /*<<< orphan*/ *);
int codificar(FILE *archEntrada, FILE *archSalida) {
  unsigned char in[3];
  unsigned char out[4];
  int i, len = 0;
  int retcode = 0;
  *in = (unsigned char)0;
  *out = (unsigned char)0;
  len = 0;
  i = 0;
  while (feof(archEntrada) == 0) {
    in[i] = (unsigned char)getc(archEntrada);
    if (ferror(archEntrada)) {
      perror("Error leyendo archivo de entrada");
      retcode = 2;
      return retcode;
    }
    if (feof(archEntrada) == 0) {
      len++;
    } else {
      in[i] = (unsigned char)0;
    }
    i++;
    if (len == 3) {
      bloqueToBase64(in, out, len);
      for (i = 0; i < 4; i++) {
        if (putc((int)(out[i]), archSalida) == EOF) {
          if (ferror(archSalida) != 0) {
            retcode = 1;
          }
          break;
        }
      }
      len = 0;
      i = 0;
    }
  }
  if (len > 0) {
    bloqueToBase64(in, out, len);
    for (i = 0; i < 4; i++) {
      if (putc((int)(out[i]), archSalida) == EOF) {
        if (ferror(archSalida) != 0) {
          retcode = 1;
        }
        break;
      }
    }
  }
  return retcode;
}


x86 assembly (clang, -O0):
<codificar>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
movl   $0x0,-0x28(%rbp)
movl   $0x0,-0x2c(%rbp)
movb   $0x0,-0x1b(%rbp)
movb   $0x0,-0x1f(%rbp)
movl   $0x0,-0x28(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x10(%rbp),%rdi
call   1050 <feof@plt>
cmp    $0x0,%rax
jne    12b0 <codificar+0x150>
mov    -0x10(%rbp),%rdi
call   1080 <getc@plt>
mov    %al,%cl
movslq -0x24(%rbp),%rax
mov    %cl,-0x1b(%rbp,%rax,1)
mov    -0x10(%rbp),%rdi
call   1030 <ferror@plt>
cmp    $0x0,%rax
je     11eb <codificar+0x8b>
lea    0xe2c(%rip),%rdi
call   1070 <perror@plt>
movl   $0x2,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    133a <codificar+0x1da>
mov    -0x10(%rbp),%rdi
call   1050 <feof@plt>
cmp    $0x0,%rax
jne    120c <codificar+0xac>
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    1215 <codificar+0xb5>
movslq -0x24(%rbp),%rax
movb   $0x0,-0x1b(%rbp,%rax,1)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
cmpl   $0x3,-0x28(%rbp)
jne    12ab <codificar+0x14b>
lea    -0x1b(%rbp),%rdi
lea    -0x1f(%rbp),%rsi
mov    -0x28(%rbp),%edx
call   1060 <bloqueToBase64@plt>
movl   $0x0,-0x24(%rbp)
cmpl   $0x4,-0x24(%rbp)
jge    129d <codificar+0x13d>
movslq -0x24(%rbp),%rax
movzbl -0x1f(%rbp,%rax,1),%edi
mov    -0x18(%rbp),%rsi
call   1040 <putc@plt>
mov    0x2d86(%rip),%rcx
cmp    (%rcx),%rax
jne    128a <codificar+0x12a>
mov    -0x18(%rbp),%rdi
call   1030 <ferror@plt>
cmp    $0x0,%rax
je     1285 <codificar+0x125>
movl   $0x1,-0x2c(%rbp)
jmp    129d <codificar+0x13d>
jmp    128f <codificar+0x12f>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    123f <codificar+0xdf>
movl   $0x0,-0x28(%rbp)
movl   $0x0,-0x24(%rbp)
jmp    1194 <codificar+0x34>
cmpl   $0x0,-0x28(%rbp)
jle    1334 <codificar+0x1d4>
lea    -0x1b(%rbp),%rdi
lea    -0x1f(%rbp),%rsi
mov    -0x28(%rbp),%edx
call   1060 <bloqueToBase64@plt>
movl   $0x0,-0x24(%rbp)
cmpl   $0x4,-0x24(%rbp)
jge    132f <codificar+0x1cf>
movslq -0x24(%rbp),%rax
movzbl -0x1f(%rbp,%rax,1),%edi
mov    -0x18(%rbp),%rsi
call   1040 <putc@plt>
mov    0x2cf4(%rip),%rcx
cmp    (%rcx),%rax
jne    131c <codificar+0x1bc>
mov    -0x18(%rbp),%rdi
call   1030 <ferror@plt>
cmp    $0x0,%rax
je     1317 <codificar+0x1b7>
movl   $0x1,-0x2c(%rbp)
jmp    132f <codificar+0x1cf>
jmp    1321 <codificar+0x1c1>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    12d1 <codificar+0x171>
jmp    1334 <codificar+0x1d4>
mov    -0x2c(%rbp),%eax
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<codificar>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
mov    %rsi,%r13
mov    %rdi,%rbp
movb   $0x0,0x5(%rsp)
movb   $0x0,0x1(%rsp)
call   1050 <feof@plt>
xor    %r14d,%r14d
test   %rax,%rax
jne    12fd <codificar+0x19d>
xor    %r14d,%r14d
xor    %ebx,%ebx
xor    %r12d,%r12d
jmp    11be <codificar+0x5e>
cs nopw 0x0(%rax,%rax,1)
movb   $0x0,0x5(%rsp,%r15,1)
add    $0x1,%r15d
mov    %r15d,%r12d
mov    %rbp,%rdi
call   1050 <feof@plt>
test   %rax,%rax
jne    1285 <codificar+0x125>
mov    %rbp,%rdi
call   1080 <getc@plt>
movslq %r12d,%r15
mov    %al,0x5(%rsp,%r15,1)
mov    %rbp,%rdi
call   1030 <ferror@plt>
test   %rax,%rax
jne    130f <codificar+0x1af>
mov    %rbp,%rdi
call   1050 <feof@plt>
test   %rax,%rax
jne    11a0 <codificar+0x40>
add    $0x1,%ebx
cmp    $0x3,%ebx
jne    127c <codificar+0x11c>
lea    0x5(%rsp),%rdi
lea    0x1(%rsp),%rsi
mov    $0x3,%edx
call   1060 <bloqueToBase64@plt>
movzbl 0x1(%rsp),%edi
mov    %r13,%rsi
call   1040 <putc@plt>
mov    0x2dc8(%rip),%rbx
cmp    (%rbx),%rax
je     125e <codificar+0xfe>
movzbl 0x2(%rsp),%edi
mov    %r13,%rsi
call   1040 <putc@plt>
cmp    (%rbx),%rax
je     125e <codificar+0xfe>
movzbl 0x3(%rsp),%edi
mov    %r13,%rsi
call   1040 <putc@plt>
cmp    (%rbx),%rax
je     125e <codificar+0xfe>
movzbl 0x4(%rsp),%edi
mov    %r13,%rsi
call   1040 <putc@plt>
xor    %r12d,%r12d
cmp    (%rbx),%rax
jne    1275 <codificar+0x115>
mov    %r13,%rdi
call   1030 <ferror@plt>
test   %rax,%rax
mov    $0x1,%eax
cmovne %eax,%r14d
xor    %r12d,%r12d
xor    %ebx,%ebx
jmp    11ad <codificar+0x4d>
add    $0x1,%r12d
jmp    11ad <codificar+0x4d>
test   %ebx,%ebx
jle    12fd <codificar+0x19d>
lea    0x5(%rsp),%rdi
lea    0x1(%rsp),%rsi
mov    %ebx,%edx
call   1060 <bloqueToBase64@plt>
movzbl 0x1(%rsp),%edi
mov    %r13,%rsi
call   1040 <putc@plt>
mov    0x2d3a(%rip),%rbx
cmp    (%rbx),%rax
je     12e9 <codificar+0x189>
movzbl 0x2(%rsp),%edi
mov    %r13,%rsi
call   1040 <putc@plt>
cmp    (%rbx),%rax
je     12e9 <codificar+0x189>
movzbl 0x3(%rsp),%edi
mov    %r13,%rsi
call   1040 <putc@plt>
cmp    (%rbx),%rax
je     12e9 <codificar+0x189>
movzbl 0x4(%rsp),%edi
mov    %r13,%rsi
call   1040 <putc@plt>
cmp    (%rbx),%rax
jne    12fd <codificar+0x19d>
mov    %r13,%rdi
call   1030 <ferror@plt>
test   %rax,%rax
mov    $0x1,%eax
cmovne %eax,%r14d
mov    %r14d,%eax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret
lea    0xcea(%rip),%rdi
call   1070 <perror@plt>
mov    $0x2,%r14d
jmp    12fd <codificar+0x19d>

LLVM IR (-O0):
@.str = [33 x i8] c"Error leyendo archivo de entrada\00"
@EOF = global i64 0
define i32 @codificar(i32* %0, i32* %1) {
%3 = alloca i32
%4 = alloca i32*
%5 = alloca i32*
%6 = alloca [3 x i8]
%7 = alloca [4 x i8]
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
store i32* %0, i32** %4
store i32* %1, i32** %5
store i32 0, i32* %9
store i32 0, i32* %10
%11 = getelementptr inbounds [3 x i8], [3 x i8]* %6, i64 0, i64 0
store i8 0, i8* %11
%12 = getelementptr inbounds [4 x i8], [4 x i8]* %7, i64 0, i64 0
store i8 0, i8* %12
store i32 0, i32* %9
store i32 0, i32* %8
br label %13
13: ; preds = %75, %2
%14 = load i32*, i32** %4
%15 = call i64 @feof(i32* %14)
%16 = icmp eq i64 %15, 0
br i1 %16, label %17, label %76
17: ; preds = %13
%18 = load i32*, i32** %4
%19 = call i64 @getc(i32* %18)
%20 = trunc i64 %19 to i8
%21 = load i32, i32* %8
%22 = sext i32 %21 to i64
%23 = getelementptr inbounds [3 x i8], [3 x i8]* %6, i64 0, i64 %22
store i8 %20, i8* %23
%24 = load i32*, i32** %4
%25 = call i64 @ferror(i32* %24)
%26 = icmp ne i64 %25, 0
br i1 %26, label %27, label %30
27: ; preds = %17
%28 = call i32 @perror(i8* getelementptr inbounds ([33 x i8], [33 x i8]* @.str, i64 0, i64 0))
store i32 2, i32* %10
%29 = load i32, i32* %10
store i32 %29, i32* %3
br label %110
30: ; preds = %17
%31 = load i32*, i32** %4
%32 = call i64 @feof(i32* %31)
%33 = icmp eq i64 %32, 0
br i1 %33, label %34, label %37
34: ; preds = %30
%35 = load i32, i32* %9
%36 = add nsw i32 %35, 1
store i32 %36, i32* %9
br label %41
37: ; preds = %30
%38 = load i32, i32* %8
%39 = sext i32 %38 to i64
%40 = getelementptr inbounds [3 x i8], [3 x i8]* %6, i64 0, i64 %39
store i8 0, i8* %40
br label %41
41: ; preds = %37, %34
%42 = load i32, i32* %8
%43 = add nsw i32 %42, 1
store i32 %43, i32* %8
%44 = load i32, i32* %9
%45 = icmp eq i32 %44, 3
br i1 %45, label %46, label %75
46: ; preds = %41
%47 = getelementptr inbounds [3 x i8], [3 x i8]* %6, i64 0, i64 0
%48 = getelementptr inbounds [4 x i8], [4 x i8]* %7, i64 0, i64 0
%49 = load i32, i32* %9
%50 = call i32 @bloqueToBase64(i8* %47, i8* %48, i32 %49)
store i32 0, i32* %8
br label %51
51: ; preds = %71, %46
%52 = load i32, i32* %8
%53 = icmp slt i32 %52, 4
br i1 %53, label %54, label %74
54: ; preds = %51
%55 = load i32, i32* %8
%56 = sext i32 %55 to i64
%57 = getelementptr inbounds [4 x i8], [4 x i8]* %7, i64 0, i64 %56
%58 = load i8, i8* %57
%59 = zext i8 %58 to i32
%60 = load i32*, i32** %5
%61 = call i64 @putc(i32 %59, i32* %60)
%62 = load i64, i64* @EOF
%63 = icmp eq i64 %61, %62
br i1 %63, label %64, label %70
64: ; preds = %54
%65 = load i32*, i32** %5
%66 = call i64 @ferror(i32* %65)
%67 = icmp ne i64 %66, 0
br i1 %67, label %68, label %69
68: ; preds = %64
store i32 1, i32* %10
br label %69
69: ; preds = %68, %64
br label %74
70: ; preds = %54
br label %71
71: ; preds = %70
%72 = load i32, i32* %8
%73 = add nsw i32 %72, 1
store i32 %73, i32* %8
br label %51
74: ; preds = %69, %51
store i32 0, i32* %9
store i32 0, i32* %8
br label %75
75: ; preds = %74, %41
br label %13
76: ; preds = %13
%77 = load i32, i32* %9
%78 = icmp sgt i32 %77, 0
br i1 %78, label %79, label %108
79: ; preds = %76
%80 = getelementptr inbounds [3 x i8], [3 x i8]* %6, i64 0, i64 0
%81 = getelementptr inbounds [4 x i8], [4 x i8]* %7, i64 0, i64 0
%82 = load i32, i32* %9
%83 = call i32 @bloqueToBase64(i8* %80, i8* %81, i32 %82)
store i32 0, i32* %8
br label %84
84: ; preds = %104, %79
%85 = load i32, i32* %8
%86 = icmp slt i32 %85, 4
br i1 %86, label %87, label %107
87: ; preds = %84
%88 = load i32, i32* %8
%89 = sext i32 %88 to i64
%90 = getelementptr inbounds [4 x i8], [4 x i8]* %7, i64 0, i64 %89
%91 = load i8, i8* %90
%92 = zext i8 %91 to i32
%93 = load i32*, i32** %5
%94 = call i64 @putc(i32 %92, i32* %93)
%95 = load i64, i64* @EOF
%96 = icmp eq i64 %94, %95
br i1 %96, label %97, label %103
97: ; preds = %87
%98 = load i32*, i32** %5
%99 = call i64 @ferror(i32* %98)
%100 = icmp ne i64 %99, 0
br i1 %100, label %101, label %102
101: ; preds = %97
store i32 1, i32* %10
br label %102
102: ; preds = %101, %97
br label %107
103: ; preds = %87
br label %104
104: ; preds = %103
%105 = load i32, i32* %8
%106 = add nsw i32 %105, 1
store i32 %106, i32* %8
br label %84
107: ; preds = %102, %84
br label %108
108: ; preds = %107, %76
%109 = load i32, i32* %10
store i32 %109, i32* %3
br label %110
110: ; preds = %108, %27
%111 = load i32, i32* %3
ret i32 %111
}

LLVM IR (-O2):
@.str = [33 x i8] c"Error leyendo archivo de entrada\00"
@EOF = global i64 0
define i32 @codificar(i32* nocapture %0, i32* nocapture %1) {
%3 = alloca [3 x i8]
%4 = alloca [4 x i8]
%5 = getelementptr inbounds [3 x i8], [3 x i8]* %3, i64 0, i64 0
%6 = getelementptr inbounds [4 x i8], [4 x i8]* %4, i64 0, i64 0
store i8 0, i8* %5
store i8 0, i8* %6
%7 = call i64 @feof(i32* %0)
%8 = icmp eq i64 %7, 0
br i1 %8, label %9, label %103
9: ; preds = %2
%10 = getelementptr inbounds [4 x i8], [4 x i8]* %4, i64 0, i64 1
%11 = getelementptr inbounds [4 x i8], [4 x i8]* %4, i64 0, i64 2
%12 = getelementptr inbounds [4 x i8], [4 x i8]* %4, i64 0, i64 3
br label %13
13: ; preds = %9, %63
%14 = phi i32 [ %66, %63 ], [ 0, %9 ]
%15 = phi i32 [ %65, %63 ], [ 0, %9 ]
%16 = phi i32 [ %64, %63 ], [ 0, %9 ]
%17 = call i64 @getc(i32* %0)
%18 = trunc i64 %17 to i8
%19 = sext i32 %16 to i64
%20 = getelementptr inbounds [3 x i8], [3 x i8]* %3, i64 0, i64 %19
store i8 %18, i8* %20
%21 = call i64 @ferror(i32* %0)
%22 = icmp eq i64 %21, 0
br i1 %22, label %25, label %23
23: ; preds = %13
%24 = call i32 @perror(i8* getelementptr inbounds ([33 x i8], [33 x i8]* @.str, i64 0, i64 0))
br label %103
25: ; preds = %13
%26 = call i64 @feof(i32* %0)
%27 = icmp eq i64 %26, 0
br i1 %27, label %30, label %28
28: ; preds = %25
store i8 0, i8* %20
%29 = add nsw i32 %16, 1
br label %63
30: ; preds = %25
%31 = add nsw i32 %15, 1
%32 = add nsw i32 %16, 1
%33 = icmp eq i32 %31, 3
br i1 %33, label %34, label %63
34: ; preds = %30
%35 = call i32 @bloqueToBase64(i8* %5, i8* %6, i32 3)
%36 = load i8, i8* %6
%37 = zext i8 %36 to i32
%38 = call i64 @putc(i32 %37, i32* %1)
%39 = load i64, i64* @EOF
%40 = icmp eq i64 %38, %39
br i1 %40, label %59, label %41
41: ; preds = %34
%42 = load i8, i8* %10
%43 = zext i8 %42 to i32
%44 = call i64 @putc(i32 %43, i32* %1)
%45 = load i64, i64* @EOF
%46 = icmp eq i64 %44, %45
br i1 %46, label %59, label %47
47: ; preds = %41
%48 = load i8, i8* %11
%49 = zext i8 %48 to i32
%50 = call i64 @putc(i32 %49, i32* %1)
%51 = load i64, i64* @EOF
%52 = icmp eq i64 %50, %51
br i1 %52, label %59, label %53
53: ; preds = %47
%54 = load i8, i8* %12
%55 = zext i8 %54 to i32
%56 = call i64 @putc(i32 %55, i32* %1)
%57 = load i64, i64* @EOF
%58 = icmp eq i64 %56, %57
br i1 %58, label %59, label %63
59: ; preds = %53, %47, %41, %34
%60 = call i64 @ferror(i32* %1)
%61 = icmp eq i64 %60, 0
%62 = select i1 %61, i32 %14, i32 1
br label %63
63: ; preds = %53, %28, %59, %30
%64 = phi i32 [ %32, %30 ], [ 0, %59 ], [ %29, %28 ], [ 0, %53 ]
%65 = phi i32 [ %31, %30 ], [ 0, %59 ], [ %15, %28 ], [ 0, %53 ]
%66 = phi i32 [ %14, %30 ], [ %62, %59 ], [ %14, %28 ], [ %14, %53 ]
%67 = call i64 @feof(i32* %0)
%68 = icmp eq i64 %67, 0
br i1 %68, label %13, label %69
69: ; preds = %63
%70 = icmp sgt i32 %65, 0
br i1 %70, label %71, label %103
71: ; preds = %69
%72 = call i32 @bloqueToBase64(i8* %5, i8* %6, i32 %65)
%73 = load i8, i8* %6
%74 = zext i8 %73 to i32
%75 = call i64 @putc(i32 %74, i32* %1)
%76 = load i64, i64* @EOF
%77 = icmp eq i64 %75, %76
br i1 %77, label %99, label %78
78: ; preds = %71
%79 = getelementptr inbounds [4 x i8], [4 x i8]* %4, i64 0, i64 1
%80 = load i8, i8* %79
%81 = zext i8 %80 to i32
%82 = call i64 @putc(i32 %81, i32* %1)
%83 = load i64, i64* @EOF
%84 = icmp eq i64 %82, %83
br i1 %84, label %99, label %85
85: ; preds = %78
%86 = getelementptr inbounds [4 x i8], [4 x i8]* %4, i64 0, i64 2
%87 = load i8, i8* %86
%88 = zext i8 %87 to i32
%89 = call i64 @putc(i32 %88, i32* %1)
%90 = load i64, i64* @EOF
%91 = icmp eq i64 %89, %90
br i1 %91, label %99, label %92
92: ; preds = %85
%93 = getelementptr inbounds [4 x i8], [4 x i8]* %4, i64 0, i64 3
%94 = load i8, i8* %93
%95 = zext i8 %94 to i32
%96 = call i64 @putc(i32 %95, i32* %1)
%97 = load i64, i64* @EOF
%98 = icmp eq i64 %96, %97
br i1 %98, label %99, label %103
99: ; preds = %92, %85, %78, %71
%100 = call i64 @ferror(i32* %1)
%101 = icmp eq i64 %100, 0
%102 = select i1 %101, i32 %66, i32 1
br label %103
103: ; preds = %2, %92, %99, %69, %23
%104 = phi i32 [ 2, %23 ], [ %66, %69 ], [ %102, %99 ], [ %66, %92 ], [ 0, %2 ]
ret i32 %104
}