int vecino_es_fondo(int x, int y, int xsize, int ysize, double *image) {
  if ((x <= 0) || (x >= xsize - 1))
    return 1;
  if ((y <= 0) || (y >= ysize - 1))
    return 1;
  if (image[y * xsize + (x - 1)] >= 200)
    return 1;
  if (image[y * xsize + (x + 1)] >= 200)
    return 1;
  if (image[(y - 1) * xsize + (x - 1)] >= 200)
    return 1;
  if (image[(y - 1) * xsize + (x)] >= 200)
    return 1;
  if (image[(y - 1) * xsize + (x + 1)] >= 200)
    return 1;
  if (image[(y + 1) * xsize + (x - 1)] >= 200)
    return 1;
  if (image[(y + 1) * xsize + (x)] >= 200)
    return 1;
  if (image[(y + 1) * xsize + (x + 1)] >= 200)
    return 1;
  return 0;
}


x86 assembly (clang, -O0):
<vecino_es_fondo>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
mov    %ecx,-0x14(%rbp)
mov    %r8,-0x20(%rbp)
cmpl   $0x0,-0x8(%rbp)
jle    112f <vecino_es_fondo+0x2f>
mov    -0x8(%rbp),%eax
mov    -0x10(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jl     113b <vecino_es_fondo+0x3b>
movl   $0x1,-0x4(%rbp)
jmp    1339 <vecino_es_fondo+0x239>
cmpl   $0x0,-0xc(%rbp)
jle    1156 <vecino_es_fondo+0x56>
mov    -0xc(%rbp),%eax
mov    -0x14(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jl     1162 <vecino_es_fondo+0x62>
movl   $0x1,-0x4(%rbp)
jmp    1339 <vecino_es_fondo+0x239>
mov    -0x20(%rbp),%rax
mov    -0xc(%rbp),%ecx
imul   -0x10(%rbp),%ecx
mov    -0x8(%rbp),%edx
sub    $0x1,%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  0xe7b(%rip),%xmm1
ucomisd %xmm1,%xmm0
jb     119b <vecino_es_fondo+0x9b>
movl   $0x1,-0x4(%rbp)
jmp    1339 <vecino_es_fondo+0x239>
mov    -0x20(%rbp),%rax
mov    -0xc(%rbp),%ecx
imul   -0x10(%rbp),%ecx
mov    -0x8(%rbp),%edx
add    $0x1,%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  0xe42(%rip),%xmm1
ucomisd %xmm1,%xmm0
jb     11d4 <vecino_es_fondo+0xd4>
movl   $0x1,-0x4(%rbp)
jmp    1339 <vecino_es_fondo+0x239>
mov    -0x20(%rbp),%rax
mov    -0xc(%rbp),%ecx
sub    $0x1,%ecx
imul   -0x10(%rbp),%ecx
mov    -0x8(%rbp),%edx
sub    $0x1,%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  0xe06(%rip),%xmm1
ucomisd %xmm1,%xmm0
jb     1210 <vecino_es_fondo+0x110>
movl   $0x1,-0x4(%rbp)
jmp    1339 <vecino_es_fondo+0x239>
mov    -0x20(%rbp),%rax
mov    -0xc(%rbp),%ecx
sub    $0x1,%ecx
imul   -0x10(%rbp),%ecx
add    -0x8(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  0xdcf(%rip),%xmm1
ucomisd %xmm1,%xmm0
jb     1247 <vecino_es_fondo+0x147>
movl   $0x1,-0x4(%rbp)
jmp    1339 <vecino_es_fondo+0x239>
mov    -0x20(%rbp),%rax
mov    -0xc(%rbp),%ecx
sub    $0x1,%ecx
imul   -0x10(%rbp),%ecx
mov    -0x8(%rbp),%edx
add    $0x1,%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  0xd93(%rip),%xmm1
ucomisd %xmm1,%xmm0
jb     1283 <vecino_es_fondo+0x183>
movl   $0x1,-0x4(%rbp)
jmp    1339 <vecino_es_fondo+0x239>
mov    -0x20(%rbp),%rax
mov    -0xc(%rbp),%ecx
add    $0x1,%ecx
imul   -0x10(%rbp),%ecx
mov    -0x8(%rbp),%edx
sub    $0x1,%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  0xd57(%rip),%xmm1
ucomisd %xmm1,%xmm0
jb     12bf <vecino_es_fondo+0x1bf>
movl   $0x1,-0x4(%rbp)
jmp    1339 <vecino_es_fondo+0x239>
mov    -0x20(%rbp),%rax
mov    -0xc(%rbp),%ecx
add    $0x1,%ecx
imul   -0x10(%rbp),%ecx
add    -0x8(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  0xd20(%rip),%xmm1
ucomisd %xmm1,%xmm0
jb     12f6 <vecino_es_fondo+0x1f6>
movl   $0x1,-0x4(%rbp)
jmp    1339 <vecino_es_fondo+0x239>
mov    -0x20(%rbp),%rax
mov    -0xc(%rbp),%ecx
add    $0x1,%ecx
imul   -0x10(%rbp),%ecx
mov    -0x8(%rbp),%edx
add    $0x1,%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  0xce4(%rip),%xmm1
ucomisd %xmm1,%xmm0
jb     1332 <vecino_es_fondo+0x232>
movl   $0x1,-0x4(%rbp)
jmp    1339 <vecino_es_fondo+0x239>
movl   $0x0,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<vecino_es_fondo>:
mov    $0x1,%eax
test   %edi,%edi
jle    120e <vecino_es_fondo+0x10e>
lea    -0x1(%rdx),%r9d
cmp    %edi,%r9d
jle    120e <vecino_es_fondo+0x10e>
test   %esi,%esi
jle    120e <vecino_es_fondo+0x10e>
add    $0xffffffff,%ecx
cmp    %esi,%ecx
jle    120e <vecino_es_fondo+0x10e>
mov    %edx,%r9d
imul   %esi,%r9d
lea    (%r9,%rdi,1),%ecx
add    $0xffffffff,%ecx
movslq %ecx,%rcx
movsd  (%r8,%rcx,8),%xmm0
ucomisd 0xeb4(%rip),%xmm0
jae    120e <vecino_es_fondo+0x10e>
lea    (%r9,%rdi,1),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movsd  (%r8,%rcx,8),%xmm0
ucomisd 0xe96(%rip),%xmm0
jae    120e <vecino_es_fondo+0x10e>
lea    -0x1(%rdi),%r10d
lea    -0x1(%rsi),%r11d
imul   %edx,%r11d
lea    (%r11,%r10,1),%ecx
movslq %ecx,%rcx
movsd  (%r8,%rcx,8),%xmm0
ucomisd 0xe6f(%rip),%xmm0
jae    120e <vecino_es_fondo+0x10e>
lea    (%r11,%rdi,1),%ecx
movslq %ecx,%rcx
movsd  (%r8,%rcx,8),%xmm0
ucomisd 0xe58(%rip),%xmm0
jae    120e <vecino_es_fondo+0x10e>
lea    0x1(%rdi),%r9d
add    %r9d,%r11d
movslq %r11d,%rcx
movsd  (%r8,%rcx,8),%xmm0
ucomisd 0xe3e(%rip),%xmm0
jae    120e <vecino_es_fondo+0x10e>
add    $0x1,%esi
imul   %edx,%esi
add    %esi,%r10d
movslq %r10d,%rcx
movsd  (%r8,%rcx,8),%xmm0
ucomisd 0xe22(%rip),%xmm0
jae    120e <vecino_es_fondo+0x10e>
add    %esi,%edi
movslq %edi,%rcx
movsd  (%r8,%rcx,8),%xmm0
ucomisd 0xe0d(%rip),%xmm0
jae    120e <vecino_es_fondo+0x10e>
add    %r9d,%esi
movslq %esi,%rax
movsd  (%r8,%rax,8),%xmm0
xor    %eax,%eax
ucomisd 0xdf5(%rip),%xmm0
setae  %al
ret

LLVM IR (-O0):
define i32 @vecino_es_fondo(i32 %0, i32 %1, i32 %2, i32 %3, double* %4) {
%6 = alloca i32
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
%11 = alloca double*
store i32 %0, i32* %7
store i32 %1, i32* %8
store i32 %2, i32* %9
store i32 %3, i32* %10
store double* %4, double** %11
%12 = load i32, i32* %7
%13 = icmp sle i32 %12, 0
br i1 %13, label %19, label %14
14: ; preds = %5
%15 = load i32, i32* %7
%16 = load i32, i32* %9
%17 = sub nsw i32 %16, 1
%18 = icmp sge i32 %15, %17
br i1 %18, label %19, label %20
19: ; preds = %14, %5
store i32 1, i32* %6
br label %138
20: ; preds = %14
%21 = load i32, i32* %8
%22 = icmp sle i32 %21, 0
br i1 %22, label %28, label %23
23: ; preds = %20
%24 = load i32, i32* %8
%25 = load i32, i32* %10
%26 = sub nsw i32 %25, 1
%27 = icmp sge i32 %24, %26
br i1 %27, label %28, label %29
28: ; preds = %23, %20
store i32 1, i32* %6
br label %138
29: ; preds = %23
%30 = load double*, double** %11
%31 = load i32, i32* %8
%32 = load i32, i32* %9
%33 = mul nsw i32 %31, %32
%34 = load i32, i32* %7
%35 = sub nsw i32 %34, 1
%36 = add nsw i32 %33, %35
%37 = sext i32 %36 to i64
%38 = getelementptr inbounds double, double* %30, i64 %37
%39 = load double, double* %38
%40 = fcmp oge double %39, 2.000000e+02
br i1 %40, label %41, label %42
41: ; preds = %29
store i32 1, i32* %6
br label %138
42: ; preds = %29
%43 = load double*, double** %11
%44 = load i32, i32* %8
%45 = load i32, i32* %9
%46 = mul nsw i32 %44, %45
%47 = load i32, i32* %7
%48 = add nsw i32 %47, 1
%49 = add nsw i32 %46, %48
%50 = sext i32 %49 to i64
%51 = getelementptr inbounds double, double* %43, i64 %50
%52 = load double, double* %51
%53 = fcmp oge double %52, 2.000000e+02
br i1 %53, label %54, label %55
54: ; preds = %42
store i32 1, i32* %6
br label %138
55: ; preds = %42
%56 = load double*, double** %11
%57 = load i32, i32* %8
%58 = sub nsw i32 %57, 1
%59 = load i32, i32* %9
%60 = mul nsw i32 %58, %59
%61 = load i32, i32* %7
%62 = sub nsw i32 %61, 1
%63 = add nsw i32 %60, %62
%64 = sext i32 %63 to i64
%65 = getelementptr inbounds double, double* %56, i64 %64
%66 = load double, double* %65
%67 = fcmp oge double %66, 2.000000e+02
br i1 %67, label %68, label %69
68: ; preds = %55
store i32 1, i32* %6
br label %138
69: ; preds = %55
%70 = load double*, double** %11
%71 = load i32, i32* %8
%72 = sub nsw i32 %71, 1
%73 = load i32, i32* %9
%74 = mul nsw i32 %72, %73
%75 = load i32, i32* %7
%76 = add nsw i32 %74, %75
%77 = sext i32 %76 to i64
%78 = getelementptr inbounds double, double* %70, i64 %77
%79 = load double, double* %78
%80 = fcmp oge double %79, 2.000000e+02
br i1 %80, label %81, label %82
81: ; preds = %69
store i32 1, i32* %6
br label %138
82: ; preds = %69
%83 = load double*, double** %11
%84 = load i32, i32* %8
%85 = sub nsw i32 %84, 1
%86 = load i32, i32* %9
%87 = mul nsw i32 %85, %86
%88 = load i32, i32* %7
%89 = add nsw i32 %88, 1
%90 = add nsw i32 %87, %89
%91 = sext i32 %90 to i64
%92 = getelementptr inbounds double, double* %83, i64 %91
%93 = load double, double* %92
%94 = fcmp oge double %93, 2.000000e+02
br i1 %94, label %95, label %96
95: ; preds = %82
store i32 1, i32* %6
br label %138
96: ; preds = %82
%97 = load double*, double** %11
%98 = load i32, i32* %8
%99 = add nsw i32 %98, 1
%100 = load i32, i32* %9
%101 = mul nsw i32 %99, %100
%102 = load i32, i32* %7
%103 = sub nsw i32 %102, 1
%104 = add nsw i32 %101, %103
%105 = sext i32 %104 to i64
%106 = getelementptr inbounds double, double* %97, i64 %105
%107 = load double, double* %106
%108 = fcmp oge double %107, 2.000000e+02
br i1 %108, label %109, label %110
109: ; preds = %96
store i32 1, i32* %6
br label %138
110: ; preds = %96
%111 = load double*, double** %11
%112 = load i32, i32* %8
%113 = add nsw i32 %112, 1
%114 = load i32, i32* %9
%115 = mul nsw i32 %113, %114
%116 = load i32, i32* %7
%117 = add nsw i32 %115, %116
%118 = sext i32 %117 to i64
%119 = getelementptr inbounds double, double* %111, i64 %118
%120 = load double, double* %119
%121 = fcmp oge double %120, 2.000000e+02
br i1 %121, label %122, label %123
122: ; preds = %110
store i32 1, i32* %6
br label %138
123: ; preds = %110
%124 = load double*, double** %11
%125 = load i32, i32* %8
%126 = add nsw i32 %125, 1
%127 = load i32, i32* %9
%128 = mul nsw i32 %126, %127
%129 = load i32, i32* %7
%130 = add nsw i32 %129, 1
%131 = add nsw i32 %128, %130
%132 = sext i32 %131 to i64
%133 = getelementptr inbounds double, double* %124, i64 %132
%134 = load double, double* %133
%135 = fcmp oge double %134, 2.000000e+02
br i1 %135, label %136, label %137
136: ; preds = %123
store i32 1, i32* %6
br label %138
137: ; preds = %123
store i32 0, i32* %6
br label %138
138: ; preds = %137, %136, %122, %109, %95, %81, %68, %54, %41, %28, %19
%139 = load i32, i32* %6
ret i32 %139
}

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