double ldexp(fl, exp)
double fl;
int exp;
{
  extern double _fef();
  int sign = 1;
  int currexp;
  if (fl < 0) {
    fl = -fl;
    sign = -1;
  }
  fl = _fef(fl, &currexp);
  exp += currexp;
  if (exp > 0) {
    while (exp > 30) {
      fl *= (double)(1L << 30);
      exp -= 30;
    }
    fl *= (double)(1L << exp);
  } else {
    while (exp < -30) {
      fl /= (double)(1L << 30);
      exp += 30;
    }
    fl /= (double)(1L << -exp);
  }
  return sign * fl;
}


x86 assembly (clang, -O0):
<ldexp>:
push   %rbp
mov    %rsp,%rbp
sub    $0x20,%rsp
movsd  %xmm0,-0x8(%rbp)
mov    %edi,-0xc(%rbp)
movl   $0x1,-0x10(%rbp)
xorps  %xmm0,%xmm0
ucomisd -0x8(%rbp),%xmm0
jbe    115d <ldexp+0x4d>
movsd  -0x8(%rbp),%xmm0
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
movsd  %xmm0,-0x8(%rbp)
movl   $0xffffffff,-0x10(%rbp)
movsd  -0x8(%rbp),%xmm0
lea    -0x14(%rbp),%rdi
mov    $0x1,%al
call   1030 <_fef@plt>
movsd  %xmm0,-0x8(%rbp)
mov    -0x14(%rbp),%eax
add    -0xc(%rbp),%eax
mov    %eax,-0xc(%rbp)
cmpl   $0x0,-0xc(%rbp)
jle    11d5 <ldexp+0xc5>
jmp    118a <ldexp+0x7a>
cmpl   $0x1e,-0xc(%rbp)
jle    11b4 <ldexp+0xa4>
movsd  0xe64(%rip),%xmm0
mulsd  -0x8(%rbp),%xmm0
movsd  %xmm0,-0x8(%rbp)
mov    -0xc(%rbp),%eax
sub    $0x1e,%eax
mov    %eax,-0xc(%rbp)
jmp    118a <ldexp+0x7a>
mov    -0xc(%rbp),%eax
mov    %eax,%ecx
mov    $0x1,%eax
shl    %cl,%rax
cvtsi2sd %rax,%xmm0
mulsd  -0x8(%rbp),%xmm0
movsd  %xmm0,-0x8(%rbp)
jmp    122c <ldexp+0x11c>
jmp    11da <ldexp+0xca>
cmpl   $0xffffffe2,-0xc(%rbp)
jge    1208 <ldexp+0xf8>
movsd  -0x8(%rbp),%xmm0
movsd  0xe0f(%rip),%xmm1
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x8(%rbp)
mov    -0xc(%rbp),%eax
add    $0x1e,%eax
mov    %eax,-0xc(%rbp)
jmp    11da <ldexp+0xca>
xor    %eax,%eax
sub    -0xc(%rbp),%eax
mov    %eax,%eax
mov    %eax,%ecx
mov    $0x1,%eax
shl    %cl,%rax
cvtsi2sd %rax,%xmm1
movsd  -0x8(%rbp),%xmm0
divsd  %xmm1,%xmm0
movsd  %xmm0,-0x8(%rbp)
cvtsi2sdl -0x10(%rbp),%xmm0
mulsd  -0x8(%rbp),%xmm0
add    $0x20,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<ldexp>:
push   %rbx
sub    $0x20,%rsp
mov    %edi,%ebx
movapd %xmm0,%xmm3
movapd 0xedd(%rip),%xmm1
xorpd  %xmm0,%xmm1
xorpd  %xmm2,%xmm2
cmpltsd %xmm2,%xmm0
andpd  %xmm0,%xmm1
movapd %xmm3,0x10(%rsp)
andnpd %xmm3,%xmm0
orpd   %xmm1,%xmm0
lea    0xc(%rsp),%rdi
mov    $0x1,%al
call   1030 <_fef@plt>
add    0xc(%rsp),%ebx
jle    1180 <ldexp+0x70>
cmp    $0x1f,%ebx
jb     11a0 <ldexp+0x90>
movsd  0xeb7(%rip),%xmm1
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
mulsd  %xmm1,%xmm0
lea    -0x1e(%rbx),%ecx
cmp    $0x3c,%ebx
mov    %ecx,%ebx
ja     1170 <ldexp+0x60>
jmp    11a2 <ldexp+0x92>
cmp    $0xffffffe1,%ebx
jg     11b8 <ldexp+0xa8>
movsd  0xe83(%rip),%xmm1
nopl   (%rax)
mulsd  %xmm1,%xmm0
lea    0x1e(%rbx),%ecx
cmp    $0xffffffc4,%ebx
mov    %ecx,%ebx
jb     1190 <ldexp+0x80>
jmp    11ba <ldexp+0xaa>
mov    %ebx,%ecx
mov    $0x1,%eax
shl    %cl,%rax
xorps  %xmm1,%xmm1
cvtsi2sd %rax,%xmm1
mulsd  %xmm0,%xmm1
jmp    11d4 <ldexp+0xc4>
mov    %ebx,%ecx
neg    %cl
mov    $0x1,%eax
shl    %cl,%rax
xorps  %xmm1,%xmm1
cvtsi2sd %rax,%xmm1
divsd  %xmm1,%xmm0
movapd %xmm0,%xmm1
movapd 0xe24(%rip),%xmm3
xorpd  %xmm1,%xmm3
xorpd  %xmm2,%xmm2
movapd 0x10(%rsp),%xmm0
cmpltsd %xmm2,%xmm0
andpd  %xmm0,%xmm3
andnpd %xmm1,%xmm0
orpd   %xmm3,%xmm0
add    $0x20,%rsp
pop    %rbx
ret

LLVM IR (-O0):
define double @ldexp(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 1, 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 = call double (double, i32*, ...) bitcast (double (...)* @_fef to double (double, i32*, ...)*)(double %13, i32* %6)
store double %14, double* %3
%15 = load i32, i32* %6
%16 = load i32, i32* %4
%17 = add nsw i32 %16, %15
store i32 %17, i32* %4
%18 = load i32, i32* %4
%19 = icmp sgt i32 %18, 0
br i1 %19, label %20, label %36
20: ; preds = %12
br label %21
21: ; preds = %24, %20
%22 = load i32, i32* %4
%23 = icmp sgt i32 %22, 30
br i1 %23, label %24, label %29
24: ; preds = %21
%25 = load double, double* %3
%26 = fmul double %25, 0x41D0000000000000
store double %26, double* %3
%27 = load i32, i32* %4
%28 = sub nsw i32 %27, 30
store i32 %28, i32* %4
br label %21
29: ; preds = %21
%30 = load i32, i32* %4
%31 = zext i32 %30 to i64
%32 = shl i64 1, %31
%33 = sitofp i64 %32 to double
%34 = load double, double* %3
%35 = fmul double %34, %33
store double %35, double* %3
br label %53
36: ; preds = %12
br label %37
37: ; preds = %40, %36
%38 = load i32, i32* %4
%39 = icmp slt i32 %38, -30
br i1 %39, label %40, label %45
40: ; preds = %37
%41 = load double, double* %3
%42 = fdiv double %41, 0x41D0000000000000
store double %42, double* %3
%43 = load i32, i32* %4
%44 = add nsw i32 %43, 30
store i32 %44, i32* %4
br label %37
45: ; preds = %37
%46 = load i32, i32* %4
%47 = sub nsw i32 0, %46
%48 = zext i32 %47 to i64
%49 = shl i64 1, %48
%50 = sitofp i64 %49 to double
%51 = load double, double* %3
%52 = fdiv double %51, %50
store double %52, double* %3
br label %53
53: ; preds = %45, %29
%54 = load i32, i32* %5
%55 = sitofp i32 %54 to double
%56 = load double, double* %3
%57 = fmul double %55, %56
ret double %57
}

LLVM IR (-O2):
define double @ldexp(double %0, i32 %1) {
%3 = alloca i32
%4 = bitcast i32* %3 to i8*
%5 = fcmp olt double %0, 0.000000e+00
%6 = fneg double %0
%7 = select i1 %5, double %6, double %0
%8 = call double (double, i32*, ...) bitcast (double (...)* @_fef to double (double, i32*, ...)*)(double %7, i32* %3)
%9 = load i32, i32* %3
%10 = add nsw i32 %9, %1
%11 = icmp sgt i32 %10, 0
br i1 %11, label %14, label %12
12: ; preds = %2
%13 = icmp slt i32 %10, -30
br i1 %13, label %29, label %35
14: ; preds = %2
%15 = icmp ugt i32 %10, 30
br i1 %15, label %16, label %22
16: ; preds = %14, %16
%17 = phi i32 [ %20, %16 ], [ %10, %14 ]
%18 = phi double [ %19, %16 ], [ %8, %14 ]
%19 = fmul double %18, 0x41D0000000000000
%20 = add nsw i32 %17, -30
%21 = icmp ugt i32 %17, 60
br i1 %21, label %16, label %22
22: ; preds = %16, %14
%23 = phi double [ %8, %14 ], [ %19, %16 ]
%24 = phi i32 [ %10, %14 ], [ %20, %16 ]
%25 = zext i32 %24 to i64
%26 = shl nuw nsw i64 1, %25
%27 = sitofp i64 %26 to double
%28 = fmul double %23, %27
br label %43
29: ; preds = %12, %29
%30 = phi i32 [ %33, %29 ], [ %10, %12 ]
%31 = phi double [ %32, %29 ], [ %8, %12 ]
%32 = fmul double %31, 0x3E10000000000000
%33 = add nuw nsw i32 %30, 30
%34 = icmp ult i32 %30, -60
br i1 %34, label %29, label %35
35: ; preds = %29, %12
%36 = phi double [ %8, %12 ], [ %32, %29 ]
%37 = phi i32 [ %10, %12 ], [ %33, %29 ]
%38 = sub nsw i32 0, %37
%39 = zext i32 %38 to i64
%40 = shl nuw nsw i64 1, %39
%41 = sitofp i64 %40 to double
%42 = fdiv double %36, %41
br label %43
43: ; preds = %35, %22
%44 = phi double [ %28, %22 ], [ %42, %35 ]
%45 = fneg double %44
%46 = select i1 %5, double %45, double %44
ret double %46
}