double frexp(x, i)
double x;
int *i;
{
  int neg;
  int j;
  j = 0;
  neg = 0;
  if (x < 0) {
    x = -x;
    neg = 1;
  }
  if (x >= 1.0)
    while (x >= 1.0) {
      j = j + 1;
      x = x / 2;
    }
  else if (x < 0.5 && x != 0.0)
    while (x < 0.5) {
      j = j - 1;
      x = 2 * x;
    }
  *i = j;
  if (neg)
    x = -x;
  return (x);
}


x86 assembly (clang, -O0):
<frexp>:
push   %rbp
mov    %rsp,%rbp
movsd  %xmm0,-0x8(%rbp)
mov    %rdi,-0x10(%rbp)
movl   $0x0,-0x18(%rbp)
movl   $0x0,-0x14(%rbp)
xorps  %xmm0,%xmm0
ucomisd -0x8(%rbp),%xmm0
jbe    1151 <frexp+0x51>
movsd  -0x8(%rbp),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  %xmm0,-0x8(%rbp)
movl   $0x1,-0x14(%rbp)
movsd  -0x8(%rbp),%xmm0
movsd  0xea2(%rip),%xmm1
ucomisd %xmm1,%xmm0
jb     11ad <frexp+0xad>
jmp    116d <frexp+0x6d>
movsd  -0x8(%rbp),%xmm0
movsd  0xe86(%rip),%xmm1
ucomisd %xmm1,%xmm0
jb     11a8 <frexp+0xa8>
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
movsd  -0x8(%rbp),%xmm0
movsd  0xe76(%rip),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    116d <frexp+0x6d>
jmp    121f <frexp+0x11f>
movsd  0xe53(%rip),%xmm0
ucomisd -0x8(%rbp),%xmm0
jbe    121a <frexp+0x11a>
movsd  -0x8(%rbp),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
jne    11dd <frexp+0xdd>
jp     11dd <frexp+0xdd>
jmp    121a <frexp+0x11a>
jmp    11e2 <frexp+0xe2>
movsd  0xe1e(%rip),%xmm0
ucomisd -0x8(%rbp),%xmm0
jbe    1215 <frexp+0x115>
mov    -0x18(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x18(%rbp)
movsd  0xe0a(%rip),%xmm0
mulsd  -0x8(%rbp),%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    11e2 <frexp+0xe2>
jmp    121a <frexp+0x11a>
jmp    121f <frexp+0x11f>
mov    -0x18(%rbp),%ecx
mov    -0x10(%rbp),%rax
mov    %ecx,(%rax)
cmpl   $0x0,-0x14(%rbp)
je     1253 <frexp+0x153>
movsd  -0x8(%rbp),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  %xmm0,-0x8(%rbp)
movsd  -0x8(%rbp),%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<frexp>:
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
xor    %eax,%eax
movsd  0xee9(%rip),%xmm2
ucomisd 0xed9(%rip),%xmm1
jae    115f <frexp+0x5f>
ucomisd %xmm1,%xmm2
jbe    117d <frexp+0x7d>
xorpd  %xmm3,%xmm3
ucomisd %xmm3,%xmm1
jne    114b <frexp+0x4b>
jnp    117d <frexp+0x7d>
xor    %eax,%eax
nopl   (%rax)
add    $0xffffffff,%eax
addsd  %xmm1,%xmm1
ucomisd %xmm1,%xmm2
ja     1150 <frexp+0x50>
jmp    117d <frexp+0x7d>
movsd  0xea9(%rip),%xmm3
nopw   0x0(%rax,%rax,1)
add    $0x1,%eax
mulsd  %xmm2,%xmm1
ucomisd %xmm3,%xmm1
jae    1170 <frexp+0x70>
mov    %eax,(%rdi)
movapd 0xe79(%rip),%xmm2
xorpd  %xmm1,%xmm2
xorpd  %xmm3,%xmm3
cmpltsd %xmm3,%xmm0
andpd  %xmm0,%xmm2
andnpd %xmm1,%xmm0
orpd   %xmm2,%xmm0
ret

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

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