#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
double frexp(double, int *);
int to_1750eflt(double input, short output[3]) {
  int exp;
  int is_neg = 0;
  unsigned short hlp;
  if (input < 0.0) {
    is_neg = 1;
    input = -input - .03125 / 549755813888.0;
  }
  input = frexp(input, &exp);
  if (input == 1.0) {
    input = 0.5;
    exp++;
  }
  if (exp < -128)
    return -1;
  else if (exp > 127)
    return 1;
  if (input < 0.0 && input >= -0.5) {
    input *= 2.0;
    exp--;
  }
  output[0] = (short)(input * 32768.0);
  input -= (double)output[0] / 32768.0;
  hlp = (unsigned short)(input * 8388608.0);
  output[1] = (short)((hlp << 8) | (exp & 0xFF));
  input -= (double)hlp / 8388608.0;
  hlp = (unsigned short)(input * 549755813888.0);
  output[2] = (short)hlp;
  if (is_neg) {
    output[0] = ~output[0];
    output[1] = (~output[1] & 0xFF00) | (output[1] & 0x00FF);
    output[2] = ~output[2];
  }
  return 0;
}


x86 assembly (clang, -O0):
<to_1750eflt>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
movsd  %xmm0,-0x10(%rbp)
mov    %rdi,-0x18(%rbp)
movl   $0x0,-0x20(%rbp)
xorps  %xmm0,%xmm0
ucomisd -0x10(%rbp),%xmm0
jbe    116a <to_1750eflt+0x5a>
movl   $0x1,-0x20(%rbp)
movsd  -0x10(%rbp),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  0xe9f(%rip),%xmm1
subsd  %xmm1,%xmm0
movsd  %xmm0,-0x10(%rbp)
movsd  -0x10(%rbp),%xmm0
lea    -0x1c(%rbp),%rdi
call   1030 <frexp@plt>
movsd  %xmm0,-0x10(%rbp)
movsd  -0x10(%rbp),%xmm0
movsd  0xe7e(%rip),%xmm1
ucomisd %xmm1,%xmm0
jne    11b0 <to_1750eflt+0xa0>
jp     11b0 <to_1750eflt+0xa0>
movsd  0xe6e(%rip),%xmm0
movsd  %xmm0,-0x10(%rbp)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
cmpl   $0xffffff80,-0x1c(%rbp)
jge    11c6 <to_1750eflt+0xb6>
movl   $0xffffffff,-0x4(%rbp)
jmp    1333 <to_1750eflt+0x223>
cmpl   $0x7f,-0x1c(%rbp)
jle    11dc <to_1750eflt+0xcc>
movl   $0x1,-0x4(%rbp)
jmp    1333 <to_1750eflt+0x223>
jmp    11e1 <to_1750eflt+0xd1>
xorps  %xmm0,%xmm0
ucomisd -0x10(%rbp),%xmm0
jbe    1221 <to_1750eflt+0x111>
movsd  -0x10(%rbp),%xmm0
movsd  0xe1c(%rip),%xmm1
ucomisd %xmm1,%xmm0
jb     1221 <to_1750eflt+0x111>
movsd  0xe12(%rip),%xmm0
mulsd  -0x10(%rbp),%xmm0
movsd  %xmm0,-0x10(%rbp)
mov    -0x1c(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x1c(%rbp)
movsd  -0x10(%rbp),%xmm1
movsd  0xdfa(%rip),%xmm0
mulsd  %xmm0,%xmm1
cvttsd2si %xmm1,%eax
mov    %ax,%cx
mov    -0x18(%rbp),%rax
mov    %cx,(%rax)
mov    -0x18(%rbp),%rax
movswl (%rax),%eax
cvtsi2sd %eax,%xmm1
divsd  %xmm0,%xmm1
movsd  -0x10(%rbp),%xmm0
subsd  %xmm1,%xmm0
movsd  %xmm0,-0x10(%rbp)
movsd  -0x10(%rbp),%xmm1
movsd  0xdc6(%rip),%xmm0
mulsd  %xmm0,%xmm1
cvttsd2si %xmm1,%eax
mov    %ax,-0x22(%rbp)
movzwl -0x22(%rbp),%eax
shl    $0x8,%eax
movzbl -0x1c(%rbp),%ecx
or     %ecx,%eax
mov    %ax,%cx
mov    -0x18(%rbp),%rax
mov    %cx,0x2(%rax)
movzwl -0x22(%rbp),%eax
cvtsi2sd %eax,%xmm1
divsd  %xmm0,%xmm1
movsd  -0x10(%rbp),%xmm0
subsd  %xmm1,%xmm0
movsd  %xmm0,-0x10(%rbp)
movsd  -0x10(%rbp),%xmm0
movsd  0xd83(%rip),%xmm1
mulsd  %xmm1,%xmm0
cvttsd2si %xmm0,%eax
mov    %ax,-0x22(%rbp)
mov    -0x22(%rbp),%cx
mov    -0x18(%rbp),%rax
mov    %cx,0x4(%rax)
cmpl   $0x0,-0x20(%rbp)
je     132c <to_1750eflt+0x21c>
mov    -0x18(%rbp),%rax
movswl (%rax),%eax
xor    $0xffffffff,%eax
mov    %ax,%cx
mov    -0x18(%rbp),%rax
mov    %cx,(%rax)
mov    -0x18(%rbp),%rax
movswl 0x2(%rax),%eax
xor    $0xffffffff,%eax
and    $0xff00,%eax
mov    -0x18(%rbp),%rcx
movswl 0x2(%rcx),%ecx
and    $0xff,%ecx
or     %ecx,%eax
mov    %ax,%cx
mov    -0x18(%rbp),%rax
mov    %cx,0x2(%rax)
mov    -0x18(%rbp),%rax
movswl 0x4(%rax),%eax
xor    $0xffffffff,%eax
mov    %ax,%cx
mov    -0x18(%rbp),%rax
mov    %cx,0x4(%rax)
movl   $0x0,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<to_1750eflt>:
push   %rbx
sub    $0x20,%rsp
mov    %rdi,%rbx
movapd %xmm0,%xmm3
movsd  0xedc(%rip),%xmm1
subsd  %xmm0,%xmm1
xorpd  %xmm2,%xmm2
cmpltsd %xmm2,%xmm0
andpd  %xmm0,%xmm1
movapd %xmm3,0x10(%rsp)
andnpd %xmm3,%xmm0
orpd   %xmm1,%xmm0
lea    0xc(%rsp),%rdi
call   1030 <frexp@plt>
movsd  0xeb3(%rip),%xmm1
movapd %xmm0,%xmm2
cmpeqsd %xmm1,%xmm2
movq   %xmm2,%rax
mov    0xc(%rsp),%ecx
sub    %eax,%ecx
ucomisd %xmm1,%xmm0
jne    1179 <to_1750eflt+0x69>
jp     1179 <to_1750eflt+0x69>
movsd  0xe97(%rip),%xmm0
mov    $0xffffffff,%eax
cmp    $0xffffff80,%ecx
jl     1244 <to_1750eflt+0x134>
mov    $0x1,%eax
cmp    $0x7f,%ecx
jg     1244 <to_1750eflt+0x134>
xorpd  %xmm1,%xmm1
ucomisd %xmm0,%xmm1
seta   %al
ucomisd 0xe70(%rip),%xmm0
setae  %dl
and    %al,%dl
movzbl %dl,%eax
sub    %eax,%ecx
test   %al,%al
je     11ba <to_1750eflt+0xaa>
addsd  %xmm0,%xmm0
movsd  0xe5e(%rip),%xmm2
mulsd  %xmm0,%xmm2
cvttsd2si %xmm2,%edx
movswl %dx,%esi
xorps  %xmm2,%xmm2
cvtsi2sd %esi,%xmm2
mulsd  0xe4c(%rip),%xmm2
addsd  %xmm0,%xmm2
movsd  0xe48(%rip),%xmm0
mulsd  %xmm2,%xmm0
cvttsd2si %xmm0,%eax
movzwl %ax,%edi
shl    $0x8,%eax
movzbl %cl,%ecx
or     %eax,%ecx
xor    %eax,%eax
ucomisd 0x10(%rsp),%xmm1
xorps  %xmm0,%xmm0
cvtsi2sd %edi,%xmm0
mulsd  0xe26(%rip),%xmm0
mov    %si,(%rbx)
addsd  %xmm2,%xmm0
mulsd  0xe1f(%rip),%xmm0
mov    %cx,0x2(%rbx)
cvttsd2si %xmm0,%esi
mov    %si,0x4(%rbx)
jbe    1244 <to_1750eflt+0x134>
not    %edx
mov    %dx,(%rbx)
xor    $0xff00,%ecx
mov    %cx,0x2(%rbx)
not    %esi
mov    %si,0x4(%rbx)
add    $0x20,%rsp
pop    %rbx
ret

LLVM IR (-O0):
define i32 @to_1750eflt(double %0, i16* %1) {
%3 = alloca i32
%4 = alloca double
%5 = alloca i16*
%6 = alloca i32
%7 = alloca i32
%8 = alloca i16
store double %0, double* %4
store i16* %1, i16** %5
store i32 0, i32* %7
%9 = load double, double* %4
%10 = fcmp olt double %9, 0.000000e+00
br i1 %10, label %11, label %15
11: ; preds = %2
store i32 1, i32* %7
%12 = load double, double* %4
%13 = fneg double %12
%14 = fsub double %13, 0x3D30000000000000
store double %14, double* %4
br label %15
15: ; preds = %11, %2
%16 = load double, double* %4
%17 = call double @frexp(double %16, i32* %6)
store double %17, double* %4
%18 = load double, double* %4
%19 = fcmp oeq double %18, 1.000000e+00
br i1 %19, label %20, label %23
20: ; preds = %15
store double 5.000000e-01, double* %4
%21 = load i32, i32* %6
%22 = add nsw i32 %21, 1
store i32 %22, i32* %6
br label %23
23: ; preds = %20, %15
%24 = load i32, i32* %6
%25 = icmp slt i32 %24, -128
br i1 %25, label %26, label %27
26: ; preds = %23
store i32 -1, i32* %3
br label %114
27: ; preds = %23
%28 = load i32, i32* %6
%29 = icmp sgt i32 %28, 127
br i1 %29, label %30, label %31
30: ; preds = %27
store i32 1, i32* %3
br label %114
31: ; preds = %27
br label %32
32: ; preds = %31
%33 = load double, double* %4
%34 = fcmp olt double %33, 0.000000e+00
br i1 %34, label %35, label %43
35: ; preds = %32
%36 = load double, double* %4
%37 = fcmp oge double %36, -5.000000e-01
br i1 %37, label %38, label %43
38: ; preds = %35
%39 = load double, double* %4
%40 = fmul double %39, 2.000000e+00
store double %40, double* %4
%41 = load i32, i32* %6
%42 = add nsw i32 %41, -1
store i32 %42, i32* %6
br label %43
43: ; preds = %38, %35, %32
%44 = load double, double* %4
%45 = fmul double %44, 3.276800e+04
%46 = fptosi double %45 to i16
%47 = load i16*, i16** %5
%48 = getelementptr inbounds i16, i16* %47, i64 0
store i16 %46, i16* %48
%49 = load i16*, i16** %5
%50 = getelementptr inbounds i16, i16* %49, i64 0
%51 = load i16, i16* %50
%52 = sitofp i16 %51 to double
%53 = fdiv double %52, 3.276800e+04
%54 = load double, double* %4
%55 = fsub double %54, %53
store double %55, double* %4
%56 = load double, double* %4
%57 = fmul double %56, 0x4160000000000000
%58 = fptoui double %57 to i16
store i16 %58, i16* %8
%59 = load i16, i16* %8
%60 = zext i16 %59 to i32
%61 = shl i32 %60, 8
%62 = load i32, i32* %6
%63 = and i32 %62, 255
%64 = or i32 %61, %63
%65 = trunc i32 %64 to i16
%66 = load i16*, i16** %5
%67 = getelementptr inbounds i16, i16* %66, i64 1
store i16 %65, i16* %67
%68 = load i16, i16* %8
%69 = uitofp i16 %68 to double
%70 = fdiv double %69, 0x4160000000000000
%71 = load double, double* %4
%72 = fsub double %71, %70
store double %72, double* %4
%73 = load double, double* %4
%74 = fmul double %73, 0x4260000000000000
%75 = fptoui double %74 to i16
store i16 %75, i16* %8
%76 = load i16, i16* %8
%77 = load i16*, i16** %5
%78 = getelementptr inbounds i16, i16* %77, i64 2
store i16 %76, i16* %78
%79 = load i32, i32* %7
%80 = icmp ne i32 %79, 0
br i1 %80, label %81, label %113
81: ; preds = %43
%82 = load i16*, i16** %5
%83 = getelementptr inbounds i16, i16* %82, i64 0
%84 = load i16, i16* %83
%85 = sext i16 %84 to i32
%86 = xor i32 %85, -1
%87 = trunc i32 %86 to i16
%88 = load i16*, i16** %5
%89 = getelementptr inbounds i16, i16* %88, i64 0
store i16 %87, i16* %89
%90 = load i16*, i16** %5
%91 = getelementptr inbounds i16, i16* %90, i64 1
%92 = load i16, i16* %91
%93 = sext i16 %92 to i32
%94 = xor i32 %93, -1
%95 = and i32 %94, 65280
%96 = load i16*, i16** %5
%97 = getelementptr inbounds i16, i16* %96, i64 1
%98 = load i16, i16* %97
%99 = sext i16 %98 to i32
%100 = and i32 %99, 255
%101 = or i32 %95, %100
%102 = trunc i32 %101 to i16
%103 = load i16*, i16** %5
%104 = getelementptr inbounds i16, i16* %103, i64 1
store i16 %102, i16* %104
%105 = load i16*, i16** %5
%106 = getelementptr inbounds i16, i16* %105, i64 2
%107 = load i16, i16* %106
%108 = sext i16 %107 to i32
%109 = xor i32 %108, -1
%110 = trunc i32 %109 to i16
%111 = load i16*, i16** %5
%112 = getelementptr inbounds i16, i16* %111, i64 2
store i16 %110, i16* %112
br label %113
113: ; preds = %81, %43
store i32 0, i32* %3
br label %114
114: ; preds = %113, %30, %26
%115 = load i32, i32* %3
ret i32 %115
}

LLVM IR (-O2):
define i32 @to_1750eflt(double %0, i16* nocapture %1) {
%3 = alloca i32
%4 = bitcast i32* %3 to i8*
%5 = fcmp olt double %0, 0.000000e+00
%6 = fsub double 0xBD30000000000000, %0
%7 = select i1 %5, double %6, double %0
%8 = call double @frexp(double %7, i32* %3)
%9 = fcmp oeq double %8, 1.000000e+00
%10 = load i32, i32* %3
%11 = zext i1 %9 to i32
%12 = add nsw i32 %10, %11
%13 = select i1 %9, double 5.000000e-01, double %8
%14 = icmp slt i32 %12, -128
br i1 %14, label %48, label %15
15: ; preds = %2
%16 = icmp sgt i32 %12, 127
br i1 %16, label %48, label %17
17: ; preds = %15
%18 = fcmp olt double %13, 0.000000e+00
%19 = fcmp oge double %13, -5.000000e-01
%20 = and i1 %18, %19
%21 = fmul double %13, 2.000000e+00
%22 = sext i1 %20 to i32
%23 = add nsw i32 %12, %22
%24 = select i1 %20, double %21, double %13
%25 = fmul double %24, 3.276800e+04
%26 = fptosi double %25 to i16
store i16 %26, i16* %1
%27 = sitofp i16 %26 to double
%28 = fmul double %27, 0x3F00000000000000
%29 = fsub double %24, %28
%30 = fmul double %29, 0x4160000000000000
%31 = fptoui double %30 to i16
%32 = zext i16 %31 to i32
%33 = shl nuw nsw i32 %32, 8
%34 = and i32 %23, 255
%35 = or i32 %33, %34
%36 = trunc i32 %35 to i16
%37 = getelementptr inbounds i16, i16* %1, i64 1
store i16 %36, i16* %37
%38 = uitofp i16 %31 to double
%39 = fmul double %38, 0x3E80000000000000
%40 = fsub double %29, %39
%41 = fmul double %40, 0x4260000000000000
%42 = fptoui double %41 to i16
%43 = getelementptr inbounds i16, i16* %1, i64 2
store i16 %42, i16* %43
br i1 %5, label %44, label %48
44: ; preds = %17
%45 = xor i16 %26, -1
store i16 %45, i16* %1
%46 = xor i16 %36, -256
store i16 %46, i16* %37
%47 = xor i16 %42, -1
store i16 %47, i16* %43
br label %48
48: ; preds = %17, %44, %15, %2
%49 = phi i32 [ -1, %2 ], [ 1, %15 ], [ 0, %44 ], [ 0, %17 ]
ret i32 %49
}