int __fef8(double *fp) {
  double f = *fp;
  int exponent, sign;
  if (f == 0.0)
    return 0;
  if (f < 0.0) {
    sign = -1;
    f = -f;
  } else
    sign = 0;
  exponent = 0;
  while (f >= 1.0) {
    f /= 2.0;
    exponent++;
  }
  while (f < 0.5) {
    f *= 2.0;
    exponent--;
  }
  *fp = (sign) ? -f : f;
  return exponent;
}


x86 assembly (clang, -O0):
<__fef8>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
mov    -0x10(%rbp),%rax
movsd  (%rax),%xmm0
movsd  %xmm0,-0x18(%rbp)
movsd  -0x18(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    1139 <__fef8+0x39>
jp     1139 <__fef8+0x39>
movl   $0x0,-0x4(%rbp)
jmp    1242 <__fef8+0x142>
xorps  %xmm0,%xmm0
ucomisd -0x18(%rbp),%xmm0
jbe    1174 <__fef8+0x74>
movl   $0xffffffff,-0x20(%rbp)
movsd  -0x18(%rbp),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  %xmm0,-0x18(%rbp)
jmp    117b <__fef8+0x7b>
movl   $0x0,-0x20(%rbp)
movl   $0x0,-0x1c(%rbp)
movsd  -0x18(%rbp),%xmm0
movsd  0xe71(%rip),%xmm1
ucomisd %xmm1,%xmm0
jb     11bd <__fef8+0xbd>
movsd  -0x18(%rbp),%xmm0
movsd  0xe6a(%rip),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x18(%rbp)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1182 <__fef8+0x82>
jmp    11c2 <__fef8+0xc2>
movsd  0xe3e(%rip),%xmm0
ucomisd -0x18(%rbp),%xmm0
jbe    11f5 <__fef8+0xf5>
movsd  0xe33(%rip),%xmm0
mulsd  -0x18(%rbp),%xmm0
movsd  %xmm0,-0x18(%rbp)
mov    -0x1c(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x1c(%rbp)
jmp    11c2 <__fef8+0xc2>
cmpl   $0x0,-0x20(%rbp)
je     1225 <__fef8+0x125>
movsd  -0x18(%rbp),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  %xmm0,-0x28(%rbp)
jmp    122f <__fef8+0x12f>
movsd  -0x18(%rbp),%xmm0
movsd  %xmm0,-0x28(%rbp)
movsd  -0x28(%rbp),%xmm0
mov    -0x10(%rbp),%rax
movsd  %xmm0,(%rax)
mov    -0x1c(%rbp),%eax
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<__fef8>:
movsd  (%rdi),%xmm0
xor    %eax,%eax
xorpd  %xmm2,%xmm2
ucomisd %xmm2,%xmm0
jne    1113 <__fef8+0x13>
jp     1113 <__fef8+0x13>
ret
movapd 0xee5(%rip),%xmm3
xorpd  %xmm0,%xmm3
movapd %xmm0,%xmm1
cmpltsd %xmm2,%xmm1
andpd  %xmm1,%xmm3
andnpd %xmm0,%xmm1
orpd   %xmm3,%xmm1
xor    %eax,%eax
ucomisd 0xed2(%rip),%xmm1
jb     116d <__fef8+0x6d>
xor    %eax,%eax
movsd  0xece(%rip),%xmm2
movsd  0xebe(%rip),%xmm3
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
mulsd  %xmm2,%xmm1
add    $0x1,%eax
ucomisd %xmm3,%xmm1
jae    1160 <__fef8+0x60>
movsd  0xea3(%rip),%xmm2
ucomisd %xmm1,%xmm2
jbe    118d <__fef8+0x8d>
nopl   0x0(%rax,%rax,1)
addsd  %xmm1,%xmm1
add    $0xffffffff,%eax
ucomisd %xmm1,%xmm2
ja     1180 <__fef8+0x80>
movapd 0xe6b(%rip),%xmm2
xorpd  %xmm1,%xmm2
xorpd  %xmm3,%xmm3
cmpltsd %xmm3,%xmm0
andpd  %xmm0,%xmm2
andnpd %xmm1,%xmm0
orpd   %xmm2,%xmm0
movlpd %xmm0,(%rdi)
ret

LLVM IR (-O0):
define i32 @__fef8(double* %0) {
%2 = alloca i32
%3 = alloca double*
%4 = alloca double
%5 = alloca i32
%6 = alloca i32
store double* %0, double** %3
%7 = load double*, double** %3
%8 = load double, double* %7
store double %8, double* %4
%9 = load double, double* %4
%10 = fcmp oeq double %9, 0.000000e+00
br i1 %10, label %11, label %12
11: ; preds = %1
store i32 0, i32* %2
br label %49
12: ; preds = %1
%13 = load double, double* %4
%14 = fcmp olt double %13, 0.000000e+00
br i1 %14, label %15, label %18
15: ; preds = %12
store i32 -1, i32* %6
%16 = load double, double* %4
%17 = fneg double %16
store double %17, double* %4
br label %19
18: ; preds = %12
store i32 0, i32* %6
br label %19
19: ; preds = %18, %15
store i32 0, i32* %5
br label %20
20: ; preds = %23, %19
%21 = load double, double* %4
%22 = fcmp oge double %21, 1.000000e+00
br i1 %22, label %23, label %28
23: ; preds = %20
%24 = load double, double* %4
%25 = fdiv double %24, 2.000000e+00
store double %25, double* %4
%26 = load i32, i32* %5
%27 = add nsw i32 %26, 1
store i32 %27, i32* %5
br label %20
28: ; preds = %20
br label %29
29: ; preds = %32, %28
%30 = load double, double* %4
%31 = fcmp olt double %30, 5.000000e-01
br i1 %31, label %32, label %37
32: ; preds = %29
%33 = load double, double* %4
%34 = fmul double %33, 2.000000e+00
store double %34, double* %4
%35 = load i32, i32* %5
%36 = add nsw i32 %35, -1
store i32 %36, i32* %5
br label %29
37: ; preds = %29
%38 = load i32, i32* %6
%39 = icmp ne i32 %38, 0
br i1 %39, label %40, label %43
40: ; preds = %37
%41 = load double, double* %4
%42 = fneg double %41
br label %45
43: ; preds = %37
%44 = load double, double* %4
br label %45
45: ; preds = %43, %40
%46 = phi double [ %42, %40 ], [ %44, %43 ]
%47 = load double*, double** %3
store double %46, double* %47
%48 = load i32, i32* %5
store i32 %48, i32* %2
br label %49
49: ; preds = %45, %11
%50 = load i32, i32* %2
ret i32 %50
}

LLVM IR (-O2):
define i32 @__fef8(double* nocapture %0) {
%2 = load double, double* %0
%3 = fcmp oeq double %2, 0.000000e+00
br i1 %3, label %30, label %4
4: ; preds = %1
%5 = fcmp olt double %2, 0.000000e+00
%6 = fneg double %2
%7 = select i1 %5, double %6, double %2
%8 = fcmp ult double %7, 1.000000e+00
br i1 %8, label %9, label %13
9: ; preds = %13, %4
%10 = phi double [ %7, %4 ], [ %16, %13 ]
%11 = phi i32 [ 0, %4 ], [ %17, %13 ]
%12 = fcmp olt double %10, 5.000000e-01
br i1 %12, label %19, label %25
13: ; preds = %4, %13
%14 = phi i32 [ %17, %13 ], [ 0, %4 ]
%15 = phi double [ %16, %13 ], [ %7, %4 ]
%16 = fmul double %15, 5.000000e-01
%17 = add nuw nsw i32 %14, 1
%18 = fcmp ult double %16, 1.000000e+00
br i1 %18, label %9, label %13
19: ; preds = %9, %19
%20 = phi i32 [ %23, %19 ], [ %11, %9 ]
%21 = phi double [ %22, %19 ], [ %10, %9 ]
%22 = fmul double %21, 2.000000e+00
%23 = add nsw i32 %20, -1
%24 = fcmp olt double %22, 5.000000e-01
br i1 %24, label %19, label %25
25: ; preds = %19, %9
%26 = phi double [ %10, %9 ], [ %22, %19 ]
%27 = phi i32 [ %11, %9 ], [ %23, %19 ]
%28 = fneg double %26
%29 = select i1 %5, double %28, double %26
store double %29, double* %0
br label %30
30: ; preds = %1, %25
%31 = phi i32 [ %27, %25 ], [ 0, %1 ]
ret i32 %31
}