long double floord(long double x) {
  long double y;
  long int exp;
  long int bitsToClear;
  long int *yPtr = (long int *)&y;
  y = x;
  if (x < 0.0) {
    y = -y;
  }
  exp = (yPtr[1] & 0x7ff00000) >> 20;
  exp = exp - 1023;
  if (exp < 0) {
    y = (x < 0.0) ? -1.0 : 0.0;
    return y;
  }
  if (exp > 52) {
    return x;
  }
  bitsToClear = 52 - exp;
  if (bitsToClear > 31) {
    bitsToClear = bitsToClear - 32;
    yPtr[0] = 0;
    yPtr[1] = yPtr[1] & (0xffffffff << bitsToClear);
  } else {
    yPtr[0] = yPtr[0] & (0xffffffff << bitsToClear);
  }
  if (x < 0.0) {
    y = -y;
    if (y != x) {
      y = ((long double)(y) - (long double)(1.0));
    }
  }
  return y;
}


x86 assembly (clang, -O0):
<floord>:
push   %rbp
mov    %rsp,%rbp
fldt   0x10(%rbp)
fstpt  -0x20(%rbp)
lea    -0x30(%rbp),%rax
mov    %rax,-0x48(%rbp)
fldt   -0x20(%rbp)
fstpt  -0x30(%rbp)
fldt   -0x20(%rbp)
fldz
fucomip %st(1),%st
fstp   %st(0)
jbe    1134 <floord+0x34>
jmp    112c <floord+0x2c>
fldt   -0x30(%rbp)
fchs
fstpt  -0x30(%rbp)
mov    -0x48(%rbp),%rax
mov    0x8(%rax),%rax
and    $0x7ff00000,%rax
sar    $0x14,%rax
mov    %rax,-0x38(%rbp)
mov    -0x38(%rbp),%rax
sub    $0x3ff,%rax
mov    %rax,-0x38(%rbp)
cmpq   $0x0,-0x38(%rbp)
jge    11ac <floord+0xac>
fldt   -0x20(%rbp)
fldz
fucomip %st(1),%st
fstp   %st(0)
movsd  0xe8c(%rip),%xmm0
xorps  %xmm1,%xmm1
movsd  %xmm1,-0x60(%rbp)
movsd  %xmm0,-0x58(%rbp)
ja     1191 <floord+0x91>
movsd  -0x60(%rbp),%xmm0
movsd  %xmm0,-0x58(%rbp)
movsd  -0x58(%rbp),%xmm0
movsd  %xmm0,-0x50(%rbp)
fldl   -0x50(%rbp)
fstpt  -0x30(%rbp)
fldt   -0x30(%rbp)
fstpt  -0x10(%rbp)
jmp    1298 <floord+0x198>
cmpq   $0x34,-0x38(%rbp)
jle    11c2 <floord+0xc2>
fldt   -0x20(%rbp)
fstpt  -0x10(%rbp)
jmp    1298 <floord+0x198>
mov    $0x34,%eax
sub    -0x38(%rbp),%rax
mov    %rax,-0x40(%rbp)
cmpq   $0x1f,-0x40(%rbp)
jle    1220 <floord+0x120>
mov    -0x40(%rbp),%rax
sub    $0x20,%rax
mov    %rax,-0x40(%rbp)
mov    -0x48(%rbp),%rax
movq   $0x0,(%rax)
mov    -0x48(%rbp),%rax
mov    0x8(%rax),%rax
mov    %rax,-0x68(%rbp)
mov    -0x40(%rbp),%rax
mov    %eax,%ecx
mov    $0xffffffff,%eax
shl    %cl,%eax
mov    -0x68(%rbp),%rcx
mov    %eax,%eax
and    %rax,%rcx
mov    -0x48(%rbp),%rax
mov    %rcx,0x8(%rax)
jmp    1248 <floord+0x148>
mov    -0x48(%rbp),%rax
mov    (%rax),%rax
mov    %rax,-0x70(%rbp)
mov    -0x40(%rbp),%rax
mov    %eax,%ecx
mov    $0xffffffff,%eax
shl    %cl,%eax
mov    -0x70(%rbp),%rcx
mov    %eax,%eax
and    %rax,%rcx
mov    -0x48(%rbp),%rax
mov    %rcx,(%rax)
fldt   -0x20(%rbp)
fldz
fucomip %st(1),%st
fstp   %st(0)
jbe    1292 <floord+0x192>
jmp    125c <floord+0x15c>
fldt   -0x30(%rbp)
fchs
fstpt  -0x30(%rbp)
fldt   -0x30(%rbp)
fldt   -0x20(%rbp)
fxch   %st(1)
fucomip %st(1),%st
fstp   %st(0)
jne    1281 <floord+0x181>
jp     1281 <floord+0x181>
jmp    128d <floord+0x18d>
fldt   -0x30(%rbp)
fld1
fchs
faddp  %st,%st(1)
fstpt  -0x30(%rbp)
jmp    1292 <floord+0x192>
fldt   -0x30(%rbp)
fstpt  -0x10(%rbp)
fldt   -0x10(%rbp)
pop    %rbp
ret

x86 assembly (clang, -O2):
<floord>:
fldt   0x8(%rsp)
fldz
fucomi %st(1),%st
fld    %st(1)
fchs
fld    %st(2)
fcmovnbe %st(1),%st
fstp   %st(1)
fld    %st(0)
fstpt  -0x18(%rsp)
mov    -0x18(%rsp),%rax
fstpt  -0x28(%rsp)
mov    -0x20(%rsp),%rdx
mov    %edx,%esi
shr    $0x14,%esi
and    $0x7ff,%esi
cmp    $0x3fe,%esi
ja     1149 <floord+0x49>
fucomi %st(1),%st
fstp   %st(1)
fld1
fchs
fxch   %st(1)
fcmovnbe %st(1),%st
fstp   %st(1)
jmp    11a0 <floord+0xa0>
cmp    $0x433,%esi
jbe    1155 <floord+0x55>
fstp   %st(0)
jmp    11a0 <floord+0xa0>
cmp    $0x413,%esi
ja     1176 <floord+0x76>
movq   $0x0,-0x28(%rsp)
mov    $0x13,%cl
sub    %sil,%cl
shr    %cl,%edx
shl    %cl,%edx
mov    %rdx,-0x20(%rsp)
jmp    1184 <floord+0x84>
mov    $0x33,%cl
sub    %sil,%cl
shr    %cl,%eax
shl    %cl,%eax
mov    %rax,-0x28(%rsp)
fucomip %st(1),%st
fldt   -0x28(%rsp)
jbe    1145 <floord+0x45>
fld    %st(0)
fchs
fucomi %st(2),%st
fstp   %st(2)
jne    1198 <floord+0x98>
jnp    11a2 <floord+0xa2>
fstp   %st(1)
fld1
fchs
fsubp  %st,%st(1)
fldz
fstp   %st(0)
ret

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

LLVM IR (-O2):
define x86_fp80 @floord(x86_fp80 %0) {
%2 = alloca x86_fp80
%3 = bitcast x86_fp80* %2 to i8*
%4 = fcmp olt x86_fp80 %0, 0xK00000000000000000000
%5 = fneg x86_fp80 %0
%6 = select i1 %4, x86_fp80 %5, x86_fp80 %0
store x86_fp80 %6, x86_fp80* %2
%7 = getelementptr inbounds i8, i8* %3, i64 8
%8 = bitcast i8* %7 to i64*
%9 = load i64, i64* %8
%10 = lshr i64 %9, 20
%11 = and i64 %10, 2047
%12 = icmp ult i64 %11, 1023
%13 = bitcast x86_fp80 %6 to i80
%14 = trunc i80 %13 to i64
br i1 %12, label %15, label %17
15: ; preds = %1
%16 = select i1 %4, x86_fp80 0xKBFFF8000000000000000, x86_fp80 0xK00000000000000000000
br label %41
17: ; preds = %1
%18 = icmp ugt i64 %11, 1075
br i1 %18, label %41, label %19
19: ; preds = %17
%20 = icmp ult i64 %11, 1044
%21 = bitcast x86_fp80* %2 to i64*
br i1 %20, label %22, label %28
22: ; preds = %19
store i64 0, i64* %21
%23 = trunc i64 %11 to i32
%24 = sub nuw nsw i32 1043, %23
%25 = shl nsw i32 -1, %24
%26 = zext i32 %25 to i64
%27 = and i64 %9, %26
store i64 %27, i64* %8
br label %34
28: ; preds = %19
%29 = trunc i64 %11 to i32
%30 = sub nuw nsw i32 1075, %29
%31 = shl nsw i32 -1, %30
%32 = zext i32 %31 to i64
%33 = and i64 %14, %32
store i64 %33, i64* %21
br label %34
34: ; preds = %28, %22
%35 = load x86_fp80, x86_fp80* %2
br i1 %4, label %36, label %41
36: ; preds = %34
%37 = fneg x86_fp80 %35
%38 = fcmp une x86_fp80 %37, %0
br i1 %38, label %39, label %41
39: ; preds = %36
%40 = fsub x86_fp80 0xKBFFF8000000000000000, %35
br label %41
41: ; preds = %34, %39, %36, %17, %15
%42 = phi x86_fp80 [ %16, %15 ], [ %0, %17 ], [ %37, %36 ], [ %40, %39 ], [ %35, %34 ]
ret x86_fp80 %42
}