int point_in_poly(double *xp, double *yp, int npol, double x, double y) {
  int i, j, c = 0;
  for (i = 0, j = npol - 1; i < npol; j = i++) {
    if ((((yp[i] <= y) && (y < yp[j])) || ((yp[j] <= y) && (y < yp[i]))) &&
        (x < (xp[j] - xp[i]) * (y - yp[i]) / (yp[j] - yp[i]) + xp[i]))
      c = !c;
  }
  return c;
}


x86 assembly (clang, -O0):
<point_in_poly>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
movsd  %xmm0,-0x20(%rbp)
movsd  %xmm1,-0x28(%rbp)
movl   $0x0,-0x34(%rbp)
movl   $0x0,-0x2c(%rbp)
mov    -0x14(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x30(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    123f <point_in_poly+0x13f>
mov    -0x10(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
movsd  -0x28(%rbp),%xmm0
ucomisd %xmm1,%xmm0
jb     1174 <point_in_poly+0x74>
movsd  -0x28(%rbp),%xmm1
mov    -0x10(%rbp),%rax
movslq -0x30(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd %xmm1,%xmm0
ja     11ac <point_in_poly+0xac>
mov    -0x10(%rbp),%rax
movslq -0x30(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm1
movsd  -0x28(%rbp),%xmm0
ucomisd %xmm1,%xmm0
jb     1227 <point_in_poly+0x127>
movsd  -0x28(%rbp),%xmm1
mov    -0x10(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
ucomisd %xmm1,%xmm0
jbe    1227 <point_in_poly+0x127>
movsd  -0x20(%rbp),%xmm1
mov    -0x8(%rbp),%rax
movslq -0x30(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x8(%rbp),%rax
movslq -0x2c(%rbp),%rcx
subsd  (%rax,%rcx,8),%xmm0
movsd  -0x28(%rbp),%xmm2
mov    -0x10(%rbp),%rax
movslq -0x2c(%rbp),%rcx
subsd  (%rax,%rcx,8),%xmm2
mulsd  %xmm2,%xmm0
mov    -0x10(%rbp),%rax
movslq -0x30(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm2
mov    -0x10(%rbp),%rax
movslq -0x2c(%rbp),%rcx
subsd  (%rax,%rcx,8),%xmm2
divsd  %xmm2,%xmm0
mov    -0x8(%rbp),%rax
movslq -0x2c(%rbp),%rcx
addsd  (%rax,%rcx,8),%xmm0
ucomisd %xmm1,%xmm0
jbe    1227 <point_in_poly+0x127>
cmpl   $0x0,-0x34(%rbp)
setne  %al
xor    $0xff,%al
and    $0x1,%al
movzbl %al,%eax
mov    %eax,-0x34(%rbp)
jmp    122c <point_in_poly+0x12c>
mov    -0x2c(%rbp),%eax
mov    %eax,%ecx
add    $0x1,%ecx
mov    %ecx,-0x2c(%rbp)
mov    %eax,-0x30(%rbp)
jmp    1130 <point_in_poly+0x30>
mov    -0x34(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<point_in_poly>:
test   %edx,%edx
jle    118e <point_in_poly+0x8e>
mov    %edx,%r8d
add    $0xffffffff,%edx
xor    %r9d,%r9d
xor    %eax,%eax
jmp    112f <point_in_poly+0x2f>
cs nopw 0x0(%rax,%rax,1)
nop
mov    %r9d,%edx
lea    0x1(%r9),%rcx
mov    %rcx,%r9
cmp    %rcx,%r8
je     118d <point_in_poly+0x8d>
movsd  (%rsi,%r9,8),%xmm2
ucomisd %xmm2,%xmm1
movslq %edx,%rdx
movsd  (%rsi,%rdx,8),%xmm3
jb     1149 <point_in_poly+0x49>
ucomisd %xmm1,%xmm3
ja     1155 <point_in_poly+0x55>
ucomisd %xmm3,%xmm1
jb     1120 <point_in_poly+0x20>
ucomisd %xmm1,%xmm2
jbe    1120 <point_in_poly+0x20>
movsd  (%rdi,%rdx,8),%xmm4
movsd  (%rdi,%r9,8),%xmm5
subsd  %xmm5,%xmm4
movapd %xmm1,%xmm6
subsd  %xmm2,%xmm6
mulsd  %xmm4,%xmm6
subsd  %xmm2,%xmm3
divsd  %xmm3,%xmm6
addsd  %xmm5,%xmm6
ucomisd %xmm0,%xmm6
jbe    1120 <point_in_poly+0x20>
xor    %edx,%edx
test   %eax,%eax
sete   %dl
mov    %edx,%eax
jmp    1120 <point_in_poly+0x20>
ret
xor    %eax,%eax
ret

LLVM IR (-O0):
define i32 @point_in_poly(double* %0, double* %1, i32 %2, double %3, double %4) {
%6 = alloca double*
%7 = alloca double*
%8 = alloca i32
%9 = alloca double
%10 = alloca double
%11 = alloca i32
%12 = alloca i32
%13 = alloca i32
store double* %0, double** %6
store double* %1, double** %7
store i32 %2, i32* %8
store double %3, double* %9
store double %4, double* %10
store i32 0, i32* %13
store i32 0, i32* %11
%14 = load i32, i32* %8
%15 = sub nsw i32 %14, 1
store i32 %15, i32* %12
br label %16
16: ; preds = %98, %5
%17 = load i32, i32* %11
%18 = load i32, i32* %8
%19 = icmp slt i32 %17, %18
br i1 %19, label %20, label %101
20: ; preds = %16
%21 = load double*, double** %7
%22 = load i32, i32* %11
%23 = sext i32 %22 to i64
%24 = getelementptr inbounds double, double* %21, i64 %23
%25 = load double, double* %24
%26 = load double, double* %10
%27 = fcmp ole double %25, %26
br i1 %27, label %28, label %36
28: ; preds = %20
%29 = load double, double* %10
%30 = load double*, double** %7
%31 = load i32, i32* %12
%32 = sext i32 %31 to i64
%33 = getelementptr inbounds double, double* %30, i64 %32
%34 = load double, double* %33
%35 = fcmp olt double %29, %34
br i1 %35, label %52, label %36
36: ; preds = %28, %20
%37 = load double*, double** %7
%38 = load i32, i32* %12
%39 = sext i32 %38 to i64
%40 = getelementptr inbounds double, double* %37, i64 %39
%41 = load double, double* %40
%42 = load double, double* %10
%43 = fcmp ole double %41, %42
br i1 %43, label %44, label %97
44: ; preds = %36
%45 = load double, double* %10
%46 = load double*, double** %7
%47 = load i32, i32* %11
%48 = sext i32 %47 to i64
%49 = getelementptr inbounds double, double* %46, i64 %48
%50 = load double, double* %49
%51 = fcmp olt double %45, %50
br i1 %51, label %52, label %97
52: ; preds = %44, %28
%53 = load double, double* %9
%54 = load double*, double** %6
%55 = load i32, i32* %12
%56 = sext i32 %55 to i64
%57 = getelementptr inbounds double, double* %54, i64 %56
%58 = load double, double* %57
%59 = load double*, double** %6
%60 = load i32, i32* %11
%61 = sext i32 %60 to i64
%62 = getelementptr inbounds double, double* %59, i64 %61
%63 = load double, double* %62
%64 = fsub double %58, %63
%65 = load double, double* %10
%66 = load double*, double** %7
%67 = load i32, i32* %11
%68 = sext i32 %67 to i64
%69 = getelementptr inbounds double, double* %66, i64 %68
%70 = load double, double* %69
%71 = fsub double %65, %70
%72 = fmul double %64, %71
%73 = load double*, double** %7
%74 = load i32, i32* %12
%75 = sext i32 %74 to i64
%76 = getelementptr inbounds double, double* %73, i64 %75
%77 = load double, double* %76
%78 = load double*, double** %7
%79 = load i32, i32* %11
%80 = sext i32 %79 to i64
%81 = getelementptr inbounds double, double* %78, i64 %80
%82 = load double, double* %81
%83 = fsub double %77, %82
%84 = fdiv double %72, %83
%85 = load double*, double** %6
%86 = load i32, i32* %11
%87 = sext i32 %86 to i64
%88 = getelementptr inbounds double, double* %85, i64 %87
%89 = load double, double* %88
%90 = fadd double %84, %89
%91 = fcmp olt double %53, %90
br i1 %91, label %92, label %97
92: ; preds = %52
%93 = load i32, i32* %13
%94 = icmp ne i32 %93, 0
%95 = xor i1 %94, true
%96 = zext i1 %95 to i32
store i32 %96, i32* %13
br label %97
97: ; preds = %92, %52, %44, %36
br label %98
98: ; preds = %97
%99 = load i32, i32* %11
%100 = add nsw i32 %99, 1
store i32 %100, i32* %11
store i32 %99, i32* %12
br label %16
101: ; preds = %16
%102 = load i32, i32* %13
ret i32 %102
}

LLVM IR (-O2):
define i32 @point_in_poly(double* nocapture %0, double* nocapture %1, i32 %2, double %3, double %4) {
%6 = icmp sgt i32 %2, 0
br i1 %6, label %7, label %46
7: ; preds = %5
%8 = add nsw i32 %2, -1
%9 = zext i32 %2 to i64
br label %10
10: ; preds = %7, %41
%11 = phi i64 [ 0, %7 ], [ %43, %41 ]
%12 = phi i32 [ 0, %7 ], [ %42, %41 ]
%13 = phi i32 [ %8, %7 ], [ %44, %41 ]
%14 = getelementptr inbounds double, double* %1, i64 %11
%15 = load double, double* %14
%16 = fcmp ole double %15, %4
%17 = sext i32 %13 to i64
%18 = getelementptr inbounds double, double* %1, i64 %17
%19 = load double, double* %18
%20 = fcmp ogt double %19, %4
%21 = select i1 %16, i1 %20, i1 false
br i1 %21, label %26, label %22
22: ; preds = %10
%23 = fcmp ole double %19, %4
%24 = fcmp ogt double %15, %4
%25 = select i1 %23, i1 %24, i1 false
br i1 %25, label %26, label %41
26: ; preds = %10, %22
%27 = getelementptr inbounds double, double* %0, i64 %17
%28 = load double, double* %27
%29 = getelementptr inbounds double, double* %0, i64 %11
%30 = load double, double* %29
%31 = fsub double %28, %30
%32 = fsub double %4, %15
%33 = fmul double %32, %31
%34 = fsub double %19, %15
%35 = fdiv double %33, %34
%36 = fadd double %30, %35
%37 = fcmp ogt double %36, %3
br i1 %37, label %38, label %41
38: ; preds = %26
%39 = icmp eq i32 %12, 0
%40 = zext i1 %39 to i32
br label %41
41: ; preds = %22, %26, %38
%42 = phi i32 [ %40, %38 ], [ %12, %26 ], [ %12, %22 ]
%43 = add nuw nsw i64 %11, 1
%44 = trunc i64 %11 to i32
%45 = icmp eq i64 %43, %9
br i1 %45, label %46, label %10
46: ; preds = %41, %5
%47 = phi i32 [ 0, %5 ], [ %42, %41 ]
ret i32 %47
}