int flt_dtoi(n, a)
int *n;
double *a;
{
  unsigned int ah, al;
  int sign, ax;
  ah = ((unsigned int *)a)[0];
  al = ((unsigned int *)a)[1];
  if (ah & 0x80000000) {
    ah &= ~0x80000000;
    sign = 1;
  } else
    sign = 0;
  ax = ah >> 20;
  ah = (ah & 0x000fffff) | 0x00100000;
  if (ax < 0x3fe) {
    *n = 0;
    return 1;
  } else if (ax > 0x400 + 51)
    return 0;
  while (ax != 0x400 + 51) {
    al = (al >> 1) | (ah << 31);
    ah = ah >> 1;
    ax += 1;
  }
  if (sign) {
    if (al > 0x80000000)
      return 0;
    al = -al;
  } else if (al >= 0x80000000)
    return 0;
  *n = al;
  return 1;
}


x86 assembly (clang, -O0):
<flt_dtoi>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    -0x18(%rbp),%rax
mov    (%rax),%eax
mov    %eax,-0x1c(%rbp)
mov    -0x18(%rbp),%rax
mov    0x4(%rax),%eax
mov    %eax,-0x20(%rbp)
mov    -0x1c(%rbp),%eax
and    $0x80000000,%eax
cmp    $0x0,%eax
je     1147 <flt_dtoi+0x47>
mov    -0x1c(%rbp),%eax
and    $0x7fffffff,%eax
mov    %eax,-0x1c(%rbp)
movl   $0x1,-0x24(%rbp)
jmp    114e <flt_dtoi+0x4e>
movl   $0x0,-0x24(%rbp)
mov    -0x1c(%rbp),%eax
shr    $0x14,%eax
mov    %eax,-0x28(%rbp)
mov    -0x1c(%rbp),%eax
and    $0xfffff,%eax
or     $0x100000,%eax
mov    %eax,-0x1c(%rbp)
cmpl   $0x3fe,-0x28(%rbp)
jge    118a <flt_dtoi+0x8a>
mov    -0x10(%rbp),%rax
movl   $0x0,(%rax)
movl   $0x1,-0x4(%rbp)
jmp    1240 <flt_dtoi+0x140>
cmpl   $0x433,-0x28(%rbp)
jle    11a3 <flt_dtoi+0xa3>
movl   $0x0,-0x4(%rbp)
jmp    1240 <flt_dtoi+0x140>
jmp    11a8 <flt_dtoi+0xa8>
jmp    11ad <flt_dtoi+0xad>
cmpl   $0x433,-0x28(%rbp)
je     11e2 <flt_dtoi+0xe2>
mov    -0x20(%rbp),%eax
shr    $0x1,%eax
mov    -0x1c(%rbp),%ecx
shl    $0x1f,%ecx
or     %ecx,%eax
mov    %eax,-0x20(%rbp)
mov    -0x1c(%rbp),%eax
shr    $0x1,%eax
mov    %eax,-0x1c(%rbp)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    11ad <flt_dtoi+0xad>
cmpl   $0x0,-0x24(%rbp)
je     1212 <flt_dtoi+0x112>
cmpl   $0x80000000,-0x20(%rbp)
jbe    1205 <flt_dtoi+0x105>
movl   $0x0,-0x4(%rbp)
jmp    1240 <flt_dtoi+0x140>
xor    %eax,%eax
sub    -0x20(%rbp),%eax
mov    %eax,-0x20(%rbp)
jmp    1230 <flt_dtoi+0x130>
cmpl   $0x80000000,-0x20(%rbp)
jb     122b <flt_dtoi+0x12b>
movl   $0x0,-0x4(%rbp)
jmp    1240 <flt_dtoi+0x140>
jmp    1230 <flt_dtoi+0x130>
mov    -0x20(%rbp),%ecx
mov    -0x10(%rbp),%rax
mov    %ecx,(%rax)
movl   $0x1,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<flt_dtoi>:
mov    (%rsi),%r8d
mov    %r8d,%r9d
and    $0x7fffffff,%r9d
xor    %ecx,%ecx
cmp    $0x3fe00000,%r9d
jae    1121 <flt_dtoi+0x21>
mov    %ecx,(%rdi)
mov    $0x1,%eax
jmp    112c <flt_dtoi+0x2c>
xor    %eax,%eax
cmp    $0x433fffff,%r9d
jbe    112d <flt_dtoi+0x2d>
ret
mov    0x4(%rsi),%ecx
shr    $0x14,%r9d
cmp    $0x433,%r9d
je     11cc <flt_dtoi+0xcc>
mov    %r8d,%r11d
and    $0xfffff,%r11d
or     $0x100000,%r11d
mov    $0x3,%r10d
sub    %r9d,%r10d
and    $0x3,%r10d
je     1188 <flt_dtoi+0x88>
neg    %r10d
xor    %edx,%edx
cs nopw 0x0(%rax,%rax,1)
shrd   $0x1,%r11d,%ecx
shr    %r11d
add    $0xffffffff,%edx
cmp    %edx,%r10d
jne    1170 <flt_dtoi+0x70>
mov    %r9d,%r10d
sub    %edx,%r10d
jmp    118b <flt_dtoi+0x8b>
mov    %r9d,%r10d
add    $0xfffffbd0,%r9d
cmp    $0x3,%r9d
jb     11cc <flt_dtoi+0xcc>
add    $0xfffffbcd,%r10d
nop
shrd   $0x1,%r11d,%ecx
mov    %r11d,%edx
shr    %edx
shld   $0x1f,%ecx,%edx
mov    %r11d,%esi
shr    $0x2,%esi
shld   $0x1f,%edx,%esi
mov    %r11d,%ecx
shr    $0x3,%ecx
shld   $0x1f,%esi,%ecx
shr    $0x4,%r11d
add    $0x4,%r10d
jne    11a0 <flt_dtoi+0xa0>
test   %r8d,%r8d
js     11de <flt_dtoi+0xde>
test   %ecx,%ecx
jns    1118 <flt_dtoi+0x18>
jmp    112c <flt_dtoi+0x2c>
cmp    $0x80000000,%ecx
ja     112c <flt_dtoi+0x2c>
neg    %ecx
jmp    1118 <flt_dtoi+0x18>

LLVM IR (-O0):
define i32 @flt_dtoi(i32* %0, double* %1) {
%3 = alloca i32
%4 = alloca i32*
%5 = alloca double*
%6 = alloca i32
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
store i32* %0, i32** %4
store double* %1, double** %5
%10 = load double*, double** %5
%11 = bitcast double* %10 to i32*
%12 = getelementptr inbounds i32, i32* %11, i64 0
%13 = load i32, i32* %12
store i32 %13, i32* %6
%14 = load double*, double** %5
%15 = bitcast double* %14 to i32*
%16 = getelementptr inbounds i32, i32* %15, i64 1
%17 = load i32, i32* %16
store i32 %17, i32* %7
%18 = load i32, i32* %6
%19 = and i32 %18, -2147483648
%20 = icmp ne i32 %19, 0
br i1 %20, label %21, label %24
21: ; preds = %2
%22 = load i32, i32* %6
%23 = and i32 %22, 2147483647
store i32 %23, i32* %6
store i32 1, i32* %8
br label %25
24: ; preds = %2
store i32 0, i32* %8
br label %25
25: ; preds = %24, %21
%26 = load i32, i32* %6
%27 = lshr i32 %26, 20
store i32 %27, i32* %9
%28 = load i32, i32* %6
%29 = and i32 %28, 1048575
%30 = or i32 %29, 1048576
store i32 %30, i32* %6
%31 = load i32, i32* %9
%32 = icmp slt i32 %31, 1022
br i1 %32, label %33, label %35
33: ; preds = %25
%34 = load i32*, i32** %4
store i32 0, i32* %34
store i32 1, i32* %3
br label %72
35: ; preds = %25
%36 = load i32, i32* %9
%37 = icmp sgt i32 %36, 1075
br i1 %37, label %38, label %39
38: ; preds = %35
store i32 0, i32* %3
br label %72
39: ; preds = %35
br label %40
40: ; preds = %39
br label %41
41: ; preds = %44, %40
%42 = load i32, i32* %9
%43 = icmp ne i32 %42, 1075
br i1 %43, label %44, label %54
44: ; preds = %41
%45 = load i32, i32* %7
%46 = lshr i32 %45, 1
%47 = load i32, i32* %6
%48 = shl i32 %47, 31
%49 = or i32 %46, %48
store i32 %49, i32* %7
%50 = load i32, i32* %6
%51 = lshr i32 %50, 1
store i32 %51, i32* %6
%52 = load i32, i32* %9
%53 = add nsw i32 %52, 1
store i32 %53, i32* %9
br label %41
54: ; preds = %41
%55 = load i32, i32* %8
%56 = icmp ne i32 %55, 0
br i1 %56, label %57, label %64
57: ; preds = %54
%58 = load i32, i32* %7
%59 = icmp ugt i32 %58, -2147483648
br i1 %59, label %60, label %61
60: ; preds = %57
store i32 0, i32* %3
br label %72
61: ; preds = %57
%62 = load i32, i32* %7
%63 = sub i32 0, %62
store i32 %63, i32* %7
br label %69
64: ; preds = %54
%65 = load i32, i32* %7
%66 = icmp uge i32 %65, -2147483648
br i1 %66, label %67, label %68
67: ; preds = %64
store i32 0, i32* %3
br label %72
68: ; preds = %64
br label %69
69: ; preds = %68, %61
%70 = load i32, i32* %7
%71 = load i32*, i32** %4
store i32 %70, i32* %71
store i32 1, i32* %3
br label %72
72: ; preds = %69, %67, %60, %38, %33
%73 = load i32, i32* %3
ret i32 %73
}

LLVM IR (-O2):
define i32 @flt_dtoi(i32* nocapture writeonly %0, double* nocapture %1) {
%3 = bitcast double* %1 to i32*
%4 = load i32, i32* %3
%5 = icmp sgt i32 %4, -1
%6 = and i32 %4, 2147483647
%7 = icmp ult i32 %6, 1071644672
br i1 %7, label %60, label %8
8: ; preds = %2
%9 = getelementptr inbounds i32, i32* %3, i64 1
%10 = load i32, i32* %9
%11 = lshr i32 %6, 20
%12 = icmp ugt i32 %6, 1128267775
br i1 %12, label %62, label %13
13: ; preds = %8
%14 = icmp eq i32 %11, 1075
br i1 %14, label %52, label %15
15: ; preds = %13
%16 = and i32 %4, 1048575
%17 = or i32 %16, 1048576
%18 = sub nsw i32 3, %11
%19 = and i32 %18, 3
%20 = icmp eq i32 %19, 0
br i1 %20, label %31, label %21
21: ; preds = %15, %21
%22 = phi i32 [ %28, %21 ], [ %11, %15 ]
%23 = phi i32 [ %26, %21 ], [ %10, %15 ]
%24 = phi i32 [ %27, %21 ], [ %17, %15 ]
%25 = phi i32 [ %29, %21 ], [ 0, %15 ]
%26 = tail call i32 @llvm.fshl.i32(i32 %24, i32 %23, i32 31)
%27 = lshr i32 %24, 1
%28 = add nuw nsw i32 %22, 1
%29 = add i32 %25, 1
%30 = icmp eq i32 %29, %19
br i1 %30, label %31, label %21
31: ; preds = %21, %15
%32 = phi i32 [ undef, %15 ], [ %26, %21 ]
%33 = phi i32 [ %11, %15 ], [ %28, %21 ]
%34 = phi i32 [ %10, %15 ], [ %26, %21 ]
%35 = phi i32 [ %17, %15 ], [ %27, %21 ]
%36 = add nsw i32 %11, -1072
%37 = icmp ult i32 %36, 3
br i1 %37, label %52, label %38
38: ; preds = %31, %38
%39 = phi i32 [ %50, %38 ], [ %33, %31 ]
%40 = phi i32 [ %48, %38 ], [ %34, %31 ]
%41 = phi i32 [ %49, %38 ], [ %35, %31 ]
%42 = tail call i32 @llvm.fshl.i32(i32 %41, i32 %40, i32 31)
%43 = lshr i32 %41, 1
%44 = tail call i32 @llvm.fshl.i32(i32 %43, i32 %42, i32 31)
%45 = lshr i32 %41, 2
%46 = tail call i32 @llvm.fshl.i32(i32 %45, i32 %44, i32 31)
%47 = lshr i32 %41, 3
%48 = tail call i32 @llvm.fshl.i32(i32 %47, i32 %46, i32 31)
%49 = lshr i32 %41, 4
%50 = add nuw nsw i32 %39, 4
%51 = icmp eq i32 %50, 1075
br i1 %51, label %52, label %38
52: ; preds = %31, %38, %13
%53 = phi i32 [ %10, %13 ], [ %32, %31 ], [ %48, %38 ]
br i1 %5, label %58, label %54
54: ; preds = %52
%55 = icmp ugt i32 %53, -2147483648
br i1 %55, label %62, label %56
56: ; preds = %54
%57 = sub i32 0, %53
br label %60
58: ; preds = %52
%59 = icmp slt i32 %53, 0
br i1 %59, label %62, label %60
60: ; preds = %56, %58, %2
%61 = phi i32 [ 0, %2 ], [ %57, %56 ], [ %53, %58 ]
store i32 %61, i32* %0
br label %62
62: ; preds = %60, %58, %54, %8
%63 = phi i32 [ 0, %8 ], [ 0, %54 ], [ 0, %58 ], [ 1, %60 ]
ret i32 %63
}