int wcsutil_allEq(int ncoord, int nelem, const double *first) {
  double v0;
  const double *vp;
  v0 = *first;
  for (vp = first + nelem; vp < first + ncoord * 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)
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    1199 <wcsutil_allEq+0x99>
mov    -0x28(%rbp),%rax
movsd  (%rax),%xmm0
ucomisd -0x20(%rbp),%xmm0
jne    116e <wcsutil_allEq+0x6e>
jp     116e <wcsutil_allEq+0x6e>
jmp    117a <wcsutil_allEq+0x7a>
movl   $0x0,-0x4(%rbp)
jmp    11a0 <wcsutil_allEq+0xa0>
jmp    117f <wcsutil_allEq+0x7f>
mov    -0xc(%rbp),%ecx
mov    -0x28(%rbp),%rax
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x28(%rbp)
jmp    112e <wcsutil_allEq+0x2e>
movl   $0x1,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<wcsutil_allEq>:
movsd  (%rdx),%xmm0
movslq %esi,%rax
imul   %eax,%edi
movslq %edi,%rcx
lea    (%rdx,%rcx,8),%rcx
lea    (%rdx,%rax,8),%rdx
shl    $0x3,%rax
nopl   0x0(%rax)
cmp    %rcx,%rdx
jae    1137 <wcsutil_allEq+0x37>
movsd  (%rdx),%xmm1
add    %rax,%rdx
ucomisd %xmm0,%xmm1
jne    1134 <wcsutil_allEq+0x34>
jnp    1120 <wcsutil_allEq+0x20>
xor    %eax,%eax
ret
mov    $0x1,%eax
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 double*, double** %7
%11 = load double, double* %10
store double %11, double* %8
%12 = load double*, double** %7
%13 = load i32, i32* %6
%14 = sext i32 %13 to i64
%15 = getelementptr inbounds double, double* %12, i64 %14
store double* %15, double** %9
br label %16
16: ; preds = %32, %3
%17 = load double*, double** %9
%18 = load double*, double** %7
%19 = load i32, i32* %5
%20 = load i32, i32* %6
%21 = mul nsw i32 %19, %20
%22 = sext i32 %21 to i64
%23 = getelementptr inbounds double, double* %18, i64 %22
%24 = icmp ult double* %17, %23
br i1 %24, label %25, label %37
25: ; preds = %16
%26 = load double*, double** %9
%27 = load double, double* %26
%28 = load double, double* %8
%29 = fcmp une double %27, %28
br i1 %29, label %30, label %31
30: ; preds = %25
store i32 0, i32* %4
br label %38
31: ; preds = %25
br label %32
32: ; preds = %31
%33 = load i32, i32* %6
%34 = load double*, double** %9
%35 = sext i32 %33 to i64
%36 = getelementptr inbounds double, double* %34, i64 %35
store double* %36, double** %9
br label %16
37: ; preds = %16
store i32 1, i32* %4
br label %38
38: ; preds = %37, %30
%39 = load i32, i32* %4
ret i32 %39
}

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