int fp_round(char buff[], int len) {
  int ch;
  char *p = &buff[len];
  if ((ch = *p) == 0)
    return 0;
  if (ch < '5')
    return 0;
  if (ch == '5') {
    char *p1;
    for (p1 = p; (ch = *++p1) == '0';)
      ;
    if (ch == 0)
      return 0;
  }
  for (;;) {
    ch = *--p;
    if (ch == '9')
      *p = '0';
    else {
      *p = ch + 1;
      break;
    }
  }
  if (buff[0] != '0') {
    int w;
    for (w = len; w >= 0; w--)
      buff[w + 1] = buff[w];
    return 1;
  }
  return 0;
}


x86 assembly (clang, -O0):
<fp_round>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
add    %rcx,%rax
mov    %rax,-0x20(%rbp)
mov    -0x20(%rbp),%rax
movsbl (%rax),%eax
mov    %eax,-0x18(%rbp)
cmp    $0x0,%eax
jne    1139 <fp_round+0x39>
movl   $0x0,-0x4(%rbp)
jmp    1245 <fp_round+0x145>
cmpl   $0x35,-0x18(%rbp)
jge    114f <fp_round+0x4f>
movl   $0x0,-0x4(%rbp)
jmp    1245 <fp_round+0x145>
cmpl   $0x35,-0x18(%rbp)
jne    11a0 <fp_round+0xa0>
mov    -0x20(%rbp),%rax
mov    %rax,-0x28(%rbp)
mov    -0x28(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x28(%rbp)
movsbl 0x1(%rax),%eax
mov    %eax,-0x18(%rbp)
cmp    $0x30,%eax
jne    1185 <fp_round+0x85>
jmp    1161 <fp_round+0x61>
cmpl   $0x0,-0x18(%rbp)
jne    119b <fp_round+0x9b>
movl   $0x0,-0x4(%rbp)
jmp    1245 <fp_round+0x145>
jmp    11a0 <fp_round+0xa0>
jmp    11a5 <fp_round+0xa5>
mov    -0x20(%rbp),%rax
mov    %rax,%rcx
add    $0xffffffffffffffff,%rcx
mov    %rcx,-0x20(%rbp)
movsbl -0x1(%rax),%eax
mov    %eax,-0x18(%rbp)
cmpl   $0x39,-0x18(%rbp)
jne    11d1 <fp_round+0xd1>
mov    -0x20(%rbp),%rax
movb   $0x30,(%rax)
jmp    11e4 <fp_round+0xe4>
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %al,%cl
mov    -0x20(%rbp),%rax
mov    %cl,(%rax)
jmp    11e9 <fp_round+0xe9>
jmp    11a5 <fp_round+0xa5>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x30,%eax
je     123e <fp_round+0x13e>
mov    -0x14(%rbp),%eax
mov    %eax,-0x2c(%rbp)
cmpl   $0x0,-0x2c(%rbp)
jl     1232 <fp_round+0x132>
mov    -0x10(%rbp),%rax
movslq -0x2c(%rbp),%rcx
mov    (%rax,%rcx,1),%dl
mov    -0x10(%rbp),%rax
mov    -0x2c(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x2c(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x2c(%rbp)
jmp    11ff <fp_round+0xff>
movl   $0x1,-0x4(%rbp)
jmp    1245 <fp_round+0x145>
movl   $0x0,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<fp_round>:
movslq %esi,%rdx
lea    (%rdi,%rdx,1),%rcx
xor    %eax,%eax
cmpb   $0x35,(%rdi,%rdx,1)
jl     11a2 <fp_round+0xa2>
jne    1143 <fp_round+0x43>
add    %rdi,%rdx
add    $0x1,%rdx
nopl   0x0(%rax)
movzbl (%rdx),%r8d
add    $0x1,%rdx
cmp    $0x30,%r8b
je     1120 <fp_round+0x20>
test   %r8b,%r8b
jne    1143 <fp_round+0x43>
jmp    11a2 <fp_round+0xa2>
cs nopw 0x0(%rax,%rax,1)
nop
movb   $0x30,(%rcx)
movzbl -0x1(%rcx),%edx
add    $0xffffffffffffffff,%rcx
cmp    $0x39,%dl
je     1140 <fp_round+0x40>
add    $0x1,%dl
mov    %dl,(%rcx)
cmpb   $0x30,(%rdi)
je     11a2 <fp_round+0xa2>
mov    $0x1,%eax
test   %esi,%esi
js     11a2 <fp_round+0xa2>
mov    %esi,%ecx
lea    0x1(%rsi),%r8d
and    $0x3,%r8
je     1182 <fp_round+0x82>
nop
movzbl (%rdi,%rcx,1),%edx
mov    %dl,0x1(%rdi,%rcx,1)
add    $0xffffffffffffffff,%rcx
add    $0xffffffffffffffff,%r8
jne    1170 <fp_round+0x70>
cmp    $0x3,%esi
jb     11a2 <fp_round+0xa2>
nopw   0x0(%rax,%rax,1)
mov    -0x3(%rdi,%rcx,1),%edx
mov    %edx,-0x2(%rdi,%rcx,1)
add    $0xfffffffffffffffc,%rcx
cmp    $0xffffffffffffffff,%rcx
jne    1190 <fp_round+0x90>
ret

LLVM IR (-O0):
define i32 @fp_round(i8* %0, i32 %1) {
%3 = alloca i32
%4 = alloca i8*
%5 = alloca i32
%6 = alloca i32
%7 = alloca i8*
%8 = alloca i8*
%9 = alloca i32
store i8* %0, i8** %4
store i32 %1, i32* %5
%10 = load i8*, i8** %4
%11 = load i32, i32* %5
%12 = sext i32 %11 to i64
%13 = getelementptr inbounds i8, i8* %10, i64 %12
store i8* %13, i8** %7
%14 = load i8*, i8** %7
%15 = load i8, i8* %14
%16 = sext i8 %15 to i32
store i32 %16, i32* %6
%17 = icmp eq i32 %16, 0
br i1 %17, label %18, label %19
18: ; preds = %2
store i32 0, i32* %3
br label %83
19: ; preds = %2
%20 = load i32, i32* %6
%21 = icmp slt i32 %20, 53
br i1 %21, label %22, label %23
22: ; preds = %19
store i32 0, i32* %3
br label %83
23: ; preds = %19
%24 = load i32, i32* %6
%25 = icmp eq i32 %24, 53
br i1 %25, label %26, label %40
26: ; preds = %23
%27 = load i8*, i8** %7
store i8* %27, i8** %8
br label %28
28: ; preds = %34, %26
%29 = load i8*, i8** %8
%30 = getelementptr inbounds i8, i8* %29, i32 1
store i8* %30, i8** %8
%31 = load i8, i8* %30
%32 = sext i8 %31 to i32
store i32 %32, i32* %6
%33 = icmp eq i32 %32, 48
br i1 %33, label %34, label %35
34: ; preds = %28
br label %28
35: ; preds = %28
%36 = load i32, i32* %6
%37 = icmp eq i32 %36, 0
br i1 %37, label %38, label %39
38: ; preds = %35
store i32 0, i32* %3
br label %83
39: ; preds = %35
br label %40
40: ; preds = %39, %23
br label %41
41: ; preds = %55, %40
%42 = load i8*, i8** %7
%43 = getelementptr inbounds i8, i8* %42, i32 -1
store i8* %43, i8** %7
%44 = load i8, i8* %43
%45 = sext i8 %44 to i32
store i32 %45, i32* %6
%46 = load i32, i32* %6
%47 = icmp eq i32 %46, 57
br i1 %47, label %48, label %50
48: ; preds = %41
%49 = load i8*, i8** %7
store i8 48, i8* %49
br label %55
50: ; preds = %41
%51 = load i32, i32* %6
%52 = add nsw i32 %51, 1
%53 = trunc i32 %52 to i8
%54 = load i8*, i8** %7
store i8 %53, i8* %54
br label %56
55: ; preds = %48
br label %41
56: ; preds = %50
%57 = load i8*, i8** %4
%58 = getelementptr inbounds i8, i8* %57, i64 0
%59 = load i8, i8* %58
%60 = sext i8 %59 to i32
%61 = icmp ne i32 %60, 48
br i1 %61, label %62, label %82
62: ; preds = %56
%63 = load i32, i32* %5
store i32 %63, i32* %9
br label %64
64: ; preds = %78, %62
%65 = load i32, i32* %9
%66 = icmp sge i32 %65, 0
br i1 %66, label %67, label %81
67: ; preds = %64
%68 = load i8*, i8** %4
%69 = load i32, i32* %9
%70 = sext i32 %69 to i64
%71 = getelementptr inbounds i8, i8* %68, i64 %70
%72 = load i8, i8* %71
%73 = load i8*, i8** %4
%74 = load i32, i32* %9
%75 = add nsw i32 %74, 1
%76 = sext i32 %75 to i64
%77 = getelementptr inbounds i8, i8* %73, i64 %76
store i8 %72, i8* %77
br label %78
78: ; preds = %67
%79 = load i32, i32* %9
%80 = add nsw i32 %79, -1
store i32 %80, i32* %9
br label %64
81: ; preds = %64
store i32 1, i32* %3
br label %83
82: ; preds = %56
store i32 0, i32* %3
br label %83
83: ; preds = %82, %81, %38, %22, %18
%84 = load i32, i32* %3
ret i32 %84
}

LLVM IR (-O2):
define i32 @fp_round(i8* nocapture %0, i32 %1) {
%3 = sext i32 %1 to i64
%4 = getelementptr inbounds i8, i8* %0, i64 %3
%5 = load i8, i8* %4
%6 = icmp slt i8 %5, 53
br i1 %6, label %68, label %7
7: ; preds = %2
%8 = icmp eq i8 %5, 53
br i1 %8, label %9, label %13
9: ; preds = %7, %9
%10 = phi i8* [ %11, %9 ], [ %4, %7 ]
%11 = getelementptr inbounds i8, i8* %10, i64 1
%12 = load i8, i8* %11
switch i8 %12, label %13 [
i8 48, label %9
i8 0, label %68
]
13: ; preds = %9, %7
%14 = getelementptr inbounds i8, i8* %4, i64 -1
%15 = load i8, i8* %14
%16 = icmp eq i8 %15, 57
br i1 %16, label %17, label %22
17: ; preds = %13, %17
%18 = phi i8* [ %19, %17 ], [ %14, %13 ]
store i8 48, i8* %18
%19 = getelementptr inbounds i8, i8* %18, i64 -1
%20 = load i8, i8* %19
%21 = icmp eq i8 %20, 57
br i1 %21, label %17, label %22
22: ; preds = %17, %13
%23 = phi i8* [ %14, %13 ], [ %19, %17 ]
%24 = phi i8 [ %15, %13 ], [ %20, %17 ]
%25 = add i8 %24, 1
store i8 %25, i8* %23
%26 = load i8, i8* %0
%27 = icmp eq i8 %26, 48
br i1 %27, label %68, label %28
28: ; preds = %22
%29 = icmp sgt i32 %1, -1
br i1 %29, label %30, label %68
30: ; preds = %28
%31 = zext i32 %1 to i64
%32 = add nuw nsw i64 %31, 1
%33 = and i64 %32, 3
%34 = icmp eq i64 %33, 0
br i1 %34, label %45, label %35
35: ; preds = %30, %35
%36 = phi i64 [ %42, %35 ], [ %31, %30 ]
%37 = phi i64 [ %43, %35 ], [ 0, %30 ]
%38 = getelementptr inbounds i8, i8* %0, i64 %36
%39 = load i8, i8* %38
%40 = add nuw nsw i64 %36, 1
%41 = getelementptr inbounds i8, i8* %0, i64 %40
store i8 %39, i8* %41
%42 = add nsw i64 %36, -1
%43 = add i64 %37, 1
%44 = icmp eq i64 %43, %33
br i1 %44, label %45, label %35
45: ; preds = %35, %30
%46 = phi i64 [ %31, %30 ], [ %42, %35 ]
%47 = icmp ult i32 %1, 3
br i1 %47, label %68, label %48
48: ; preds = %45, %48
%49 = phi i64 [ %66, %48 ], [ %46, %45 ]
%50 = getelementptr inbounds i8, i8* %0, i64 %49
%51 = load i8, i8* %50
%52 = add nuw nsw i64 %49, 1
%53 = getelementptr inbounds i8, i8* %0, i64 %52
store i8 %51, i8* %53
%54 = add nsw i64 %49, -1
%55 = getelementptr inbounds i8, i8* %0, i64 %54
%56 = load i8, i8* %55
%57 = getelementptr inbounds i8, i8* %0, i64 %49
store i8 %56, i8* %57
%58 = add nsw i64 %49, -2
%59 = getelementptr inbounds i8, i8* %0, i64 %58
%60 = load i8, i8* %59
%61 = getelementptr inbounds i8, i8* %0, i64 %54
store i8 %60, i8* %61
%62 = add nsw i64 %49, -3
%63 = getelementptr inbounds i8, i8* %0, i64 %62
%64 = load i8, i8* %63
%65 = getelementptr inbounds i8, i8* %0, i64 %58
store i8 %64, i8* %65
%66 = add nsw i64 %49, -4
%67 = icmp eq i64 %62, 0
br i1 %67, label %68, label %48
68: ; preds = %9, %45, %48, %28, %22, %2
%69 = phi i32 [ 0, %2 ], [ 0, %22 ], [ 1, %28 ], [ 1, %48 ], [ 1, %45 ], [ 0, %9 ]
ret i32 %69
}