double fp_scan(neg, eneg, n, frac, expo, fraclen)
int neg, eneg, n, frac, expo, fraclen;
{
  double f;
  f = frac;
  while (fraclen-- > 0)
    f /= 10;
  f += n;
  if (neg)
    f = -f;
  return f;
}


x86 assembly (clang, -O0):
<fp_scan>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
mov    %esi,-0x8(%rbp)
mov    %edx,-0xc(%rbp)
mov    %ecx,-0x10(%rbp)
mov    %r8d,-0x14(%rbp)
mov    %r9d,-0x18(%rbp)
cvtsi2sdl -0x10(%rbp),%xmm0
movsd  %xmm0,-0x20(%rbp)
mov    -0x18(%rbp),%eax
mov    %eax,%ecx
add    $0xffffffff,%ecx
mov    %ecx,-0x18(%rbp)
cmp    $0x0,%eax
jle    1151 <fp_scan+0x51>
movsd  -0x20(%rbp),%xmm0
movsd  0xebd(%rip),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x20(%rbp)
jmp    1122 <fp_scan+0x22>
cvtsi2sdl -0xc(%rbp),%xmm0
addsd  -0x20(%rbp),%xmm0
movsd  %xmm0,-0x20(%rbp)
cmpl   $0x0,-0x4(%rbp)
je     118b <fp_scan+0x8b>
movsd  -0x20(%rbp),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  %xmm0,-0x20(%rbp)
movsd  -0x20(%rbp),%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<fp_scan>:
cvtsi2sd %ecx,%xmm1
test   %r9d,%r9d
jle    115a <fp_scan+0x5a>
lea    -0x1(%r9),%eax
mov    %r9d,%ecx
and    $0x3,%ecx
je     112e <fp_scan+0x2e>
xor    %esi,%esi
movsd  0xee1(%rip),%xmm0
nop
divsd  %xmm0,%xmm1
add    $0x1,%esi
cmp    %esi,%ecx
jne    1120 <fp_scan+0x20>
sub    %esi,%r9d
cmp    $0x3,%eax
jb     115a <fp_scan+0x5a>
add    $0xffffffff,%r9d
movsd  0xec1(%rip),%xmm0
nop
divsd  %xmm0,%xmm1
divsd  %xmm0,%xmm1
divsd  %xmm0,%xmm1
divsd  %xmm0,%xmm1
add    $0xfffffffc,%r9d
cmp    $0xfffffffe,%r9d
jb     1140 <fp_scan+0x40>
xorps  %xmm0,%xmm0
cvtsi2sd %edx,%xmm0
addsd  %xmm1,%xmm0
test   %edi,%edi
je     1171 <fp_scan+0x71>
xorpd  0xe9f(%rip),%xmm0
ret

LLVM IR (-O0):
define double @fp_scan(i32 %0, i32 %1, i32 %2, i32 %3, i32 %4, i32 %5) {
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
%11 = alloca i32
%12 = alloca i32
%13 = alloca double
store i32 %0, i32* %7
store i32 %1, i32* %8
store i32 %2, i32* %9
store i32 %3, i32* %10
store i32 %4, i32* %11
store i32 %5, i32* %12
%14 = load i32, i32* %10
%15 = sitofp i32 %14 to double
store double %15, double* %13
br label %16
16: ; preds = %20, %6
%17 = load i32, i32* %12
%18 = add nsw i32 %17, -1
store i32 %18, i32* %12
%19 = icmp sgt i32 %17, 0
br i1 %19, label %20, label %23
20: ; preds = %16
%21 = load double, double* %13
%22 = fdiv double %21, 1.000000e+01
store double %22, double* %13
br label %16
23: ; preds = %16
%24 = load i32, i32* %9
%25 = sitofp i32 %24 to double
%26 = load double, double* %13
%27 = fadd double %26, %25
store double %27, double* %13
%28 = load i32, i32* %7
%29 = icmp ne i32 %28, 0
br i1 %29, label %30, label %33
30: ; preds = %23
%31 = load double, double* %13
%32 = fneg double %31
store double %32, double* %13
br label %33
33: ; preds = %30, %23
%34 = load double, double* %13
ret double %34
}

LLVM IR (-O2):
define double @fp_scan(i32 %0, i32 %1, i32 %2, i32 %3, i32 %4, i32 %5) {
%7 = sitofp i32 %3 to double
%8 = icmp sgt i32 %5, 0
br i1 %8, label %9, label %36
9: ; preds = %6
%10 = add i32 %5, -1
%11 = and i32 %5, 3
%12 = icmp eq i32 %11, 0
br i1 %12, label %21, label %13
13: ; preds = %9, %13
%14 = phi double [ %18, %13 ], [ %7, %9 ]
%15 = phi i32 [ %17, %13 ], [ %5, %9 ]
%16 = phi i32 [ %19, %13 ], [ 0, %9 ]
%17 = add nsw i32 %15, -1
%18 = fdiv double %14, 1.000000e+01
%19 = add i32 %16, 1
%20 = icmp eq i32 %19, %11
br i1 %20, label %21, label %13
21: ; preds = %13, %9
%22 = phi double [ %7, %9 ], [ %18, %13 ]
%23 = phi i32 [ %5, %9 ], [ %17, %13 ]
%24 = phi double [ undef, %9 ], [ %18, %13 ]
%25 = icmp ult i32 %10, 3
br i1 %25, label %36, label %26
26: ; preds = %21, %26
%27 = phi double [ %33, %26 ], [ %22, %21 ]
%28 = phi i32 [ %32, %26 ], [ %23, %21 ]
%29 = fdiv double %27, 1.000000e+01
%30 = fdiv double %29, 1.000000e+01
%31 = fdiv double %30, 1.000000e+01
%32 = add nsw i32 %28, -4
%33 = fdiv double %31, 1.000000e+01
%34 = add i32 %28, -5
%35 = icmp ult i32 %34, -2
br i1 %35, label %26, label %36
36: ; preds = %21, %26, %6
%37 = phi double [ %7, %6 ], [ %24, %21 ], [ %33, %26 ]
%38 = sitofp i32 %2 to double
%39 = fadd double %37, %38
%40 = icmp eq i32 %0, 0
%41 = fneg double %39
%42 = select i1 %40, double %39, double %41
ret double %42
}