int luasocket_ip_is_private(char *ip) {
  if (ip[0] == 127 && ip[1] == 0 && ip[2] == 0 && ip[3] == 1)
    return 0;
  if (ip[0] == 10)
    return 0;
  if (ip[0] == 172 && ip[1] >= 16 && ip[1] <= 31)
    return 0;
  if (ip[0] == 192 && ip[1] == 168)
    return 0;
  return 1;
}


x86 assembly (clang, -O0):
<luasocket_ip_is_private>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x7f,%eax
jne    1157 <luasocket_ip_is_private+0x57>
mov    -0x10(%rbp),%rax
movsbl 0x1(%rax),%eax
cmp    $0x0,%eax
jne    1157 <luasocket_ip_is_private+0x57>
mov    -0x10(%rbp),%rax
movsbl 0x2(%rax),%eax
cmp    $0x0,%eax
jne    1157 <luasocket_ip_is_private+0x57>
mov    -0x10(%rbp),%rax
movsbl 0x3(%rax),%eax
cmp    $0x1,%eax
jne    1157 <luasocket_ip_is_private+0x57>
movl   $0x0,-0x4(%rbp)
jmp    11eb <luasocket_ip_is_private+0xeb>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0xa,%eax
jne    1173 <luasocket_ip_is_private+0x73>
movl   $0x0,-0x4(%rbp)
jmp    11eb <luasocket_ip_is_private+0xeb>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0xac,%eax
jne    11b3 <luasocket_ip_is_private+0xb3>
mov    -0x10(%rbp),%rax
movsbl 0x1(%rax),%eax
cmp    $0x10,%eax
jl     11b3 <luasocket_ip_is_private+0xb3>
mov    -0x10(%rbp),%rax
movsbl 0x1(%rax),%eax
cmp    $0x1f,%eax
jg     11b3 <luasocket_ip_is_private+0xb3>
movl   $0x0,-0x4(%rbp)
jmp    11eb <luasocket_ip_is_private+0xeb>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0xc0,%eax
jne    11e4 <luasocket_ip_is_private+0xe4>
mov    -0x10(%rbp),%rax
movsbl 0x1(%rax),%eax
cmp    $0xa8,%eax
jne    11e4 <luasocket_ip_is_private+0xe4>
movl   $0x0,-0x4(%rbp)
jmp    11eb <luasocket_ip_is_private+0xeb>
movl   $0x1,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<luasocket_ip_is_private>:
mov    (%rdi),%cl
cmp    $0x7f,%cl
jne    111b <luasocket_ip_is_private+0x1b>
cmpb   $0x0,0x1(%rdi)
jne    111b <luasocket_ip_is_private+0x1b>
cmpb   $0x0,0x2(%rdi)
jne    111b <luasocket_ip_is_private+0x1b>
xor    %eax,%eax
cmpb   $0x1,0x3(%rdi)
je     1123 <luasocket_ip_is_private+0x23>
xor    %eax,%eax
cmp    $0xa,%cl
setne  %al
ret

LLVM IR (-O0):
define i32 @luasocket_ip_is_private(i8* %0) {
%2 = alloca i32
%3 = alloca i8*
store i8* %0, i8** %3
%4 = load i8*, i8** %3
%5 = getelementptr inbounds i8, i8* %4, i64 0
%6 = load i8, i8* %5
%7 = sext i8 %6 to i32
%8 = icmp eq i32 %7, 127
br i1 %8, label %9, label %28
9: ; preds = %1
%10 = load i8*, i8** %3
%11 = getelementptr inbounds i8, i8* %10, i64 1
%12 = load i8, i8* %11
%13 = sext i8 %12 to i32
%14 = icmp eq i32 %13, 0
br i1 %14, label %15, label %28
15: ; preds = %9
%16 = load i8*, i8** %3
%17 = getelementptr inbounds i8, i8* %16, i64 2
%18 = load i8, i8* %17
%19 = sext i8 %18 to i32
%20 = icmp eq i32 %19, 0
br i1 %20, label %21, label %28
21: ; preds = %15
%22 = load i8*, i8** %3
%23 = getelementptr inbounds i8, i8* %22, i64 3
%24 = load i8, i8* %23
%25 = sext i8 %24 to i32
%26 = icmp eq i32 %25, 1
br i1 %26, label %27, label %28
27: ; preds = %21
store i32 0, i32* %2
br label %68
28: ; preds = %21, %15, %9, %1
%29 = load i8*, i8** %3
%30 = getelementptr inbounds i8, i8* %29, i64 0
%31 = load i8, i8* %30
%32 = sext i8 %31 to i32
%33 = icmp eq i32 %32, 10
br i1 %33, label %34, label %35
34: ; preds = %28
store i32 0, i32* %2
br label %68
35: ; preds = %28
%36 = load i8*, i8** %3
%37 = getelementptr inbounds i8, i8* %36, i64 0
%38 = load i8, i8* %37
%39 = sext i8 %38 to i32
%40 = icmp eq i32 %39, 172
br i1 %40, label %41, label %54
41: ; preds = %35
%42 = load i8*, i8** %3
%43 = getelementptr inbounds i8, i8* %42, i64 1
%44 = load i8, i8* %43
%45 = sext i8 %44 to i32
%46 = icmp sge i32 %45, 16
br i1 %46, label %47, label %54
47: ; preds = %41
%48 = load i8*, i8** %3
%49 = getelementptr inbounds i8, i8* %48, i64 1
%50 = load i8, i8* %49
%51 = sext i8 %50 to i32
%52 = icmp sle i32 %51, 31
br i1 %52, label %53, label %54
53: ; preds = %47
store i32 0, i32* %2
br label %68
54: ; preds = %47, %41, %35
%55 = load i8*, i8** %3
%56 = getelementptr inbounds i8, i8* %55, i64 0
%57 = load i8, i8* %56
%58 = sext i8 %57 to i32
%59 = icmp eq i32 %58, 192
br i1 %59, label %60, label %67
60: ; preds = %54
%61 = load i8*, i8** %3
%62 = getelementptr inbounds i8, i8* %61, i64 1
%63 = load i8, i8* %62
%64 = sext i8 %63 to i32
%65 = icmp eq i32 %64, 168
br i1 %65, label %66, label %67
66: ; preds = %60
store i32 0, i32* %2
br label %68
67: ; preds = %60, %54
store i32 1, i32* %2
br label %68
68: ; preds = %67, %66, %53, %34, %27
%69 = load i32, i32* %2
ret i32 %69
}

LLVM IR (-O2):
define i32 @luasocket_ip_is_private(i8* nocapture %0) {
%2 = load i8, i8* %0
%3 = icmp eq i8 %2, 127
br i1 %3, label %4, label %16
4: ; preds = %1
%5 = getelementptr inbounds i8, i8* %0, i64 1
%6 = load i8, i8* %5
%7 = icmp eq i8 %6, 0
br i1 %7, label %8, label %16
8: ; preds = %4
%9 = getelementptr inbounds i8, i8* %0, i64 2
%10 = load i8, i8* %9
%11 = icmp eq i8 %10, 0
br i1 %11, label %12, label %16
12: ; preds = %8
%13 = getelementptr inbounds i8, i8* %0, i64 3
%14 = load i8, i8* %13
%15 = icmp eq i8 %14, 1
br i1 %15, label %19, label %16
16: ; preds = %12, %8, %4, %1
%17 = icmp ne i8 %2, 10
%18 = zext i1 %17 to i32
br label %19
19: ; preds = %16, %12
%20 = phi i32 [ 0, %12 ], [ %18, %16 ]
ret i32 %20
}