#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 */
double myUlongToDouble(unsigned long);
double pow(double, double);
double ieee_80_to_double(unsigned char *p) {
  char sign;
  short exp = 0;
  unsigned long mant1 = 0;
  unsigned long mant0 = 0;
  double val;
  exp = *p++;
  exp <<= 8;
  exp |= *p++;
  sign = (exp & 0x8000) ? 1 : 0;
  exp &= 0x7FFF;
  mant1 = *p++;
  mant1 <<= 8;
  mant1 |= *p++;
  mant1 <<= 8;
  mant1 |= *p++;
  mant1 <<= 8;
  mant1 |= *p++;
  mant0 = *p++;
  mant0 <<= 8;
  mant0 |= *p++;
  mant0 <<= 8;
  mant0 |= *p++;
  mant0 <<= 8;
  mant0 |= *p++;
  if (mant1 == 0 && mant0 == 0 && exp == 0 && sign == 0)
    return 0.0;
  else {
    val = myUlongToDouble(mant0) * pow(2.0, -63.0);
    val += myUlongToDouble(mant1) * pow(2.0, -31.0);
    val *= pow(2.0, ((double)exp) - 16383.0);
    return sign ? -val : val;
  }
}


x86 assembly (clang, -O0):
<ieee_80_to_double>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
mov    %rdi,-0x10(%rbp)
movw   $0x0,-0x14(%rbp)
movq   $0x0,-0x20(%rbp)
movq   $0x0,-0x28(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movzbl (%rax),%eax
mov    %ax,-0x14(%rbp)
movswl -0x14(%rbp),%eax
shl    $0x8,%eax
mov    %ax,-0x14(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movzbl (%rax),%ecx
movswl -0x14(%rbp),%eax
or     %ecx,%eax
mov    %ax,-0x14(%rbp)
movswl -0x14(%rbp),%edx
and    $0x8000,%edx
xor    %eax,%eax
mov    $0x1,%ecx
cmp    $0x0,%edx
cmovne %ecx,%eax
mov    %al,-0x11(%rbp)
movswl -0x14(%rbp),%eax
and    $0x7fff,%eax
mov    %ax,-0x14(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movzbl (%rax),%eax
mov    %rax,-0x20(%rbp)
mov    -0x20(%rbp),%rax
shl    $0x8,%rax
mov    %rax,-0x20(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movzbl (%rax),%eax
or     -0x20(%rbp),%rax
mov    %rax,-0x20(%rbp)
mov    -0x20(%rbp),%rax
shl    $0x8,%rax
mov    %rax,-0x20(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movzbl (%rax),%eax
or     -0x20(%rbp),%rax
mov    %rax,-0x20(%rbp)
mov    -0x20(%rbp),%rax
shl    $0x8,%rax
mov    %rax,-0x20(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movzbl (%rax),%eax
or     -0x20(%rbp),%rax
mov    %rax,-0x20(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movzbl (%rax),%eax
mov    %rax,-0x28(%rbp)
mov    -0x28(%rbp),%rax
shl    $0x8,%rax
mov    %rax,-0x28(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movzbl (%rax),%eax
or     -0x28(%rbp),%rax
mov    %rax,-0x28(%rbp)
mov    -0x28(%rbp),%rax
shl    $0x8,%rax
mov    %rax,-0x28(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movzbl (%rax),%eax
or     -0x28(%rbp),%rax
mov    %rax,-0x28(%rbp)
mov    -0x28(%rbp),%rax
shl    $0x8,%rax
mov    %rax,-0x28(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x10(%rbp)
movzbl (%rax),%eax
or     -0x28(%rbp),%rax
mov    %rax,-0x28(%rbp)
cmpq   $0x0,-0x20(%rbp)
jne    12f3 <ieee_80_to_double+0x1d3>
cmpq   $0x0,-0x28(%rbp)
jne    12f3 <ieee_80_to_double+0x1d3>
movswl -0x14(%rbp),%eax
cmp    $0x0,%eax
jne    12f3 <ieee_80_to_double+0x1d3>
movsbl -0x11(%rbp),%eax
cmp    $0x0,%eax
jne    12f3 <ieee_80_to_double+0x1d3>
xorps  %xmm0,%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    13db <ieee_80_to_double+0x2bb>
mov    -0x28(%rbp),%rdi
call   1030 <myUlongToDouble@plt>
movsd  %xmm0,-0x48(%rbp)
movsd  0xcf7(%rip),%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  0xcfa(%rip),%xmm1
call   1040 <pow@plt>
movaps %xmm0,%xmm1
movsd  -0x48(%rbp),%xmm0
mulsd  %xmm1,%xmm0
movsd  %xmm0,-0x30(%rbp)
mov    -0x20(%rbp),%rdi
call   1030 <myUlongToDouble@plt>
movaps %xmm0,%xmm1
movsd  -0x40(%rbp),%xmm0
movsd  %xmm1,-0x38(%rbp)
movsd  0xcce(%rip),%xmm1
call   1040 <pow@plt>
movaps %xmm0,%xmm2
movsd  -0x38(%rbp),%xmm0
movsd  -0x30(%rbp),%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
movsd  %xmm0,-0x30(%rbp)
movswl -0x14(%rbp),%eax
cvtsi2sd %eax,%xmm1
movsd  0xc8f(%rip),%xmm0
subsd  %xmm0,%xmm1
movsd  0xc7b(%rip),%xmm0
call   1040 <pow@plt>
mulsd  -0x30(%rbp),%xmm0
movsd  %xmm0,-0x30(%rbp)
movsbl -0x11(%rbp),%eax
cmp    $0x0,%eax
je     13c7 <ieee_80_to_double+0x2a7>
movsd  -0x30(%rbp),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  %xmm0,-0x50(%rbp)
jmp    13d1 <ieee_80_to_double+0x2b1>
movsd  -0x30(%rbp),%xmm0
movsd  %xmm0,-0x50(%rbp)
movsd  -0x50(%rbp),%xmm0
movsd  %xmm0,-0x8(%rbp)
movsd  -0x8(%rbp),%xmm0
add    $0x50,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<ieee_80_to_double>:
push   %rbp
push   %r14
push   %rbx
sub    $0x20,%rsp
movzbl (%rdi),%ebp
movzbl 0x1(%rdi),%eax
mov    %ebp,%ebx
and    $0x7f,%ebx
shl    $0x8,%ebx
or     %eax,%ebx
mov    0x2(%rdi),%r14d
mov    0x6(%rdi),%edi
shl    $0x20,%r14
bswap  %r14
shl    $0x20,%rdi
bswap  %rdi
test   %r14,%r14
jne    1166 <ieee_80_to_double+0x46>
test   %rdi,%rdi
jne    1166 <ieee_80_to_double+0x46>
test   %bx,%bx
jne    1166 <ieee_80_to_double+0x46>
xorpd  %xmm0,%xmm0
test   %bpl,%bpl
jns    11c9 <ieee_80_to_double+0xa9>
call   1040 <myUlongToDouble@plt>
movsd  %xmm0,0x8(%rsp)
mov    %r14,%rdi
call   1040 <myUlongToDouble@plt>
movapd %xmm0,0x10(%rsp)
add    $0xffffc001,%ebx
movsd  0xe73(%rip),%xmm0
mov    %ebx,%edi
call   1030 <ldexp@plt>
movsd  0x8(%rsp),%xmm1
mulsd  0xe66(%rip),%xmm1
movapd 0x10(%rsp),%xmm2
mulsd  0xe60(%rip),%xmm2
addsd  %xmm1,%xmm2
mulsd  %xmm0,%xmm2
movapd %xmm2,%xmm0
test   %bpl,%bpl
jns    11c9 <ieee_80_to_double+0xa9>
xorpd  0xe57(%rip),%xmm0
add    $0x20,%rsp
pop    %rbx
pop    %r14
pop    %rbp
ret

LLVM IR (-O0):
define double @ieee_80_to_double(i8* %0) {
%2 = alloca double
%3 = alloca i8*
%4 = alloca i8
%5 = alloca i16
%6 = alloca i64
%7 = alloca i64
%8 = alloca double
store i8* %0, i8** %3
store i16 0, i16* %5
store i64 0, i64* %6
store i64 0, i64* %7
%9 = load i8*, i8** %3
%10 = getelementptr inbounds i8, i8* %9, i32 1
store i8* %10, i8** %3
%11 = load i8, i8* %9
%12 = zext i8 %11 to i16
store i16 %12, i16* %5
%13 = load i16, i16* %5
%14 = sext i16 %13 to i32
%15 = shl i32 %14, 8
%16 = trunc i32 %15 to i16
store i16 %16, i16* %5
%17 = load i8*, i8** %3
%18 = getelementptr inbounds i8, i8* %17, i32 1
store i8* %18, i8** %3
%19 = load i8, i8* %17
%20 = zext i8 %19 to i32
%21 = load i16, i16* %5
%22 = sext i16 %21 to i32
%23 = or i32 %22, %20
%24 = trunc i32 %23 to i16
store i16 %24, i16* %5
%25 = load i16, i16* %5
%26 = sext i16 %25 to i32
%27 = and i32 %26, 32768
%28 = icmp ne i32 %27, 0
%29 = zext i1 %28 to i64
%30 = select i1 %28, i32 1, i32 0
%31 = trunc i32 %30 to i8
store i8 %31, i8* %4
%32 = load i16, i16* %5
%33 = sext i16 %32 to i32
%34 = and i32 %33, 32767
%35 = trunc i32 %34 to i16
store i16 %35, i16* %5
%36 = load i8*, i8** %3
%37 = getelementptr inbounds i8, i8* %36, i32 1
store i8* %37, i8** %3
%38 = load i8, i8* %36
%39 = zext i8 %38 to i64
store i64 %39, i64* %6
%40 = load i64, i64* %6
%41 = shl i64 %40, 8
store i64 %41, i64* %6
%42 = load i8*, i8** %3
%43 = getelementptr inbounds i8, i8* %42, i32 1
store i8* %43, i8** %3
%44 = load i8, i8* %42
%45 = zext i8 %44 to i64
%46 = load i64, i64* %6
%47 = or i64 %46, %45
store i64 %47, i64* %6
%48 = load i64, i64* %6
%49 = shl i64 %48, 8
store i64 %49, i64* %6
%50 = load i8*, i8** %3
%51 = getelementptr inbounds i8, i8* %50, i32 1
store i8* %51, i8** %3
%52 = load i8, i8* %50
%53 = zext i8 %52 to i64
%54 = load i64, i64* %6
%55 = or i64 %54, %53
store i64 %55, i64* %6
%56 = load i64, i64* %6
%57 = shl i64 %56, 8
store i64 %57, i64* %6
%58 = load i8*, i8** %3
%59 = getelementptr inbounds i8, i8* %58, i32 1
store i8* %59, i8** %3
%60 = load i8, i8* %58
%61 = zext i8 %60 to i64
%62 = load i64, i64* %6
%63 = or i64 %62, %61
store i64 %63, i64* %6
%64 = load i8*, i8** %3
%65 = getelementptr inbounds i8, i8* %64, i32 1
store i8* %65, i8** %3
%66 = load i8, i8* %64
%67 = zext i8 %66 to i64
store i64 %67, i64* %7
%68 = load i64, i64* %7
%69 = shl i64 %68, 8
store i64 %69, i64* %7
%70 = load i8*, i8** %3
%71 = getelementptr inbounds i8, i8* %70, i32 1
store i8* %71, i8** %3
%72 = load i8, i8* %70
%73 = zext i8 %72 to i64
%74 = load i64, i64* %7
%75 = or i64 %74, %73
store i64 %75, i64* %7
%76 = load i64, i64* %7
%77 = shl i64 %76, 8
store i64 %77, i64* %7
%78 = load i8*, i8** %3
%79 = getelementptr inbounds i8, i8* %78, i32 1
store i8* %79, i8** %3
%80 = load i8, i8* %78
%81 = zext i8 %80 to i64
%82 = load i64, i64* %7
%83 = or i64 %82, %81
store i64 %83, i64* %7
%84 = load i64, i64* %7
%85 = shl i64 %84, 8
store i64 %85, i64* %7
%86 = load i8*, i8** %3
%87 = getelementptr inbounds i8, i8* %86, i32 1
store i8* %87, i8** %3
%88 = load i8, i8* %86
%89 = zext i8 %88 to i64
%90 = load i64, i64* %7
%91 = or i64 %90, %89
store i64 %91, i64* %7
%92 = load i64, i64* %6
%93 = icmp eq i64 %92, 0
br i1 %93, label %94, label %106
94: ; preds = %1
%95 = load i64, i64* %7
%96 = icmp eq i64 %95, 0
br i1 %96, label %97, label %106
97: ; preds = %94
%98 = load i16, i16* %5
%99 = sext i16 %98 to i32
%100 = icmp eq i32 %99, 0
br i1 %100, label %101, label %106
101: ; preds = %97
%102 = load i8, i8* %4
%103 = sext i8 %102 to i32
%104 = icmp eq i32 %103, 0
br i1 %104, label %105, label %106
105: ; preds = %101
store double 0.000000e+00, double* %2
br label %132
106: ; preds = %101, %97, %94, %1
%107 = load i64, i64* %7
%108 = call double @myUlongToDouble(i64 %107)
%109 = call double @pow(double 2.000000e+00, double -6.300000e+01)
%110 = fmul double %108, %109
store double %110, double* %8
%111 = load i64, i64* %6
%112 = call double @myUlongToDouble(i64 %111)
%113 = call double @pow(double 2.000000e+00, double -3.100000e+01)
%114 = load double, double* %8
%115 = call double @llvm.fmuladd.f64(double %112, double %113, double %114)
store double %115, double* %8
%116 = load i16, i16* %5
%117 = sitofp i16 %116 to double
%118 = fsub double %117, 1.638300e+04
%119 = call double @pow(double 2.000000e+00, double %118)
%120 = load double, double* %8
%121 = fmul double %120, %119
store double %121, double* %8
%122 = load i8, i8* %4
%123 = sext i8 %122 to i32
%124 = icmp ne i32 %123, 0
br i1 %124, label %125, label %128
125: ; preds = %106
%126 = load double, double* %8
%127 = fneg double %126
br label %130
128: ; preds = %106
%129 = load double, double* %8
br label %130
130: ; preds = %128, %125
%131 = phi double [ %127, %125 ], [ %129, %128 ]
store double %131, double* %2
br label %132
132: ; preds = %130, %105
%133 = load double, double* %2
ret double %133
}

LLVM IR (-O2):
define double @ieee_80_to_double(i8* nocapture %0) {
%2 = getelementptr inbounds i8, i8* %0, i64 1
%3 = load i8, i8* %0
%4 = zext i8 %3 to i16
%5 = shl nuw i16 %4, 8
%6 = getelementptr inbounds i8, i8* %0, i64 2
%7 = load i8, i8* %2
%8 = zext i8 %7 to i16
%9 = and i16 %5, 32512
%10 = or i16 %9, %8
%11 = getelementptr inbounds i8, i8* %0, i64 3
%12 = load i8, i8* %6
%13 = zext i8 %12 to i64
%14 = getelementptr inbounds i8, i8* %0, i64 4
%15 = load i8, i8* %11
%16 = zext i8 %15 to i64
%17 = shl nuw nsw i64 %13, 16
%18 = shl nuw nsw i64 %16, 8
%19 = or i64 %18, %17
%20 = getelementptr inbounds i8, i8* %0, i64 5
%21 = load i8, i8* %14
%22 = zext i8 %21 to i64
%23 = or i64 %19, %22
%24 = shl nuw nsw i64 %23, 8
%25 = getelementptr inbounds i8, i8* %0, i64 6
%26 = load i8, i8* %20
%27 = zext i8 %26 to i64
%28 = or i64 %24, %27
%29 = getelementptr inbounds i8, i8* %0, i64 7
%30 = load i8, i8* %25
%31 = zext i8 %30 to i64
%32 = getelementptr inbounds i8, i8* %0, i64 8
%33 = load i8, i8* %29
%34 = zext i8 %33 to i64
%35 = shl nuw nsw i64 %31, 16
%36 = shl nuw nsw i64 %34, 8
%37 = or i64 %36, %35
%38 = getelementptr inbounds i8, i8* %0, i64 9
%39 = load i8, i8* %32
%40 = zext i8 %39 to i64
%41 = or i64 %37, %40
%42 = shl nuw nsw i64 %41, 8
%43 = load i8, i8* %38
%44 = zext i8 %43 to i64
%45 = or i64 %42, %44
%46 = icmp eq i64 %28, 0
%47 = icmp eq i64 %45, 0
%48 = select i1 %46, i1 %47, i1 false
%49 = icmp eq i16 %10, 0
%50 = select i1 %48, i1 %49, i1 false
%51 = icmp sgt i8 %3, -1
%52 = select i1 %50, i1 %51, i1 false
br i1 %52, label %64, label %53
53: ; preds = %1
%54 = tail call double @myUlongToDouble(i64 %45)
%55 = fmul double %54, 0x3C00000000000000
%56 = tail call double @myUlongToDouble(i64 %28)
%57 = tail call double @llvm.fmuladd.f64(double %56, double 0x3E00000000000000, double %55)
%58 = add nsw i16 %10, -16383
%59 = sext i16 %58 to i32
%60 = tail call double @ldexp(double 1.000000e+00, i32 %59)
%61 = fmul double %57, %60
%62 = fneg double %61
%63 = select i1 %51, double %61, double %62
br label %64
64: ; preds = %1, %53
%65 = phi double [ %63, %53 ], [ 0.000000e+00, %1 ]
ret double %65
}