void mp_unexp_d2mp(int n, int radix, double din, short 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] = (short int)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    1189 <mp_unexp_d2mp+0x89>
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),%eax
mov    %ax,%dx
mov    -0x18(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    %dx,(%rax,%rcx,2)
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    1124 <mp_unexp_d2mp+0x24>
lea    -0x1(%rsi),%eax
mov    %edi,%r8d
cmp    $0x1,%edi
jne    1125 <mp_unexp_d2mp+0x25>
xor    %edi,%edi
test   $0x1,%r8b
je     1124 <mp_unexp_d2mp+0x24>
cvttsd2si %xmm0,%ecx
cmp    %esi,%ecx
cmovl  %ecx,%eax
mov    %ax,(%rdx,%rdi,2)
ret
cvtsi2sd %esi,%xmm1
mov    %r8d,%r9d
and    $0xfffffffe,%r9d
xor    %edi,%edi
jmp    1160 <mp_unexp_d2mp+0x60>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
cmovge %eax,%ecx
xorps  %xmm2,%xmm2
cvtsi2sd %ecx,%xmm2
subsd  %xmm2,%xmm0
mulsd  %xmm1,%xmm0
mov    %cx,0x2(%rdx,%rdi,2)
add    $0x2,%rdi
cmp    %rdi,%r9
je     1111 <mp_unexp_d2mp+0x11>
cvttsd2si %xmm0,%ecx
cmp    %esi,%ecx
jl     116c <mp_unexp_d2mp+0x6c>
movapd %xmm1,%xmm0
cmovge %eax,%ecx
xorps  %xmm2,%xmm2
cvtsi2sd %ecx,%xmm2
subsd  %xmm2,%xmm0
mulsd  %xmm1,%xmm0
mov    %cx,(%rdx,%rdi,2)
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, i16* %3) {
%5 = alloca i32
%6 = alloca i32
%7 = alloca double
%8 = alloca i16*
%9 = alloca i32
%10 = alloca i32
store i32 %0, i32* %5
store i32 %1, i32* %6
store double %2, double* %7
store i16* %3, i16** %8
store i32 0, i32* %9
br label %11
11: ; preds = %40, %4
%12 = load i32, i32* %9
%13 = load i32, i32* %5
%14 = icmp slt i32 %12, %13
br i1 %14, label %15, label %43
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 = trunc i32 %34 to i16
%36 = load i16*, i16** %8
%37 = load i32, i32* %9
%38 = sext i32 %37 to i64
%39 = getelementptr inbounds i16, i16* %36, i64 %38
store i16 %35, i16* %39
br label %40
40: ; preds = %26
%41 = load i32, i32* %9
%42 = add nsw i32 %41, 1
store i32 %42, i32* %9
br label %11
43: ; preds = %11
ret void
}

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