void round2int(a, b, n, cprec) double *a, *b;
int n, cprec;
{
  int i, k;
  for (i = 0; i < n; i++) {
    k = a[i] > 0.0 ? 1 : -1;
    b[i] = (int)(a[i] * (1 << cprec) + k * 0.5);
    b[i] /= (double)(1 << cprec);
  }
}


x86 assembly (clang, -O0):
<round2int>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %ecx,-0x18(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    11c4 <round2int+0xc4>
mov    -0x8(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
xorps  %xmm1,%xmm1
mov    $0xffffffff,%eax
mov    $0x1,%ecx
ucomisd %xmm1,%xmm0
cmova  %ecx,%eax
mov    %eax,-0x20(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x18(%rbp),%ecx
mov    $0x1,%eax
shl    %cl,%eax
cvtsi2sd %eax,%xmm2
cvtsi2sdl -0x20(%rbp),%xmm1
movsd  0xe8f(%rip),%xmm3
mulsd  %xmm3,%xmm1
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
cvttsd2si %xmm0,%eax
cvtsi2sd %eax,%xmm0
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x18(%rbp),%ecx
mov    $0x1,%eax
shl    %cl,%eax
cvtsi2sd %eax,%xmm1
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
divsd  %xmm1,%xmm0
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1119 <round2int+0x19>
pop    %rbp
ret

x86 assembly (clang, -O2):
<round2int>:
test   %edx,%edx
jle    1171 <round2int+0x71>
mov    $0x1,%eax
shl    %cl,%eax
cvtsi2sd %eax,%xmm0
mov    %edx,%r9d
cmp    $0x1,%edx
je     1129 <round2int+0x29>
lea    (%rdi,%r9,8),%rax
cmp    %rsi,%rax
jbe    1172 <round2int+0x72>
lea    (%rsi,%r9,8),%rax
cmp    %rdi,%rax
jbe    1172 <round2int+0x72>
xor    %ecx,%ecx
xorpd  %xmm1,%xmm1
lea    0xeea(%rip),%rax
cs nopw 0x0(%rax,%rax,1)
movsd  (%rdi,%rcx,8),%xmm2
xor    %edx,%edx
ucomisd %xmm1,%xmm2
seta   %dl
mulsd  %xmm0,%xmm2
addsd  (%rax,%rdx,8),%xmm2
cvttpd2dq %xmm2,%xmm2
cvtdq2pd %xmm2,%xmm2
divsd  %xmm0,%xmm2
movsd  %xmm2,(%rsi,%rcx,8)
add    $0x1,%rcx
cmp    %rcx,%r9
jne    1140 <round2int+0x40>
ret
mov    %r9d,%ecx
and    $0xfffffffe,%ecx
movapd %xmm0,%xmm1
unpcklpd %xmm0,%xmm1
lea    -0x2(%rcx),%rax
mov    %rax,%r8
shr    %r8
add    $0x1,%r8
test   %rax,%rax
je     127d <round2int+0x17d>
mov    %r8,%rax
and    $0xfffffffffffffffe,%rax
xor    %edx,%edx
movapd 0xe58(%rip),%xmm2
movapd 0xe60(%rip),%xmm3
movupd (%rdi,%rdx,8),%xmm4
xorpd  %xmm5,%xmm5
cmpltpd %xmm4,%xmm5
movapd %xmm3,%xmm6
andpd  %xmm5,%xmm6
andnpd %xmm2,%xmm5
orpd   %xmm6,%xmm5
mulpd  %xmm1,%xmm4
addpd  %xmm5,%xmm4
cvttpd2dq %xmm4,%xmm4
cvtdq2pd %xmm4,%xmm4
divpd  %xmm1,%xmm4
movupd %xmm4,(%rsi,%rdx,8)
movupd 0x10(%rdi,%rdx,8),%xmm4
xorpd  %xmm5,%xmm5
cmpltpd %xmm4,%xmm5
movapd %xmm3,%xmm6
andpd  %xmm5,%xmm6
andnpd %xmm2,%xmm5
orpd   %xmm6,%xmm5
mulpd  %xmm1,%xmm4
addpd  %xmm5,%xmm4
cvttpd2dq %xmm4,%xmm4
cvtdq2pd %xmm4,%xmm4
divpd  %xmm1,%xmm4
movupd %xmm4,0x10(%rsi,%rdx,8)
add    $0x4,%rdx
add    $0xfffffffffffffffe,%rax
jne    11b0 <round2int+0xb0>
test   $0x1,%r8b
je     126f <round2int+0x16f>
movupd (%rdi,%rdx,8),%xmm2
xorpd  %xmm3,%xmm3
cmpltpd %xmm2,%xmm3
movapd %xmm3,%xmm4
andnpd 0xdb6(%rip),%xmm4
andpd  0xdbe(%rip),%xmm3
orpd   %xmm4,%xmm3
mulpd  %xmm1,%xmm2
addpd  %xmm3,%xmm2
cvttpd2dq %xmm2,%xmm2
cvtdq2pd %xmm2,%xmm2
divpd  %xmm1,%xmm2
movupd %xmm2,(%rsi,%rdx,8)
cmp    %r9,%rcx
je     1171 <round2int+0x71>
jmp    112b <round2int+0x2b>
xor    %edx,%edx
test   $0x1,%r8b
jne    1230 <round2int+0x130>
jmp    126f <round2int+0x16f>

LLVM IR (-O0):
define void @round2int(double* %0, double* %1, i32 %2, i32 %3) {
%5 = alloca double*
%6 = alloca double*
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
store double* %0, double** %5
store double* %1, double** %6
store i32 %2, i32* %7
store i32 %3, i32* %8
store i32 0, i32* %9
br label %11
11: ; preds = %51, %4
%12 = load i32, i32* %9
%13 = load i32, i32* %7
%14 = icmp slt i32 %12, %13
br i1 %14, label %15, label %54
15: ; preds = %11
%16 = load double*, double** %5
%17 = load i32, i32* %9
%18 = sext i32 %17 to i64
%19 = getelementptr inbounds double, double* %16, i64 %18
%20 = load double, double* %19
%21 = fcmp ogt double %20, 0.000000e+00
%22 = zext i1 %21 to i64
%23 = select i1 %21, i32 1, i32 -1
store i32 %23, i32* %10
%24 = load double*, double** %5
%25 = load i32, i32* %9
%26 = sext i32 %25 to i64
%27 = getelementptr inbounds double, double* %24, i64 %26
%28 = load double, double* %27
%29 = load i32, i32* %8
%30 = shl i32 1, %29
%31 = sitofp i32 %30 to double
%32 = load i32, i32* %10
%33 = sitofp i32 %32 to double
%34 = fmul double %33, 5.000000e-01
%35 = call double @llvm.fmuladd.f64(double %28, double %31, double %34)
%36 = fptosi double %35 to i32
%37 = sitofp i32 %36 to double
%38 = load double*, double** %6
%39 = load i32, i32* %9
%40 = sext i32 %39 to i64
%41 = getelementptr inbounds double, double* %38, i64 %40
store double %37, double* %41
%42 = load i32, i32* %8
%43 = shl i32 1, %42
%44 = sitofp i32 %43 to double
%45 = load double*, double** %6
%46 = load i32, i32* %9
%47 = sext i32 %46 to i64
%48 = getelementptr inbounds double, double* %45, i64 %47
%49 = load double, double* %48
%50 = fdiv double %49, %44
store double %50, double* %48
br label %51
51: ; preds = %15
%52 = load i32, i32* %9
%53 = add nsw i32 %52, 1
store i32 %53, i32* %9
br label %11
54: ; preds = %11
ret void
}

LLVM IR (-O2):
define void @round2int(double* nocapture %0, double* nocapture writeonly %1, i32 %2, i32 %3) {
%5 = icmp sgt i32 %2, 0
br i1 %5, label %6, label %89
6: ; preds = %4
%7 = shl nuw i32 1, %3
%8 = sitofp i32 %7 to double
%9 = zext i32 %2 to i64
%10 = icmp eq i32 %2, 1
br i1 %10, label %74, label %11
11: ; preds = %6
%12 = getelementptr double, double* %1, i64 %9
%13 = getelementptr double, double* %0, i64 %9
%14 = icmp ugt double* %13, %1
%15 = icmp ugt double* %12, %0
%16 = and i1 %14, %15
br i1 %16, label %74, label %17
17: ; preds = %11
%18 = and i64 %9, 4294967294
%19 = insertelement <2 x double> poison, double %8, i64 0
%20 = shufflevector <2 x double> %19, <2 x double> poison, <2 x i32> zeroinitializer
%21 = add nsw i64 %18, -2
%22 = lshr exact i64 %21, 1
%23 = add nuw i64 %22, 1
%24 = and i64 %23, 1
%25 = icmp eq i64 %21, 0
br i1 %25, label %57, label %26
26: ; preds = %17
%27 = and i64 %23, -2
br label %28
28: ; preds = %28, %26
%29 = phi i64 [ 0, %26 ], [ %54, %28 ]
%30 = phi i64 [ 0, %26 ], [ %55, %28 ]
%31 = getelementptr inbounds double, double* %0, i64 %29
%32 = bitcast double* %31 to <2 x double>*
%33 = load <2 x double>, <2 x double>* %32
%34 = fcmp ogt <2 x double> %33, zeroinitializer
%35 = select <2 x i1> %34, <2 x double> <double 5.000000e-01, double 5.000000e-01>, <2 x double> <double -5.000000e-01, double -5.000000e-01>
%36 = call <2 x double> @llvm.fmuladd.v2f64(<2 x double> %33, <2 x double> %20, <2 x double> %35)
%37 = fptosi <2 x double> %36 to <2 x i32>
%38 = sitofp <2 x i32> %37 to <2 x double>
%39 = getelementptr inbounds double, double* %1, i64 %29
%40 = fdiv <2 x double> %38, %20
%41 = bitcast double* %39 to <2 x double>*
store <2 x double> %40, <2 x double>* %41
%42 = or i64 %29, 2
%43 = getelementptr inbounds double, double* %0, i64 %42
%44 = bitcast double* %43 to <2 x double>*
%45 = load <2 x double>, <2 x double>* %44
%46 = fcmp ogt <2 x double> %45, zeroinitializer
%47 = select <2 x i1> %46, <2 x double> <double 5.000000e-01, double 5.000000e-01>, <2 x double> <double -5.000000e-01, double -5.000000e-01>
%48 = call <2 x double> @llvm.fmuladd.v2f64(<2 x double> %45, <2 x double> %20, <2 x double> %47)
%49 = fptosi <2 x double> %48 to <2 x i32>
%50 = sitofp <2 x i32> %49 to <2 x double>
%51 = getelementptr inbounds double, double* %1, i64 %42
%52 = fdiv <2 x double> %50, %20
%53 = bitcast double* %51 to <2 x double>*
store <2 x double> %52, <2 x double>* %53
%54 = add nuw i64 %29, 4
%55 = add nuw i64 %30, 2
%56 = icmp eq i64 %55, %27
br i1 %56, label %57, label %28
57: ; preds = %28, %17
%58 = phi i64 [ 0, %17 ], [ %54, %28 ]
%59 = icmp eq i64 %24, 0
br i1 %59, label %72, label %60
60: ; preds = %57
%61 = getelementptr inbounds double, double* %0, i64 %58
%62 = bitcast double* %61 to <2 x double>*
%63 = load <2 x double>, <2 x double>* %62
%64 = fcmp ogt <2 x double> %63, zeroinitializer
%65 = select <2 x i1> %64, <2 x double> <double 5.000000e-01, double 5.000000e-01>, <2 x double> <double -5.000000e-01, double -5.000000e-01>
%66 = call <2 x double> @llvm.fmuladd.v2f64(<2 x double> %63, <2 x double> %20, <2 x double> %65)
%67 = fptosi <2 x double> %66 to <2 x i32>
%68 = sitofp <2 x i32> %67 to <2 x double>
%69 = getelementptr inbounds double, double* %1, i64 %58
%70 = fdiv <2 x double> %68, %20
%71 = bitcast double* %69 to <2 x double>*
store <2 x double> %70, <2 x double>* %71
br label %72
72: ; preds = %57, %60
%73 = icmp eq i64 %18, %9
br i1 %73, label %89, label %74
74: ; preds = %11, %6, %72
%75 = phi i64 [ 0, %11 ], [ 0, %6 ], [ %18, %72 ]
br label %76
76: ; preds = %74, %76
%77 = phi i64 [ %87, %76 ], [ %75, %74 ]
%78 = getelementptr inbounds double, double* %0, i64 %77
%79 = load double, double* %78
%80 = fcmp ogt double %79, 0.000000e+00
%81 = select i1 %80, double 5.000000e-01, double -5.000000e-01
%82 = tail call double @llvm.fmuladd.f64(double %79, double %8, double %81)
%83 = fptosi double %82 to i32
%84 = sitofp i32 %83 to double
%85 = getelementptr inbounds double, double* %1, i64 %77
%86 = fdiv double %84, %8
store double %86, double* %85
%87 = add nuw nsw i64 %77, 1
%88 = icmp eq i64 %87, %9
br i1 %88, label %89, label %76
89: ; preds = %76, %72, %4
ret void
}