double var_sblk(unsigned char *p, int lx) {
  int i;
  int j;
  unsigned int v;
  unsigned int s;
  unsigned int s2;
  unsigned char *tmp;
  {
    s2 = 0U;
    s = s2;
    j = 0;
    while (j < 8) {
      i = 0;
      while (i < 8) {
        tmp = p;
        p++;
        v = (unsigned int)*tmp;
        s += v;
        s2 += v * v;
        i++;
      }
      p += lx - 8;
      j++;
    }
    return ((double)s2 / 64.0 - ((double)s / 64.0) * ((double)s / 64.0));
  }
}


x86 assembly (clang, -O0):
<var_sblk>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
mov    %eax,-0x1c(%rbp)
movl   $0x0,-0x14(%rbp)
cmpl   $0x8,-0x14(%rbp)
jge    119e <var_sblk+0x9e>
movl   $0x0,-0x10(%rbp)
cmpl   $0x8,-0x10(%rbp)
jge    117c <var_sblk+0x7c>
mov    -0x8(%rbp),%rax
mov    %rax,-0x28(%rbp)
mov    -0x8(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x8(%rbp)
mov    -0x28(%rbp),%rax
movzbl (%rax),%eax
mov    %eax,-0x18(%rbp)
mov    -0x18(%rbp),%eax
add    -0x1c(%rbp),%eax
mov    %eax,-0x1c(%rbp)
mov    -0x18(%rbp),%eax
imul   -0x18(%rbp),%eax
add    -0x20(%rbp),%eax
mov    %eax,-0x20(%rbp)
mov    -0x10(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x10(%rbp)
jmp    1130 <var_sblk+0x30>
mov    -0xc(%rbp),%ecx
sub    $0x8,%ecx
mov    -0x8(%rbp),%rax
movslq %ecx,%rcx
add    %rcx,%rax
mov    %rax,-0x8(%rbp)
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
jmp    111f <var_sblk+0x1f>
mov    -0x20(%rbp),%eax
cvtsi2sd %rax,%xmm1
movsd  0xe52(%rip),%xmm3
divsd  %xmm3,%xmm1
mov    -0x1c(%rbp),%eax
cvtsi2sd %rax,%xmm2
movaps %xmm2,%xmm0
divsd  %xmm3,%xmm0
movsd  0xe37(%rip),%xmm3
divsd  %xmm3,%xmm2
movq   %xmm0,%rax
movabs $0x8000000000000000,%rcx
xor    %rcx,%rax
movq   %rax,%xmm0
mulsd  %xmm2,%xmm0
addsd  %xmm1,%xmm0
pop    %rbp
ret

x86 assembly (clang, -O2):
<var_sblk>:
movslq %esi,%r8
add    $0x7,%rdi
xor    %esi,%esi
mov    $0x8,%edx
xor    %ecx,%ecx
movzbl -0x7(%rdi),%eax
add    %eax,%ecx
imul   %eax,%eax
add    %esi,%eax
movzbl -0x6(%rdi),%esi
add    %esi,%ecx
imul   %esi,%esi
add    %eax,%esi
movzbl -0x5(%rdi),%eax
add    %eax,%ecx
imul   %eax,%eax
add    %esi,%eax
movzbl -0x4(%rdi),%esi
add    %esi,%ecx
imul   %esi,%esi
add    %eax,%esi
movzbl -0x3(%rdi),%eax
add    %eax,%ecx
imul   %eax,%eax
add    %esi,%eax
movzbl -0x2(%rdi),%esi
add    %esi,%ecx
imul   %esi,%esi
add    %eax,%esi
movzbl -0x1(%rdi),%eax
add    %eax,%ecx
imul   %eax,%eax
add    %esi,%eax
movzbl (%rdi),%esi
add    %esi,%ecx
imul   %esi,%esi
add    %eax,%esi
add    %r8,%rdi
add    $0xffffffff,%edx
jne    1110 <var_sblk+0x10>
mov    %esi,%eax
cvtsi2sd %rax,%xmm0
movsd  0xe82(%rip),%xmm1
mov    %ecx,%eax
cvtsi2sd %rax,%xmm2
mulsd  %xmm1,%xmm0
mulsd  %xmm1,%xmm2
mulsd  %xmm2,%xmm2
subsd  %xmm2,%xmm0
ret

LLVM IR (-O0):
define double @var_sblk(i8* %0, i32 %1) {
%3 = alloca i8*
%4 = alloca i32
%5 = alloca i32
%6 = alloca i32
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
%10 = alloca i8*
store i8* %0, i8** %3
store i32 %1, i32* %4
store i32 0, i32* %9
%11 = load i32, i32* %9
store i32 %11, i32* %8
store i32 0, i32* %6
br label %12
12: ; preds = %36, %2
%13 = load i32, i32* %6
%14 = icmp slt i32 %13, 8
br i1 %14, label %15, label %44
15: ; preds = %12
store i32 0, i32* %5
br label %16
16: ; preds = %19, %15
%17 = load i32, i32* %5
%18 = icmp slt i32 %17, 8
br i1 %18, label %19, label %36
19: ; preds = %16
%20 = load i8*, i8** %3
store i8* %20, i8** %10
%21 = load i8*, i8** %3
%22 = getelementptr inbounds i8, i8* %21, i32 1
store i8* %22, i8** %3
%23 = load i8*, i8** %10
%24 = load i8, i8* %23
%25 = zext i8 %24 to i32
store i32 %25, i32* %7
%26 = load i32, i32* %7
%27 = load i32, i32* %8
%28 = add i32 %27, %26
store i32 %28, i32* %8
%29 = load i32, i32* %7
%30 = load i32, i32* %7
%31 = mul i32 %29, %30
%32 = load i32, i32* %9
%33 = add i32 %32, %31
store i32 %33, i32* %9
%34 = load i32, i32* %5
%35 = add nsw i32 %34, 1
store i32 %35, i32* %5
br label %16
36: ; preds = %16
%37 = load i32, i32* %4
%38 = sub nsw i32 %37, 8
%39 = load i8*, i8** %3
%40 = sext i32 %38 to i64
%41 = getelementptr inbounds i8, i8* %39, i64 %40
store i8* %41, i8** %3
%42 = load i32, i32* %6
%43 = add nsw i32 %42, 1
store i32 %43, i32* %6
br label %12
44: ; preds = %12
%45 = load i32, i32* %9
%46 = uitofp i32 %45 to double
%47 = fdiv double %46, 6.400000e+01
%48 = load i32, i32* %8
%49 = uitofp i32 %48 to double
%50 = fdiv double %49, 6.400000e+01
%51 = load i32, i32* %8
%52 = uitofp i32 %51 to double
%53 = fdiv double %52, 6.400000e+01
%54 = fneg double %50
%55 = call double @llvm.fmuladd.f64(double %54, double %53, double %47)
ret double %55
}

LLVM IR (-O2):
define double @var_sblk(i8* nocapture %0, i32 %1) {
%3 = add nsw i32 %1, -8
%4 = sext i32 %3 to i64
br label %5
5: ; preds = %2, %5
%6 = phi i8* [ %0, %2 ], [ %58, %5 ]
%7 = phi i32 [ 0, %2 ], [ %56, %5 ]
%8 = phi i32 [ 0, %2 ], [ %54, %5 ]
%9 = phi i32 [ 0, %2 ], [ %59, %5 ]
%10 = getelementptr inbounds i8, i8* %6, i64 1
%11 = load i8, i8* %6
%12 = zext i8 %11 to i32
%13 = add i32 %8, %12
%14 = mul nuw nsw i32 %12, %12
%15 = add i32 %14, %7
%16 = getelementptr inbounds i8, i8* %6, i64 2
%17 = load i8, i8* %10
%18 = zext i8 %17 to i32
%19 = add i32 %13, %18
%20 = mul nuw nsw i32 %18, %18
%21 = add i32 %20, %15
%22 = getelementptr inbounds i8, i8* %6, i64 3
%23 = load i8, i8* %16
%24 = zext i8 %23 to i32
%25 = add i32 %19, %24
%26 = mul nuw nsw i32 %24, %24
%27 = add i32 %26, %21
%28 = getelementptr inbounds i8, i8* %6, i64 4
%29 = load i8, i8* %22
%30 = zext i8 %29 to i32
%31 = add i32 %25, %30
%32 = mul nuw nsw i32 %30, %30
%33 = add i32 %32, %27
%34 = getelementptr inbounds i8, i8* %6, i64 5
%35 = load i8, i8* %28
%36 = zext i8 %35 to i32
%37 = add i32 %31, %36
%38 = mul nuw nsw i32 %36, %36
%39 = add i32 %38, %33
%40 = getelementptr inbounds i8, i8* %6, i64 6
%41 = load i8, i8* %34
%42 = zext i8 %41 to i32
%43 = add i32 %37, %42
%44 = mul nuw nsw i32 %42, %42
%45 = add i32 %44, %39
%46 = getelementptr inbounds i8, i8* %6, i64 7
%47 = load i8, i8* %40
%48 = zext i8 %47 to i32
%49 = add i32 %43, %48
%50 = mul nuw nsw i32 %48, %48
%51 = add i32 %50, %45
%52 = load i8, i8* %46
%53 = zext i8 %52 to i32
%54 = add i32 %49, %53
%55 = mul nuw nsw i32 %53, %53
%56 = add i32 %55, %51
%57 = getelementptr i8, i8* %6, i64 8
%58 = getelementptr inbounds i8, i8* %57, i64 %4
%59 = add nuw nsw i32 %9, 1
%60 = icmp eq i32 %59, 8
br i1 %60, label %61, label %5
61: ; preds = %5
%62 = uitofp i32 %56 to double
%63 = fmul double %62, 1.562500e-02
%64 = uitofp i32 %54 to double
%65 = fmul double %64, 1.562500e-02
%66 = fneg double %65
%67 = tail call double @llvm.fmuladd.f64(double %66, double %65, double %63)
ret double %67
}