cmp_double_double(a1, a2) long a1, a2;
{
  double d1, d2;
  a1 -= 1;
  a2 -= 1;
  ((short *)&(d1))[(1) - 1] = (short)((*(((long *)(a1)) + 1)) >> 4);
  ((short *)&(d1))[(2) - 1] = (short)((*(((long *)(a1)) + 2)) >> 4);
  ((short *)&(d1))[(3) - 1] = (short)((*(((long *)(a1)) + 3)) >> 4);
  ((short *)&(d1))[(4) - 1] = (short)((*(((long *)(a1)) + 4)) >> 4);
  ((short *)&(d2))[(1) - 1] = (short)((*(((long *)(a2)) + 1)) >> 4);
  ((short *)&(d2))[(2) - 1] = (short)((*(((long *)(a2)) + 2)) >> 4);
  ((short *)&(d2))[(3) - 1] = (short)((*(((long *)(a2)) + 3)) >> 4);
  ((short *)&(d2))[(4) - 1] = (short)((*(((long *)(a2)) + 4)) >> 4);
  if (d1 < d2)
    return -1;
  else if (d1 == d2)
    return 0;
  else
    return 1;
}


x86 assembly (clang, -O0):
<cmp_double_double>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    -0x10(%rbp),%rax
sub    $0x1,%rax
mov    %rax,-0x10(%rbp)
mov    -0x18(%rbp),%rax
sub    $0x1,%rax
mov    %rax,-0x18(%rbp)
mov    -0x10(%rbp),%rax
mov    0x8(%rax),%rax
sar    $0x4,%rax
mov    %ax,-0x20(%rbp)
mov    -0x10(%rbp),%rax
mov    0x10(%rax),%rax
sar    $0x4,%rax
mov    %ax,-0x1e(%rbp)
mov    -0x10(%rbp),%rax
mov    0x18(%rax),%rax
sar    $0x4,%rax
mov    %ax,-0x1c(%rbp)
mov    -0x10(%rbp),%rax
mov    0x20(%rax),%rax
sar    $0x4,%rax
mov    %ax,-0x1a(%rbp)
mov    -0x18(%rbp),%rax
mov    0x8(%rax),%rax
sar    $0x4,%rax
mov    %ax,-0x28(%rbp)
mov    -0x18(%rbp),%rax
mov    0x10(%rax),%rax
sar    $0x4,%rax
mov    %ax,-0x26(%rbp)
mov    -0x18(%rbp),%rax
mov    0x18(%rax),%rax
sar    $0x4,%rax
mov    %ax,-0x24(%rbp)
mov    -0x18(%rbp),%rax
mov    0x20(%rax),%rax
sar    $0x4,%rax
mov    %ax,-0x22(%rbp)
movsd  -0x20(%rbp),%xmm1
movsd  -0x28(%rbp),%xmm0
ucomisd %xmm1,%xmm0
jbe    11c4 <cmp_double_double+0xc4>
movl   $0xffffffff,-0x4(%rbp)
jmp    11ed <cmp_double_double+0xed>
movsd  -0x20(%rbp),%xmm0
ucomisd -0x28(%rbp),%xmm0
jne    11e6 <cmp_double_double+0xe6>
jp     11e6 <cmp_double_double+0xe6>
movl   $0x0,-0x4(%rbp)
jmp    11ed <cmp_double_double+0xed>
movl   $0x1,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<cmp_double_double>:
mov    0x7(%rdi),%eax
mov    0xf(%rdi),%ecx
shr    $0x4,%eax
movzwl %ax,%eax
and    $0xffff0,%ecx
shl    $0xc,%rcx
or     %rax,%rcx
mov    0x17(%rdi),%rax
and    $0xffff0,%eax
shl    $0x1c,%rax
or     %rcx,%rax
mov    0x1f(%rdi),%rcx
and    $0xffff0,%ecx
shl    $0x2c,%rcx
or     %rax,%rcx
movq   %rcx,%xmm0
mov    0x7(%rsi),%eax
mov    0xf(%rsi),%ecx
shr    $0x4,%eax
movzwl %ax,%eax
and    $0xffff0,%ecx
shl    $0xc,%rcx
or     %rax,%rcx
mov    0x17(%rsi),%rax
and    $0xffff0,%eax
shl    $0x1c,%rax
or     %rcx,%rax
mov    0x1f(%rsi),%rcx
and    $0xffff0,%ecx
shl    $0x2c,%rcx
or     %rax,%rcx
movq   %rcx,%xmm1
movdqa %xmm0,%xmm2
cmpneqsd %xmm1,%xmm2
movq   %xmm2,%rcx
and    $0x1,%ecx
ucomisd %xmm0,%xmm1
mov    $0xffffffff,%eax
cmovbe %ecx,%eax
ret

LLVM IR (-O0):
define i32 @cmp_double_double(i64 %0, i64 %1) {
%3 = alloca i32
%4 = alloca i64
%5 = alloca i64
%6 = alloca double
%7 = alloca double
store i64 %0, i64* %4
store i64 %1, i64* %5
%8 = load i64, i64* %4
%9 = sub nsw i64 %8, 1
store i64 %9, i64* %4
%10 = load i64, i64* %5
%11 = sub nsw i64 %10, 1
store i64 %11, i64* %5
%12 = load i64, i64* %4
%13 = inttoptr i64 %12 to i64*
%14 = getelementptr inbounds i64, i64* %13, i64 1
%15 = load i64, i64* %14
%16 = ashr i64 %15, 4
%17 = trunc i64 %16 to i16
%18 = bitcast double* %6 to i16*
%19 = getelementptr inbounds i16, i16* %18, i64 0
store i16 %17, i16* %19
%20 = load i64, i64* %4
%21 = inttoptr i64 %20 to i64*
%22 = getelementptr inbounds i64, i64* %21, i64 2
%23 = load i64, i64* %22
%24 = ashr i64 %23, 4
%25 = trunc i64 %24 to i16
%26 = bitcast double* %6 to i16*
%27 = getelementptr inbounds i16, i16* %26, i64 1
store i16 %25, i16* %27
%28 = load i64, i64* %4
%29 = inttoptr i64 %28 to i64*
%30 = getelementptr inbounds i64, i64* %29, i64 3
%31 = load i64, i64* %30
%32 = ashr i64 %31, 4
%33 = trunc i64 %32 to i16
%34 = bitcast double* %6 to i16*
%35 = getelementptr inbounds i16, i16* %34, i64 2
store i16 %33, i16* %35
%36 = load i64, i64* %4
%37 = inttoptr i64 %36 to i64*
%38 = getelementptr inbounds i64, i64* %37, i64 4
%39 = load i64, i64* %38
%40 = ashr i64 %39, 4
%41 = trunc i64 %40 to i16
%42 = bitcast double* %6 to i16*
%43 = getelementptr inbounds i16, i16* %42, i64 3
store i16 %41, i16* %43
%44 = load i64, i64* %5
%45 = inttoptr i64 %44 to i64*
%46 = getelementptr inbounds i64, i64* %45, i64 1
%47 = load i64, i64* %46
%48 = ashr i64 %47, 4
%49 = trunc i64 %48 to i16
%50 = bitcast double* %7 to i16*
%51 = getelementptr inbounds i16, i16* %50, i64 0
store i16 %49, i16* %51
%52 = load i64, i64* %5
%53 = inttoptr i64 %52 to i64*
%54 = getelementptr inbounds i64, i64* %53, i64 2
%55 = load i64, i64* %54
%56 = ashr i64 %55, 4
%57 = trunc i64 %56 to i16
%58 = bitcast double* %7 to i16*
%59 = getelementptr inbounds i16, i16* %58, i64 1
store i16 %57, i16* %59
%60 = load i64, i64* %5
%61 = inttoptr i64 %60 to i64*
%62 = getelementptr inbounds i64, i64* %61, i64 3
%63 = load i64, i64* %62
%64 = ashr i64 %63, 4
%65 = trunc i64 %64 to i16
%66 = bitcast double* %7 to i16*
%67 = getelementptr inbounds i16, i16* %66, i64 2
store i16 %65, i16* %67
%68 = load i64, i64* %5
%69 = inttoptr i64 %68 to i64*
%70 = getelementptr inbounds i64, i64* %69, i64 4
%71 = load i64, i64* %70
%72 = ashr i64 %71, 4
%73 = trunc i64 %72 to i16
%74 = bitcast double* %7 to i16*
%75 = getelementptr inbounds i16, i16* %74, i64 3
store i16 %73, i16* %75
%76 = load double, double* %6
%77 = load double, double* %7
%78 = fcmp olt double %76, %77
br i1 %78, label %79, label %80
79: ; preds = %2
store i32 -1, i32* %3
br label %86
80: ; preds = %2
%81 = load double, double* %6
%82 = load double, double* %7
%83 = fcmp oeq double %81, %82
br i1 %83, label %84, label %85
84: ; preds = %80
store i32 0, i32* %3
br label %86
85: ; preds = %80
store i32 1, i32* %3
br label %86
86: ; preds = %85, %84, %79
%87 = load i32, i32* %3
ret i32 %87
}

LLVM IR (-O2):
define i32 @cmp_double_double(i64 %0, i64 %1) {
%3 = add nsw i64 %0, -1
%4 = add nsw i64 %1, -1
%5 = inttoptr i64 %3 to i64*
%6 = getelementptr inbounds i64, i64* %5, i64 1
%7 = load i64, i64* %6
%8 = lshr i64 %7, 4
%9 = and i64 %8, 65535
%10 = getelementptr inbounds i64, i64* %5, i64 2
%11 = load i64, i64* %10
%12 = shl i64 %11, 12
%13 = and i64 %12, 4294901760
%14 = or i64 %13, %9
%15 = getelementptr inbounds i64, i64* %5, i64 3
%16 = load i64, i64* %15
%17 = shl i64 %16, 28
%18 = and i64 %17, 281470681743360
%19 = or i64 %14, %18
%20 = getelementptr inbounds i64, i64* %5, i64 4
%21 = load i64, i64* %20
%22 = shl i64 %21, 44
%23 = and i64 %22, -281474976710656
%24 = or i64 %19, %23
%25 = bitcast i64 %24 to double
%26 = inttoptr i64 %4 to i64*
%27 = getelementptr inbounds i64, i64* %26, i64 1
%28 = load i64, i64* %27
%29 = lshr i64 %28, 4
%30 = and i64 %29, 65535
%31 = getelementptr inbounds i64, i64* %26, i64 2
%32 = load i64, i64* %31
%33 = shl i64 %32, 12
%34 = and i64 %33, 4294901760
%35 = or i64 %34, %30
%36 = getelementptr inbounds i64, i64* %26, i64 3
%37 = load i64, i64* %36
%38 = shl i64 %37, 28
%39 = and i64 %38, 281470681743360
%40 = or i64 %35, %39
%41 = getelementptr inbounds i64, i64* %26, i64 4
%42 = load i64, i64* %41
%43 = shl i64 %42, 44
%44 = and i64 %43, -281474976710656
%45 = or i64 %40, %44
%46 = bitcast i64 %45 to double
%47 = fcmp olt double %25, %46
%48 = fcmp une double %25, %46
%49 = zext i1 %48 to i32
%50 = select i1 %47, i32 -1, i32 %49
ret i32 %50
}