void double_to_float(float *copy, int beg, int end, double *vec) {
  int i;
  copy = copy + beg;
  vec = vec + beg;
  for (i = end - beg + 1; i; i--) {
    *copy++ = *vec++;
  }
}


x86 assembly (clang, -O0):
<double_to_float>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
mov    %rcx,-0x18(%rbp)
mov    -0x8(%rbp),%rax
movslq -0xc(%rbp),%rcx
shl    $0x2,%rcx
add    %rcx,%rax
mov    %rax,-0x8(%rbp)
mov    -0x18(%rbp),%rax
movslq -0xc(%rbp),%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x18(%rbp)
mov    -0x10(%rbp),%eax
sub    -0xc(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
cmpl   $0x0,-0x1c(%rbp)
je     1186 <double_to_float+0x86>
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x8,%rcx
mov    %rcx,-0x18(%rbp)
movsd  (%rax),%xmm0
cvtsd2ss %xmm0,%xmm0
mov    -0x8(%rbp),%rax
mov    %rax,%rcx
add    $0x4,%rcx
mov    %rcx,-0x8(%rbp)
movss  %xmm0,(%rax)
mov    -0x1c(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x1c(%rbp)
jmp    1144 <double_to_float+0x44>
pop    %rbp
ret

x86 assembly (clang, -O2):
<double_to_float>:
push   %r14
push   %rbx
sub    %esi,%edx
mov    %edx,%r8d
inc    %r8d
je     1207 <double_to_float+0x107>
movslq %esi,%r14
lea    (%rcx,%r14,8),%rax
lea    (%rdi,%r14,4),%r11
cmp    $0x3,%edx
jb     11e8 <double_to_float+0xe8>
add    $0x1,%rdx
mov    %rdx,%r9
and    $0xfffffffffffffffc,%r9
lea    -0x4(%r9),%rsi
mov    %rsi,%r10
shr    $0x2,%r10
add    $0x1,%r10
test   %rsi,%rsi
je     120b <double_to_float+0x10b>
mov    %r10,%rsi
and    $0xfffffffffffffffe,%rsi
lea    (%rcx,%r14,8),%rbx
add    $0x30,%rbx
lea    (%rdi,%r14,4),%rdi
add    $0x18,%rdi
xor    %ecx,%ecx
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movupd -0x30(%rbx,%rcx,8),%xmm0
movupd -0x20(%rbx,%rcx,8),%xmm1
cvtpd2ps %xmm0,%xmm0
cvtpd2ps %xmm1,%xmm1
unpcklpd %xmm1,%xmm0
movupd %xmm0,-0x18(%rdi,%rcx,4)
movupd -0x10(%rbx,%rcx,8),%xmm0
movupd (%rbx,%rcx,8),%xmm1
cvtpd2ps %xmm0,%xmm0
cvtpd2ps %xmm1,%xmm1
unpcklpd %xmm1,%xmm0
movupd %xmm0,-0x8(%rdi,%rcx,4)
add    $0x8,%rcx
add    $0xfffffffffffffffe,%rsi
jne    1170 <double_to_float+0x70>
test   $0x1,%r10b
je     11d8 <double_to_float+0xd8>
movupd (%rax,%rcx,8),%xmm0
movupd 0x10(%rax,%rcx,8),%xmm1
cvtpd2ps %xmm0,%xmm0
cvtpd2ps %xmm1,%xmm1
unpcklpd %xmm1,%xmm0
movupd %xmm0,(%r11,%rcx,4)
cmp    %r9,%rdx
je     1207 <double_to_float+0x107>
sub    %r9d,%r8d
lea    (%rax,%r9,8),%rax
lea    (%r11,%r9,4),%r11
mov    %r8d,%ecx
xor    %edx,%edx
nopl   (%rax)
movsd  (%rax,%rdx,8),%xmm0
cvtsd2ss %xmm0,%xmm0
movss  %xmm0,(%r11,%rdx,4)
add    $0x1,%rdx
cmp    %edx,%ecx
jne    11f0 <double_to_float+0xf0>
pop    %rbx
pop    %r14
ret
xor    %ecx,%ecx
test   $0x1,%r10b
jne    11bb <double_to_float+0xbb>
jmp    11d8 <double_to_float+0xd8>

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

LLVM IR (-O2):
define void @double_to_float(float* nocapture writeonly %0, i32 %1, i32 %2, double* nocapture %3) {
%5 = sext i32 %1 to i64
%6 = sub i32 1, %1
%7 = add i32 %6, %2
%8 = icmp eq i32 %7, 0
br i1 %8, label %92, label %9
9: ; preds = %4
%10 = getelementptr inbounds double, double* %3, i64 %5
%11 = getelementptr inbounds float, float* %0, i64 %5
%12 = sub i32 %2, %1
%13 = zext i32 %12 to i64
%14 = add nuw nsw i64 %13, 1
%15 = icmp ult i32 %12, 3
br i1 %15, label %78, label %16
16: ; preds = %9
%17 = and i64 %14, 8589934588
%18 = trunc i64 %17 to i32
%19 = sub i32 %7, %18
%20 = getelementptr double, double* %10, i64 %17
%21 = getelementptr float, float* %11, i64 %17
%22 = add nsw i64 %17, -4
%23 = lshr exact i64 %22, 2
%24 = add nuw nsw i64 %23, 1
%25 = and i64 %24, 1
%26 = icmp eq i64 %22, 0
br i1 %26, label %60, label %27
27: ; preds = %16
%28 = and i64 %24, 9223372036854775806
br label %29
29: ; preds = %29, %27
%30 = phi i64 [ 0, %27 ], [ %57, %29 ]
%31 = phi i64 [ 0, %27 ], [ %58, %29 ]
%32 = getelementptr double, double* %10, i64 %30
%33 = getelementptr float, float* %11, i64 %30
%34 = bitcast double* %32 to <2 x double>*
%35 = load <2 x double>, <2 x double>* %34
%36 = getelementptr double, double* %32, i64 2
%37 = bitcast double* %36 to <2 x double>*
%38 = load <2 x double>, <2 x double>* %37
%39 = fptrunc <2 x double> %35 to <2 x float>
%40 = fptrunc <2 x double> %38 to <2 x float>
%41 = bitcast float* %33 to <2 x float>*
store <2 x float> %39, <2 x float>* %41
%42 = getelementptr float, float* %33, i64 2
%43 = bitcast float* %42 to <2 x float>*
store <2 x float> %40, <2 x float>* %43
%44 = or i64 %30, 4
%45 = getelementptr double, double* %10, i64 %44
%46 = getelementptr float, float* %11, i64 %44
%47 = bitcast double* %45 to <2 x double>*
%48 = load <2 x double>, <2 x double>* %47
%49 = getelementptr double, double* %45, i64 2
%50 = bitcast double* %49 to <2 x double>*
%51 = load <2 x double>, <2 x double>* %50
%52 = fptrunc <2 x double> %48 to <2 x float>
%53 = fptrunc <2 x double> %51 to <2 x float>
%54 = bitcast float* %46 to <2 x float>*
store <2 x float> %52, <2 x float>* %54
%55 = getelementptr float, float* %46, i64 2
%56 = bitcast float* %55 to <2 x float>*
store <2 x float> %53, <2 x float>* %56
%57 = add nuw i64 %30, 8
%58 = add i64 %31, 2
%59 = icmp eq i64 %58, %28
br i1 %59, label %60, label %29
60: ; preds = %29, %16
%61 = phi i64 [ 0, %16 ], [ %57, %29 ]
%62 = icmp eq i64 %25, 0
br i1 %62, label %76, label %63
63: ; preds = %60
%64 = getelementptr double, double* %10, i64 %61
%65 = getelementptr float, float* %11, i64 %61
%66 = bitcast double* %64 to <2 x double>*
%67 = load <2 x double>, <2 x double>* %66
%68 = getelementptr double, double* %64, i64 2
%69 = bitcast double* %68 to <2 x double>*
%70 = load <2 x double>, <2 x double>* %69
%71 = fptrunc <2 x double> %67 to <2 x float>
%72 = fptrunc <2 x double> %70 to <2 x float>
%73 = bitcast float* %65 to <2 x float>*
store <2 x float> %71, <2 x float>* %73
%74 = getelementptr float, float* %65, i64 2
%75 = bitcast float* %74 to <2 x float>*
store <2 x float> %72, <2 x float>* %75
br label %76
76: ; preds = %60, %63
%77 = icmp eq i64 %14, %17
br i1 %77, label %92, label %78
78: ; preds = %9, %76
%79 = phi i32 [ %7, %9 ], [ %19, %76 ]
%80 = phi double* [ %10, %9 ], [ %20, %76 ]
%81 = phi float* [ %11, %9 ], [ %21, %76 ]
br label %82
82: ; preds = %78, %82
%83 = phi i32 [ %90, %82 ], [ %79, %78 ]
%84 = phi double* [ %86, %82 ], [ %80, %78 ]
%85 = phi float* [ %89, %82 ], [ %81, %78 ]
%86 = getelementptr inbounds double, double* %84, i64 1
%87 = load double, double* %84
%88 = fptrunc double %87 to float
%89 = getelementptr inbounds float, float* %85, i64 1
store float %88, float* %85
%90 = add nsw i32 %83, -1
%91 = icmp eq i32 %90, 0
br i1 %91, label %92, label %82
92: ; preds = %82, %76, %4
ret void
}