int stepD(int xn, double *xp, int yn, double *yp) {

  int k;
  for (k = 0; k < xn; k++) {
    yp[k] = xp[k] > 0;
  }
  return 0;
}


x86 assembly (clang, -O0):
<stepD>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %rcx,-0x20(%rbp)
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    1160 <stepD+0x60>
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
xorps  %xmm1,%xmm1
ucomisd %xmm1,%xmm0
seta   %al
and    $0x1,%al
movzbl %al,%eax
cvtsi2sd %eax,%xmm0
mov    -0x20(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1119 <stepD+0x19>
xor    %eax,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<stepD>:
test   %edi,%edi
jle    11cc <stepD+0xcc>
mov    %edi,%edx
lea    -0x1(%rdx),%rdi
mov    %edx,%eax
and    $0x3,%eax
cmp    $0x3,%rdi
jae    111d <stepD+0x1d>
xor    %edi,%edi
jmp    118b <stepD+0x8b>
and    $0xfffffffc,%edx
xor    %edi,%edi
movsd  0xed6(%rip),%xmm0
nopw   0x0(%rax,%rax,1)
xorpd  %xmm1,%xmm1
cmpltsd (%rsi,%rdi,8),%xmm1
andpd  %xmm0,%xmm1
movlpd %xmm1,(%rcx,%rdi,8)
xorpd  %xmm1,%xmm1
cmpltsd 0x8(%rsi,%rdi,8),%xmm1
andpd  %xmm0,%xmm1
movlpd %xmm1,0x8(%rcx,%rdi,8)
xorpd  %xmm1,%xmm1
cmpltsd 0x10(%rsi,%rdi,8),%xmm1
andpd  %xmm0,%xmm1
movlpd %xmm1,0x10(%rcx,%rdi,8)
xorpd  %xmm1,%xmm1
cmpltsd 0x18(%rsi,%rdi,8),%xmm1
andpd  %xmm0,%xmm1
movlpd %xmm1,0x18(%rcx,%rdi,8)
add    $0x4,%rdi
cmp    %rdi,%rdx
jne    1130 <stepD+0x30>
test   %rax,%rax
je     11cc <stepD+0xcc>
lea    (%rcx,%rdi,8),%rcx
lea    (%rsi,%rdi,8),%rdx
xor    %esi,%esi
movsd  0xe5e(%rip),%xmm0
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
xorpd  %xmm1,%xmm1
cmpltsd (%rdx,%rsi,8),%xmm1
andpd  %xmm0,%xmm1
movlpd %xmm1,(%rcx,%rsi,8)
add    $0x1,%rsi
cmp    %rsi,%rax
jne    11b0 <stepD+0xb0>
xor    %eax,%eax
ret

LLVM IR (-O0):
define i32 @stepD(i32 %0, double* %1, i32 %2, double* %3) {
%5 = alloca i32
%6 = alloca double*
%7 = alloca i32
%8 = alloca double*
%9 = alloca i32
store i32 %0, i32* %5
store double* %1, double** %6
store i32 %2, i32* %7
store double* %3, double** %8
store i32 0, i32* %9
br label %10
10: ; preds = %27, %4
%11 = load i32, i32* %9
%12 = load i32, i32* %5
%13 = icmp slt i32 %11, %12
br i1 %13, label %14, label %30
14: ; preds = %10
%15 = load double*, double** %6
%16 = load i32, i32* %9
%17 = sext i32 %16 to i64
%18 = getelementptr inbounds double, double* %15, i64 %17
%19 = load double, double* %18
%20 = fcmp ogt double %19, 0.000000e+00
%21 = zext i1 %20 to i32
%22 = sitofp i32 %21 to double
%23 = load double*, double** %8
%24 = load i32, i32* %9
%25 = sext i32 %24 to i64
%26 = getelementptr inbounds double, double* %23, i64 %25
store double %22, double* %26
br label %27
27: ; preds = %14
%28 = load i32, i32* %9
%29 = add nsw i32 %28, 1
store i32 %29, i32* %9
br label %10
30: ; preds = %10
ret i32 0
}

LLVM IR (-O2):
define i32 @stepD(i32 %0, double* nocapture %1, i32 %2, double* nocapture writeonly %3) {
%5 = icmp sgt i32 %0, 0
br i1 %5, label %6, label %56
6: ; preds = %4
%7 = zext i32 %0 to i64
%8 = add nsw i64 %7, -1
%9 = and i64 %7, 3
%10 = icmp ult i64 %8, 3
br i1 %10, label %42, label %11
11: ; preds = %6
%12 = and i64 %7, 4294967292
br label %13
13: ; preds = %13, %11
%14 = phi i64 [ 0, %11 ], [ %39, %13 ]
%15 = phi i64 [ 0, %11 ], [ %40, %13 ]
%16 = getelementptr inbounds double, double* %1, i64 %14
%17 = load double, double* %16
%18 = fcmp ogt double %17, 0.000000e+00
%19 = uitofp i1 %18 to double
%20 = getelementptr inbounds double, double* %3, i64 %14
store double %19, double* %20
%21 = or i64 %14, 1
%22 = getelementptr inbounds double, double* %1, i64 %21
%23 = load double, double* %22
%24 = fcmp ogt double %23, 0.000000e+00
%25 = uitofp i1 %24 to double
%26 = getelementptr inbounds double, double* %3, i64 %21
store double %25, double* %26
%27 = or i64 %14, 2
%28 = getelementptr inbounds double, double* %1, i64 %27
%29 = load double, double* %28
%30 = fcmp ogt double %29, 0.000000e+00
%31 = uitofp i1 %30 to double
%32 = getelementptr inbounds double, double* %3, i64 %27
store double %31, double* %32
%33 = or i64 %14, 3
%34 = getelementptr inbounds double, double* %1, i64 %33
%35 = load double, double* %34
%36 = fcmp ogt double %35, 0.000000e+00
%37 = uitofp i1 %36 to double
%38 = getelementptr inbounds double, double* %3, i64 %33
store double %37, double* %38
%39 = add nuw nsw i64 %14, 4
%40 = add i64 %15, 4
%41 = icmp eq i64 %40, %12
br i1 %41, label %42, label %13
42: ; preds = %13, %6
%43 = phi i64 [ 0, %6 ], [ %39, %13 ]
%44 = icmp eq i64 %9, 0
br i1 %44, label %56, label %45
45: ; preds = %42, %45
%46 = phi i64 [ %53, %45 ], [ %43, %42 ]
%47 = phi i64 [ %54, %45 ], [ 0, %42 ]
%48 = getelementptr inbounds double, double* %1, i64 %46
%49 = load double, double* %48
%50 = fcmp ogt double %49, 0.000000e+00
%51 = uitofp i1 %50 to double
%52 = getelementptr inbounds double, double* %3, i64 %46
store double %51, double* %52
%53 = add nuw nsw i64 %46, 1
%54 = add i64 %47, 1
%55 = icmp eq i64 %54, %9
br i1 %55, label %56, label %45
56: ; preds = %42, %45, %4
ret i32 0
}