int stripit(double *a, double *b, int *x, int len) {
  int k, n;
  n = 0;
  for (k = 0; k < len; ++k) {
    if (x[k] >= 0) {
      a[n] = b[k];
      ++n;
    }
  }
  return n;
}


x86 assembly (clang, -O0):
<stripit>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %ecx,-0x1c(%rbp)
movl   $0x0,-0x24(%rbp)
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jge    1175 <stripit+0x75>
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
cmpl   $0x0,(%rax,%rcx,4)
jl     1162 <stripit+0x62>
mov    -0x10(%rbp),%rax
movslq -0x20(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1167 <stripit+0x67>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    1121 <stripit+0x21>
mov    -0x24(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<stripit>:
test   %ecx,%ecx
jle    112c <stripit+0x2c>
mov    %ecx,%r8d
cmp    $0x1,%ecx
jne    112f <stripit+0x2f>
xor    %ecx,%ecx
xor    %eax,%eax
test   $0x1,%r8b
je     112b <stripit+0x2b>
cmpl   $0x0,(%rdx,%rcx,4)
js     112b <stripit+0x2b>
movsd  (%rsi,%rcx,8),%xmm0
cltq
movsd  %xmm0,(%rdi,%rax,8)
add    $0x1,%eax
ret
xor    %eax,%eax
ret
mov    %r8d,%r9d
and    $0xfffffffe,%r9d
xor    %ecx,%ecx
xor    %eax,%eax
jmp    1149 <stripit+0x49>
nopl   0x0(%rax)
add    $0x2,%rcx
cmp    %rcx,%r9
je     1110 <stripit+0x10>
cmpl   $0x0,(%rdx,%rcx,4)
js     115e <stripit+0x5e>
movsd  (%rsi,%rcx,8),%xmm0
cltq
movsd  %xmm0,(%rdi,%rax,8)
add    $0x1,%eax
cmpl   $0x0,0x4(%rdx,%rcx,4)
js     1140 <stripit+0x40>
movsd  0x8(%rsi,%rcx,8),%xmm0
cltq
movsd  %xmm0,(%rdi,%rax,8)
add    $0x1,%eax
jmp    1140 <stripit+0x40>

LLVM IR (-O0):
define i32 @stripit(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* %10
store i32 0, i32* %9
br label %11
11: ; preds = %35, %4
%12 = load i32, i32* %9
%13 = load i32, i32* %8
%14 = icmp slt i32 %12, %13
br i1 %14, label %15, label %38
15: ; preds = %11
%16 = load i32*, i32** %7
%17 = load i32, i32* %9
%18 = sext i32 %17 to i64
%19 = getelementptr inbounds i32, i32* %16, i64 %18
%20 = load i32, i32* %19
%21 = icmp sge i32 %20, 0
br i1 %21, label %22, label %34
22: ; preds = %15
%23 = load double*, double** %6
%24 = load i32, i32* %9
%25 = sext i32 %24 to i64
%26 = getelementptr inbounds double, double* %23, i64 %25
%27 = load double, double* %26
%28 = load double*, double** %5
%29 = load i32, i32* %10
%30 = sext i32 %29 to i64
%31 = getelementptr inbounds double, double* %28, i64 %30
store double %27, double* %31
%32 = load i32, i32* %10
%33 = add nsw i32 %32, 1
store i32 %33, i32* %10
br label %34
34: ; preds = %22, %15
br label %35
35: ; preds = %34
%36 = load i32, i32* %9
%37 = add nsw i32 %36, 1
store i32 %37, i32* %9
br label %11
38: ; preds = %11
%39 = load i32, i32* %10
ret i32 %39
}

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