char *board_to_fen1(const char *board) {
  static char fen_setup[100];
  if (!board)
    return fen_setup;
  int p = 0;
  int i, j;
  int rank;
  for (rank = 10 - 1; rank >= 0; --rank) {
    j = '0';
    for (i = rank * 9; i < (rank + 1) * 9; ++i) {
      if (board[i] == '_')
        ++j;
      else if (j == '0')
        fen_setup[p++] = board[i];
      else {
        fen_setup[p++] = j;
        j = '0';
        fen_setup[p++] = board[i];
      }
    }
    if (j != '0')
      fen_setup[p++] = j;
    fen_setup[p++] = rank ? '/' : 0;
  }
  return fen_setup;
}


x86 assembly (clang, -O0):
<board_to_fen1>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
cmpq   $0x0,-0x10(%rbp)
jne    1123 <board_to_fen1+0x23>
lea    0x2f16(%rip),%rax
mov    %rax,-0x8(%rbp)
jmp    127b <board_to_fen1+0x17b>
movl   $0x0,-0x14(%rbp)
movl   $0x9,-0x20(%rbp)
cmpl   $0x0,-0x20(%rbp)
jl     1270 <board_to_fen1+0x170>
movl   $0x30,-0x1c(%rbp)
imul   $0x9,-0x20(%rbp),%eax
mov    %eax,-0x18(%rbp)
mov    -0x18(%rbp),%eax
mov    -0x20(%rbp),%ecx
add    $0x1,%ecx
imul   $0x9,%ecx,%ecx
cmp    %ecx,%eax
jge    1211 <board_to_fen1+0x111>
mov    -0x10(%rbp),%rax
movslq -0x18(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
cmp    $0x5f,%eax
jne    1180 <board_to_fen1+0x80>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    11fe <board_to_fen1+0xfe>
cmpl   $0x30,-0x1c(%rbp)
jne    11b2 <board_to_fen1+0xb2>
mov    -0x10(%rbp),%rax
movslq -0x18(%rbp),%rcx
mov    (%rax,%rcx,1),%dl
mov    -0x14(%rbp),%eax
mov    %eax,%ecx
add    $0x1,%ecx
mov    %ecx,-0x14(%rbp)
movslq %eax,%rcx
lea    0x2e86(%rip),%rax
mov    %dl,(%rax,%rcx,1)
jmp    11f9 <board_to_fen1+0xf9>
mov    -0x1c(%rbp),%eax
mov    %al,%dl
mov    -0x14(%rbp),%eax
mov    %eax,%ecx
add    $0x1,%ecx
mov    %ecx,-0x14(%rbp)
movslq %eax,%rcx
lea    0x2e64(%rip),%rax
mov    %dl,(%rax,%rcx,1)
movl   $0x30,-0x1c(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x18(%rbp),%rcx
mov    (%rax,%rcx,1),%dl
mov    -0x14(%rbp),%eax
mov    %eax,%ecx
add    $0x1,%ecx
mov    %ecx,-0x14(%rbp)
movslq %eax,%rcx
lea    0x2e3a(%rip),%rax
mov    %dl,(%rax,%rcx,1)
jmp    11fe <board_to_fen1+0xfe>
jmp    1203 <board_to_fen1+0x103>
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    1149 <board_to_fen1+0x49>
cmpl   $0x30,-0x1c(%rbp)
je     1238 <board_to_fen1+0x138>
mov    -0x1c(%rbp),%eax
mov    %al,%dl
mov    -0x14(%rbp),%eax
mov    %eax,%ecx
add    $0x1,%ecx
mov    %ecx,-0x14(%rbp)
movslq %eax,%rcx
lea    0x2dfb(%rip),%rax
mov    %dl,(%rax,%rcx,1)
mov    -0x20(%rbp),%edx
xor    %eax,%eax
mov    $0x2f,%ecx
cmp    $0x0,%edx
cmovne %ecx,%eax
mov    %al,%dl
mov    -0x14(%rbp),%eax
mov    %eax,%ecx
add    $0x1,%ecx
mov    %ecx,-0x14(%rbp)
movslq %eax,%rcx
lea    0x2dd1(%rip),%rax
mov    %dl,(%rax,%rcx,1)
mov    -0x20(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x20(%rbp)
jmp    1131 <board_to_fen1+0x31>
lea    0x2db9(%rip),%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<board_to_fen1>:
test   %rdi,%rdi
je     11b5 <board_to_fen1+0xb5>
add    $0x51,%rdi
xor    %r8d,%r8d
mov    $0x9,%r9d
lea    0x2f13(%rip),%r10
xor    %r11d,%r11d
jmp    1156 <board_to_fen1+0x56>
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
mov    %r9d,%eax
sub    $0x1,%eax
mov    $0x2f,%ecx
cmovb  %r8d,%ecx
movslq %r11d,%rdx
add    $0x1,%r11d
mov    %cl,(%rdx,%r10,1)
add    $0xfffffffffffffff7,%rdi
test   %r9d,%r9d
mov    %eax,%r9d
je     11b5 <board_to_fen1+0xb5>
mov    $0x30,%esi
xor    %eax,%eax
jmp    116d <board_to_fen1+0x6d>
nop
add    $0x1,%esi
add    $0x1,%rax
cmp    $0x9,%rax
je     11a0 <board_to_fen1+0xa0>
movzbl (%rdi,%rax,1),%edx
cmp    $0x5f,%dl
je     1160 <board_to_fen1+0x60>
movslq %r11d,%rcx
cmp    $0x30,%esi
jne    1188 <board_to_fen1+0x88>
lea    0x1(%rcx),%r11d
mov    %dl,(%rcx,%r10,1)
jmp    1199 <board_to_fen1+0x99>
mov    %sil,(%rcx,%r10,1)
movzbl (%rdi,%rax,1),%edx
lea    0x2(%rcx),%r11d
mov    %dl,0x1(%rcx,%r10,1)
mov    $0x30,%esi
jmp    1163 <board_to_fen1+0x63>
cmp    $0x30,%esi
je     1130 <board_to_fen1+0x30>
movslq %r11d,%rax
add    $0x1,%r11d
mov    %sil,(%rax,%r10,1)
jmp    1130 <board_to_fen1+0x30>
lea    0x2e74(%rip),%rax
ret

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

LLVM IR (-O2):
@board_to_fen1.fen_setup = internal global [100 x i8] zeroinitializer
define i8* @board_to_fen1(i8* %0) {
%2 = icmp eq i8* %0, null
br i1 %2, label %55, label %3
3: ; preds = %1, %44
%4 = phi i64 [ %54, %44 ], [ 90, %1 ]
%5 = phi i64 [ %53, %44 ], [ 81, %1 ]
%6 = phi i32 [ %51, %44 ], [ 9, %1 ]
%7 = phi i32 [ %48, %44 ], [ 0, %1 ]
br label %8
8: ; preds = %3, %32
%9 = phi i64 [ %5, %3 ], [ %35, %32 ]
%10 = phi i32 [ 48, %3 ], [ %34, %32 ]
%11 = phi i32 [ %7, %3 ], [ %33, %32 ]
%12 = getelementptr inbounds i8, i8* %0, i64 %9
%13 = load i8, i8* %12
%14 = icmp eq i8 %13, 95
br i1 %14, label %15, label %17
15: ; preds = %8
%16 = add nsw i32 %10, 1
br label %32
17: ; preds = %8
%18 = icmp eq i32 %10, 48
br i1 %18, label %19, label %23
19: ; preds = %17
%20 = add nsw i32 %11, 1
%21 = sext i32 %11 to i64
%22 = getelementptr inbounds [100 x i8], [100 x i8]* @board_to_fen1.fen_setup, i64 0, i64 %21
store i8 %13, i8* %22
br label %32
23: ; preds = %17
%24 = trunc i32 %10 to i8
%25 = add nsw i32 %11, 1
%26 = sext i32 %11 to i64
%27 = getelementptr inbounds [100 x i8], [100 x i8]* @board_to_fen1.fen_setup, i64 0, i64 %26
store i8 %24, i8* %27
%28 = load i8, i8* %12
%29 = add nsw i32 %11, 2
%30 = sext i32 %25 to i64
%31 = getelementptr inbounds [100 x i8], [100 x i8]* @board_to_fen1.fen_setup, i64 0, i64 %30
store i8 %28, i8* %31
br label %32
32: ; preds = %15, %23, %19
%33 = phi i32 [ %11, %15 ], [ %20, %19 ], [ %29, %23 ]
%34 = phi i32 [ %16, %15 ], [ 48, %19 ], [ 48, %23 ]
%35 = add nuw nsw i64 %9, 1
%36 = icmp eq i64 %35, %4
br i1 %36, label %37, label %8
37: ; preds = %32
%38 = icmp eq i32 %34, 48
br i1 %38, label %44, label %39
39: ; preds = %37
%40 = trunc i32 %34 to i8
%41 = add nsw i32 %33, 1
%42 = sext i32 %33 to i64
%43 = getelementptr inbounds [100 x i8], [100 x i8]* @board_to_fen1.fen_setup, i64 0, i64 %42
store i8 %40, i8* %43
br label %44
44: ; preds = %39, %37
%45 = phi i32 [ %41, %39 ], [ %33, %37 ]
%46 = icmp eq i32 %6, 0
%47 = select i1 %46, i8 0, i8 47
%48 = add nsw i32 %45, 1
%49 = sext i32 %45 to i64
%50 = getelementptr inbounds [100 x i8], [100 x i8]* @board_to_fen1.fen_setup, i64 0, i64 %49
store i8 %47, i8* %50
%51 = add nsw i32 %6, -1
%52 = icmp eq i32 %6, 0
%53 = add nsw i64 %5, -9
%54 = add nsw i64 %4, -9
br i1 %52, label %55, label %3
55: ; preds = %44, %1
ret i8* getelementptr inbounds ([100 x i8], [100 x i8]* @board_to_fen1.fen_setup, i64 0, i64 0)
}