#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 == '-' || *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    12ce <c_round+0x1be>
mov    -0x30(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2d,%eax
je     1263 <c_round+0x153>
mov    -0x30(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2b,%eax
jne    12c9 <c_round+0x1b9>
jmp    1268 <c_round+0x158>
mov    -0x20(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2e,%eax
jne    1284 <c_round+0x174>
mov    -0x20(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x20(%rbp)
mov    -0x20(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x30,%eax
je     1299 <c_round+0x189>
jmp    12c4 <c_round+0x1b4>
mov    -0x20(%rbp),%rax
cmp    -0x18(%rbp),%rax
jne    12ae <c_round+0x19e>
mov    -0x30(%rbp),%rax
movb   $0x0,(%rax)
jmp    12b3 <c_round+0x1a3>
mov    -0x20(%rbp),%rax
add    $0xffffffffffffffff,%rax
mov    %rax,-0x20(%rbp)
jmp    1268 <c_round+0x158>
jmp    12c9 <c_round+0x1b9>
jmp    12ce <c_round+0x1be>
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,%r14
mov    %rdi,%r15
xorpd  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    1130 <c_round+0x20>
jnp    11ae <c_round+0x9e>
mulsd  0xec8(%rip),%xmm0
mov    %rsp,%rdi
call   1030 <modf@plt>
movsd  (%rsp),%xmm0
ucomisd 0xebb(%rip),%xmm0
jbe    11c5 <c_round+0xb5>
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     1229 <c_round+0x119>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movb   $0x30,(%rax)
cmp    %r14,%rax
je     1211 <c_round+0x101>
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    1229 <c_round+0x119>
movsbl %cl,%eax
add    $0xffffffd0,%eax
xorps  %xmm0,%xmm0
cvtsi2sd %eax,%xmm0
ucomisd 0xe45(%rip),%xmm0
ja     114f <c_round+0x3f>
mov    (%r12),%al
cmp    $0x2d,%al
je     11d1 <c_round+0xc1>
cmp    $0x2b,%al
jne    1229 <c_round+0x119>
xor    %eax,%eax
cmpb   $0x2e,(%rbx)
sete   %al
mov    %rax,%rcx
neg    %rcx
cmpb   $0x30,(%rbx,%rcx,1)
jne    1229 <c_round+0x119>
sub    %rax,%rbx
jmp    1205 <c_round+0xf5>
nopw   0x0(%rax,%rax,1)
xor    %eax,%eax
cmpb   $0x2e,-0x1(%rbx)
lea    -0x1(%rbx),%rbx
sete   %al
sub    %rax,%rbx
cmpb   $0x30,(%rbx)
jne    1229 <c_round+0x119>
cmp    %r14,%rbx
jne    11f0 <c_round+0xe0>
movb   $0x0,(%r12)
jmp    11f0 <c_round+0xe0>
test   %r15,%r15
je     1220 <c_round+0x110>
movb   $0x31,(%r14)
addl   $0x1,(%r15)
jmp    1229 <c_round+0x119>
movb   $0x31,-0x1(%r14)
add    $0xffffffffffffffff,%r14
mov    %r14,%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 %105
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 %78, label %73
73: ; preds = %68
%74 = load i8*, i8** %12
%75 = load i8, i8* %74
%76 = sext i8 %75 to i32
%77 = icmp eq i32 %76, 43
br i1 %77, label %78, label %104
78: ; preds = %73, %68
br label %79
79: ; preds = %100, %78
%80 = load i8*, i8** %10
%81 = load i8, i8* %80
%82 = sext i8 %81 to i32
%83 = icmp eq i32 %82, 46
br i1 %83, label %84, label %87
84: ; preds = %79
%85 = load i8*, i8** %10
%86 = getelementptr inbounds i8, i8* %85, i32 -1
store i8* %86, i8** %10
br label %87
87: ; preds = %84, %79
%88 = load i8*, i8** %10
%89 = load i8, i8* %88
%90 = sext i8 %89 to i32
%91 = icmp ne i32 %90, 48
br i1 %91, label %92, label %93
92: ; preds = %87
br label %103
93: ; preds = %87
%94 = load i8*, i8** %10
%95 = load i8*, i8** %9
%96 = icmp eq i8* %94, %95
br i1 %96, label %97, label %99
97: ; preds = %93
%98 = load i8*, i8** %12
store i8 0, i8* %98
br label %99
99: ; preds = %97, %93
br label %100
100: ; preds = %99
%101 = load i8*, i8** %10
%102 = getelementptr inbounds i8, i8* %101, i32 -1
store i8* %102, i8** %10
br label %79
103: ; preds = %92
br label %104
104: ; preds = %103, %73
br label %105
105: ; preds = %104, %67
%106 = load i8*, i8** %9
ret i8* %106
}

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 %69, 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 %69
37: ; preds = %32
%38 = getelementptr inbounds i8, i8* %2, i64 -1
store i8 49, i8* %38
br label %69
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 %69, label %29
48: ; preds = %18
%49 = load i8, i8* %5
switch i8 %49, label %69 [
i8 45, label %50
i8 43, label %50
]
50: ; preds = %48, %48
%51 = load i8, i8* %3
%52 = icmp eq i8 %51, 46
%53 = sext i1 %52 to i64
%54 = getelementptr i8, i8* %3, i64 %53
%55 = load i8, i8* %54
%56 = icmp eq i8 %55, 48
br i1 %56, label %57, label %69
57: ; preds = %50, %61
%58 = phi i8* [ %66, %61 ], [ %54, %50 ]
%59 = icmp eq i8* %58, %2
br i1 %59, label %60, label %61
60: ; preds = %57
store i8 0, i8* %5
br label %61
61: ; preds = %57, %60
%62 = getelementptr inbounds i8, i8* %58, i64 -1
%63 = load i8, i8* %62
%64 = icmp eq i8 %63, 46
%65 = sext i1 %64 to i64
%66 = getelementptr i8, i8* %62, i64 %65
%67 = load i8, i8* %66
%68 = icmp eq i8 %67, 48
br i1 %68, label %57, label %69
69: ; preds = %61, %39, %50, %21, %48, %37, %34
%70 = phi i8* [ %2, %34 ], [ %38, %37 ], [ %2, %48 ], [ %2, %21 ], [ %2, %50 ], [ %2, %39 ], [ %2, %61 ]
ret i8* %70
}