#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 */
int EOF;
int /*<<< orphan*/ die(char *, ...);
int fgetc(int /*<<< orphan*/ *);
scalar_t__ isdigit(int);
int /*<<< orphan*/ isxdigit(int);
int /*<<< orphan*/ memset(unsigned char *, int /*<<< orphan*/, int);
char tolower(int);
int read_hash(FILE *fl, unsigned char hash[(768 / 8)]) {
  memset(hash, 0, (768 / 8));
  int hp = 0;
  for (;;) {
    int v, c = fgetc(fl);
    if (c == EOF) {
      return 0;
    }
    if (c == '\n') {
      if (hp != (768 / 4)) {
        die("Hash too short");
      }
      return 1;
    }
    if (hp > (768 / 4)) {
      die("Hash too long");
    }
    if (c < 0 || c > 255 || !isxdigit(c)) {
      die("Illegal character '%c' in data", c);
    }
    v = isdigit(c) ? c - '0' : tolower(c) - 'a' + 10;
    hash[hp >> 1] |= (v << (((hp & 1) ^ 1) << 2));
    hp++;
  }
}


x86 assembly (clang, -O0):
<read_hash>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    -0x18(%rbp),%rdi
xor    %esi,%esi
mov    $0x60,%edx
call   1040 <memset@plt>
movl   $0x0,-0x1c(%rbp)
mov    -0x10(%rbp),%rdi
call   1050 <fgetc@plt>
mov    %eax,-0x24(%rbp)
mov    -0x24(%rbp),%eax
mov    0x2e4b(%rip),%rcx
cmp    (%rcx),%eax
jne    11b1 <read_hash+0x51>
movl   $0x0,-0x4(%rbp)
jmp    12a5 <read_hash+0x145>
cmpl   $0xa,-0x24(%rbp)
jne    11e2 <read_hash+0x82>
cmpl   $0xc0,-0x1c(%rbp)
je     11d6 <read_hash+0x76>
lea    0xe31(%rip),%rdi
mov    $0x0,%al
call   1070 <die@plt>
movl   $0x1,-0x4(%rbp)
jmp    12a5 <read_hash+0x145>
cmpl   $0xc0,-0x1c(%rbp)
jle    11fd <read_hash+0x9d>
lea    0xe19(%rip),%rdi
mov    $0x0,%al
call   1070 <die@plt>
cmpl   $0x0,-0x24(%rbp)
jl     1225 <read_hash+0xc5>
cmpl   $0xff,-0x24(%rbp)
jg     1225 <read_hash+0xc5>
mov    -0x24(%rbp),%edi
call   1080 <isxdigit@plt>
cmp    $0x0,%eax
jne    1236 <read_hash+0xd6>
mov    -0x24(%rbp),%esi
lea    0xdee(%rip),%rdi
mov    $0x0,%al
call   1070 <die@plt>
mov    -0x24(%rbp),%edi
call   1030 <isdigit@plt>
cmp    $0x0,%rax
je     1256 <read_hash+0xf6>
mov    -0x24(%rbp),%eax
sub    $0x30,%eax
mov    %eax,-0x28(%rbp)
jmp    126a <read_hash+0x10a>
mov    -0x24(%rbp),%edi
call   1060 <tolower@plt>
movsbl %al,%eax
sub    $0x61,%eax
add    $0xa,%eax
mov    %eax,-0x28(%rbp)
mov    -0x28(%rbp),%eax
mov    %eax,-0x20(%rbp)
mov    -0x20(%rbp),%esi
mov    -0x1c(%rbp),%ecx
and    $0x1,%ecx
xor    $0x1,%ecx
shl    $0x2,%ecx
shl    %cl,%esi
mov    -0x18(%rbp),%rax
mov    -0x1c(%rbp),%ecx
sar    $0x1,%ecx
movslq %ecx,%rcx
movzbl (%rax,%rcx,1),%edx
or     %esi,%edx
mov    %dl,(%rax,%rcx,1)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1187 <read_hash+0x27>
mov    -0x4(%rbp),%eax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<read_hash>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
mov    %rsi,%r14
mov    %rdi,%rbx
xor    %r15d,%r15d
mov    %rsi,%rdi
xor    %esi,%esi
mov    $0x60,%edx
call   1040 <memset@plt>
mov    %rbx,%rdi
call   1050 <fgetc@plt>
mov    0x2e56(%rip),%r13
cmp    0x0(%r13),%eax
je     125f <read_hash+0xff>
mov    %eax,%ebp
xor    %r15d,%r15d
xor    %r12d,%r12d
jmp    11e9 <read_hash+0x89>
cs nopw 0x0(%rax,%rax,1)
mov    %ebp,%edi
call   1060 <tolower@plt>
movsbl %al,%ebp
add    $0xffffffa9,%ebp
mov    %r15d,%ecx
not    %cl
and    $0x4,%cl
shl    %cl,%ebp
mov    %r12d,%eax
shr    %rax
or     %bpl,(%r14,%rax,1)
add    $0x1,%r12d
mov    %rbx,%rdi
call   1050 <fgetc@plt>
mov    %eax,%ebp
add    $0x4,%r15d
cmp    0x0(%r13),%eax
je     123d <read_hash+0xdd>
cmp    $0xa,%ebp
je     1242 <read_hash+0xe2>
cmp    $0xc1,%r12d
jb     1205 <read_hash+0xa5>
lea    0xe11(%rip),%rdi
xor    %eax,%eax
call   1070 <die@plt>
cmp    $0xff,%ebp
ja     1218 <read_hash+0xb8>
mov    %ebp,%edi
call   1080 <isxdigit@plt>
test   %eax,%eax
jne    1228 <read_hash+0xc8>
lea    0xdfe(%rip),%rdi
mov    %ebp,%esi
xor    %eax,%eax
call   1070 <die@plt>
mov    %ebp,%edi
call   1030 <isdigit@plt>
test   %rax,%rax
je     11b0 <read_hash+0x50>
add    $0xffffffd0,%ebp
jmp    11bd <read_hash+0x5d>
xor    %r15d,%r15d
jmp    125f <read_hash+0xff>
mov    $0x1,%r15d
cmp    $0xc0,%r12d
je     125f <read_hash+0xff>
lea    0xda8(%rip),%rdi
xor    %eax,%eax
call   1070 <die@plt>
mov    %r15d,%eax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@EOF = global i32 0
@.str = [15 x i8] c"Hash too short\00"
@.str.1 = [14 x i8] c"Hash too long\00"
@.str.2 = [31 x i8] c"Illegal character '%c' in data\00"
define i32 @read_hash(i32* %0, i8* %1) {
%3 = alloca i32
%4 = alloca i32*
%5 = alloca i8*
%6 = alloca i32
%7 = alloca i32
%8 = alloca i32
store i32* %0, i32** %4
store i8* %1, i8** %5
%9 = load i8*, i8** %5
%10 = call i32 @memset(i8* %9, i32 0, i32 96)
store i32 0, i32* %6
br label %11
11: ; preds = %58, %2
%12 = load i32*, i32** %4
%13 = call i32 @fgetc(i32* %12)
store i32 %13, i32* %8
%14 = load i32, i32* %8
%15 = load i32, i32* @EOF
%16 = icmp eq i32 %14, %15
br i1 %16, label %17, label %18
17: ; preds = %11
store i32 0, i32* %3
br label %77
18: ; preds = %11
%19 = load i32, i32* %8
%20 = icmp eq i32 %19, 10
br i1 %20, label %21, label %27
21: ; preds = %18
%22 = load i32, i32* %6
%23 = icmp ne i32 %22, 192
br i1 %23, label %24, label %26
24: ; preds = %21
%25 = call i32 (i8*, ...) @die(i8* getelementptr inbounds ([15 x i8], [15 x i8]* @.str, i64 0, i64 0))
br label %26
26: ; preds = %24, %21
store i32 1, i32* %3
br label %77
27: ; preds = %18
%28 = load i32, i32* %6
%29 = icmp sgt i32 %28, 192
br i1 %29, label %30, label %32
30: ; preds = %27
%31 = call i32 (i8*, ...) @die(i8* getelementptr inbounds ([14 x i8], [14 x i8]* @.str.1, i64 0, i64 0))
br label %32
32: ; preds = %30, %27
%33 = load i32, i32* %8
%34 = icmp slt i32 %33, 0
br i1 %34, label %42, label %35
35: ; preds = %32
%36 = load i32, i32* %8
%37 = icmp sgt i32 %36, 255
br i1 %37, label %42, label %38
38: ; preds = %35
%39 = load i32, i32* %8
%40 = call i32 @isxdigit(i32 %39)
%41 = icmp ne i32 %40, 0
br i1 %41, label %45, label %42
42: ; preds = %38, %35, %32
%43 = load i32, i32* %8
%44 = call i32 (i8*, ...) @die(i8* getelementptr inbounds ([31 x i8], [31 x i8]* @.str.2, i64 0, i64 0), i32 %43)
br label %45
45: ; preds = %42, %38
%46 = load i32, i32* %8
%47 = call i64 @isdigit(i32 %46)
%48 = icmp ne i64 %47, 0
br i1 %48, label %49, label %52
49: ; preds = %45
%50 = load i32, i32* %8
%51 = sub nsw i32 %50, 48
br label %58
52: ; preds = %45
%53 = load i32, i32* %8
%54 = call signext i8 @tolower(i32 %53)
%55 = sext i8 %54 to i32
%56 = sub nsw i32 %55, 97
%57 = add nsw i32 %56, 10
br label %58
58: ; preds = %52, %49
%59 = phi i32 [ %51, %49 ], [ %57, %52 ]
store i32 %59, i32* %7
%60 = load i32, i32* %7
%61 = load i32, i32* %6
%62 = and i32 %61, 1
%63 = xor i32 %62, 1
%64 = shl i32 %63, 2
%65 = shl i32 %60, %64
%66 = load i8*, i8** %5
%67 = load i32, i32* %6
%68 = ashr i32 %67, 1
%69 = sext i32 %68 to i64
%70 = getelementptr inbounds i8, i8* %66, i64 %69
%71 = load i8, i8* %70
%72 = zext i8 %71 to i32
%73 = or i32 %72, %65
%74 = trunc i32 %73 to i8
store i8 %74, i8* %70
%75 = load i32, i32* %6
%76 = add nsw i32 %75, 1
store i32 %76, i32* %6
br label %11
77: ; preds = %26, %17
%78 = load i32, i32* %3
ret i32 %78
}

LLVM IR (-O2):
@EOF = global i32 0
@.str = [15 x i8] c"Hash too short\00"
@.str.1 = [14 x i8] c"Hash too long\00"
@.str.2 = [31 x i8] c"Illegal character '%c' in data\00"
define i32 @read_hash(i32* nocapture %0, i8* %1) {
%3 = tail call i32 @memset(i8* %1, i32 0, i32 96)
%4 = tail call i32 @fgetc(i32* %0)
%5 = load i32, i32* @EOF
%6 = icmp eq i32 %4, %5
br i1 %6, label %51, label %7
7: ; preds = %2, %35
%8 = phi i32 [ %48, %35 ], [ %4, %2 ]
%9 = phi i32 [ %47, %35 ], [ 0, %2 ]
%10 = icmp eq i32 %8, 10
br i1 %10, label %11, label %15
11: ; preds = %7
%12 = icmp eq i32 %9, 192
br i1 %12, label %51, label %13
13: ; preds = %11
%14 = tail call i32 (i8*, ...) @die(i8* getelementptr inbounds ([15 x i8], [15 x i8]* @.str, i64 0, i64 0))
br label %51
15: ; preds = %7
%16 = icmp ugt i32 %9, 192
br i1 %16, label %17, label %19
17: ; preds = %15
%18 = tail call i32 (i8*, ...) @die(i8* getelementptr inbounds ([14 x i8], [14 x i8]* @.str.1, i64 0, i64 0))
br label %19
19: ; preds = %17, %15
%20 = icmp ugt i32 %8, 255
br i1 %20, label %24, label %21
21: ; preds = %19
%22 = tail call i32 @isxdigit(i32 %8)
%23 = icmp eq i32 %22, 0
br i1 %23, label %24, label %26
24: ; preds = %21, %19
%25 = tail call i32 (i8*, ...) @die(i8* getelementptr inbounds ([31 x i8], [31 x i8]* @.str.2, i64 0, i64 0), i32 %8)
br label %26
26: ; preds = %24, %21
%27 = tail call i64 @isdigit(i32 %8)
%28 = icmp eq i64 %27, 0
br i1 %28, label %31, label %29
29: ; preds = %26
%30 = add nsw i32 %8, -48
br label %35
31: ; preds = %26
%32 = tail call signext i8 @tolower(i32 %8)
%33 = sext i8 %32 to i32
%34 = add nsw i32 %33, -87
br label %35
35: ; preds = %29, %31
%36 = phi i32 [ %30, %29 ], [ %34, %31 ]
%37 = shl i32 %9, 2
%38 = and i32 %37, 4
%39 = xor i32 %38, 4
%40 = shl i32 %36, %39
%41 = lshr i32 %9, 1
%42 = zext i32 %41 to i64
%43 = getelementptr inbounds i8, i8* %1, i64 %42
%44 = load i8, i8* %43
%45 = trunc i32 %40 to i8
%46 = or i8 %44, %45
store i8 %46, i8* %43
%47 = add nuw nsw i32 %9, 1
%48 = tail call i32 @fgetc(i32* %0)
%49 = load i32, i32* @EOF
%50 = icmp eq i32 %48, %49
br i1 %50, label %51, label %7
51: ; preds = %35, %2, %13, %11
%52 = phi i32 [ 1, %11 ], [ 1, %13 ], [ 0, %2 ], [ 0, %35 ]
ret i32 %52
}