int isprime(x)
register long x;
{
  static int quick[] = {2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 0};
  register int *ip;
  register long div;
  register long stop;
  for (ip = quick; (div = *ip) != 0; ip++)
    if (x % div == 0) {
      ;
      ;
      return (0);
    }
  for (stop = x; x / stop < stop; stop >>= 1)
    continue;
  stop <<= 1;
  for (div = *--ip; div < stop; div += 2)
    if (x % div == 0)
      return (0);
  return (1);
}


x86 assembly (clang, -O0):
<isprime>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
lea    0x2f21(%rip),%rax
mov    %rax,-0x18(%rbp)
mov    -0x18(%rbp),%rax
movslq (%rax),%rax
mov    %rax,-0x20(%rbp)
cmp    $0x0,%rax
je     115e <isprime+0x5e>
mov    -0x10(%rbp),%rax
cqto
idivq  -0x20(%rbp)
cmp    $0x0,%rdx
jne    1148 <isprime+0x48>
movl   $0x0,-0x4(%rbp)
jmp    11fe <isprime+0xfe>
jmp    114d <isprime+0x4d>
mov    -0x18(%rbp),%rax
add    $0x4,%rax
mov    %rax,-0x18(%rbp)
jmp    1113 <isprime+0x13>
mov    -0x10(%rbp),%rax
mov    %rax,-0x28(%rbp)
mov    -0x10(%rbp),%rax
cqto
idivq  -0x28(%rbp)
cmp    -0x28(%rbp),%rax
jge    1190 <isprime+0x90>
jmp    117f <isprime+0x7f>
mov    -0x28(%rbp),%rax
sar    $0x1,%rax
mov    %rax,-0x28(%rbp)
jmp    1166 <isprime+0x66>
mov    -0x28(%rbp),%rax
shl    $0x1,%rax
mov    %rax,-0x28(%rbp)
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0xfffffffffffffffc,%rcx
mov    %rcx,-0x18(%rbp)
movslq -0x4(%rax),%rax
mov    %rax,-0x20(%rbp)
mov    -0x20(%rbp),%rax
cmp    -0x28(%rbp),%rax
jge    11f7 <isprime+0xf7>
mov    -0x10(%rbp),%rax
cqto
idivq  -0x20(%rbp)
cmp    $0x0,%rdx
jne    11e1 <isprime+0xe1>
movl   $0x0,-0x4(%rbp)
jmp    11fe <isprime+0xfe>
jmp    11e6 <isprime+0xe6>
mov    -0x20(%rbp),%rax
add    $0x2,%rax
mov    %rax,-0x20(%rbp)
jmp    11b3 <isprime+0xb3>
movl   $0x1,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<isprime>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
mov    %rdi,%rbp
movabs $0x5555555555555556,%rcx
55 55 55
mov    %rdi,%rax
imul   %rcx
mov    %rdx,%r13
movabs $0x6666666666666667,%rcx
66 66 66
mov    %rdi,%rax
imul   %rcx
mov    %rdx,%rsi
movabs $0x4924924924924925,%rcx
92 24 49
mov    %rdi,%rax
imul   %rcx
mov    %rdx,%rbx
movabs $0x2e8ba2e8ba2e8ba3,%rcx
a2 8b 2e
mov    %rdi,%rax
imul   %rcx
mov    %rdx,%r12
movabs $0x4ec4ec4ec4ec4ec5,%rcx
ec c4 4e
mov    %rdi,%rax
imul   %rcx
mov    %rdx,%r15
movabs $0x7878787878787879,%rcx
78 78 78
mov    %rdi,%rax
imul   %rcx
mov    %rdx,%r11
movabs $0xd79435e50d79436,%rcx
43 79 0d
mov    %rdi,%rax
imul   %rcx
mov    %rdx,%r10
movabs $0xb21642c8590b2165,%rcx
42 16 b2
mov    %rdi,%rax
imul   %rcx
mov    %rdx,%rcx
movabs $0x469ee58469ee5847,%rdx
e5 9e 46
mov    %rdi,%rax
imul   %rdx
mov    %rdx,%r9
movabs $0x8421084210842109,%rdx
08 21 84
mov    %rdi,%rax
imul   %rdx
mov    %rdx,%r14
movabs $0x3759f22983759f23,%rdx
f2 59 37
mov    %rdi,%rax
imul   %rdx
xor    %r8d,%r8d
test   $0x1,%bpl
je     13d9 <isprime+0x2d9>
mov    %r13,%rax
shr    $0x3f,%rax
add    %r13,%rax
lea    (%rax,%rax,2),%rax
mov    %rbp,%rdi
sub    %rax,%rdi
je     13d9 <isprime+0x2d9>
mov    %rsi,%rax
shr    $0x3f,%rax
sar    %rsi
add    %rax,%rsi
lea    (%rsi,%rsi,4),%rax
mov    %rbp,%rsi
sub    %rax,%rsi
je     13d9 <isprime+0x2d9>
mov    %rbx,%rax
shr    $0x3f,%rax
sar    %rbx
add    %rax,%rbx
lea    0x0(,%rbx,8),%rax
sub    %rax,%rbx
add    %rbp,%rbx
je     13d9 <isprime+0x2d9>
mov    %r12,%rax
shr    $0x3f,%rax
sar    %r12
add    %rax,%r12
lea    (%r12,%r12,4),%rax
lea    (%r12,%rax,2),%rax
mov    %rbp,%rsi
sub    %rax,%rsi
je     13d9 <isprime+0x2d9>
mov    %r15,%rax
shr    $0x3f,%rax
sar    $0x2,%r15
add    %rax,%r15
lea    (%r15,%r15,2),%rax
lea    (%r15,%rax,4),%rax
mov    %rbp,%rsi
sub    %rax,%rsi
je     13d9 <isprime+0x2d9>
mov    %r11,%rax
shr    $0x3f,%rax
sar    $0x3,%r11
add    %rax,%r11
mov    %r11,%rax
shl    $0x4,%rax
add    %r11,%rax
mov    %rbp,%rsi
sub    %rax,%rsi
je     13d9 <isprime+0x2d9>
mov    %r10,%rax
shr    $0x3f,%rax
add    %r10,%rax
lea    (%rax,%rax,8),%rsi
lea    (%rax,%rsi,2),%rax
mov    %rbp,%rsi
sub    %rax,%rsi
je     13d9 <isprime+0x2d9>
add    %rbp,%rcx
mov    %rcx,%rax
shr    $0x3f,%rax
sar    $0x4,%rcx
add    %rax,%rcx
lea    (%rcx,%rcx,2),%rax
shl    $0x3,%rax
sub    %rax,%rcx
add    %rbp,%rcx
je     13d9 <isprime+0x2d9>
mov    %r9,%rax
shr    $0x3f,%rax
sar    $0x3,%r9
add    %rax,%r9
lea    (%r9,%r9,8),%rax
lea    (%rax,%rax,2),%rax
add    %r9,%rax
add    %r9,%rax
mov    %rbp,%rcx
sub    %rax,%rcx
je     13d9 <isprime+0x2d9>
add    %rbp,%r14
mov    %r14,%rax
shr    $0x3f,%rax
sar    $0x4,%r14
add    %rax,%r14
mov    %r14,%rax
shl    $0x5,%rax
sub    %rax,%r14
add    %rbp,%r14
je     13d9 <isprime+0x2d9>
mov    %rdx,%rax
shr    $0x3f,%rax
sar    $0x3,%rdx
add    %rax,%rdx
lea    (%rdx,%rdx,8),%rax
lea    (%rdx,%rax,4),%rax
mov    %rbp,%rcx
sub    %rax,%rcx
je     13d9 <isprime+0x2d9>
mov    %rbp,%rdx
jmp    1373 <isprime+0x273>
nopl   (%rax)
mov    %rbp,%rax
cqto
idiv   %rcx
mov    %rcx,%rdx
sar    %rdx
cmp    %rcx,%rax
jge    138a <isprime+0x28a>
mov    %rdx,%rcx
mov    %rbp,%rax
or     %rdx,%rax
shr    $0x20,%rax
jne    1360 <isprime+0x260>
mov    %ebp,%eax
xor    %edx,%edx
div    %ecx
jmp    1368 <isprime+0x268>
add    %rcx,%rcx
mov    $0x1,%r8d
cmp    $0x26,%rcx
jl     13d9 <isprime+0x2d9>
mov    $0x25,%esi
xchg   %ax,%ax
mov    %rbp,%rax
or     %rsi,%rax
shr    $0x20,%rax
je     13c0 <isprime+0x2c0>
mov    %rbp,%rax
cqto
idiv   %rsi
test   %rdx,%rdx
jne    13cb <isprime+0x2cb>
jmp    13d6 <isprime+0x2d6>
nopl   0x0(%rax,%rax,1)
mov    %ebp,%eax
xor    %edx,%edx
div    %esi
test   %rdx,%rdx
je     13d6 <isprime+0x2d6>
add    $0x2,%rsi
cmp    %rcx,%rsi
jl     13a0 <isprime+0x2a0>
jmp    13d9 <isprime+0x2d9>
xor    %r8d,%r8d
mov    %r8d,%eax
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@isprime.quick = internal global [13 x i32] [i32 2, i32 3, i32 5, i32 7, i32 11, i32 13, i32 17, i32 19, i32 23, i32 29, i32 31, i32 37, i32 0]
define i32 @isprime(i64 %0) {
%2 = alloca i32
%3 = alloca i64
%4 = alloca i32*
%5 = alloca i64
%6 = alloca i64
store i64 %0, i64* %3
store i32* getelementptr inbounds ([13 x i32], [13 x i32]* @isprime.quick, i64 0, i64 0), i32** %4
br label %7
7: ; preds = %19, %1
%8 = load i32*, i32** %4
%9 = load i32, i32* %8
%10 = sext i32 %9 to i64
store i64 %10, i64* %5
%11 = icmp ne i64 %10, 0
br i1 %11, label %12, label %22
12: ; preds = %7
%13 = load i64, i64* %3
%14 = load i64, i64* %5
%15 = srem i64 %13, %14
%16 = icmp eq i64 %15, 0
br i1 %16, label %17, label %18
17: ; preds = %12
store i32 0, i32* %2
br label %56
18: ; preds = %12
br label %19
19: ; preds = %18
%20 = load i32*, i32** %4
%21 = getelementptr inbounds i32, i32* %20, i32 1
store i32* %21, i32** %4
br label %7
22: ; preds = %7
%23 = load i64, i64* %3
store i64 %23, i64* %6
br label %24
24: ; preds = %31, %22
%25 = load i64, i64* %3
%26 = load i64, i64* %6
%27 = sdiv i64 %25, %26
%28 = load i64, i64* %6
%29 = icmp slt i64 %27, %28
br i1 %29, label %30, label %34
30: ; preds = %24
br label %31
31: ; preds = %30
%32 = load i64, i64* %6
%33 = ashr i64 %32, 1
store i64 %33, i64* %6
br label %24
34: ; preds = %24
%35 = load i64, i64* %6
%36 = shl i64 %35, 1
store i64 %36, i64* %6
%37 = load i32*, i32** %4
%38 = getelementptr inbounds i32, i32* %37, i32 -1
store i32* %38, i32** %4
%39 = load i32, i32* %38
%40 = sext i32 %39 to i64
store i64 %40, i64* %5
br label %41
41: ; preds = %52, %34
%42 = load i64, i64* %5
%43 = load i64, i64* %6
%44 = icmp slt i64 %42, %43
br i1 %44, label %45, label %55
45: ; preds = %41
%46 = load i64, i64* %3
%47 = load i64, i64* %5
%48 = srem i64 %46, %47
%49 = icmp eq i64 %48, 0
br i1 %49, label %50, label %51
50: ; preds = %45
store i32 0, i32* %2
br label %56
51: ; preds = %45
br label %52
52: ; preds = %51
%53 = load i64, i64* %5
%54 = add nsw i64 %53, 2
store i64 %54, i64* %5
br label %41
55: ; preds = %41
store i32 1, i32* %2
br label %56
56: ; preds = %55, %50, %17
%57 = load i32, i32* %2
ret i32 %57
}

LLVM IR (-O2):
define i32 @isprime(i64 %0) {
%2 = and i64 %0, 1
%3 = icmp eq i64 %2, 0
%4 = srem i64 %0, 3
%5 = icmp eq i64 %4, 0
%6 = or i1 %3, %5
%7 = srem i64 %0, 5
%8 = icmp eq i64 %7, 0
%9 = or i1 %6, %8
%10 = srem i64 %0, 7
%11 = icmp eq i64 %10, 0
%12 = or i1 %9, %11
%13 = srem i64 %0, 11
%14 = icmp eq i64 %13, 0
%15 = or i1 %12, %14
%16 = srem i64 %0, 13
%17 = icmp eq i64 %16, 0
%18 = or i1 %15, %17
%19 = srem i64 %0, 17
%20 = icmp eq i64 %19, 0
%21 = or i1 %18, %20
%22 = srem i64 %0, 19
%23 = icmp eq i64 %22, 0
%24 = or i1 %21, %23
%25 = srem i64 %0, 23
%26 = icmp eq i64 %25, 0
%27 = or i1 %24, %26
%28 = srem i64 %0, 29
%29 = icmp eq i64 %28, 0
%30 = or i1 %27, %29
%31 = srem i64 %0, 31
%32 = icmp eq i64 %31, 0
%33 = or i1 %30, %32
%34 = srem i64 %0, 37
%35 = icmp eq i64 %34, 0
%36 = or i1 %33, %35
br i1 %36, label %52, label %37
37: ; preds = %1, %37
%38 = phi i64 [ %41, %37 ], [ %0, %1 ]
%39 = sdiv i64 %0, %38
%40 = icmp slt i64 %39, %38
%41 = ashr i64 %38, 1
br i1 %40, label %37, label %42
42: ; preds = %37
%43 = shl i64 %38, 1
%44 = icmp sgt i64 %43, 37
br i1 %44, label %47, label %52
45: ; preds = %47
%46 = icmp slt i64 %51, %43
br i1 %46, label %47, label %52
47: ; preds = %42, %45
%48 = phi i64 [ %51, %45 ], [ 37, %42 ]
%49 = srem i64 %0, %48
%50 = icmp eq i64 %49, 0
%51 = add nuw nsw i64 %48, 2
br i1 %50, label %52, label %45
52: ; preds = %47, %45, %1, %42
%53 = phi i32 [ 1, %42 ], [ 0, %1 ], [ 0, %47 ], [ 1, %45 ]
ret i32 %53
}