void mp_unexp_d2mp(int n, int radix, double din, int out[]) {
  int j, x;
  for (j = 0; j < n; j++) {
    x = (int)din;
    if (x >= radix) {
      x = radix - 1;
      din = radix;
    }
    din = radix * (din - x);
    out[j] = x;
  }
}


x86 assembly (clang, -O0):
<mp_unexp_d2mp>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
mov    %esi,-0x8(%rbp)
movsd  %xmm0,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    1185 <mp_unexp_d2mp+0x85>
cvttsd2si -0x10(%rbp),%eax
mov    %eax,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x8(%rbp),%eax
jl     114d <mp_unexp_d2mp+0x4d>
mov    -0x8(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x20(%rbp)
cvtsi2sdl -0x8(%rbp),%xmm0
movsd  %xmm0,-0x10(%rbp)
cvtsi2sdl -0x8(%rbp),%xmm0
movsd  -0x10(%rbp),%xmm1
cvtsi2sdl -0x20(%rbp),%xmm2
subsd  %xmm2,%xmm1
mulsd  %xmm1,%xmm0
movsd  %xmm0,-0x10(%rbp)
mov    -0x20(%rbp),%edx
mov    -0x18(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    111a <mp_unexp_d2mp+0x1a>
pop    %rbp
ret

x86 assembly (clang, -O2):
<mp_unexp_d2mp>:
test   %edi,%edi
jle    1123 <mp_unexp_d2mp+0x23>
lea    -0x1(%rsi),%eax
mov    %edi,%r8d
cmp    $0x1,%edi
jne    1124 <mp_unexp_d2mp+0x24>
xor    %edi,%edi
test   $0x1,%r8b
je     1123 <mp_unexp_d2mp+0x23>
cvttsd2si %xmm0,%ecx
cmp    %esi,%ecx
cmovl  %ecx,%eax
mov    %eax,(%rdx,%rdi,4)
ret
cvtsi2sd %esi,%xmm1
mov    %r8d,%r9d
and    $0xfffffffe,%r9d
xor    %edi,%edi
jmp    115f <mp_unexp_d2mp+0x5f>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
cmovge %eax,%ecx
xorps  %xmm2,%xmm2
cvtsi2sd %ecx,%xmm2
subsd  %xmm2,%xmm0
mulsd  %xmm1,%xmm0
mov    %ecx,0x4(%rdx,%rdi,4)
add    $0x2,%rdi
cmp    %rdi,%r9
je     1111 <mp_unexp_d2mp+0x11>
cvttsd2si %xmm0,%ecx
cmp    %esi,%ecx
jl     116b <mp_unexp_d2mp+0x6b>
movapd %xmm1,%xmm0
cmovge %eax,%ecx
xorps  %xmm2,%xmm2
cvtsi2sd %ecx,%xmm2
subsd  %xmm2,%xmm0
mulsd  %xmm1,%xmm0
mov    %ecx,(%rdx,%rdi,4)
cvttsd2si %xmm0,%ecx
cmp    %esi,%ecx
jl     1140 <mp_unexp_d2mp+0x40>
movapd %xmm1,%xmm0
jmp    1140 <mp_unexp_d2mp+0x40>

LLVM IR (-O0):
define void @mp_unexp_d2mp(i32 %0, i32 %1, double %2, i32* %3) {
%5 = alloca i32
%6 = alloca i32
%7 = alloca double
%8 = alloca i32*
%9 = alloca i32
%10 = alloca i32
store i32 %0, i32* %5
store i32 %1, i32* %6
store double %2, double* %7
store i32* %3, i32** %8
store i32 0, i32* %9
br label %11
11: ; preds = %39, %4
%12 = load i32, i32* %9
%13 = load i32, i32* %5
%14 = icmp slt i32 %12, %13
br i1 %14, label %15, label %42
15: ; preds = %11
%16 = load double, double* %7
%17 = fptosi double %16 to i32
store i32 %17, i32* %10
%18 = load i32, i32* %10
%19 = load i32, i32* %6
%20 = icmp sge i32 %18, %19
br i1 %20, label %21, label %26
21: ; preds = %15
%22 = load i32, i32* %6
%23 = sub nsw i32 %22, 1
store i32 %23, i32* %10
%24 = load i32, i32* %6
%25 = sitofp i32 %24 to double
store double %25, double* %7
br label %26
26: ; preds = %21, %15
%27 = load i32, i32* %6
%28 = sitofp i32 %27 to double
%29 = load double, double* %7
%30 = load i32, i32* %10
%31 = sitofp i32 %30 to double
%32 = fsub double %29, %31
%33 = fmul double %28, %32
store double %33, double* %7
%34 = load i32, i32* %10
%35 = load i32*, i32** %8
%36 = load i32, i32* %9
%37 = sext i32 %36 to i64
%38 = getelementptr inbounds i32, i32* %35, i64 %37
store i32 %34, i32* %38
br label %39
39: ; preds = %26
%40 = load i32, i32* %9
%41 = add nsw i32 %40, 1
store i32 %41, i32* %9
br label %11
42: ; preds = %11
ret void
}

LLVM IR (-O2):
define void @mp_unexp_d2mp(i32 %0, i32 %1, double %2, i32* nocapture writeonly %3) {
%5 = icmp sgt i32 %0, 0
br i1 %5, label %6, label %47
6: ; preds = %4
%7 = add nsw i32 %1, -1
%8 = sitofp i32 %1 to double
%9 = zext i32 %0 to i64
%10 = and i64 %9, 1
%11 = icmp eq i32 %0, 1
br i1 %11, label %38, label %12
12: ; preds = %6
%13 = and i64 %9, 4294967294
br label %14
14: ; preds = %14, %12
%15 = phi i64 [ 0, %12 ], [ %35, %14 ]
%16 = phi double [ %2, %12 ], [ %33, %14 ]
%17 = phi i64 [ 0, %12 ], [ %36, %14 ]
%18 = fptosi double %16 to i32
%19 = icmp slt i32 %18, %1
%20 = select i1 %19, double %16, double %8
%21 = select i1 %19, i32 %18, i32 %7
%22 = sitofp i32 %21 to double
%23 = fsub double %20, %22
%24 = fmul double %23, %8
%25 = getelementptr inbounds i32, i32* %3, i64 %15
store i32 %21, i32* %25
%26 = or i64 %15, 1
%27 = fptosi double %24 to i32
%28 = icmp slt i32 %27, %1
%29 = select i1 %28, double %24, double %8
%30 = select i1 %28, i32 %27, i32 %7
%31 = sitofp i32 %30 to double
%32 = fsub double %29, %31
%33 = fmul double %32, %8
%34 = getelementptr inbounds i32, i32* %3, i64 %26
store i32 %30, i32* %34
%35 = add nuw nsw i64 %15, 2
%36 = add i64 %17, 2
%37 = icmp eq i64 %36, %13
br i1 %37, label %38, label %14
38: ; preds = %14, %6
%39 = phi i64 [ 0, %6 ], [ %35, %14 ]
%40 = phi double [ %2, %6 ], [ %33, %14 ]
%41 = icmp eq i64 %10, 0
br i1 %41, label %47, label %42
42: ; preds = %38
%43 = fptosi double %40 to i32
%44 = icmp slt i32 %43, %1
%45 = select i1 %44, i32 %43, i32 %7
%46 = getelementptr inbounds i32, i32* %3, i64 %39
store i32 %45, i32* %46
br label %47
47: ; preds = %42, %38, %4
ret void
}