int wcsutil_allEq(int nvec, int nelem, const double *first) {
  if (nvec <= 0 || nelem <= 0)
    return 0;
  double v0 = *first;
  for (const double *vp = first + nelem; vp < first + nvec * nelem;
       vp += nelem) {
    if (*vp != v0)
      return 0;
  }
  return 1;
}


x86 assembly (clang, -O0):
<wcsutil_allEq>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %rdx,-0x18(%rbp)
cmpl   $0x0,-0x8(%rbp)
jle    1122 <wcsutil_allEq+0x22>
cmpl   $0x0,-0xc(%rbp)
jg     112e <wcsutil_allEq+0x2e>
movl   $0x0,-0x4(%rbp)
jmp    11c0 <wcsutil_allEq+0xc0>
mov    -0x18(%rbp),%rax
movsd  (%rax),%xmm0
movsd  %xmm0,-0x20(%rbp)
mov    -0x18(%rbp),%rax
movslq -0xc(%rbp),%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x28(%rbp)
mov    -0x28(%rbp),%rax
mov    -0x18(%rbp),%rcx
mov    -0x8(%rbp),%edx
imul   -0xc(%rbp),%edx
movslq %edx,%rdx
shl    $0x3,%rdx
add    %rdx,%rcx
cmp    %rcx,%rax
jae    11b9 <wcsutil_allEq+0xb9>
mov    -0x28(%rbp),%rax
movsd  (%rax),%xmm0
ucomisd -0x20(%rbp),%xmm0
jne    118e <wcsutil_allEq+0x8e>
jp     118e <wcsutil_allEq+0x8e>
jmp    119a <wcsutil_allEq+0x9a>
movl   $0x0,-0x4(%rbp)
jmp    11c0 <wcsutil_allEq+0xc0>
jmp    119f <wcsutil_allEq+0x9f>
mov    -0xc(%rbp),%ecx
mov    -0x28(%rbp),%rax
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x28(%rbp)
jmp    114e <wcsutil_allEq+0x4e>
movl   $0x1,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<wcsutil_allEq>:
xor    %eax,%eax
test   %edi,%edi
jle    1150 <wcsutil_allEq+0x50>
test   %esi,%esi
jle    1150 <wcsutil_allEq+0x50>
movsd  (%rdx),%xmm0
mov    %esi,%eax
imul   %esi,%edi
movslq %edi,%rcx
lea    (%rdx,%rcx,8),%rcx
lea    (%rdx,%rax,8),%rsi
shl    $0x3,%rax
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
mov    %rsi,%rdx
cmp    %rcx,%rsi
jae    1148 <wcsutil_allEq+0x48>
movsd  (%rdx),%xmm1
lea    (%rdx,%rax,1),%rsi
ucomisd %xmm0,%xmm1
jne    1148 <wcsutil_allEq+0x48>
jnp    1130 <wcsutil_allEq+0x30>
xor    %eax,%eax
cmp    %rcx,%rdx
setae  %al
ret

LLVM IR (-O0):
define i32 @wcsutil_allEq(i32 %0, i32 %1, double* %2) {
%4 = alloca i32
%5 = alloca i32
%6 = alloca i32
%7 = alloca double*
%8 = alloca double
%9 = alloca double*
store i32 %0, i32* %5
store i32 %1, i32* %6
store double* %2, double** %7
%10 = load i32, i32* %5
%11 = icmp sle i32 %10, 0
br i1 %11, label %15, label %12
12: ; preds = %3
%13 = load i32, i32* %6
%14 = icmp sle i32 %13, 0
br i1 %14, label %15, label %16
15: ; preds = %12, %3
store i32 0, i32* %4
br label %45
16: ; preds = %12
%17 = load double*, double** %7
%18 = load double, double* %17
store double %18, double* %8
%19 = load double*, double** %7
%20 = load i32, i32* %6
%21 = sext i32 %20 to i64
%22 = getelementptr inbounds double, double* %19, i64 %21
store double* %22, double** %9
br label %23
23: ; preds = %39, %16
%24 = load double*, double** %9
%25 = load double*, double** %7
%26 = load i32, i32* %5
%27 = load i32, i32* %6
%28 = mul nsw i32 %26, %27
%29 = sext i32 %28 to i64
%30 = getelementptr inbounds double, double* %25, i64 %29
%31 = icmp ult double* %24, %30
br i1 %31, label %32, label %44
32: ; preds = %23
%33 = load double*, double** %9
%34 = load double, double* %33
%35 = load double, double* %8
%36 = fcmp une double %34, %35
br i1 %36, label %37, label %38
37: ; preds = %32
store i32 0, i32* %4
br label %45
38: ; preds = %32
br label %39
39: ; preds = %38
%40 = load i32, i32* %6
%41 = load double*, double** %9
%42 = sext i32 %40 to i64
%43 = getelementptr inbounds double, double* %41, i64 %42
store double* %43, double** %9
br label %23
44: ; preds = %23
store i32 1, i32* %4
br label %45
45: ; preds = %44, %37, %15
%46 = load i32, i32* %4
ret i32 %46
}

LLVM IR (-O2):
define i32 @wcsutil_allEq(i32 %0, i32 %1, double* %2) {
%4 = icmp slt i32 %0, 1
%5 = icmp slt i32 %1, 1
%6 = or i1 %4, %5
br i1 %6, label %23, label %7
7: ; preds = %3
%8 = load double, double* %2
%9 = zext i32 %1 to i64
%10 = mul nsw i32 %1, %0
%11 = sext i32 %10 to i64
%12 = getelementptr inbounds double, double* %2, i64 %11
br label %13
13: ; preds = %17, %7
%14 = phi double* [ %2, %7 ], [ %15, %17 ]
%15 = getelementptr inbounds double, double* %14, i64 %9
%16 = icmp ult double* %15, %12
br i1 %16, label %17, label %20
17: ; preds = %13
%18 = load double, double* %15
%19 = fcmp une double %18, %8
br i1 %19, label %20, label %13
20: ; preds = %17, %13
%21 = xor i1 %16, true
%22 = zext i1 %21 to i32
br label %23
23: ; preds = %3, %20
%24 = phi i32 [ %22, %20 ], [ 0, %3 ]
ret i32 %24
}