int log_10(double r) {
  int i = 0;
  double result = 1.;
  if (r < 0.)
    r = -r;
  if (r < 1.) {
    while (result >= r) {
      result *= .1;
      i++;
    }
    return (-i);
  } else {
    while (result <= r) {
      result *= 10.;
      i++;
    }
    return (i - 1);
  }
}


x86 assembly (clang, -O0):
<log_10>:
push   %rbp
mov    %rsp,%rbp
movsd  %xmm0,-0x10(%rbp)
movl   $0x0,-0x14(%rbp)
movsd  0xee8(%rip),%xmm0
movsd  %xmm0,-0x20(%rbp)
xorps  %xmm0,%xmm0
ucomisd -0x10(%rbp),%xmm0
jbe    114c <log_10+0x4c>
movsd  -0x10(%rbp),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  %xmm0,-0x10(%rbp)
movsd  0xeac(%rip),%xmm0
ucomisd -0x10(%rbp),%xmm0
jbe    11a1 <log_10+0xa1>
jmp    1164 <log_10+0x64>
movsd  -0x20(%rbp),%xmm0
ucomisd -0x10(%rbp),%xmm0
jb     1194 <log_10+0x94>
movsd  0xe94(%rip),%xmm0
mulsd  -0x20(%rbp),%xmm0
movsd  %xmm0,-0x20(%rbp)
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    1164 <log_10+0x64>
xor    %eax,%eax
sub    -0x14(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    11e3 <log_10+0xe3>
jmp    11a6 <log_10+0xa6>
movsd  -0x20(%rbp),%xmm1
movsd  -0x10(%rbp),%xmm0
ucomisd %xmm1,%xmm0
jb     11da <log_10+0xda>
movsd  0xe46(%rip),%xmm0
mulsd  -0x20(%rbp),%xmm0
movsd  %xmm0,-0x20(%rbp)
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    11a6 <log_10+0xa6>
mov    -0x14(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<log_10>:
movapd 0xef8(%rip),%xmm2
xorpd  %xmm0,%xmm2
xorpd  %xmm3,%xmm3
movapd %xmm0,%xmm1
cmpltsd %xmm3,%xmm1
andpd  %xmm1,%xmm2
andnpd %xmm0,%xmm1
orpd   %xmm2,%xmm1
movsd  0xee3(%rip),%xmm0
ucomisd %xmm1,%xmm0
jbe    115f <log_10+0x5f>
xor    %eax,%eax
movsd  0xed3(%rip),%xmm0
ucomisd %xmm1,%xmm0
jb     118d <log_10+0x8d>
xor    %eax,%eax
movsd  0xed3(%rip),%xmm2
nopl   (%rax)
mulsd  %xmm2,%xmm0
add    $0xffffffff,%eax
ucomisd %xmm1,%xmm0
jae    1150 <log_10+0x50>
jmp    118d <log_10+0x8d>
mov    $0xffffffff,%eax
ucomisd 0xea4(%rip),%xmm1
jb     118d <log_10+0x8d>
mov    $0xffffffff,%eax
movsd  0xe9d(%rip),%xmm2
nopl   0x0(%rax,%rax,1)
mulsd  %xmm2,%xmm0
add    $0x1,%eax
ucomisd %xmm0,%xmm1
jae    1180 <log_10+0x80>
ret

LLVM IR (-O0):
define i32 @log_10(double %0) {
%2 = alloca i32
%3 = alloca double
%4 = alloca i32
%5 = alloca double
store double %0, double* %3
store i32 0, i32* %4
store double 1.000000e+00, double* %5
%6 = load double, double* %3
%7 = fcmp olt double %6, 0.000000e+00
br i1 %7, label %8, label %11
8: ; preds = %1
%9 = load double, double* %3
%10 = fneg double %9
store double %10, double* %3
br label %11
11: ; preds = %8, %1
%12 = load double, double* %3
%13 = fcmp olt double %12, 1.000000e+00
br i1 %13, label %14, label %27
14: ; preds = %11
br label %15
15: ; preds = %19, %14
%16 = load double, double* %5
%17 = load double, double* %3
%18 = fcmp oge double %16, %17
br i1 %18, label %19, label %24
19: ; preds = %15
%20 = load double, double* %5
%21 = fmul double %20, 1.000000e-01
store double %21, double* %5
%22 = load i32, i32* %4
%23 = add nsw i32 %22, 1
store i32 %23, i32* %4
br label %15
24: ; preds = %15
%25 = load i32, i32* %4
%26 = sub nsw i32 0, %25
store i32 %26, i32* %2
br label %40
27: ; preds = %11
br label %28
28: ; preds = %32, %27
%29 = load double, double* %5
%30 = load double, double* %3
%31 = fcmp ole double %29, %30
br i1 %31, label %32, label %37
32: ; preds = %28
%33 = load double, double* %5
%34 = fmul double %33, 1.000000e+01
store double %34, double* %5
%35 = load i32, i32* %4
%36 = add nsw i32 %35, 1
store i32 %36, i32* %4
br label %28
37: ; preds = %28
%38 = load i32, i32* %4
%39 = sub nsw i32 %38, 1
store i32 %39, i32* %2
br label %40
40: ; preds = %37, %24
%41 = load i32, i32* %2
ret i32 %41
}

LLVM IR (-O2):
define i32 @log_10(double %0) {
%2 = fcmp olt double %0, 0.000000e+00
%3 = fneg double %0
%4 = select i1 %2, double %3, double %0
%5 = fcmp olt double %4, 1.000000e+00
br i1 %5, label %8, label %6
6: ; preds = %1
%7 = fcmp ult double %4, 1.000000e+00
br i1 %7, label %24, label %18
8: ; preds = %1
%9 = fcmp ugt double %4, 1.000000e+00
br i1 %9, label %24, label %10
10: ; preds = %8, %10
%11 = phi double [ %13, %10 ], [ 1.000000e+00, %8 ]
%12 = phi i32 [ %14, %10 ], [ 0, %8 ]
%13 = fmul double %11, 1.000000e-01
%14 = add nuw nsw i32 %12, 1
%15 = fcmp ult double %13, %4
br i1 %15, label %16, label %10
16: ; preds = %10
%17 = xor i32 %12, -1
br label %24
18: ; preds = %6, %18
%19 = phi double [ %21, %18 ], [ 1.000000e+00, %6 ]
%20 = phi i32 [ %22, %18 ], [ 0, %6 ]
%21 = fmul double %19, 1.000000e+01
%22 = add nuw nsw i32 %20, 1
%23 = fcmp ugt double %21, %4
br i1 %23, label %24, label %18
24: ; preds = %18, %6, %8, %16
%25 = phi i32 [ 0, %8 ], [ %17, %16 ], [ -1, %6 ], [ %20, %18 ]
ret i32 %25
}