int fltrep_narrow(d, e)
int d[2];
int e[1];
{
  int hi = d[0], lo = d[1];
  int x = (hi >> 20) & 0x7ff;
  int m = hi & 0x000fffff;
  if (x == 0) {
    e[0] = 0;
    return 0;
  } else if (x == 0x7ff) {
    e[0] = (hi & 0x80000000) | 0x7f800000;
    return 0;
  }
  m = (m << 3) | ((lo >> 29) & 0x7);
  lo = lo << 3;
  if (lo < 0 && (lo != 0x80000000 || (m & 1) != 0))
    if ((m += 1) == 0x00800000) {
      m = 0;
      x += 1;
    }
  x = x - 0x3ff + 0x7f;
  if (x >= 0xff) {
    cc_err("Overlarge (single precision) floating point value found");
    e[0] = (hi & 0x80000000) | (0xff << 23);
    return 1;
  } else if (x <= 0) {
    cc_rerr("Small (single precision) floating value converted to 0.0");
    e[0] = (hi & 0x80000000) | (0 << 23);
    return -1;
  }
  e[0] = (hi & 0x80000000) | (x << 23) | m;
  return 0;
}


x86 assembly (clang, -O0):
<fltrep_narrow>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    -0x10(%rbp),%rax
mov    (%rax),%eax
mov    %eax,-0x1c(%rbp)
mov    -0x10(%rbp),%rax
mov    0x4(%rax),%eax
mov    %eax,-0x20(%rbp)
mov    -0x1c(%rbp),%eax
sar    $0x14,%eax
and    $0x7ff,%eax
mov    %eax,-0x24(%rbp)
mov    -0x1c(%rbp),%eax
and    $0xfffff,%eax
mov    %eax,-0x28(%rbp)
cmpl   $0x0,-0x24(%rbp)
jne    117c <fltrep_narrow+0x5c>
mov    -0x18(%rbp),%rax
movl   $0x0,(%rax)
movl   $0x0,-0x4(%rbp)
jmp    12c1 <fltrep_narrow+0x1a1>
cmpl   $0x7ff,-0x24(%rbp)
jne    11aa <fltrep_narrow+0x8a>
mov    -0x1c(%rbp),%ecx
and    $0x80000000,%ecx
or     $0x7f800000,%ecx
mov    -0x18(%rbp),%rax
mov    %ecx,(%rax)
movl   $0x0,-0x4(%rbp)
jmp    12c1 <fltrep_narrow+0x1a1>
jmp    11af <fltrep_narrow+0x8f>
mov    -0x28(%rbp),%eax
shl    $0x3,%eax
mov    -0x20(%rbp),%ecx
sar    $0x1d,%ecx
and    $0x7,%ecx
or     %ecx,%eax
mov    %eax,-0x28(%rbp)
mov    -0x20(%rbp),%eax
shl    $0x3,%eax
mov    %eax,-0x20(%rbp)
cmpl   $0x0,-0x20(%rbp)
jge    121b <fltrep_narrow+0xfb>
cmpl   $0x80000000,-0x20(%rbp)
jne    11f2 <fltrep_narrow+0xd2>
mov    -0x28(%rbp),%eax
and    $0x1,%eax
cmp    $0x0,%eax
je     121b <fltrep_narrow+0xfb>
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
cmp    $0x800000,%eax
jne    1216 <fltrep_narrow+0xf6>
movl   $0x0,-0x28(%rbp)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    121b <fltrep_narrow+0xfb>
mov    -0x24(%rbp),%eax
sub    $0x3ff,%eax
add    $0x7f,%eax
mov    %eax,-0x24(%rbp)
cmpl   $0xff,-0x24(%rbp)
jl     1265 <fltrep_narrow+0x145>
lea    0xdc3(%rip),%rdi
mov    $0x0,%al
call   1040 <cc_err@plt>
mov    -0x1c(%rbp),%ecx
and    $0x80000000,%ecx
or     $0x7f800000,%ecx
mov    -0x18(%rbp),%rax
mov    %ecx,(%rax)
movl   $0x1,-0x4(%rbp)
jmp    12c1 <fltrep_narrow+0x1a1>
cmpl   $0x0,-0x24(%rbp)
jg     129b <fltrep_narrow+0x17b>
lea    0xdc2(%rip),%rdi
mov    $0x0,%al
call   1030 <cc_rerr@plt>
mov    -0x1c(%rbp),%ecx
and    $0x80000000,%ecx
or     $0x0,%ecx
mov    -0x18(%rbp),%rax
mov    %ecx,(%rax)
movl   $0xffffffff,-0x4(%rbp)
jmp    12c1 <fltrep_narrow+0x1a1>
jmp    12a0 <fltrep_narrow+0x180>
mov    -0x1c(%rbp),%ecx
and    $0x80000000,%ecx
mov    -0x24(%rbp),%eax
shl    $0x17,%eax
or     %eax,%ecx
or     -0x28(%rbp),%ecx
mov    -0x18(%rbp),%rax
mov    %ecx,(%rax)
movl   $0x0,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<fltrep_narrow>:
push   %rbp
push   %rbx
push   %rax
mov    %rsi,%rbx
mov    (%rdi),%ebp
mov    %ebp,%ecx
shr    $0x14,%ecx
and    $0x7ff,%ecx
je     1152 <fltrep_narrow+0x32>
cmp    $0x7ff,%ecx
jne    1159 <fltrep_narrow+0x39>
and    $0x80000000,%ebp
or     $0x7f800000,%ebp
xor    %eax,%eax
mov    %ebp,%ecx
jmp    1204 <fltrep_narrow+0xe4>
mov    %ecx,%eax
jmp    1204 <fltrep_narrow+0xe4>
mov    0x4(%rdi),%edx
mov    %ebp,%eax
shld   $0x3,%edx,%eax
and    $0x7fffff,%eax
lea    0x0(,%rdx,8),%esi
test   %esi,%esi
jns    1182 <fltrep_narrow+0x62>
cmp    $0x80000000,%esi
jne    11ad <fltrep_narrow+0x8d>
and    $0x20000000,%edx
jne    11ad <fltrep_narrow+0x8d>
cmp    $0x47f,%ecx
jb     11ca <fltrep_narrow+0xaa>
lea    0xe6f(%rip),%rdi
xor    %eax,%eax
call   1040 <cc_err@plt>
and    $0x80000000,%ebp
or     $0x7f800000,%ebp
mov    $0x1,%eax
mov    %ebp,%ecx
jmp    1204 <fltrep_narrow+0xe4>
add    $0x1,%eax
xor    %edx,%edx
xor    %esi,%esi
cmp    $0x800000,%eax
sete   %sil
cmove  %edx,%eax
add    %esi,%ecx
cmp    $0x47f,%ecx
jae    118a <fltrep_narrow+0x6a>
cmp    $0x380,%ecx
ja     11ef <fltrep_narrow+0xcf>
lea    0xe5f(%rip),%rdi
xor    %eax,%eax
call   1030 <cc_rerr@plt>
and    $0x80000000,%ebp
mov    $0xffffffff,%eax
mov    %ebp,%ecx
jmp    1204 <fltrep_narrow+0xe4>
and    $0x80000000,%ebp
or     %ebp,%eax
shl    $0x17,%ecx
add    $0x40000000,%ecx
or     %eax,%ecx
xor    %eax,%eax
mov    %ecx,(%rbx)
add    $0x8,%rsp
pop    %rbx
pop    %rbp
ret

LLVM IR (-O0):
@.str = [56 x i8] c"Overlarge (single precision) floating point value found\00"
@.str.1 = [57 x i8] c"Small (single precision) floating value converted to 0.0\00"
define i32 @fltrep_narrow(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
store i32* %0, i32** %4
store i32* %1, i32** %5
%10 = load i32*, i32** %4
%11 = getelementptr inbounds i32, i32* %10, i64 0
%12 = load i32, i32* %11
store i32 %12, i32* %6
%13 = load i32*, i32** %4
%14 = getelementptr inbounds i32, i32* %13, i64 1
%15 = load i32, i32* %14
store i32 %15, i32* %7
%16 = load i32, i32* %6
%17 = ashr i32 %16, 20
%18 = and i32 %17, 2047
store i32 %18, i32* %8
%19 = load i32, i32* %6
%20 = and i32 %19, 1048575
store i32 %20, i32* %9
%21 = load i32, i32* %8
%22 = icmp eq i32 %21, 0
br i1 %22, label %23, label %26
23: ; preds = %2
%24 = load i32*, i32** %5
%25 = getelementptr inbounds i32, i32* %24, i64 0
store i32 0, i32* %25
store i32 0, i32* %3
br label %96
26: ; preds = %2
%27 = load i32, i32* %8
%28 = icmp eq i32 %27, 2047
br i1 %28, label %29, label %35
29: ; preds = %26
%30 = load i32, i32* %6
%31 = and i32 %30, -2147483648
%32 = or i32 %31, 2139095040
%33 = load i32*, i32** %5
%34 = getelementptr inbounds i32, i32* %33, i64 0
store i32 %32, i32* %34
store i32 0, i32* %3
br label %96
35: ; preds = %26
br label %36
36: ; preds = %35
%37 = load i32, i32* %9
%38 = shl i32 %37, 3
%39 = load i32, i32* %7
%40 = ashr i32 %39, 29
%41 = and i32 %40, 7
%42 = or i32 %38, %41
store i32 %42, i32* %9
%43 = load i32, i32* %7
%44 = shl i32 %43, 3
store i32 %44, i32* %7
%45 = load i32, i32* %7
%46 = icmp slt i32 %45, 0
br i1 %46, label %47, label %62
47: ; preds = %36
%48 = load i32, i32* %7
%49 = icmp ne i32 %48, -2147483648
br i1 %49, label %54, label %50
50: ; preds = %47
%51 = load i32, i32* %9
%52 = and i32 %51, 1
%53 = icmp ne i32 %52, 0
br i1 %53, label %54, label %62
54: ; preds = %50, %47
%55 = load i32, i32* %9
%56 = add nsw i32 %55, 1
store i32 %56, i32* %9
%57 = icmp eq i32 %56, 8388608
br i1 %57, label %58, label %61
58: ; preds = %54
store i32 0, i32* %9
%59 = load i32, i32* %8
%60 = add nsw i32 %59, 1
store i32 %60, i32* %8
br label %61
61: ; preds = %58, %54
br label %62
62: ; preds = %61, %50, %36
%63 = load i32, i32* %8
%64 = sub nsw i32 %63, 1023
%65 = add nsw i32 %64, 127
store i32 %65, i32* %8
%66 = load i32, i32* %8
%67 = icmp sge i32 %66, 255
br i1 %67, label %68, label %75
68: ; preds = %62
%69 = call i32 (i8*, ...) bitcast (i32 (...)* @cc_err to i32 (i8*, ...)*)(i8* getelementptr inbounds ([56 x i8], [56 x i8]* @.str, i64 0, i64 0))
%70 = load i32, i32* %6
%71 = and i32 %70, -2147483648
%72 = or i32 %71, 2139095040
%73 = load i32*, i32** %5
%74 = getelementptr inbounds i32, i32* %73, i64 0
store i32 %72, i32* %74
store i32 1, i32* %3
br label %96
75: ; preds = %62
%76 = load i32, i32* %8
%77 = icmp sle i32 %76, 0
br i1 %77, label %78, label %85
78: ; preds = %75
%79 = call i32 (i8*, ...) bitcast (i32 (...)* @cc_rerr to i32 (i8*, ...)*)(i8* getelementptr inbounds ([57 x i8], [57 x i8]* @.str.1, i64 0, i64 0))
%80 = load i32, i32* %6
%81 = and i32 %80, -2147483648
%82 = or i32 %81, 0
%83 = load i32*, i32** %5
%84 = getelementptr inbounds i32, i32* %83, i64 0
store i32 %82, i32* %84
store i32 -1, i32* %3
br label %96
85: ; preds = %75
br label %86
86: ; preds = %85
%87 = load i32, i32* %6
%88 = and i32 %87, -2147483648
%89 = load i32, i32* %8
%90 = shl i32 %89, 23
%91 = or i32 %88, %90
%92 = load i32, i32* %9
%93 = or i32 %91, %92
%94 = load i32*, i32** %5
%95 = getelementptr inbounds i32, i32* %94, i64 0
store i32 %93, i32* %95
store i32 0, i32* %3
br label %96
96: ; preds = %86, %78, %68, %29, %23
%97 = load i32, i32* %3
ret i32 %97
}

LLVM IR (-O2):
@.str = [56 x i8] c"Overlarge (single precision) floating point value found\00"
@.str.1 = [57 x i8] c"Small (single precision) floating value converted to 0.0\00"
define i32 @fltrep_narrow(i32* nocapture %0, i32* nocapture writeonly %1) {
%3 = load i32, i32* %0
%4 = getelementptr inbounds i32, i32* %0, i64 1
%5 = load i32, i32* %4
%6 = lshr i32 %3, 20
%7 = and i32 %6, 2047
switch i32 %7, label %11 [
i32 0, label %48
i32 2047, label %8
]
8: ; preds = %2
%9 = and i32 %3, -2147483648
%10 = or i32 %9, 2139095040
br label %48
11: ; preds = %2
%12 = shl i32 %3, 3
%13 = and i32 %12, 8388600
%14 = lshr i32 %5, 29
%15 = or i32 %13, %14
%16 = shl i32 %5, 3
%17 = icmp slt i32 %16, 0
br i1 %17, label %18, label %29
18: ; preds = %11
%19 = icmp eq i32 %16, -2147483648
%20 = and i32 %5, 536870912
%21 = icmp eq i32 %20, 0
%22 = and i1 %19, %21
br i1 %22, label %29, label %23
23: ; preds = %18
%24 = add nuw nsw i32 %15, 1
%25 = icmp eq i32 %24, 8388608
%26 = zext i1 %25 to i32
%27 = add nuw nsw i32 %7, %26
%28 = select i1 %25, i32 0, i32 %24
br label %29
29: ; preds = %23, %18, %11
%30 = phi i32 [ %7, %11 ], [ %7, %18 ], [ %27, %23 ]
%31 = phi i32 [ %15, %11 ], [ %15, %18 ], [ %28, %23 ]
%32 = icmp ugt i32 %30, 1150
br i1 %32, label %33, label %37
33: ; preds = %29
%34 = tail call i32 (i8*, ...) bitcast (i32 (...)* @cc_err to i32 (i8*, ...)*)(i8* getelementptr inbounds ([56 x i8], [56 x i8]* @.str, i64 0, i64 0))
%35 = and i32 %3, -2147483648
%36 = or i32 %35, 2139095040
br label %48
37: ; preds = %29
%38 = icmp ult i32 %30, 897
br i1 %38, label %39, label %42
39: ; preds = %37
%40 = tail call i32 (i8*, ...) bitcast (i32 (...)* @cc_rerr to i32 (i8*, ...)*)(i8* getelementptr inbounds ([57 x i8], [57 x i8]* @.str.1, i64 0, i64 0))
%41 = and i32 %3, -2147483648
br label %48
42: ; preds = %37
%43 = and i32 %3, -2147483648
%44 = shl i32 %30, 23
%45 = add i32 %44, 1073741824
%46 = or i32 %31, %43
%47 = or i32 %46, %45
br label %48
48: ; preds = %2, %42, %39, %33, %8
%49 = phi i32 [ %47, %42 ], [ %41, %39 ], [ %36, %33 ], [ %10, %8 ], [ %7, %2 ]
%50 = phi i32 [ 0, %42 ], [ -1, %39 ], [ 1, %33 ], [ 0, %8 ], [ %7, %2 ]
store i32 %49, i32* %1
ret i32 %50
}