#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 */
short UCHAR_MAX;
int ffi2fi1(short *input, long ntodo, double scale, double zero,
            unsigned char *output, int *status) {
  long ii;
  double dvalue;
  if (scale == 1. && zero == 0.) {
    for (ii = 0; ii < ntodo; ii++) {
      if (input[ii] < 0) {
        *status = -11;
        output[ii] = 0;
      } else if (input[ii] > UCHAR_MAX) {
        *status = -11;
        output[ii] = UCHAR_MAX;
      } else
        output[ii] = input[ii];
    }
  } else {
    for (ii = 0; ii < ntodo; ii++) {
      dvalue = (input[ii] - zero) / scale;
      if (dvalue < -0.49) {
        *status = -11;
        output[ii] = 0;
      } else if (dvalue > 255.49) {
        *status = -11;
        output[ii] = UCHAR_MAX;
      } else
        output[ii] = (unsigned char)(dvalue + .5);
    }
  }
  return (*status);
}


x86 assembly (clang, -O0):
<ffi2fi1>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
movsd  %xmm0,-0x18(%rbp)
movsd  %xmm1,-0x20(%rbp)
mov    %rdx,-0x28(%rbp)
mov    %rcx,-0x30(%rbp)
movsd  -0x18(%rbp),%xmm0
movsd  0xed5(%rip),%xmm1
ucomisd %xmm1,%xmm0
jne    1216 <ffi2fi1+0x116>
jp     1216 <ffi2fi1+0x116>
movsd  -0x20(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    1216 <ffi2fi1+0x116>
jp     1216 <ffi2fi1+0x116>
movq   $0x0,-0x38(%rbp)
mov    -0x38(%rbp),%rax
cmp    -0x10(%rbp),%rax
jge    1211 <ffi2fi1+0x111>
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
movswl (%rax,%rcx,2),%eax
cmp    $0x0,%eax
jge    1199 <ffi2fi1+0x99>
mov    -0x30(%rbp),%rax
movl   $0xfffffff5,(%rax)
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
movb   $0x0,(%rax,%rcx,1)
jmp    11fb <ffi2fi1+0xfb>
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
movswl (%rax,%rcx,2),%eax
mov    0x2e44(%rip),%rcx
movswl (%rcx),%ecx
cmp    %ecx,%eax
jle    11dd <ffi2fi1+0xdd>
mov    -0x30(%rbp),%rax
movl   $0xfffffff5,(%rax)
mov    0x2e28(%rip),%rax
mov    (%rax),%ax
mov    %al,%dl
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
jmp    11f6 <ffi2fi1+0xf6>
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    (%rax,%rcx,2),%ax
mov    %al,%dl
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
jmp    11fb <ffi2fi1+0xfb>
jmp    1200 <ffi2fi1+0x100>
mov    -0x38(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x38(%rbp)
jmp    115b <ffi2fi1+0x5b>
jmp    12f8 <ffi2fi1+0x1f8>
movq   $0x0,-0x38(%rbp)
mov    -0x38(%rbp),%rax
cmp    -0x10(%rbp),%rax
jge    12f3 <ffi2fi1+0x1f3>
mov    -0x8(%rbp),%rax
mov    -0x38(%rbp),%rcx
movswl (%rax,%rcx,2),%eax
cvtsi2sd %eax,%xmm0
subsd  -0x20(%rbp),%xmm0
divsd  -0x18(%rbp),%xmm0
movsd  %xmm0,-0x40(%rbp)
movsd  0xdb5(%rip),%xmm0
ucomisd -0x40(%rbp),%xmm0
jbe    1279 <ffi2fi1+0x179>
mov    -0x30(%rbp),%rax
movl   $0xfffffff5,(%rax)
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
movb   $0x0,(%rax,%rcx,1)
jmp    12dd <ffi2fi1+0x1dd>
movsd  -0x40(%rbp),%xmm0
movsd  0xd8a(%rip),%xmm1
ucomisd %xmm1,%xmm0
jbe    12b6 <ffi2fi1+0x1b6>
mov    -0x30(%rbp),%rax
movl   $0xfffffff5,(%rax)
mov    0x2d4f(%rip),%rax
mov    (%rax),%ax
mov    %al,%dl
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
jmp    12d8 <ffi2fi1+0x1d8>
movsd  -0x40(%rbp),%xmm0
movsd  0xd55(%rip),%xmm1
addsd  %xmm1,%xmm0
cvttsd2si %xmm0,%eax
mov    %al,%dl
mov    -0x28(%rbp),%rax
mov    -0x38(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
jmp    12dd <ffi2fi1+0x1dd>
jmp    12e2 <ffi2fi1+0x1e2>
mov    -0x38(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x38(%rbp)
jmp    121e <ffi2fi1+0x11e>
jmp    12f8 <ffi2fi1+0x1f8>
mov    -0x30(%rbp),%rax
mov    (%rax),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<ffi2fi1>:
ucomisd 0xef8(%rip),%xmm0
jne    1175 <ffi2fi1+0x75>
jp     1175 <ffi2fi1+0x75>
xorpd  %xmm2,%xmm2
ucomisd %xmm2,%xmm1
jne    1175 <ffi2fi1+0x75>
jp     1175 <ffi2fi1+0x75>
test   %rsi,%rsi
jle    120b <ffi2fi1+0x10b>
xor    %eax,%eax
mov    0x2ec6(%rip),%r8
jmp    114a <ffi2fi1+0x4a>
nopl   0x0(%rax)
movl   $0xfffffff5,(%rcx)
xor    %r9d,%r9d
mov    %r9b,(%rdx,%rax,1)
add    $0x1,%rax
cmp    %rax,%rsi
je     120b <ffi2fi1+0x10b>
movzwl (%rdi,%rax,2),%r10d
test   %r10w,%r10w
js     1130 <ffi2fi1+0x30>
movzwl (%r8),%r9d
cmp    %r9w,%r10w
jle    1170 <ffi2fi1+0x70>
movl   $0xfffffff5,(%rcx)
jmp    1139 <ffi2fi1+0x39>
nopw   0x0(%rax,%rax,1)
mov    %r10d,%r9d
jmp    1139 <ffi2fi1+0x39>
test   %rsi,%rsi
jle    120b <ffi2fi1+0x10b>
xor    %r10d,%r10d
movsd  0xe7f(%rip),%xmm2
movsd  0xe7f(%rip),%xmm3
mov    0x2e58(%rip),%r8
movsd  0xe78(%rip),%xmm4
jmp    11c6 <ffi2fi1+0xc6>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movl   $0xfffffff5,(%rcx)
xor    %r9d,%r9d
mov    %r9b,(%rdx,%r10,1)
add    $0x1,%r10
cmp    %r10,%rsi
je     120b <ffi2fi1+0x10b>
movswl (%rdi,%r10,2),%eax
xorps  %xmm5,%xmm5
cvtsi2sd %eax,%xmm5
subsd  %xmm1,%xmm5
divsd  %xmm0,%xmm5
ucomisd %xmm5,%xmm2
ja     11b0 <ffi2fi1+0xb0>
ucomisd %xmm3,%xmm5
jbe    1200 <ffi2fi1+0x100>
movl   $0xfffffff5,(%rcx)
movzbl (%r8),%r9d
jmp    11b9 <ffi2fi1+0xb9>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
addsd  %xmm4,%xmm5
cvttsd2si %xmm5,%r9d
jmp    11b9 <ffi2fi1+0xb9>
mov    (%rcx),%eax
ret

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

LLVM IR (-O2):
@UCHAR_MAX = global i16 0
define i32 @ffi2fi1(i16* nocapture %0, i64 %1, double %2, double %3, i8* nocapture writeonly %4, i32* nocapture %5) {
%7 = fcmp oeq double %2, 1.000000e+00
%8 = fcmp oeq double %3, 0.000000e+00
%9 = and i1 %7, %8
%10 = icmp sgt i64 %1, 0
br i1 %9, label %12, label %11
11: ; preds = %6
br i1 %10, label %31, label %53
12: ; preds = %6
br i1 %10, label %13, label %53
13: ; preds = %12, %26
%14 = phi i64 [ %29, %26 ], [ 0, %12 ]
%15 = getelementptr inbounds i16, i16* %0, i64 %14
%16 = load i16, i16* %15
%17 = icmp slt i16 %16, 0
br i1 %17, label %18, label %19
18: ; preds = %13
store i32 -11, i32* %5
br label %26
19: ; preds = %13
%20 = load i16, i16* @UCHAR_MAX
%21 = icmp sgt i16 %16, %20
br i1 %21, label %22, label %24
22: ; preds = %19
store i32 -11, i32* %5
%23 = trunc i16 %20 to i8
br label %26
24: ; preds = %19
%25 = trunc i16 %16 to i8
br label %26
26: ; preds = %18, %24, %22
%27 = phi i8 [ 0, %18 ], [ %25, %24 ], [ %23, %22 ]
%28 = getelementptr inbounds i8, i8* %4, i64 %14
store i8 %27, i8* %28
%29 = add nuw nsw i64 %14, 1
%30 = icmp eq i64 %29, %1
br i1 %30, label %53, label %13
31: ; preds = %11, %48
%32 = phi i64 [ %51, %48 ], [ 0, %11 ]
%33 = getelementptr inbounds i16, i16* %0, i64 %32
%34 = load i16, i16* %33
%35 = sitofp i16 %34 to double
%36 = fsub double %35, %3
%37 = fdiv double %36, %2
%38 = fcmp olt double %37, -4.900000e-01
br i1 %38, label %39, label %40
39: ; preds = %31
store i32 -11, i32* %5
br label %48
40: ; preds = %31
%41 = fcmp ogt double %37, 2.554900e+02
br i1 %41, label %42, label %45
42: ; preds = %40
store i32 -11, i32* %5
%43 = load i16, i16* @UCHAR_MAX
%44 = trunc i16 %43 to i8
br label %48
45: ; preds = %40
%46 = fadd double %37, 5.000000e-01
%47 = fptoui double %46 to i8
br label %48
48: ; preds = %39, %45, %42
%49 = phi i8 [ 0, %39 ], [ %47, %45 ], [ %44, %42 ]
%50 = getelementptr inbounds i8, i8* %4, i64 %32
store i8 %49, i8* %50
%51 = add nuw nsw i64 %32, 1
%52 = icmp eq i64 %51, %1
br i1 %52, label %53, label %31
53: ; preds = %48, %26, %11, %12
%54 = load i32, i32* %5
ret i32 %54
}