long Karp_Rabin(char *y, char *x, long n, int m) {
  int d, hx, hy, i, j;
  for (d = i = 1; i < m; ++i)
    d = (d << 1);
  for (hy = hx = i = 0; i < m; ++i) {
    hx = ((hx << 1) + x[i]);
    hy = ((hy << 1) + y[i]);
  }
  j = 0;
  while (j <= n - m) {
    if (hx == hy && memcmp(x, y + j, m) == 0)
      return (j);
    hy = ((((hy) - (y[j]) * d) << 1) + (y[j + m]));
    ++j;
  }
  return (-1);
}


x86 assembly (clang, -O0):
<Karp_Rabin>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %rdx,-0x20(%rbp)
mov    %ecx,-0x24(%rbp)
movl   $0x1,-0x34(%rbp)
movl   $0x1,-0x28(%rbp)
mov    -0x34(%rbp),%eax
cmp    -0x24(%rbp),%eax
jge    1158 <Karp_Rabin+0x48>
mov    -0x28(%rbp),%eax
shl    $0x1,%eax
mov    %eax,-0x28(%rbp)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    1135 <Karp_Rabin+0x25>
movl   $0x0,-0x34(%rbp)
movl   $0x0,-0x2c(%rbp)
movl   $0x0,-0x30(%rbp)
mov    -0x34(%rbp),%eax
cmp    -0x24(%rbp),%eax
jge    11b5 <Karp_Rabin+0xa5>
mov    -0x2c(%rbp),%eax
shl    $0x1,%eax
mov    -0x18(%rbp),%rcx
movslq -0x34(%rbp),%rdx
movsbl (%rcx,%rdx,1),%ecx
add    %ecx,%eax
mov    %eax,-0x2c(%rbp)
mov    -0x30(%rbp),%eax
shl    $0x1,%eax
mov    -0x10(%rbp),%rcx
movslq -0x34(%rbp),%rdx
movsbl (%rcx,%rdx,1),%ecx
add    %ecx,%eax
mov    %eax,-0x30(%rbp)
mov    -0x34(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x34(%rbp)
jmp    116d <Karp_Rabin+0x5d>
movl   $0x0,-0x38(%rbp)
movslq -0x38(%rbp),%rax
mov    -0x20(%rbp),%rcx
movslq -0x24(%rbp),%rdx
sub    %rdx,%rcx
cmp    %rcx,%rax
jg     124a <Karp_Rabin+0x13a>
mov    -0x2c(%rbp),%eax
cmp    -0x30(%rbp),%eax
jne    120e <Karp_Rabin+0xfe>
mov    -0x18(%rbp),%rdi
mov    -0x10(%rbp),%rsi
movslq -0x38(%rbp),%rax
add    %rax,%rsi
movslq -0x24(%rbp),%rdx
call   1030 <memcmp@plt>
cmp    $0x0,%eax
jne    120e <Karp_Rabin+0xfe>
movslq -0x38(%rbp),%rax
mov    %rax,-0x8(%rbp)
jmp    1252 <Karp_Rabin+0x142>
mov    -0x30(%rbp),%eax
mov    -0x10(%rbp),%rcx
movslq -0x38(%rbp),%rdx
movsbl (%rcx,%rdx,1),%ecx
imul   -0x28(%rbp),%ecx
sub    %ecx,%eax
shl    $0x1,%eax
mov    -0x10(%rbp),%rcx
mov    -0x38(%rbp),%edx
add    -0x24(%rbp),%edx
movslq %edx,%rdx
movsbl (%rcx,%rdx,1),%ecx
add    %ecx,%eax
mov    %eax,-0x30(%rbp)
mov    -0x38(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x38(%rbp)
jmp    11bc <Karp_Rabin+0xac>
movq   $0xffffffffffffffff,-0x8(%rbp)
ff
mov    -0x8(%rbp),%rax
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<Karp_Rabin>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x18,%rsp
mov    %rdx,%rbx
mov    %rsi,%r10
mov    %rdi,%r11
mov    $0x1,%r12d
cmp    $0x2,%ecx
jl     1178 <Karp_Rabin+0x68>
lea    -0x1(%rcx),%edx
lea    -0x2(%rcx),%esi
mov    %edx,%eax
and    $0x7,%eax
cmp    $0x7,%esi
jae    114a <Karp_Rabin+0x3a>
mov    $0x1,%r12d
jmp    1169 <Karp_Rabin+0x59>
and    $0xfffffff8,%edx
mov    $0x1,%r12d
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
shl    $0x8,%r12d
add    $0xfffffff8,%edx
jne    1160 <Karp_Rabin+0x50>
test   %eax,%eax
je     1178 <Karp_Rabin+0x68>
nopl   (%rax)
add    %r12d,%r12d
add    $0xffffffff,%eax
jne    1170 <Karp_Rabin+0x60>
test   %ecx,%ecx
jle    1192 <Karp_Rabin+0x82>
mov    %ecx,%r8d
cmp    $0x1,%ecx
jne    1199 <Karp_Rabin+0x89>
xor    %edx,%edx
xor    %esi,%esi
xor    %edi,%edi
test   $0x1,%r8b
jne    11eb <Karp_Rabin+0xdb>
jmp    11fe <Karp_Rabin+0xee>
xor    %ebp,%ebp
xor    %r14d,%r14d
jmp    11fe <Karp_Rabin+0xee>
mov    %r8d,%r9d
and    $0xfffffffe,%r9d
xor    %edx,%edx
xor    %r14d,%r14d
xor    %ebp,%ebp
nopw   0x0(%rax,%rax,1)
movsbl (%r10,%rdx,1),%edi
lea    (%rdi,%rbp,2),%edi
movsbl (%r11,%rdx,1),%eax
lea    (%rax,%r14,2),%eax
movsbl 0x1(%r10,%rdx,1),%esi
lea    (%rsi,%rdi,2),%ebp
movsbl 0x1(%r11,%rdx,1),%esi
lea    (%rsi,%rax,2),%r14d
add    $0x2,%rdx
cmp    %rdx,%r9
jne    11b0 <Karp_Rabin+0xa0>
lea    0x0(%rbp,%rbp,1),%edi
lea    (%r14,%r14,1),%esi
test   $0x1,%r8b
je     11fe <Karp_Rabin+0xee>
movsbl (%r10,%rdx,1),%eax
add    %eax,%edi
movsbl (%r11,%rdx,1),%eax
add    %eax,%esi
mov    %edi,%ebp
mov    %esi,%r14d
movslq %ecx,%r13
sub    %r13,%rbx
mov    $0xffffffffffffffff,%rax
js     128c <Karp_Rabin+0x17c>
lea    (%r11,%r13,1),%rcx
xor    %r15d,%r15d
mov    %rbp,0x10(%rsp)
mov    %rbx,0x8(%rsp)
mov    %r11,(%rsp)
jmp    124e <Karp_Rabin+0x13e>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
movsbl (%r11,%r15,1),%eax
imul   %r12d,%eax
sub    %eax,%r14d
movsbl (%rcx,%r15,1),%eax
lea    (%rax,%r14,2),%r14d
add    $0x1,%r15
cmp    %r15,%rbx
jl     1285 <Karp_Rabin+0x175>
cmp    %r14d,%ebp
jne    1230 <Karp_Rabin+0x120>
lea    (%r11,%r15,1),%rsi
mov    %r10,%rdi
mov    %r13,%rdx
mov    %r10,%rbx
mov    %rcx,%rbp
call   1030 <bcmp@plt>
mov    %rbp,%rcx
mov    (%rsp),%r11
mov    0x10(%rsp),%rbp
mov    %rbx,%r10
mov    0x8(%rsp),%rbx
test   %eax,%eax
jne    1230 <Karp_Rabin+0x120>
mov    %r15d,%eax
jmp    128c <Karp_Rabin+0x17c>
mov    $0xffffffffffffffff,%rax
add    $0x18,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
define i64 @Karp_Rabin(i8* nocapture %0, i8* nocapture %1, i64 %2, i32 %3) {
%5 = icmp sgt i32 %3, 1
br i1 %5, label %6, label %23
6: ; preds = %4
%7 = add i32 %3, -1
%8 = add i32 %3, -2
%9 = and i32 %7, 7
%10 = icmp ult i32 %8, 7
br i1 %10, label %13, label %11
11: ; preds = %6
%12 = and i32 %7, -8
br label %32
13: ; preds = %32, %6
%14 = phi i32 [ undef, %6 ], [ %35, %32 ]
%15 = phi i32 [ 1, %6 ], [ %35, %32 ]
%16 = icmp eq i32 %9, 0
br i1 %16, label %23, label %17
17: ; preds = %13, %17
%18 = phi i32 [ %20, %17 ], [ %15, %13 ]
%19 = phi i32 [ %21, %17 ], [ 0, %13 ]
%20 = shl i32 %18, 1
%21 = add i32 %19, 1
%22 = icmp eq i32 %21, %9
br i1 %22, label %23, label %17
23: ; preds = %13, %17, %4
%24 = phi i32 [ 1, %4 ], [ %14, %13 ], [ %20, %17 ]
%25 = icmp sgt i32 %3, 0
br i1 %25, label %26, label %57
26: ; preds = %23
%27 = zext i32 %3 to i64
%28 = and i64 %27, 1
%29 = icmp eq i32 %3, 1
br i1 %29, label %41, label %30
30: ; preds = %26
%31 = and i64 %27, 4294967294
br label %63
32: ; preds = %32, %11
%33 = phi i32 [ 1, %11 ], [ %35, %32 ]
%34 = phi i32 [ 0, %11 ], [ %36, %32 ]
%35 = shl i32 %33, 8
%36 = add i32 %34, 8
%37 = icmp eq i32 %36, %12
br i1 %37, label %13, label %32
38: ; preds = %63
%39 = shl i32 %83, 1
%40 = shl i32 %88, 1
br label %41
41: ; preds = %38, %26
%42 = phi i32 [ undef, %26 ], [ %83, %38 ]
%43 = phi i32 [ undef, %26 ], [ %88, %38 ]
%44 = phi i64 [ 0, %26 ], [ %89, %38 ]
%45 = phi i32 [ 0, %26 ], [ %40, %38 ]
%46 = phi i32 [ 0, %26 ], [ %39, %38 ]
%47 = icmp eq i64 %28, 0
br i1 %47, label %57, label %48
48: ; preds = %41
%49 = getelementptr inbounds i8, i8* %1, i64 %44
%50 = load i8, i8* %49
%51 = sext i8 %50 to i32
%52 = add nsw i32 %46, %51
%53 = getelementptr inbounds i8, i8* %0, i64 %44
%54 = load i8, i8* %53
%55 = sext i8 %54 to i32
%56 = add nsw i32 %45, %55
br label %57
57: ; preds = %48, %41, %23
%58 = phi i32 [ 0, %23 ], [ %42, %41 ], [ %52, %48 ]
%59 = phi i32 [ 0, %23 ], [ %43, %41 ], [ %56, %48 ]
%60 = sext i32 %3 to i64
%61 = sub nsw i64 %2, %60
%62 = icmp slt i64 %61, 0
br i1 %62, label %116, label %92
63: ; preds = %63, %30
%64 = phi i64 [ 0, %30 ], [ %89, %63 ]
%65 = phi i32 [ 0, %30 ], [ %88, %63 ]
%66 = phi i32 [ 0, %30 ], [ %83, %63 ]
%67 = phi i64 [ 0, %30 ], [ %90, %63 ]
%68 = shl i32 %66, 1
%69 = getelementptr inbounds i8, i8* %1, i64 %64
%70 = load i8, i8* %69
%71 = sext i8 %70 to i32
%72 = add nsw i32 %68, %71
%73 = shl i32 %65, 1
%74 = getelementptr inbounds i8, i8* %0, i64 %64
%75 = load i8, i8* %74
%76 = sext i8 %75 to i32
%77 = add nsw i32 %73, %76
%78 = or i64 %64, 1
%79 = shl i32 %72, 1
%80 = getelementptr inbounds i8, i8* %1, i64 %78
%81 = load i8, i8* %80
%82 = sext i8 %81 to i32
%83 = add nsw i32 %79, %82
%84 = shl i32 %77, 1
%85 = getelementptr inbounds i8, i8* %0, i64 %78
%86 = load i8, i8* %85
%87 = sext i8 %86 to i32
%88 = add nsw i32 %84, %87
%89 = add nuw nsw i64 %64, 2
%90 = add i64 %67, 2
%91 = icmp eq i64 %90, %31
br i1 %91, label %38, label %63
92: ; preds = %57, %100
%93 = phi i64 [ %112, %100 ], [ 0, %57 ]
%94 = phi i32 [ %111, %100 ], [ %59, %57 ]
%95 = icmp eq i32 %58, %94
br i1 %95, label %96, label %100
96: ; preds = %92
%97 = getelementptr inbounds i8, i8* %0, i64 %93
%98 = tail call i32 @bcmp(i8* %1, i8* %97, i64 %60)
%99 = icmp eq i32 %98, 0
br i1 %99, label %114, label %100
100: ; preds = %96, %92
%101 = getelementptr inbounds i8, i8* %0, i64 %93
%102 = load i8, i8* %101
%103 = sext i8 %102 to i32
%104 = mul nsw i32 %24, %103
%105 = sub nsw i32 %94, %104
%106 = shl i32 %105, 1
%107 = add nsw i64 %93, %60
%108 = getelementptr inbounds i8, i8* %0, i64 %107
%109 = load i8, i8* %108
%110 = sext i8 %109 to i32
%111 = add nsw i32 %106, %110
%112 = add nuw i64 %93, 1
%113 = icmp slt i64 %61, %112
br i1 %113, label %116, label %92
114: ; preds = %96
%115 = and i64 %93, 4294967295
br label %116
116: ; preds = %100, %57, %114
%117 = phi i64 [ %115, %114 ], [ -1, %57 ], [ -1, %100 ]
ret i64 %117
}