#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 */

/* Variables and functions */
int abs(int);
double pow(double, int);
double double64_be_read(const unsigned char *cptr) {
  int exponent, negative, upper, lower;
  double dvalue;
  negative = (cptr[0] & 0x80) ? 1 : 0;
  exponent = ((cptr[0] & 0x7F) << 4) | ((cptr[1] >> 4) & 0xF);
  upper =
      (((cptr[1] & 0xF) << 24) | (cptr[2] << 16) | (cptr[3] << 8) | cptr[4]);
  lower = (cptr[5] << 16) | (cptr[6] << 8) | cptr[7];
  if (exponent == 0 && upper == 0 && lower == 0)
    return 0.0;
  dvalue = upper + lower / ((double)0x1000000);
  dvalue += 0x10000000;
  exponent = exponent - 0x3FF;
  dvalue = dvalue / ((double)0x10000000);
  if (negative)
    dvalue *= -1;
  if (exponent > 0)
    dvalue *= pow(2.0, exponent);
  else if (exponent < 0)
    dvalue /= pow(2.0, abs(exponent));
  return dvalue;
}


x86 assembly (clang, -O0):
<double64_be_read>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x10(%rbp)
mov    -0x10(%rbp),%rax
movzbl (%rax),%edx
and    $0x80,%edx
xor    %eax,%eax
mov    $0x1,%ecx
cmp    $0x0,%edx
cmovne %ecx,%eax
mov    %eax,-0x18(%rbp)
mov    -0x10(%rbp),%rax
movzbl (%rax),%eax
and    $0x7f,%eax
shl    $0x4,%eax
mov    -0x10(%rbp),%rcx
movzbl 0x1(%rcx),%ecx
sar    $0x4,%ecx
and    $0xf,%ecx
or     %ecx,%eax
mov    %eax,-0x14(%rbp)
mov    -0x10(%rbp),%rax
movzbl 0x1(%rax),%eax
and    $0xf,%eax
shl    $0x18,%eax
mov    -0x10(%rbp),%rcx
movzbl 0x2(%rcx),%ecx
shl    $0x10,%ecx
or     %ecx,%eax
mov    -0x10(%rbp),%rcx
movzbl 0x3(%rcx),%ecx
shl    $0x8,%ecx
or     %ecx,%eax
mov    -0x10(%rbp),%rcx
movzbl 0x4(%rcx),%ecx
or     %ecx,%eax
mov    %eax,-0x1c(%rbp)
mov    -0x10(%rbp),%rax
movzbl 0x5(%rax),%eax
shl    $0x10,%eax
mov    -0x10(%rbp),%rcx
movzbl 0x6(%rcx),%ecx
shl    $0x8,%ecx
or     %ecx,%eax
mov    -0x10(%rbp),%rcx
movzbl 0x7(%rcx),%ecx
or     %ecx,%eax
mov    %eax,-0x20(%rbp)
cmpl   $0x0,-0x14(%rbp)
jne    11ee <double64_be_read+0xce>
cmpl   $0x0,-0x1c(%rbp)
jne    11ee <double64_be_read+0xce>
cmpl   $0x0,-0x20(%rbp)
jne    11ee <double64_be_read+0xce>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    12c6 <double64_be_read+0x1a6>
cvtsi2sdl -0x1c(%rbp),%xmm0
cvtsi2sdl -0x20(%rbp),%xmm1
movsd  0xe08(%rip),%xmm2
divsd  %xmm2,%xmm1
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x28(%rbp)
movsd  0xdeb(%rip),%xmm0
addsd  -0x28(%rbp),%xmm0
movsd  %xmm0,-0x28(%rbp)
mov    -0x14(%rbp),%eax
sub    $0x3ff,%eax
mov    %eax,-0x14(%rbp)
movsd  -0x28(%rbp),%xmm0
movsd  0xdc9(%rip),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x28(%rbp)
cmpl   $0x0,-0x18(%rbp)
je     125c <double64_be_read+0x13c>
movsd  0xdbe(%rip),%xmm0
mulsd  -0x28(%rbp),%xmm0
movsd  %xmm0,-0x28(%rbp)
cmpl   $0x0,-0x14(%rbp)
jle    1285 <double64_be_read+0x165>
mov    -0x14(%rbp),%edi
movsd  0xda7(%rip),%xmm0
call   1040 <pow@plt>
mulsd  -0x28(%rbp),%xmm0
movsd  %xmm0,-0x28(%rbp)
jmp    12bc <double64_be_read+0x19c>
cmpl   $0x0,-0x14(%rbp)
jge    12b7 <double64_be_read+0x197>
mov    -0x14(%rbp),%edi
call   1030 <abs@plt>
mov    %eax,%edi
movsd  0xd77(%rip),%xmm0
call   1040 <pow@plt>
movaps %xmm0,%xmm1
movsd  -0x28(%rbp),%xmm0
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x28(%rbp)
jmp    12bc <double64_be_read+0x19c>
movsd  -0x28(%rbp),%xmm0
movsd  %xmm0,-0x8(%rbp)
movsd  -0x8(%rbp),%xmm0
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<double64_be_read>:
sub    $0x18,%rsp
mov    %rdi,%rax
movzbl (%rdi),%r8d
mov    %r8d,%edx
and    $0x7f,%edx
shl    $0x4,%edx
movzbl 0x1(%rdi),%esi
mov    %esi,%edi
shr    $0x4,%edi
and    $0xf,%esi
shl    $0x18,%esi
movzbl 0x2(%rax),%ecx
shl    $0x10,%ecx
or     %esi,%ecx
movzbl 0x3(%rax),%esi
shl    $0x8,%esi
or     %ecx,%esi
movzbl 0x4(%rax),%r9d
or     %esi,%r9d
movzbl 0x5(%rax),%esi
shl    $0x10,%esi
movzbl 0x6(%rax),%ecx
shl    $0x8,%ecx
or     %esi,%ecx
movzbl 0x7(%rax),%eax
or     %ecx,%eax
or     %edx,%edi
jne    1178 <double64_be_read+0x68>
test   %r9d,%r9d
jne    1178 <double64_be_read+0x68>
xorpd  %xmm1,%xmm1
test   %eax,%eax
je     1208 <double64_be_read+0xf8>
cvtsi2sd %r9d,%xmm0
xorps  %xmm1,%xmm1
cvtsi2sd %eax,%xmm1
mulsd  0xe74(%rip),%xmm1
addsd  %xmm0,%xmm1
addsd  0xe70(%rip),%xmm1
mulsd  0xe70(%rip),%xmm1
test   $0x80,%r8d
je     11b1 <double64_be_read+0xa1>
xorpd  0xe6f(%rip),%xmm1
cmp    $0x400,%edi
jb     11dc <double64_be_read+0xcc>
add    $0xfffffc01,%edi
movsd  0xe51(%rip),%xmm0
movapd %xmm1,(%rsp)
call   1030 <pow@plt>
movapd (%rsp),%xmm1
mulsd  %xmm0,%xmm1
jmp    1208 <double64_be_read+0xf8>
cmp    $0x3ff,%edi
je     1208 <double64_be_read+0xf8>
mov    $0x3ff,%eax
sub    %edi,%eax
movsd  0xe25(%rip),%xmm0
mov    %eax,%edi
movapd %xmm1,(%rsp)
call   1030 <pow@plt>
movapd (%rsp),%xmm1
divsd  %xmm0,%xmm1
movapd %xmm1,%xmm0
add    $0x18,%rsp
ret

LLVM IR (-O0):
define double @double64_be_read(i8* %0) {
%2 = alloca double
%3 = alloca i8*
%4 = alloca i32
%5 = alloca i32
%6 = alloca i32
%7 = alloca i32
%8 = alloca double
store i8* %0, i8** %3
%9 = load i8*, i8** %3
%10 = getelementptr inbounds i8, i8* %9, i64 0
%11 = load i8, i8* %10
%12 = zext i8 %11 to i32
%13 = and i32 %12, 128
%14 = icmp ne i32 %13, 0
%15 = zext i1 %14 to i64
%16 = select i1 %14, i32 1, i32 0
store i32 %16, i32* %5
%17 = load i8*, i8** %3
%18 = getelementptr inbounds i8, i8* %17, i64 0
%19 = load i8, i8* %18
%20 = zext i8 %19 to i32
%21 = and i32 %20, 127
%22 = shl i32 %21, 4
%23 = load i8*, i8** %3
%24 = getelementptr inbounds i8, i8* %23, i64 1
%25 = load i8, i8* %24
%26 = zext i8 %25 to i32
%27 = ashr i32 %26, 4
%28 = and i32 %27, 15
%29 = or i32 %22, %28
store i32 %29, i32* %4
%30 = load i8*, i8** %3
%31 = getelementptr inbounds i8, i8* %30, i64 1
%32 = load i8, i8* %31
%33 = zext i8 %32 to i32
%34 = and i32 %33, 15
%35 = shl i32 %34, 24
%36 = load i8*, i8** %3
%37 = getelementptr inbounds i8, i8* %36, i64 2
%38 = load i8, i8* %37
%39 = zext i8 %38 to i32
%40 = shl i32 %39, 16
%41 = or i32 %35, %40
%42 = load i8*, i8** %3
%43 = getelementptr inbounds i8, i8* %42, i64 3
%44 = load i8, i8* %43
%45 = zext i8 %44 to i32
%46 = shl i32 %45, 8
%47 = or i32 %41, %46
%48 = load i8*, i8** %3
%49 = getelementptr inbounds i8, i8* %48, i64 4
%50 = load i8, i8* %49
%51 = zext i8 %50 to i32
%52 = or i32 %47, %51
store i32 %52, i32* %6
%53 = load i8*, i8** %3
%54 = getelementptr inbounds i8, i8* %53, i64 5
%55 = load i8, i8* %54
%56 = zext i8 %55 to i32
%57 = shl i32 %56, 16
%58 = load i8*, i8** %3
%59 = getelementptr inbounds i8, i8* %58, i64 6
%60 = load i8, i8* %59
%61 = zext i8 %60 to i32
%62 = shl i32 %61, 8
%63 = or i32 %57, %62
%64 = load i8*, i8** %3
%65 = getelementptr inbounds i8, i8* %64, i64 7
%66 = load i8, i8* %65
%67 = zext i8 %66 to i32
%68 = or i32 %63, %67
store i32 %68, i32* %7
%69 = load i32, i32* %4
%70 = icmp eq i32 %69, 0
br i1 %70, label %71, label %78
71: ; preds = %1
%72 = load i32, i32* %6
%73 = icmp eq i32 %72, 0
br i1 %73, label %74, label %78
74: ; preds = %71
%75 = load i32, i32* %7
%76 = icmp eq i32 %75, 0
br i1 %76, label %77, label %78
77: ; preds = %74
store double 0.000000e+00, double* %2
br label %116
78: ; preds = %74, %71, %1
%79 = load i32, i32* %6
%80 = sitofp i32 %79 to double
%81 = load i32, i32* %7
%82 = sitofp i32 %81 to double
%83 = fdiv double %82, 0x4170000000000000
%84 = fadd double %80, %83
store double %84, double* %8
%85 = load double, double* %8
%86 = fadd double %85, 0x41B0000000000000
store double %86, double* %8
%87 = load i32, i32* %4
%88 = sub nsw i32 %87, 1023
store i32 %88, i32* %4
%89 = load double, double* %8
%90 = fdiv double %89, 0x41B0000000000000
store double %90, double* %8
%91 = load i32, i32* %5
%92 = icmp ne i32 %91, 0
br i1 %92, label %93, label %96
93: ; preds = %78
%94 = load double, double* %8
%95 = fmul double %94, -1.000000e+00
store double %95, double* %8
br label %96
96: ; preds = %93, %78
%97 = load i32, i32* %4
%98 = icmp sgt i32 %97, 0
br i1 %98, label %99, label %104
99: ; preds = %96
%100 = load i32, i32* %4
%101 = call double @pow(double 2.000000e+00, i32 %100)
%102 = load double, double* %8
%103 = fmul double %102, %101
store double %103, double* %8
br label %114
104: ; preds = %96
%105 = load i32, i32* %4
%106 = icmp slt i32 %105, 0
br i1 %106, label %107, label %113
107: ; preds = %104
%108 = load i32, i32* %4
%109 = call i32 @abs(i32 %108)
%110 = call double @pow(double 2.000000e+00, i32 %109)
%111 = load double, double* %8
%112 = fdiv double %111, %110
store double %112, double* %8
br label %113
113: ; preds = %107, %104
br label %114
114: ; preds = %113, %99
%115 = load double, double* %8
store double %115, double* %2
br label %116
116: ; preds = %114, %77
%117 = load double, double* %2
ret double %117
}

LLVM IR (-O2):
define double @double64_be_read(i8* nocapture %0) {
%2 = load i8, i8* %0
%3 = zext i8 %2 to i32
%4 = shl nuw nsw i32 %3, 4
%5 = and i32 %4, 2032
%6 = getelementptr inbounds i8, i8* %0, i64 1
%7 = load i8, i8* %6
%8 = zext i8 %7 to i32
%9 = lshr i32 %8, 4
%10 = or i32 %5, %9
%11 = shl nuw i32 %8, 24
%12 = and i32 %11, 251658240
%13 = getelementptr inbounds i8, i8* %0, i64 2
%14 = load i8, i8* %13
%15 = zext i8 %14 to i32
%16 = shl nuw nsw i32 %15, 16
%17 = or i32 %12, %16
%18 = getelementptr inbounds i8, i8* %0, i64 3
%19 = load i8, i8* %18
%20 = zext i8 %19 to i32
%21 = shl nuw nsw i32 %20, 8
%22 = or i32 %17, %21
%23 = getelementptr inbounds i8, i8* %0, i64 4
%24 = load i8, i8* %23
%25 = zext i8 %24 to i32
%26 = or i32 %22, %25
%27 = getelementptr inbounds i8, i8* %0, i64 5
%28 = load i8, i8* %27
%29 = zext i8 %28 to i32
%30 = shl nuw nsw i32 %29, 16
%31 = getelementptr inbounds i8, i8* %0, i64 6
%32 = load i8, i8* %31
%33 = zext i8 %32 to i32
%34 = shl nuw nsw i32 %33, 8
%35 = or i32 %34, %30
%36 = getelementptr inbounds i8, i8* %0, i64 7
%37 = load i8, i8* %36
%38 = zext i8 %37 to i32
%39 = or i32 %35, %38
%40 = icmp eq i32 %10, 0
%41 = icmp eq i32 %26, 0
%42 = select i1 %40, i1 %41, i1 false
%43 = icmp eq i32 %39, 0
%44 = select i1 %42, i1 %43, i1 false
br i1 %44, label %67, label %45
45: ; preds = %1
%46 = and i32 %3, 128
%47 = icmp eq i32 %46, 0
%48 = sitofp i32 %26 to double
%49 = sitofp i32 %39 to double
%50 = fmul double %49, 0x3E70000000000000
%51 = fadd double %50, %48
%52 = fadd double %51, 0x41B0000000000000
%53 = fmul double %52, 0x3E30000000000000
%54 = fneg double %53
%55 = select i1 %47, double %53, double %54
%56 = icmp ugt i32 %10, 1023
br i1 %56, label %57, label %61
57: ; preds = %45
%58 = add nsw i32 %10, -1023
%59 = tail call double @pow(double 2.000000e+00, i32 %58)
%60 = fmul double %55, %59
br label %67
61: ; preds = %45
%62 = icmp eq i32 %10, 1023
br i1 %62, label %67, label %63
63: ; preds = %61
%64 = sub nuw nsw i32 1023, %10
%65 = tail call double @pow(double 2.000000e+00, i32 %64)
%66 = fdiv double %55, %65
br label %67
67: ; preds = %57, %63, %61, %1
%68 = phi double [ 0.000000e+00, %1 ], [ %60, %57 ], [ %66, %63 ], [ %55, %61 ]
ret double %68
}