unsigned int __gnu_f2h_internal(unsigned int a, int ieee) {
  unsigned int sign = (a >> 16) & 0x8000;
  int aexp = (a >> 23) & 0xff;
  unsigned int mantissa = a & 0x007fffff;
  unsigned int mask;
  unsigned int increment;
  if (aexp == 0xff) {
    if (!ieee)
      return sign;
    return sign | 0x7e00 | (mantissa >> 13);
  }
  if (aexp == 0 && mantissa == 0)
    return sign;
  aexp -= 127;
  mantissa |= 0x00800000;
  if (aexp < -14) {
    mask = 0x007fffff;
    if (aexp < -25)
      aexp = -26;
    else if (aexp != -25)
      mask >>= 24 + aexp;
  } else
    mask = 0x00001fff;
  if (mantissa & mask) {
    increment = (mask + 1) >> 1;
    if ((mantissa & mask) == increment)
      increment = mantissa & (increment << 1);
    mantissa += increment;
    if (mantissa >= 0x01000000) {
      mantissa >>= 1;
      aexp++;
    }
  }
  if (ieee) {
    if (aexp > 15)
      return sign | 0x7c00;
  } else {
    if (aexp > 16)
      return sign | 0x7fff;
  }
  if (aexp < -24)
    return sign;
  if (aexp < -14) {
    mantissa >>= -14 - aexp;
    aexp = -14;
  }
  return sign | (((aexp + 14) << 10) + (mantissa >> 13));
}


x86 assembly (clang, -O0):
<__gnu_f2h_internal>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    -0x8(%rbp),%eax
shr    $0x10,%eax
and    $0x8000,%eax
mov    %eax,-0x10(%rbp)
mov    -0x8(%rbp),%eax
shr    $0x17,%eax
and    $0xff,%eax
mov    %eax,-0x14(%rbp)
mov    -0x8(%rbp),%eax
and    $0x7fffff,%eax
mov    %eax,-0x18(%rbp)
cmpl   $0xff,-0x14(%rbp)
jne    116b <__gnu_f2h_internal+0x6b>
cmpl   $0x0,-0xc(%rbp)
jne    1153 <__gnu_f2h_internal+0x53>
mov    -0x10(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    12ea <__gnu_f2h_internal+0x1ea>
mov    -0x10(%rbp),%eax
or     $0x7e00,%eax
mov    -0x18(%rbp),%ecx
shr    $0xd,%ecx
or     %ecx,%eax
mov    %eax,-0x4(%rbp)
jmp    12ea <__gnu_f2h_internal+0x1ea>
cmpl   $0x0,-0x14(%rbp)
jne    118a <__gnu_f2h_internal+0x8a>
cmpl   $0x0,-0x18(%rbp)
jne    118a <__gnu_f2h_internal+0x8a>
mov    -0x10(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    12ea <__gnu_f2h_internal+0x1ea>
mov    -0x14(%rbp),%eax
sub    $0x7f,%eax
mov    %eax,-0x14(%rbp)
mov    -0x18(%rbp),%eax
or     $0x800000,%eax
mov    %eax,-0x18(%rbp)
cmpl   $0xfffffff2,-0x14(%rbp)
jge    11e7 <__gnu_f2h_internal+0xe7>
movl   $0x7fffff,-0x1c(%rbp)
cmpl   $0xffffffe7,-0x14(%rbp)
jge    11c5 <__gnu_f2h_internal+0xc5>
movl   $0xffffffe6,-0x14(%rbp)
jmp    11e2 <__gnu_f2h_internal+0xe2>
cmpl   $0xffffffe7,-0x14(%rbp)
je     11dd <__gnu_f2h_internal+0xdd>
mov    -0x14(%rbp),%ecx
add    $0x18,%ecx
mov    -0x1c(%rbp),%eax
shr    %cl,%eax
mov    %eax,-0x1c(%rbp)
jmp    11e2 <__gnu_f2h_internal+0xe2>
jmp    11ee <__gnu_f2h_internal+0xee>
movl   $0x1fff,-0x1c(%rbp)
mov    -0x18(%rbp),%eax
and    -0x1c(%rbp),%eax
cmp    $0x0,%eax
je     1253 <__gnu_f2h_internal+0x153>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
shr    $0x1,%eax
mov    %eax,-0x20(%rbp)
mov    -0x18(%rbp),%eax
and    -0x1c(%rbp),%eax
cmp    -0x20(%rbp),%eax
jne    1226 <__gnu_f2h_internal+0x126>
mov    -0x18(%rbp),%eax
mov    -0x20(%rbp),%ecx
shl    $0x1,%ecx
and    %ecx,%eax
mov    %eax,-0x20(%rbp)
mov    -0x20(%rbp),%eax
add    -0x18(%rbp),%eax
mov    %eax,-0x18(%rbp)
cmpl   $0x1000000,-0x18(%rbp)
jb     124e <__gnu_f2h_internal+0x14e>
mov    -0x18(%rbp),%eax
shr    $0x1,%eax
mov    %eax,-0x18(%rbp)
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    1253 <__gnu_f2h_internal+0x153>
cmpl   $0x0,-0xc(%rbp)
je     127c <__gnu_f2h_internal+0x17c>
cmpl   $0xf,-0x14(%rbp)
jle    1277 <__gnu_f2h_internal+0x177>
mov    -0x10(%rbp),%eax
or     $0x7c00,%eax
mov    %eax,-0x4(%rbp)
jmp    12ea <__gnu_f2h_internal+0x1ea>
jmp    129b <__gnu_f2h_internal+0x19b>
cmpl   $0x10,-0x14(%rbp)
jle    1296 <__gnu_f2h_internal+0x196>
mov    -0x10(%rbp),%eax
or     $0x7fff,%eax
mov    %eax,-0x4(%rbp)
jmp    12ea <__gnu_f2h_internal+0x1ea>
jmp    129b <__gnu_f2h_internal+0x19b>
cmpl   $0xffffffe8,-0x14(%rbp)
jge    12b0 <__gnu_f2h_internal+0x1b0>
mov    -0x10(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    12ea <__gnu_f2h_internal+0x1ea>
cmpl   $0xfffffff2,-0x14(%rbp)
jge    12d1 <__gnu_f2h_internal+0x1d1>
mov    $0xfffffff2,%ecx
sub    -0x14(%rbp),%ecx
mov    -0x18(%rbp),%eax
shr    %cl,%eax
mov    %eax,-0x18(%rbp)
movl   $0xfffffff2,-0x14(%rbp)
mov    -0x10(%rbp),%eax
mov    -0x14(%rbp),%ecx
add    $0xe,%ecx
shl    $0xa,%ecx
mov    -0x18(%rbp),%edx
shr    $0xd,%edx
add    %edx,%ecx
or     %ecx,%eax
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<__gnu_f2h_internal>:
push   %rbp
push   %rbx
mov    %edi,%r8d
shr    $0x10,%r8d
mov    %r8d,%eax
and    $0x8000,%eax
mov    %edi,%ecx
shr    $0x17,%ecx
movzbl %cl,%ebx
mov    %edi,%ebp
and    $0x7fffff,%ebp
cmp    $0xff,%ebx
jne    1143 <__gnu_f2h_internal+0x43>
test   %esi,%esi
je     120b <__gnu_f2h_internal+0x10b>
shr    $0xd,%ebp
or     %eax,%ebp
or     $0x7e00,%ebp
mov    %ebp,%eax
jmp    120b <__gnu_f2h_internal+0x10b>
mov    %ebx,%edx
or     %ebp,%edx
je     120b <__gnu_f2h_internal+0x10b>
lea    -0x7f(%rbx),%r11d
mov    $0x1fff,%r10d
cmp    $0x70,%ebx
ja     1185 <__gnu_f2h_internal+0x85>
mov    $0x7fffff,%r10d
mov    $0xffffffe6,%r9d
cmp    $0x66,%ebx
jb     1188 <__gnu_f2h_internal+0x88>
mov    $0xffffffe7,%r9d
cmp    $0xffffffe7,%r11d
je     1188 <__gnu_f2h_internal+0x88>
add    $0x99,%cl
mov    $0x7fffff,%r10d
shr    %cl,%r10d
mov    %r11d,%r9d
or     $0x800000,%ebp
and    %r10d,%edi
je     11b9 <__gnu_f2h_internal+0xb9>
add    $0x1,%r10d
mov    %ebp,%ecx
and    %r10d,%ecx
shr    %r10d
and    $0xfffffffe,%ecx
cmp    %r10d,%edi
cmovne %r10d,%ecx
add    %ecx,%ebp
cmp    $0x1000000,%ebp
jb     11b9 <__gnu_f2h_internal+0xb9>
shr    %ebp
add    $0x1,%r9d
test   %esi,%esi
je     11ca <__gnu_f2h_internal+0xca>
cmp    $0x10,%r9d
jl     11dc <__gnu_f2h_internal+0xdc>
or     $0x7c00,%eax
jmp    120b <__gnu_f2h_internal+0x10b>
cmp    $0x11,%r9d
jl     11dc <__gnu_f2h_internal+0xdc>
or     $0x7fff,%r8d
mov    %r8d,%eax
jmp    120b <__gnu_f2h_internal+0x10b>
cmp    $0xffffffe8,%r9d
jl     120b <__gnu_f2h_internal+0x10b>
mov    $0xf2,%cl
sub    %r9b,%cl
mov    %r9d,%edx
shl    $0xa,%edx
add    $0x3800,%edx
xor    %esi,%esi
cmp    $0xfffffff2,%r9d
movzbl %cl,%ecx
cmovge %esi,%ecx
cmovl  %esi,%edx
shr    %cl,%ebp
shr    $0xd,%ebp
add    %edx,%ebp
or     %ebp,%eax
pop    %rbx
pop    %rbp
ret

LLVM IR (-O0):
define i32 @__gnu_f2h_internal(i32 %0, i32 %1) {
%3 = alloca i32
%4 = alloca i32
%5 = alloca i32
%6 = alloca i32
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
store i32 %0, i32* %4
store i32 %1, i32* %5
%11 = load i32, i32* %4
%12 = lshr i32 %11, 16
%13 = and i32 %12, 32768
store i32 %13, i32* %6
%14 = load i32, i32* %4
%15 = lshr i32 %14, 23
%16 = and i32 %15, 255
store i32 %16, i32* %7
%17 = load i32, i32* %4
%18 = and i32 %17, 8388607
store i32 %18, i32* %8
%19 = load i32, i32* %7
%20 = icmp eq i32 %19, 255
br i1 %20, label %21, label %32
21: ; preds = %2
%22 = load i32, i32* %5
%23 = icmp ne i32 %22, 0
br i1 %23, label %26, label %24
24: ; preds = %21
%25 = load i32, i32* %6
store i32 %25, i32* %3
br label %132
26: ; preds = %21
%27 = load i32, i32* %6
%28 = or i32 %27, 32256
%29 = load i32, i32* %8
%30 = lshr i32 %29, 13
%31 = or i32 %28, %30
store i32 %31, i32* %3
br label %132
32: ; preds = %2
%33 = load i32, i32* %7
%34 = icmp eq i32 %33, 0
br i1 %34, label %35, label %40
35: ; preds = %32
%36 = load i32, i32* %8
%37 = icmp eq i32 %36, 0
br i1 %37, label %38, label %40
38: ; preds = %35
%39 = load i32, i32* %6
store i32 %39, i32* %3
br label %132
40: ; preds = %35, %32
%41 = load i32, i32* %7
%42 = sub nsw i32 %41, 127
store i32 %42, i32* %7
%43 = load i32, i32* %8
%44 = or i32 %43, 8388608
store i32 %44, i32* %8
%45 = load i32, i32* %7
%46 = icmp slt i32 %45, -14
br i1 %46, label %47, label %61
47: ; preds = %40
store i32 8388607, i32* %9
%48 = load i32, i32* %7
%49 = icmp slt i32 %48, -25
br i1 %49, label %50, label %51
50: ; preds = %47
store i32 -26, i32* %7
br label %60
51: ; preds = %47
%52 = load i32, i32* %7
%53 = icmp ne i32 %52, -25
br i1 %53, label %54, label %59
54: ; preds = %51
%55 = load i32, i32* %7
%56 = add nsw i32 24, %55
%57 = load i32, i32* %9
%58 = lshr i32 %57, %56
store i32 %58, i32* %9
br label %59
59: ; preds = %54, %51
br label %60
60: ; preds = %59, %50
br label %62
61: ; preds = %40
store i32 8191, i32* %9
br label %62
62: ; preds = %61, %60
%63 = load i32, i32* %8
%64 = load i32, i32* %9
%65 = and i32 %63, %64
%66 = icmp ne i32 %65, 0
br i1 %66, label %67, label %93
67: ; preds = %62
%68 = load i32, i32* %9
%69 = add i32 %68, 1
%70 = lshr i32 %69, 1
store i32 %70, i32* %10
%71 = load i32, i32* %8
%72 = load i32, i32* %9
%73 = and i32 %71, %72
%74 = load i32, i32* %10
%75 = icmp eq i32 %73, %74
br i1 %75, label %76, label %81
76: ; preds = %67
%77 = load i32, i32* %8
%78 = load i32, i32* %10
%79 = shl i32 %78, 1
%80 = and i32 %77, %79
store i32 %80, i32* %10
br label %81
81: ; preds = %76, %67
%82 = load i32, i32* %10
%83 = load i32, i32* %8
%84 = add i32 %83, %82
store i32 %84, i32* %8
%85 = load i32, i32* %8
%86 = icmp uge i32 %85, 16777216
br i1 %86, label %87, label %92
87: ; preds = %81
%88 = load i32, i32* %8
%89 = lshr i32 %88, 1
store i32 %89, i32* %8
%90 = load i32, i32* %7
%91 = add nsw i32 %90, 1
store i32 %91, i32* %7
br label %92
92: ; preds = %87, %81
br label %93
93: ; preds = %92, %62
%94 = load i32, i32* %5
%95 = icmp ne i32 %94, 0
br i1 %95, label %96, label %103
96: ; preds = %93
%97 = load i32, i32* %7
%98 = icmp sgt i32 %97, 15
br i1 %98, label %99, label %102
99: ; preds = %96
%100 = load i32, i32* %6
%101 = or i32 %100, 31744
store i32 %101, i32* %3
br label %132
102: ; preds = %96
br label %110
103: ; preds = %93
%104 = load i32, i32* %7
%105 = icmp sgt i32 %104, 16
br i1 %105, label %106, label %109
106: ; preds = %103
%107 = load i32, i32* %6
%108 = or i32 %107, 32767
store i32 %108, i32* %3
br label %132
109: ; preds = %103
br label %110
110: ; preds = %109, %102
%111 = load i32, i32* %7
%112 = icmp slt i32 %111, -24
br i1 %112, label %113, label %115
113: ; preds = %110
%114 = load i32, i32* %6
store i32 %114, i32* %3
br label %132
115: ; preds = %110
%116 = load i32, i32* %7
%117 = icmp slt i32 %116, -14
br i1 %117, label %118, label %123
118: ; preds = %115
%119 = load i32, i32* %7
%120 = sub nsw i32 -14, %119
%121 = load i32, i32* %8
%122 = lshr i32 %121, %120
store i32 %122, i32* %8
store i32 -14, i32* %7
br label %123
123: ; preds = %118, %115
%124 = load i32, i32* %6
%125 = load i32, i32* %7
%126 = add nsw i32 %125, 14
%127 = shl i32 %126, 10
%128 = load i32, i32* %8
%129 = lshr i32 %128, 13
%130 = add i32 %127, %129
%131 = or i32 %124, %130
store i32 %131, i32* %3
br label %132
132: ; preds = %123, %113, %106, %99, %38, %26, %24
%133 = load i32, i32* %3
ret i32 %133
}

LLVM IR (-O2):
define i32 @__gnu_f2h_internal(i32 %0, i32 %1) {
%3 = lshr i32 %0, 16
%4 = and i32 %3, 32768
%5 = lshr i32 %0, 23
%6 = and i32 %5, 255
%7 = and i32 %0, 8388607
%8 = icmp eq i32 %6, 255
br i1 %8, label %9, label %15
9: ; preds = %2
%10 = icmp eq i32 %1, 0
br i1 %10, label %71, label %11
11: ; preds = %9
%12 = lshr i32 %7, 13
%13 = or i32 %12, %4
%14 = or i32 %13, 32256
br label %71
15: ; preds = %2
%16 = or i32 %6, %7
%17 = icmp eq i32 %16, 0
br i1 %17, label %71, label %18
18: ; preds = %15
%19 = add nsw i32 %6, -127
%20 = or i32 %7, 8388608
%21 = icmp ult i32 %6, 113
br i1 %21, label %22, label %29
22: ; preds = %18
%23 = icmp ult i32 %6, 102
br i1 %23, label %29, label %24
24: ; preds = %22
%25 = icmp eq i32 %19, -25
br i1 %25, label %29, label %26
26: ; preds = %24
%27 = add nsw i32 %6, -103
%28 = lshr i32 8388607, %27
br label %29
29: ; preds = %18, %22, %26, %24
%30 = phi i32 [ %19, %26 ], [ -25, %24 ], [ -26, %22 ], [ %19, %18 ]
%31 = phi i32 [ %28, %26 ], [ 8388607, %24 ], [ 8388607, %22 ], [ 8191, %18 ]
%32 = and i32 %31, %0
%33 = icmp eq i32 %32, 0
br i1 %33, label %46, label %34
34: ; preds = %29
%35 = add nuw nsw i32 %31, 1
%36 = lshr i32 %35, 1
%37 = icmp eq i32 %32, %36
%38 = and i32 %20, 16777214
%39 = and i32 %38, %35
%40 = select i1 %37, i32 %39, i32 %36
%41 = add nuw nsw i32 %40, %20
%42 = icmp ugt i32 %41, 16777215
br i1 %42, label %43, label %46
43: ; preds = %34
%44 = lshr i32 %41, 1
%45 = add nsw i32 %30, 1
br label %46
46: ; preds = %34, %43, %29
%47 = phi i32 [ %45, %43 ], [ %30, %34 ], [ %30, %29 ]
%48 = phi i32 [ %44, %43 ], [ %41, %34 ], [ %20, %29 ]
%49 = icmp eq i32 %1, 0
br i1 %49, label %54, label %50
50: ; preds = %46
%51 = icmp sgt i32 %47, 15
br i1 %51, label %52, label %58
52: ; preds = %50
%53 = or i32 %4, 31744
br label %71
54: ; preds = %46
%55 = icmp sgt i32 %47, 16
br i1 %55, label %56, label %58
56: ; preds = %54
%57 = or i32 %3, 32767
br label %71
58: ; preds = %54, %50
%59 = icmp slt i32 %47, -24
br i1 %59, label %71, label %60
60: ; preds = %58
%61 = icmp slt i32 %47, -14
%62 = sub nsw i32 -14, %47
%63 = select i1 %61, i32 %62, i32 0
%64 = lshr i32 %48, %63
%65 = shl nsw i32 %47, 10
%66 = add nsw i32 %65, 14336
%67 = select i1 %61, i32 0, i32 %66
%68 = lshr i32 %64, 13
%69 = add i32 %68, %67
%70 = or i32 %69, %4
br label %71
71: ; preds = %58, %15, %9, %60, %56, %52, %11
%72 = phi i32 [ %14, %11 ], [ %53, %52 ], [ %70, %60 ], [ %57, %56 ], [ %4, %9 ], [ %4, %15 ], [ %4, %58 ]
ret i32 %72
}