#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 */
typedef double ch;

/* Variables and functions */
int /*<<< orphan*/ modf(double, double *);
char *c_round(double fract, int *exp, char *start, char *end, char ch,
              char *signp) {
  double tmp;
  if (fract)
    (void)modf(fract * 10, &tmp);
  else
    tmp = ((ch) - '0');
  if (tmp > 4)
    for (;; --end) {
      if (*end == '.')
        --end;
      if (++*end <= '9')
        break;
      *end = '0';
      if (end == start) {
        if (exp) {
          *end = '1';
          ++*exp;
        } else {
          *--end = '1';
          --start;
        }
        break;
      }
    }
  else if (*signp == '-')
    for (;; --end) {
      if (*end == '.')
        --end;
      if (*end != '0')
        break;
      if (end == start)
        *signp = 0;
    }
  return (start);
}


x86 assembly (clang, -O0):
<c_round>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %cl,%al
movsd  %xmm0,-0x8(%rbp)
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %rdx,-0x20(%rbp)
mov    %al,-0x21(%rbp)
mov    %r8,-0x30(%rbp)
movsd  -0x8(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    114f <c_round+0x3f>
jp     114f <c_round+0x3f>
jmp    116a <c_round+0x5a>
movsd  0xea9(%rip),%xmm0
mulsd  -0x8(%rbp),%xmm0
lea    -0x38(%rbp),%rdi
call   1030 <modf@plt>
jmp    117a <c_round+0x6a>
movsbl -0x21(%rbp),%eax
sub    $0x30,%eax
cvtsi2sd %eax,%xmm0
movsd  %xmm0,-0x38(%rbp)
movsd  -0x38(%rbp),%xmm0
movsd  0xe81(%rip),%xmm1
ucomisd %xmm1,%xmm0
jbe    1243 <c_round+0x133>
jmp    1196 <c_round+0x86>
mov    -0x20(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2e,%eax
jne    11b2 <c_round+0xa2>
mov    -0x20(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x20(%rbp)
mov    -0x20(%rbp),%rcx
mov    (%rcx),%al
add    $0x1,%al
mov    %al,(%rcx)
movsbl %al,%eax
cmp    $0x39,%eax
jg     11cd <c_round+0xbd>
jmp    123e <c_round+0x12e>
mov    -0x20(%rbp),%rax
movb   $0x30,(%rax)
mov    -0x20(%rbp),%rax
cmp    -0x18(%rbp),%rax
jne    1228 <c_round+0x118>
cmpq   $0x0,-0x10(%rbp)
je     1204 <c_round+0xf4>
mov    -0x20(%rbp),%rax
movb   $0x31,(%rax)
mov    -0x10(%rbp),%rax
mov    (%rax),%ecx
add    $0x1,%ecx
mov    %ecx,(%rax)
jmp    1223 <c_round+0x113>
mov    -0x20(%rbp),%rax
mov    %rax,%rcx
add    $0xffffffffffffffff,%rcx
mov    %rcx,-0x20(%rbp)
movb   $0x31,-0x1(%rax)
mov    -0x18(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x18(%rbp)
jmp    123e <c_round+0x12e>
jmp    122d <c_round+0x11d>
mov    -0x20(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x20(%rbp)
jmp    1196 <c_round+0x86>
jmp    12be <c_round+0x1ae>
mov    -0x30(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2d,%eax
jne    12b9 <c_round+0x1a9>
jmp    1258 <c_round+0x148>
mov    -0x20(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2e,%eax
jne    1274 <c_round+0x164>
mov    -0x20(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x20(%rbp)
mov    -0x20(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x30,%eax
je     1289 <c_round+0x179>
jmp    12b4 <c_round+0x1a4>
mov    -0x20(%rbp),%rax
cmp    -0x18(%rbp),%rax
jne    129e <c_round+0x18e>
mov    -0x30(%rbp),%rax
movb   $0x0,(%rax)
jmp    12a3 <c_round+0x193>
mov    -0x20(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x20(%rbp)
jmp    1258 <c_round+0x148>
jmp    12b9 <c_round+0x1a9>
jmp    12be <c_round+0x1ae>
mov    -0x18(%rbp),%rax
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<c_round>:
push   %r15
push   %r14
push   %r12
push   %rbx
push   %rax
mov    %r8,%r12
mov    %rdx,%rbx
mov    %rsi,%r15
mov    %rdi,%r14
xorpd  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    1130 <c_round+0x20>
jnp    11a7 <c_round+0x97>
mulsd  0xec8(%rip),%xmm0
mov    %rsp,%rdi
call   1030 <modf@plt>
movsd  (%rsp),%xmm0
ucomisd 0xebb(%rip),%xmm0
jbe    11be <c_round+0xae>
xor    %ecx,%ecx
cmpb   $0x2e,(%rbx)
sete   %cl
mov    %rbx,%rax
sub    %rcx,%rax
neg    %rcx
mov    (%rax),%dl
add    $0x1,%dl
mov    %dl,(%rbx,%rcx,1)
cmp    $0x3a,%dl
jl     1219 <c_round+0x109>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movb   $0x30,(%rax)
cmp    %r15,%rax
je     1201 <c_round+0xf1>
xor    %ecx,%ecx
cmpb   $0x2e,-0x1(%rax)
lea    -0x1(%rax),%rax
sete   %cl
sub    %rcx,%rax
movzbl (%rax),%ecx
add    $0x1,%cl
mov    %cl,(%rax)
cmp    $0x3a,%cl
jge    1180 <c_round+0x70>
jmp    1219 <c_round+0x109>
movsbl %cl,%eax
add    $0xffffffd0,%eax
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
ucomisd 0xe4c(%rip),%xmm0
ja     114f <c_round+0x3f>
cmpb   $0x2d,(%r12)
jne    1219 <c_round+0x109>
xor    %eax,%eax
cmpb   $0x2e,(%rbx)
sete   %al
mov    %rax,%rcx
neg    %rcx
cmpb   $0x30,(%rbx,%rcx,1)
jne    1219 <c_round+0x109>
sub    %rax,%rbx
jmp    11f5 <c_round+0xe5>
xchg   %ax,%ax
xor    %eax,%eax
cmpb   $0x2e,-0x1(%rbx)
lea    -0x1(%rbx),%rbx
sete   %al
sub    %rax,%rbx
cmpb   $0x30,(%rbx)
jne    1219 <c_round+0x109>
cmp    %r15,%rbx
jne    11e0 <c_round+0xd0>
movb   $0x0,(%r12)
jmp    11e0 <c_round+0xd0>
test   %r14,%r14
je     1210 <c_round+0x100>
movb   $0x31,(%r15)
addl   $0x1,(%r14)
jmp    1219 <c_round+0x109>
movb   $0x31,-0x1(%r15)
add    $0xffffffffffffffff,%r15
mov    %r15,%rax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
ret

LLVM IR (-O0):
define i8* @c_round(double %0, i32* %1, i8* %2, i8* %3, i8 signext %4, i8* %5) {
%7 = alloca double
%8 = alloca i32*
%9 = alloca i8*
%10 = alloca i8*
%11 = alloca i8
%12 = alloca i8*
%13 = alloca double
store double %0, double* %7
store i32* %1, i32** %8
store i8* %2, i8** %9
store i8* %3, i8** %10
store i8 %4, i8* %11
store i8* %5, i8** %12
%14 = load double, double* %7
%15 = fcmp une double %14, 0.000000e+00
br i1 %15, label %16, label %20
16: ; preds = %6
%17 = load double, double* %7
%18 = fmul double %17, 1.000000e+01
%19 = call i32 @modf(double %18, double* %13)
br label %25
20: ; preds = %6
%21 = load i8, i8* %11
%22 = sext i8 %21 to i32
%23 = sub nsw i32 %22, 48
%24 = sitofp i32 %23 to double
store double %24, double* %13
br label %25
25: ; preds = %20, %16
%26 = load double, double* %13
%27 = fcmp ogt double %26, 4.000000e+00
br i1 %27, label %28, label %68
28: ; preds = %25
br label %29
29: ; preds = %64, %28
%30 = load i8*, i8** %10
%31 = load i8, i8* %30
%32 = sext i8 %31 to i32
%33 = icmp eq i32 %32, 46
br i1 %33, label %34, label %37
34: ; preds = %29
%35 = load i8*, i8** %10
%36 = getelementptr inbounds i8, i8* %35, i32 -1
store i8* %36, i8** %10
br label %37
37: ; preds = %34, %29
%38 = load i8*, i8** %10
%39 = load i8, i8* %38
%40 = add i8 %39, 1
store i8 %40, i8* %38
%41 = sext i8 %40 to i32
%42 = icmp sle i32 %41, 57
br i1 %42, label %43, label %44
43: ; preds = %37
br label %67
44: ; preds = %37
%45 = load i8*, i8** %10
store i8 48, i8* %45
%46 = load i8*, i8** %10
%47 = load i8*, i8** %9
%48 = icmp eq i8* %46, %47
br i1 %48, label %49, label %63
49: ; preds = %44
%50 = load i32*, i32** %8
%51 = icmp ne i32* %50, null
br i1 %51, label %52, label %57
52: ; preds = %49
%53 = load i8*, i8** %10
store i8 49, i8* %53
%54 = load i32*, i32** %8
%55 = load i32, i32* %54
%56 = add nsw i32 %55, 1
store i32 %56, i32* %54
br label %62
57: ; preds = %49
%58 = load i8*, i8** %10
%59 = getelementptr inbounds i8, i8* %58, i32 -1
store i8* %59, i8** %10
store i8 49, i8* %59
%60 = load i8*, i8** %9
%61 = getelementptr inbounds i8, i8* %60, i32 -1
store i8* %61, i8** %9
br label %62
62: ; preds = %57, %52
br label %67
63: ; preds = %44
br label %64
64: ; preds = %63
%65 = load i8*, i8** %10
%66 = getelementptr inbounds i8, i8* %65, i32 -1
store i8* %66, i8** %10
br label %29
67: ; preds = %62, %43
br label %100
68: ; preds = %25
%69 = load i8*, i8** %12
%70 = load i8, i8* %69
%71 = sext i8 %70 to i32
%72 = icmp eq i32 %71, 45
br i1 %72, label %73, label %99
73: ; preds = %68
br label %74
74: ; preds = %95, %73
%75 = load i8*, i8** %10
%76 = load i8, i8* %75
%77 = sext i8 %76 to i32
%78 = icmp eq i32 %77, 46
br i1 %78, label %79, label %82
79: ; preds = %74
%80 = load i8*, i8** %10
%81 = getelementptr inbounds i8, i8* %80, i32 -1
store i8* %81, i8** %10
br label %82
82: ; preds = %79, %74
%83 = load i8*, i8** %10
%84 = load i8, i8* %83
%85 = sext i8 %84 to i32
%86 = icmp ne i32 %85, 48
br i1 %86, label %87, label %88
87: ; preds = %82
br label %98
88: ; preds = %82
%89 = load i8*, i8** %10
%90 = load i8*, i8** %9
%91 = icmp eq i8* %89, %90
br i1 %91, label %92, label %94
92: ; preds = %88
%93 = load i8*, i8** %12
store i8 0, i8* %93
br label %94
94: ; preds = %92, %88
br label %95
95: ; preds = %94
%96 = load i8*, i8** %10
%97 = getelementptr inbounds i8, i8* %96, i32 -1
store i8* %97, i8** %10
br label %74
98: ; preds = %87
br label %99
99: ; preds = %98, %68
br label %100
100: ; preds = %99, %67
%101 = load i8*, i8** %9
ret i8* %101
}

LLVM IR (-O2):
define i8* @c_round(double %0, i32* %1, i8* readnone %2, i8* %3, i8 signext %4, i8* nocapture %5) {
%7 = alloca double
%8 = bitcast double* %7 to i8*
%9 = fcmp une double %0, 0.000000e+00
br i1 %9, label %10, label %14
10: ; preds = %6
%11 = fmul double %0, 1.000000e+01
%12 = call i32 @modf(double %11, double* %7)
%13 = load double, double* %7
br label %18
14: ; preds = %6
%15 = sext i8 %4 to i32
%16 = add nsw i32 %15, -48
%17 = sitofp i32 %16 to double
br label %18
18: ; preds = %14, %10
%19 = phi double [ %17, %14 ], [ %13, %10 ]
%20 = fcmp ogt double %19, 4.000000e+00
br i1 %20, label %21, label %48
21: ; preds = %18
%22 = load i8, i8* %3
%23 = icmp eq i8 %22, 46
%24 = sext i1 %23 to i64
%25 = getelementptr i8, i8* %3, i64 %24
%26 = load i8, i8* %25
%27 = add i8 %26, 1
store i8 %27, i8* %25
%28 = icmp slt i8 %27, 58
br i1 %28, label %70, label %29
29: ; preds = %21, %39
%30 = phi i8* [ %44, %39 ], [ %25, %21 ]
store i8 48, i8* %30
%31 = icmp eq i8* %30, %2
br i1 %31, label %32, label %39
32: ; preds = %29
%33 = icmp eq i32* %1, null
br i1 %33, label %37, label %34
34: ; preds = %32
store i8 49, i8* %2
%35 = load i32, i32* %1
%36 = add nsw i32 %35, 1
store i32 %36, i32* %1
br label %70
37: ; preds = %32
%38 = getelementptr inbounds i8, i8* %2, i64 -1
store i8 49, i8* %38
br label %70
39: ; preds = %29
%40 = getelementptr inbounds i8, i8* %30, i64 -1
%41 = load i8, i8* %40
%42 = icmp eq i8 %41, 46
%43 = sext i1 %42 to i64
%44 = getelementptr i8, i8* %40, i64 %43
%45 = load i8, i8* %44
%46 = add i8 %45, 1
store i8 %46, i8* %44
%47 = icmp slt i8 %46, 58
br i1 %47, label %70, label %29
48: ; preds = %18
%49 = load i8, i8* %5
%50 = icmp eq i8 %49, 45
br i1 %50, label %51, label %70
51: ; preds = %48
%52 = load i8, i8* %3
%53 = icmp eq i8 %52, 46
%54 = sext i1 %53 to i64
%55 = getelementptr i8, i8* %3, i64 %54
%56 = load i8, i8* %55
%57 = icmp eq i8 %56, 48
br i1 %57, label %58, label %70
58: ; preds = %51, %62
%59 = phi i8* [ %67, %62 ], [ %55, %51 ]
%60 = icmp eq i8* %59, %2
br i1 %60, label %61, label %62
61: ; preds = %58
store i8 0, i8* %5
br label %62
62: ; preds = %58, %61
%63 = getelementptr inbounds i8, i8* %59, i64 -1
%64 = load i8, i8* %63
%65 = icmp eq i8 %64, 46
%66 = sext i1 %65 to i64
%67 = getelementptr i8, i8* %63, i64 %66
%68 = load i8, i8* %67
%69 = icmp eq i8 %68, 48
br i1 %69, label %58, label %70
70: ; preds = %62, %39, %51, %21, %48, %37, %34
%71 = phi i8* [ %2, %34 ], [ %38, %37 ], [ %2, %48 ], [ %2, %21 ], [ %2, %51 ], [ %2, %39 ], [ %2, %62 ]
ret i8* %71
}