void round_mantissa(unsigned long *mantissa, int *exponent, int prec, int is_f,
                    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)
movq   $0x1dcd6500,-0x28(%rbp)
1d
movl   $0x0,-0x2c(%rbp)
mov    -0x10(%rbp),%rax
mov    (%rax),%eax
mov    %eax,-0x30(%rbp)
cmpl   $0x0,-0x1c(%rbp)
je     11af <round_mantissa+0xaf>
mov    -0x30(%rbp),%eax
mov    $0x3,%ecx
cltd
idiv   %ecx
mov    %edx,-0x30(%rbp)
cmpl   $0x0,-0x30(%rbp)
jge    1159 <round_mantissa+0x59>
mov    -0x30(%rbp),%eax
add    $0x3,%eax
mov    %eax,-0x30(%rbp)
cmpl   $0x0,-0x18(%rbp)
je     11aa <round_mantissa+0xaa>
mov    -0x10(%rbp),%rax
cmpl   $0x0,(%rax)
jge    1180 <round_mantissa+0x80>
mov    -0x10(%rbp),%rcx
xor    %eax,%eax
sub    (%rcx),%eax
mov    %eax,-0x38(%rbp)
jmp    1189 <round_mantissa+0x89>
mov    -0x10(%rbp),%rax
mov    (%rax),%eax
mov    %eax,-0x38(%rbp)
mov    -0x38(%rbp),%eax
mov    %eax,-0x34(%rbp)
cmpl   $0x18,-0x34(%rbp)
jle    11a5 <round_mantissa+0xa5>
mov    -0x34(%rbp),%eax
sub    $0x18,%eax
add    -0x30(%rbp),%eax
mov    %eax,-0x30(%rbp)
jmp    11aa <round_mantissa+0xaa>
jmp    11af <round_mantissa+0xaf>
cmpl   $0x0,-0x18(%rbp)
jne    11ef <round_mantissa+0xef>
cmpl   $0x0,-0x30(%rbp)
jge    11cc <round_mantissa+0xcc>
mov    -0x30(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x30(%rbp)
cmpl   $0x0,-0x30(%rbp)
jge    11e3 <round_mantissa+0xe3>
xor    %eax,%eax
sub    -0x30(%rbp),%eax
mov    %eax,-0x3c(%rbp)
jmp    11e9 <round_mantissa+0xe9>
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    1210 <round_mantissa+0x110>
mov    -0x2c(%rbp),%eax
mov    %eax,-0x40(%rbp)
jmp    121a <round_mantissa+0x11a>
xor    %eax,%eax
mov    %eax,-0x40(%rbp)
jmp    121a <round_mantissa+0x11a>
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     124b <round_mantissa+0x14b>
mov    -0x28(%rbp),%rax
mov    $0xa,%ecx
xor    %edx,%edx
div    %rcx
mov    %rax,-0x28(%rbp)
jmp    1220 <round_mantissa+0x120>
mov    -0x28(%rbp),%rcx
mov    -0x8(%rbp),%rax
add    (%rax),%rcx
mov    %rcx,(%rax)
mov    -0x8(%rbp),%rax
cmpq   $0x3b9aca00,(%rax)
jb     1294 <round_mantissa+0x194>
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),%r9d
test   %r8d,%r8d
je     1152 <round_mantissa+0x52>
movslq %r9d,%r8
imul   $0x55555556,%r8,%rax
mov    %rax,%r10
shr    $0x3f,%r10
shr    $0x20,%rax
add    %r10d,%eax
lea    (%rax,%rax,2),%eax
mov    %r8d,%r10d
sub    %eax,%r10d
neg    %eax
test   %r10d,%r10d
lea    0x3(%r8,%rax,1),%eax
cmovns %r10d,%eax
test   %ecx,%ecx
je     1159 <round_mantissa+0x59>
mov    %r9d,%ecx
neg    %ecx
cmovs  %r9d,%ecx
xor    %r8d,%r8d
sub    $0x18,%ecx
cmovb  %r8d,%ecx
add    %ecx,%eax
jmp    1167 <round_mantissa+0x67>
mov    %r9d,%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,%r8d
and    $0x3,%r8d
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   %r8d,%r8d
je     11e0 <round_mantissa+0xe0>
movabs $0xcccccccccccccccd,%rcx
cc cc cc
xchg   %ax,%ax
mov    %rdx,%rax
mul    %rcx
shr    $0x3,%rdx
add    $0xffffffff,%r8d
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,%r9d
mov    %r9d,(%rsi)
ret

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

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