void round_mantissa(unsigned long *mantissa, int *exponent, int prec, int is_f,
                    int really_g, int compressed) {
  unsigned long addend = (100000000UL) * 5;
  int shift = 0;
  int e = *exponent;
  if (compressed) {
    e %= 3;
    if (e < 0)
      e += 3;
    if (is_f) {
      int absexp = ((*exponent) < 0 ? -(*exponent) : (*exponent));
      if (absexp > (24))
        e += (absexp - (24));
    }
    ((void)0);
  }
  if (!is_f) {
    if (e < 0)
      e++;
    e = ((e) < 0 ? -(e) : (e));
  }
  shift = e + prec + 1;
  shift = ((shift) > (0) ? (shift) : (0));
  ((void)0);
  while (shift--)
    addend /= 10;
  *mantissa += addend;
  if (*mantissa >= ((100000000UL) * 10)) {
    *mantissa = (*mantissa + 5) / 10;
    *exponent += 1;
    ((void)0);
  }
}


x86 assembly (clang, -O0):
<round_mantissa>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %ecx,-0x18(%rbp)
mov    %r8d,-0x1c(%rbp)
mov    %r9d,-0x20(%rbp)
movq   $0x1dcd6500,-0x28(%rbp)
1d
movl   $0x0,-0x2c(%rbp)
mov    -0x10(%rbp),%rax
mov    (%rax),%eax
mov    %eax,-0x30(%rbp)
cmpl   $0x0,-0x20(%rbp)
je     11b3 <round_mantissa+0xb3>
mov    -0x30(%rbp),%eax
mov    $0x3,%ecx
cltd
idiv   %ecx
mov    %edx,-0x30(%rbp)
cmpl   $0x0,-0x30(%rbp)
jge    115d <round_mantissa+0x5d>
mov    -0x30(%rbp),%eax
add    $0x3,%eax
mov    %eax,-0x30(%rbp)
cmpl   $0x0,-0x18(%rbp)
je     11ae <round_mantissa+0xae>
mov    -0x10(%rbp),%rax
cmpl   $0x0,(%rax)
jge    1184 <round_mantissa+0x84>
mov    -0x10(%rbp),%rcx
xor    %eax,%eax
sub    (%rcx),%eax
mov    %eax,-0x38(%rbp)
jmp    118d <round_mantissa+0x8d>
mov    -0x10(%rbp),%rax
mov    (%rax),%eax
mov    %eax,-0x38(%rbp)
mov    -0x38(%rbp),%eax
mov    %eax,-0x34(%rbp)
cmpl   $0x18,-0x34(%rbp)
jle    11a9 <round_mantissa+0xa9>
mov    -0x34(%rbp),%eax
sub    $0x18,%eax
add    -0x30(%rbp),%eax
mov    %eax,-0x30(%rbp)
jmp    11ae <round_mantissa+0xae>
jmp    11b3 <round_mantissa+0xb3>
cmpl   $0x0,-0x18(%rbp)
jne    11f3 <round_mantissa+0xf3>
cmpl   $0x0,-0x30(%rbp)
jge    11d0 <round_mantissa+0xd0>
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
cmpl   $0x0,-0x30(%rbp)
jge    11e7 <round_mantissa+0xe7>
xor    %eax,%eax
sub    -0x30(%rbp),%eax
mov    %eax,-0x3c(%rbp)
jmp    11ed <round_mantissa+0xed>
mov    -0x30(%rbp),%eax
mov    %eax,-0x3c(%rbp)
mov    -0x3c(%rbp),%eax
mov    %eax,-0x30(%rbp)
mov    -0x30(%rbp),%eax
add    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
cmpl   $0x0,-0x2c(%rbp)
jle    1214 <round_mantissa+0x114>
mov    -0x2c(%rbp),%eax
mov    %eax,-0x40(%rbp)
jmp    121e <round_mantissa+0x11e>
xor    %eax,%eax
mov    %eax,-0x40(%rbp)
jmp    121e <round_mantissa+0x11e>
mov    -0x40(%rbp),%eax
mov    %eax,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
mov    %eax,%ecx
add    $0xffffffff,%ecx
mov    %ecx,-0x2c(%rbp)
cmp    $0x0,%eax
je     124f <round_mantissa+0x14f>
mov    -0x28(%rbp),%rax
mov    $0xa,%ecx
xor    %edx,%edx
div    %rcx
mov    %rax,-0x28(%rbp)
jmp    1224 <round_mantissa+0x124>
mov    -0x28(%rbp),%rcx
mov    -0x8(%rbp),%rax
add    (%rax),%rcx
mov    %rcx,(%rax)
mov    -0x8(%rbp),%rax
cmpq   $0x3b9aca00,(%rax)
jb     1298 <round_mantissa+0x198>
mov    -0x8(%rbp),%rax
mov    (%rax),%rax
add    $0x5,%rax
mov    $0xa,%ecx
xor    %edx,%edx
div    %rcx
mov    %rax,%rcx
mov    -0x8(%rbp),%rax
mov    %rcx,(%rax)
mov    -0x10(%rbp),%rax
mov    (%rax),%ecx
add    $0x1,%ecx
mov    %ecx,(%rax)
pop    %rbp
ret

x86 assembly (clang, -O2):
<round_mantissa>:
mov    (%rsi),%r8d
test   %r9d,%r9d
je     1152 <round_mantissa+0x52>
movslq %r8d,%r9
imul   $0x55555556,%r9,%rax
mov    %rax,%r10
shr    $0x3f,%r10
shr    $0x20,%rax
add    %r10d,%eax
lea    (%rax,%rax,2),%eax
mov    %r9d,%r10d
sub    %eax,%r10d
neg    %eax
test   %r10d,%r10d
lea    0x3(%r9,%rax,1),%eax
cmovns %r10d,%eax
test   %ecx,%ecx
je     1159 <round_mantissa+0x59>
mov    %r8d,%ecx
neg    %ecx
cmovs  %r8d,%ecx
xor    %r9d,%r9d
sub    $0x18,%ecx
cmovb  %r9d,%ecx
add    %ecx,%eax
jmp    1167 <round_mantissa+0x67>
mov    %r8d,%eax
test   %ecx,%ecx
jne    1167 <round_mantissa+0x67>
mov    %eax,%ecx
shr    $0x1f,%ecx
add    %eax,%ecx
mov    %ecx,%eax
neg    %eax
cmovs  %ecx,%eax
add    %edx,%eax
mov    $0xffffffff,%r10d
cmovns %eax,%r10d
mov    %r10d,%ecx
mov    $0x1dcd6500,%edx
inc    %ecx
je     11e0 <round_mantissa+0xe0>
mov    %ecx,%r9d
and    $0x3,%r9d
cmp    $0x3,%r10d
jae    1193 <round_mantissa+0x93>
mov    $0x1dcd6500,%edx
jmp    11bf <round_mantissa+0xbf>
and    $0xfffffffc,%ecx
mov    $0x1dcd6500,%edx
movabs $0x346dc5d63886594b,%r10
c5 6d 34
cs nopw 0x0(%rax,%rax,1)
nop
mov    %rdx,%rax
mul    %r10
shr    $0xb,%rdx
add    $0xfffffffc,%ecx
jne    11b0 <round_mantissa+0xb0>
test   %r9d,%r9d
je     11e0 <round_mantissa+0xe0>
movabs $0xcccccccccccccccd,%rcx
cc cc cc
xchg   %ax,%ax
mov    %rdx,%rax
mul    %rcx
shr    $0x3,%rdx
add    $0xffffffff,%r9d
jne    11d0 <round_mantissa+0xd0>
add    (%rdi),%rdx
mov    %rdx,(%rdi)
cmp    $0x3b9aca00,%rdx
jb     1211 <round_mantissa+0x111>
add    $0x5,%rdx
movabs $0xcccccccccccccccd,%rcx
cc cc cc
mov    %rdx,%rax
mul    %rcx
shr    $0x3,%rdx
mov    %rdx,(%rdi)
add    $0x1,%r8d
mov    %r8d,(%rsi)
ret

LLVM IR (-O0):
define void @round_mantissa(i64* %0, i32* %1, i32 %2, i32 %3, i32 %4, i32 %5) {
%7 = alloca i64*
%8 = alloca i32*
%9 = alloca i32
%10 = alloca i32
%11 = alloca i32
%12 = alloca i32
%13 = alloca i64
%14 = alloca i32
%15 = alloca i32
%16 = alloca i32
store i64* %0, i64** %7
store i32* %1, i32** %8
store i32 %2, i32* %9
store i32 %3, i32* %10
store i32 %4, i32* %11
store i32 %5, i32* %12
store i64 500000000, i64* %13
store i32 0, i32* %14
%17 = load i32*, i32** %8
%18 = load i32, i32* %17
store i32 %18, i32* %15
%19 = load i32, i32* %12
%20 = icmp ne i32 %19, 0
br i1 %20, label %21, label %54
21: ; preds = %6
%22 = load i32, i32* %15
%23 = srem i32 %22, 3
store i32 %23, i32* %15
%24 = load i32, i32* %15
%25 = icmp slt i32 %24, 0
br i1 %25, label %26, label %29
26: ; preds = %21
%27 = load i32, i32* %15
%28 = add nsw i32 %27, 3
store i32 %28, i32* %15
br label %29
29: ; preds = %26, %21
%30 = load i32, i32* %10
%31 = icmp ne i32 %30, 0
br i1 %31, label %32, label %53
32: ; preds = %29
%33 = load i32*, i32** %8
%34 = load i32, i32* %33
%35 = icmp slt i32 %34, 0
br i1 %35, label %36, label %40
36: ; preds = %32
%37 = load i32*, i32** %8
%38 = load i32, i32* %37
%39 = sub nsw i32 0, %38
br label %43
40: ; preds = %32
%41 = load i32*, i32** %8
%42 = load i32, i32* %41
br label %43
43: ; preds = %40, %36
%44 = phi i32 [ %39, %36 ], [ %42, %40 ]
store i32 %44, i32* %16
%45 = load i32, i32* %16
%46 = icmp sgt i32 %45, 24
br i1 %46, label %47, label %52
47: ; preds = %43
%48 = load i32, i32* %16
%49 = sub nsw i32 %48, 24
%50 = load i32, i32* %15
%51 = add nsw i32 %50, %49
store i32 %51, i32* %15
br label %52
52: ; preds = %47, %43
br label %53
53: ; preds = %52, %29
br label %54
54: ; preds = %53, %6
%55 = load i32, i32* %10
%56 = icmp ne i32 %55, 0
br i1 %56, label %73, label %57
57: ; preds = %54
%58 = load i32, i32* %15
%59 = icmp slt i32 %58, 0
br i1 %59, label %60, label %63
60: ; preds = %57
%61 = load i32, i32* %15
%62 = add nsw i32 %61, 1
store i32 %62, i32* %15
br label %63
63: ; preds = %60, %57
%64 = load i32, i32* %15
%65 = icmp slt i32 %64, 0
br i1 %65, label %66, label %69
66: ; preds = %63
%67 = load i32, i32* %15
%68 = sub nsw i32 0, %67
br label %71
69: ; preds = %63
%70 = load i32, i32* %15
br label %71
71: ; preds = %69, %66
%72 = phi i32 [ %68, %66 ], [ %70, %69 ]
store i32 %72, i32* %15
br label %73
73: ; preds = %71, %54
%74 = load i32, i32* %15
%75 = load i32, i32* %9
%76 = add nsw i32 %74, %75
%77 = add nsw i32 %76, 1
store i32 %77, i32* %14
%78 = load i32, i32* %14
%79 = icmp sgt i32 %78, 0
br i1 %79, label %80, label %82
80: ; preds = %73
%81 = load i32, i32* %14
br label %83
82: ; preds = %73
br label %83
83: ; preds = %82, %80
%84 = phi i32 [ %81, %80 ], [ 0, %82 ]
store i32 %84, i32* %14
br label %85
85: ; preds = %89, %83
%86 = load i32, i32* %14
%87 = add nsw i32 %86, -1
store i32 %87, i32* %14
%88 = icmp ne i32 %86, 0
br i1 %88, label %89, label %92
89: ; preds = %85
%90 = load i64, i64* %13
%91 = udiv i64 %90, 10
store i64 %91, i64* %13
br label %85
92: ; preds = %85
%93 = load i64, i64* %13
%94 = load i64*, i64** %7
%95 = load i64, i64* %94
%96 = add i64 %95, %93
store i64 %96, i64* %94
%97 = load i64*, i64** %7
%98 = load i64, i64* %97
%99 = icmp uge i64 %98, 1000000000
br i1 %99, label %100, label %109
100: ; preds = %92
%101 = load i64*, i64** %7
%102 = load i64, i64* %101
%103 = add i64 %102, 5
%104 = udiv i64 %103, 10
%105 = load i64*, i64** %7
store i64 %104, i64* %105
%106 = load i32*, i32** %8
%107 = load i32, i32* %106
%108 = add nsw i32 %107, 1
store i32 %108, i32* %106
br label %109
109: ; preds = %100, %92
ret void
}

LLVM IR (-O2):
define void @round_mantissa(i64* nocapture %0, i32* nocapture %1, i32 %2, i32 %3, i32 %4, i32 %5) {
%7 = load i32, i32* %1
%8 = icmp eq i32 %5, 0
br i1 %8, label %19, label %9
9: ; preds = %6
%10 = srem i32 %7, 3
%11 = icmp slt i32 %10, 0
%12 = add nsw i32 %10, 3
%13 = select i1 %11, i32 %12, i32 %10
%14 = icmp eq i32 %3, 0
br i1 %14, label %21, label %15
15: ; preds = %9
%16 = tail call i32 @llvm.abs.i32(i32 %7, i1 true)
%17 = tail call i32 @llvm.usub.sat.i32(i32 %16, i32 24)
%18 = add nuw nsw i32 %13, %17
br label %26
19: ; preds = %6
%20 = icmp eq i32 %3, 0
br i1 %20, label %21, label %26
21: ; preds = %9, %19
%22 = phi i32 [ %7, %19 ], [ %13, %9 ]
%23 = lshr i32 %22, 31
%24 = add nsw i32 %23, %22
%25 = tail call i32 @llvm.abs.i32(i32 %24, i1 true)
br label %26
26: ; preds = %15, %21, %19
%27 = phi i32 [ %7, %19 ], [ %25, %21 ], [ %18, %15 ]
%28 = add nsw i32 %27, %2
%29 = icmp sgt i32 %28, -1
%30 = select i1 %29, i32 %28, i32 -1
%31 = add i32 %30, 1
%32 = icmp eq i32 %31, 0
br i1 %32, label %54, label %33
33: ; preds = %26
%34 = and i32 %31, 3
%35 = icmp ult i32 %30, 3
br i1 %35, label %44, label %36
36: ; preds = %33
%37 = and i32 %31, -4
br label %38
38: ; preds = %38, %36
%39 = phi i64 [ 500000000, %36 ], [ %41, %38 ]
%40 = phi i32 [ 0, %36 ], [ %42, %38 ]
%41 = udiv i64 %39, 10000
%42 = add i32 %40, 4
%43 = icmp eq i32 %42, %37
br i1 %43, label %44, label %38
44: ; preds = %38, %33
%45 = phi i64 [ undef, %33 ], [ %41, %38 ]
%46 = phi i64 [ 500000000, %33 ], [ %41, %38 ]
%47 = icmp eq i32 %34, 0
br i1 %47, label %54, label %48
48: ; preds = %44, %48
%49 = phi i64 [ %51, %48 ], [ %46, %44 ]
%50 = phi i32 [ %52, %48 ], [ 0, %44 ]
%51 = udiv i64 %49, 10
%52 = add i32 %50, 1
%53 = icmp eq i32 %52, %34
br i1 %53, label %54, label %48
54: ; preds = %44, %48, %26
%55 = phi i64 [ 500000000, %26 ], [ %45, %44 ], [ %51, %48 ]
%56 = load i64, i64* %0
%57 = add i64 %56, %55
store i64 %57, i64* %0
%58 = icmp ugt i64 %57, 999999999
br i1 %58, label %59, label %63
59: ; preds = %54
%60 = add i64 %57, 5
%61 = udiv i64 %60, 10
store i64 %61, i64* %0
%62 = add nsw i32 %7, 1
store i32 %62, i32* %1
br label %63
63: ; preds = %59, %54
ret void
}