#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */
typedef scalar_t__ uint8_t;
typedef scalar_t__ int64_t;

/* Variables and functions */
void stdlib_strided_dmskmap(const int64_t N, const double *X,
                            const int64_t strideX, const uint8_t *Mask,
                            const int64_t strideMask, double *Y,
                            const int64_t strideY, double (*fcn)(double)) {
  int64_t ix;
  int64_t im;
  int64_t iy;
  int64_t i;
  if (N <= 0) {
    return;
  }
  if (strideX < 0) {
    ix = (1 - N) * strideX;
  } else {
    ix = 0;
  }
  if (strideMask < 0) {
    im = (1 - N) * strideMask;
  } else {
    im = 0;
  }
  if (strideY < 0) {
    iy = (1 - N) * strideY;
  } else {
    iy = 0;
  }
  for (i = 0; i < N; i++) {
    if (Mask[im] == 0) {
      Y[iy] = fcn(X[ix]);
    }
    ix += strideX;
    im += strideMask;
    iy += strideY;
  }
  return;
}


x86 assembly (clang, -O0):
<stdlib_strided_dmskmap>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
mov    0x18(%rbp),%rax
mov    0x10(%rbp),%rax
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
mov    %r9,-0x30(%rbp)
cmpq   $0x0,-0x8(%rbp)
jg     1138 <stdlib_strided_dmskmap+0x38>
jmp    1239 <stdlib_strided_dmskmap+0x139>
cmpq   $0x0,-0x18(%rbp)
jge    115a <stdlib_strided_dmskmap+0x5a>
mov    $0x1,%eax
sub    -0x8(%rbp),%rax
imul   -0x18(%rbp),%rax
mov    %rax,-0x38(%rbp)
jmp    1162 <stdlib_strided_dmskmap+0x62>
movq   $0x0,-0x38(%rbp)
cmpq   $0x0,-0x28(%rbp)
jge    1184 <stdlib_strided_dmskmap+0x84>
mov    $0x1,%eax
sub    -0x8(%rbp),%rax
imul   -0x28(%rbp),%rax
mov    %rax,-0x40(%rbp)
jmp    118c <stdlib_strided_dmskmap+0x8c>
movq   $0x0,-0x40(%rbp)
cmpq   $0x0,0x10(%rbp)
jge    11ae <stdlib_strided_dmskmap+0xae>
mov    $0x1,%eax
sub    -0x8(%rbp),%rax
imul   0x10(%rbp),%rax
mov    %rax,-0x48(%rbp)
jmp    11b6 <stdlib_strided_dmskmap+0xb6>
movq   $0x0,-0x48(%rbp)
movq   $0x0,-0x50(%rbp)
mov    -0x50(%rbp),%rax
cmp    -0x8(%rbp),%rax
jge    1234 <stdlib_strided_dmskmap+0x134>
mov    -0x20(%rbp),%rax
mov    -0x40(%rbp),%rcx
cmpq   $0x0,(%rax,%rcx,8)
jne    11ff <stdlib_strided_dmskmap+0xff>
mov    0x18(%rbp),%rax
mov    -0x10(%rbp),%rcx
mov    -0x38(%rbp),%rdx
movsd  (%rcx,%rdx,8),%xmm0
call   *%rax
mov    -0x30(%rbp),%rax
mov    -0x48(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x18(%rbp),%rax
add    -0x38(%rbp),%rax
mov    %rax,-0x38(%rbp)
mov    -0x28(%rbp),%rax
add    -0x40(%rbp),%rax
mov    %rax,-0x40(%rbp)
mov    0x10(%rbp),%rax
add    -0x48(%rbp),%rax
mov    %rax,-0x48(%rbp)
mov    -0x50(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x50(%rbp)
jmp    11be <stdlib_strided_dmskmap+0xbe>
jmp    1239 <stdlib_strided_dmskmap+0x139>
add    $0x50,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<stdlib_strided_dmskmap>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
test   %rdi,%rdi
jle    11aa <stdlib_strided_dmskmap+0xaa>
mov    %r8,%r15
mov    %rdx,%r13
mov    %rdi,%rbx
mov    0x40(%rsp),%rdi
mov    $0x1,%eax
sub    %rbx,%rax
mov    %rax,%r10
imul   %rdi,%r10
mov    %rdi,%rbp
sar    $0x3f,%rbp
and    %r10,%rbp
mov    %rax,%r11
imul   %r8,%r11
mov    %r8,%r10
sar    $0x3f,%r10
and    %r11,%r10
imul   %rdx,%rax
mov    %rdx,%r11
sar    $0x3f,%r11
and    %rax,%r11
lea    (%r9,%rbp,8),%rbp
shl    $0x3,%rdi
lea    (%rcx,%r10,8),%r12
shl    $0x3,%r15
lea    (%rsi,%r11,8),%r14
shl    $0x3,%r13
mov    %rdi,(%rsp)
jmp    118f <stdlib_strided_dmskmap+0x8f>
nopl   0x0(%rax,%rax,1)
add    %rdi,%rbp
add    %r15,%r12
add    %r13,%r14
add    $0xffffffffffffffff,%rbx
je     11aa <stdlib_strided_dmskmap+0xaa>
cmpq   $0x0,(%r12)
jne    1180 <stdlib_strided_dmskmap+0x80>
movsd  (%r14),%xmm0
call   *0x48(%rsp)
mov    (%rsp),%rdi
movsd  %xmm0,0x0(%rbp)
jmp    1180 <stdlib_strided_dmskmap+0x80>
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define void @stdlib_strided_dmskmap(i64 %0, double* %1, i64 %2, i64* %3, i64 %4, double* %5, i64 %6, double (double)* %7) {
%9 = alloca i64
%10 = alloca double*
%11 = alloca i64
%12 = alloca i64*
%13 = alloca i64
%14 = alloca double*
%15 = alloca i64
%16 = alloca double (double)*
%17 = alloca i64
%18 = alloca i64
%19 = alloca i64
%20 = alloca i64
store i64 %0, i64* %9
store double* %1, double** %10
store i64 %2, i64* %11
store i64* %3, i64** %12
store i64 %4, i64* %13
store double* %5, double** %14
store i64 %6, i64* %15
store double (double)* %7, double (double)** %16
%21 = load i64, i64* %9
%22 = icmp sle i64 %21, 0
br i1 %22, label %23, label %24
23: ; preds = %8
br label %86
24: ; preds = %8
%25 = load i64, i64* %11
%26 = icmp slt i64 %25, 0
br i1 %26, label %27, label %32
27: ; preds = %24
%28 = load i64, i64* %9
%29 = sub nsw i64 1, %28
%30 = load i64, i64* %11
%31 = mul nsw i64 %29, %30
store i64 %31, i64* %17
br label %33
32: ; preds = %24
store i64 0, i64* %17
br label %33
33: ; preds = %32, %27
%34 = load i64, i64* %13
%35 = icmp slt i64 %34, 0
br i1 %35, label %36, label %41
36: ; preds = %33
%37 = load i64, i64* %9
%38 = sub nsw i64 1, %37
%39 = load i64, i64* %13
%40 = mul nsw i64 %38, %39
store i64 %40, i64* %18
br label %42
41: ; preds = %33
store i64 0, i64* %18
br label %42
42: ; preds = %41, %36
%43 = load i64, i64* %15
%44 = icmp slt i64 %43, 0
br i1 %44, label %45, label %50
45: ; preds = %42
%46 = load i64, i64* %9
%47 = sub nsw i64 1, %46
%48 = load i64, i64* %15
%49 = mul nsw i64 %47, %48
store i64 %49, i64* %19
br label %51
50: ; preds = %42
store i64 0, i64* %19
br label %51
51: ; preds = %50, %45
store i64 0, i64* %20
br label %52
52: ; preds = %82, %51
%53 = load i64, i64* %20
%54 = load i64, i64* %9
%55 = icmp slt i64 %53, %54
br i1 %55, label %56, label %85
56: ; preds = %52
%57 = load i64*, i64** %12
%58 = load i64, i64* %18
%59 = getelementptr inbounds i64, i64* %57, i64 %58
%60 = load i64, i64* %59
%61 = icmp eq i64 %60, 0
br i1 %61, label %62, label %72
62: ; preds = %56
%63 = load double (double)*, double (double)** %16
%64 = load double*, double** %10
%65 = load i64, i64* %17
%66 = getelementptr inbounds double, double* %64, i64 %65
%67 = load double, double* %66
%68 = call double %63(double %67)
%69 = load double*, double** %14
%70 = load i64, i64* %19
%71 = getelementptr inbounds double, double* %69, i64 %70
store double %68, double* %71
br label %72
72: ; preds = %62, %56
%73 = load i64, i64* %11
%74 = load i64, i64* %17
%75 = add nsw i64 %74, %73
store i64 %75, i64* %17
%76 = load i64, i64* %13
%77 = load i64, i64* %18
%78 = add nsw i64 %77, %76
store i64 %78, i64* %18
%79 = load i64, i64* %15
%80 = load i64, i64* %19
%81 = add nsw i64 %80, %79
store i64 %81, i64* %19
br label %82
82: ; preds = %72
%83 = load i64, i64* %20
%84 = add nsw i64 %83, 1
store i64 %84, i64* %20
br label %52
85: ; preds = %52
br label %86
86: ; preds = %85, %23
ret void
}

LLVM IR (-O2):
define void @stdlib_strided_dmskmap(i64 %0, double* nocapture %1, i64 %2, i64* nocapture %3, i64 %4, double* nocapture writeonly %5, i64 %6, double (double)* nocapture %7) {
%9 = icmp slt i64 %0, 1
br i1 %9, label %40, label %10
10: ; preds = %8
%11 = sub nsw i64 1, %0
%12 = icmp slt i64 %6, 0
%13 = mul nsw i64 %11, %6
%14 = select i1 %12, i64 %13, i64 0
%15 = icmp slt i64 %4, 0
%16 = mul nsw i64 %11, %4
%17 = select i1 %15, i64 %16, i64 0
%18 = icmp slt i64 %2, 0
%19 = mul nsw i64 %11, %2
%20 = select i1 %18, i64 %19, i64 0
br label %21
21: ; preds = %10, %34
%22 = phi i64 [ %38, %34 ], [ 0, %10 ]
%23 = phi i64 [ %37, %34 ], [ %14, %10 ]
%24 = phi i64 [ %36, %34 ], [ %17, %10 ]
%25 = phi i64 [ %35, %34 ], [ %20, %10 ]
%26 = getelementptr inbounds i64, i64* %3, i64 %24
%27 = load i64, i64* %26
%28 = icmp eq i64 %27, 0
br i1 %28, label %29, label %34
29: ; preds = %21
%30 = getelementptr inbounds double, double* %1, i64 %25
%31 = load double, double* %30
%32 = tail call double %7(double %31)
%33 = getelementptr inbounds double, double* %5, i64 %23
store double %32, double* %33
br label %34
34: ; preds = %29, %21
%35 = add nsw i64 %25, %2
%36 = add nsw i64 %24, %4
%37 = add nsw i64 %23, %6
%38 = add nuw nsw i64 %22, 1
%39 = icmp eq i64 %38, %0
br i1 %39, label %40, label %21
40: ; preds = %34, %8
ret void
}