int TclFormatInt(buffer, n)
char *buffer;
long n;
{
  long intVal;
  int i;
  int numFormatted, j;
  char *digits = "0123456789";
  if (n == -n) {
    sprintf(buffer, "%ld", n);
    return strlen(buffer);
  }
  intVal = (n < 0 ? -n : n);
  i = 0;
  buffer[0] = '\0';
  do {
    i++;
    buffer[i] = digits[intVal % 10];
    intVal = intVal / 10;
  } while (intVal > 0);
  if (n < 0) {
    i++;
    buffer[i] = '-';
  }
  numFormatted = i;
  for (j = 0; j < i; j++, i--) {
    char tmp = buffer[i];
    buffer[i] = buffer[j];
    buffer[j] = tmp;
  }
  return numFormatted;
}


x86 assembly (clang, -O0):
<TclFormatInt>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
lea    0xec9(%rip),%rax
mov    %rax,-0x38(%rbp)
mov    -0x18(%rbp),%rax
xor    %ecx,%ecx
sub    -0x18(%rbp),%rcx
cmp    %rcx,%rax
jne    1175 <TclFormatInt+0x55>
mov    -0x10(%rbp),%rdi
mov    -0x18(%rbp),%rdx
lea    0xeae(%rip),%rsi
mov    $0x0,%al
call   1040 <sprintf@plt>
mov    -0x10(%rbp),%rdi
call   1030 <strlen@plt>
mov    %eax,-0x4(%rbp)
jmp    1283 <TclFormatInt+0x163>
cmpq   $0x0,-0x18(%rbp)
jge    118f <TclFormatInt+0x6f>
xor    %eax,%eax
sub    -0x18(%rbp),%rax
mov    %rax,-0x48(%rbp)
jmp    1197 <TclFormatInt+0x77>
mov    -0x18(%rbp),%rax
mov    %rax,-0x48(%rbp)
mov    -0x48(%rbp),%rax
mov    %rax,-0x20(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x10(%rbp),%rax
movb   $0x0,(%rax)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
mov    -0x38(%rbp),%rax
mov    %rax,-0x50(%rbp)
mov    -0x20(%rbp),%rax
mov    $0xa,%ecx
cqto
idiv   %rcx
mov    -0x50(%rbp),%rax
mov    (%rax,%rdx,1),%dl
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x20(%rbp),%rax
mov    $0xa,%ecx
cqto
idiv   %rcx
mov    %rax,-0x20(%rbp)
cmpq   $0x0,-0x20(%rbp)
jg     11ad <TclFormatInt+0x8d>
cmpq   $0x0,-0x18(%rbp)
jge    121b <TclFormatInt+0xfb>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
movb   $0x2d,(%rax,%rcx,1)
mov    -0x24(%rbp),%eax
mov    %eax,-0x28(%rbp)
movl   $0x0,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x24(%rbp),%eax
jge    127d <TclFormatInt+0x15d>
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    (%rax,%rcx,1),%al
mov    %al,-0x39(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x2c(%rbp),%rcx
mov    (%rax,%rcx,1),%dl
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x39(%rbp),%dl
mov    -0x10(%rbp),%rax
movslq -0x2c(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
mov    -0x24(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x24(%rbp)
jmp    1228 <TclFormatInt+0x108>
mov    -0x28(%rbp),%eax
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x50,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<TclFormatInt>:
push   %r14
push   %rbx
push   %rax
mov    %rdi,%r14
test   %rsi,%rsi
je     11f6 <TclFormatInt+0xd6>
mov    %rsi,%rbx
neg    %rbx
cmovs  %rsi,%rbx
movb   $0x0,(%r14)
xor    %ecx,%ecx
lea    0xeb9(%rip),%r8
movabs $0x6666666666666667,%r9
66 66 66
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
mov    %rbx,%rax
imul   %r9
mov    %rdx,%rax
shr    $0x3f,%rax
sar    $0x2,%rdx
add    %rax,%rdx
lea    (%rdx,%rdx,1),%rax
lea    (%rax,%rax,4),%rax
mov    %rbx,%rdi
sub    %rax,%rdi
movzbl (%r8,%rdi,1),%eax
mov    %al,0x1(%r14,%rcx,1)
add    $0x1,%rcx
cmp    $0x9,%rbx
mov    %rdx,%rbx
jg     1160 <TclFormatInt+0x40>
test   %rsi,%rsi
jns    11a9 <TclFormatInt+0x89>
add    $0x1,%rcx
mov    %ecx,%eax
movb   $0x2d,(%r14,%rax,1)
movslq %ecx,%rax
mov    (%r14,%rax,1),%dl
movb   $0x0,(%r14,%rax,1)
mov    %dl,(%r14)
cmp    $0x3,%eax
jl     1214 <TclFormatInt+0xf4>
add    $0xffffffffffffffff,%rax
mov    $0x2,%edx
cs nopw 0x0(%rax,%rax,1)
movzbl -0x1(%r14,%rdx,1),%ebx
movzbl (%r14,%rax,1),%esi
mov    %bl,(%r14,%rax,1)
mov    %sil,-0x1(%r14,%rdx,1)
add    $0xffffffffffffffff,%rax
lea    0x1(%rdx),%rsi
cmp    %rax,%rdx
mov    %rsi,%rdx
jl     11d0 <TclFormatInt+0xb0>
jmp    1214 <TclFormatInt+0xf4>
lea    0xe0e(%rip),%rsi
mov    %r14,%rdi
xor    %edx,%edx
xor    %eax,%eax
call   1040 <sprintf@plt>
mov    %r14,%rdi
call   1030 <strlen@plt>
mov    %rax,%rcx
mov    %ecx,%eax
add    $0x8,%rsp
pop    %rbx
pop    %r14
ret

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

LLVM IR (-O2):
@.str = [11 x i8] c"0123456789\00"
@.str.1 = [4 x i8] c"%ld\00"
define i32 @TclFormatInt(i8* nocapture %0, i64 %1) {
%3 = icmp eq i64 %1, 0
br i1 %3, label %4, label %8
4: ; preds = %2
%5 = tail call i32 (i8*, i8*, ...) @sprintf(i8* dereferenceable(1) %0, i8* dereferenceable(1) getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), i64 0)
%6 = tail call i64 @strlen(i8* dereferenceable(1) %0)
%7 = trunc i64 %6 to i32
br label %48
8: ; preds = %2
%9 = sub nsw i64 0, %1
%10 = icmp slt i64 %1, 0
%11 = select i1 %10, i64 %9, i64 %1
store i8 0, i8* %0
br label %12
12: ; preds = %12, %8
%13 = phi i64 [ %15, %12 ], [ 0, %8 ]
%14 = phi i64 [ %20, %12 ], [ %11, %8 ]
%15 = add nuw nsw i64 %13, 1
%16 = srem i64 %14, 10
%17 = getelementptr inbounds [11 x i8], [11 x i8]* @.str, i64 0, i64 %16
%18 = load i8, i8* %17
%19 = getelementptr inbounds i8, i8* %0, i64 %15
store i8 %18, i8* %19
%20 = sdiv i64 %14, 10
%21 = icmp sgt i64 %14, 9
br i1 %21, label %12, label %22
22: ; preds = %12
%23 = trunc i64 %15 to i32
br i1 %10, label %24, label %29
24: ; preds = %22
%25 = trunc i64 %13 to i32
%26 = add nuw nsw i32 %25, 2
%27 = zext i32 %26 to i64
%28 = getelementptr inbounds i8, i8* %0, i64 %27
store i8 45, i8* %28
br label %29
29: ; preds = %24, %22
%30 = phi i32 [ %26, %24 ], [ %23, %22 ]
%31 = sext i32 %30 to i64
%32 = getelementptr inbounds i8, i8* %0, i64 %31
%33 = load i8, i8* %32
store i8 0, i8* %32
store i8 %33, i8* %0
%34 = icmp sgt i32 %30, 2
br i1 %34, label %35, label %48
35: ; preds = %29
%36 = add nsw i64 %31, -1
br label %37
37: ; preds = %35, %37
%38 = phi i64 [ %36, %35 ], [ %46, %37 ]
%39 = phi i64 [ 1, %35 ], [ %45, %37 ]
%40 = getelementptr inbounds i8, i8* %0, i64 %39
%41 = load i8, i8* %40
%42 = getelementptr inbounds i8, i8* %0, i64 %38
%43 = load i8, i8* %42
%44 = getelementptr inbounds i8, i8* %0, i64 %39
store i8 %41, i8* %42
store i8 %43, i8* %44
%45 = add nuw nsw i64 %39, 1
%46 = add nsw i64 %38, -1
%47 = icmp slt i64 %45, %46
br i1 %47, label %37, label %48
48: ; preds = %37, %29, %4
%49 = phi i32 [ %7, %4 ], [ %30, %29 ], [ %30, %37 ]
ret i32 %49
}