int pcompar(p1, p2)
register char *p1, *p2;
{
  register int rc;
  p1 += strlen(p1) - 5;
  p2 += strlen(p2) - 5;
  if (rc = *p2++ - *p1++)
    return rc;
  if (rc = *p2++ - *p1++)
    if (rc < -10 || rc > 10)
      return -rc;
    else
      return rc;
  return strcmp(p2, p1);
}


x86 assembly (clang, -O0):
<pcompar>:
push   %rbp
mov    %rsp,%rbp
sub    $0x20,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    -0x10(%rbp),%rdi
call   1030 <strlen@plt>
sub    $0x5,%rax
add    -0x10(%rbp),%rax
mov    %rax,-0x10(%rbp)
mov    -0x18(%rbp),%rdi
call   1030 <strlen@plt>
sub    $0x5,%rax
add    -0x18(%rbp),%rax
mov    %rax,-0x18(%rbp)
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x18(%rbp)
movsbl (%rax),%eax
mov    -0x10(%rbp),%rcx
mov    %rcx,%rdx
add    $0x1,%rdx
mov    %rdx,-0x10(%rbp)
movsbl (%rcx),%ecx
sub    %ecx,%eax
mov    %eax,-0x1c(%rbp)
cmp    $0x0,%eax
je     1197 <pcompar+0x77>
mov    -0x1c(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    1205 <pcompar+0xe5>
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x18(%rbp)
movsbl (%rax),%eax
mov    -0x10(%rbp),%rcx
mov    %rcx,%rdx
add    $0x1,%rdx
mov    %rdx,-0x10(%rbp)
movsbl (%rcx),%ecx
sub    %ecx,%eax
mov    %eax,-0x1c(%rbp)
cmp    $0x0,%eax
je     11f5 <pcompar+0xd5>
cmpl   $0xfffffff6,-0x1c(%rbp)
jl     11dd <pcompar+0xbd>
cmpl   $0xa,-0x1c(%rbp)
jle    11ea <pcompar+0xca>
xor    %eax,%eax
sub    -0x1c(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    1205 <pcompar+0xe5>
mov    -0x1c(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    1205 <pcompar+0xe5>
mov    -0x18(%rbp),%rdi
mov    -0x10(%rbp),%rsi
call   1040 <strcmp@plt>
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x20,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<pcompar>:
push   %r15
push   %r14
push   %rbx
mov    %rsi,%r14
mov    %rdi,%rbx
call   1030 <strlen@plt>
mov    %rax,%r15
mov    %r14,%rdi
call   1030 <strlen@plt>
mov    %rax,%rcx
movsbl -0x5(%rax,%r14,1),%eax
movsbl -0x5(%r15,%rbx,1),%edx
sub    %edx,%eax
jne    1175 <pcompar+0x55>
lea    (%rcx,%r14,1),%rdi
add    $0xfffffffffffffffc,%rdi
lea    (%r15,%rbx,1),%rsi
add    $0xfffffffffffffffc,%rsi
movsbl (%rdi),%ecx
movsbl (%rsi),%eax
sub    %eax,%ecx
je     117b <pcompar+0x5b>
lea    -0xb(%rcx),%edx
mov    %ecx,%eax
neg    %eax
cmp    $0xffffffeb,%edx
cmovae %ecx,%eax
pop    %rbx
pop    %r14
pop    %r15
ret
add    $0x1,%rsi
add    $0x1,%rdi
pop    %rbx
pop    %r14
pop    %r15
jmp    1040 <strcmp@plt>

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

LLVM IR (-O2):
define i32 @pcompar(i8* nocapture %0, i8* nocapture %1) {
%3 = tail call i64 @strlen(i8* dereferenceable(1) %0)
%4 = add i64 %3, -5
%5 = getelementptr inbounds i8, i8* %0, i64 %4
%6 = tail call i64 @strlen(i8* dereferenceable(1) %1)
%7 = add i64 %6, -5
%8 = getelementptr inbounds i8, i8* %1, i64 %7
%9 = getelementptr inbounds i8, i8* %8, i64 1
%10 = load i8, i8* %8
%11 = sext i8 %10 to i32
%12 = getelementptr inbounds i8, i8* %5, i64 1
%13 = load i8, i8* %5
%14 = sext i8 %13 to i32
%15 = sub nsw i32 %11, %14
%16 = icmp eq i32 %15, 0
br i1 %16, label %17, label %33
17: ; preds = %2
%18 = load i8, i8* %9
%19 = sext i8 %18 to i32
%20 = load i8, i8* %12
%21 = sext i8 %20 to i32
%22 = sub nsw i32 %19, %21
%23 = icmp eq i32 %22, 0
br i1 %23, label %29, label %24
24: ; preds = %17
%25 = add nsw i32 %22, -11
%26 = icmp ult i32 %25, -21
%27 = sub nsw i32 0, %22
%28 = select i1 %26, i32 %27, i32 %22
br label %33
29: ; preds = %17
%30 = getelementptr inbounds i8, i8* %12, i64 1
%31 = getelementptr inbounds i8, i8* %9, i64 1
%32 = tail call i32 @strcmp(i8* %31, i8* %30)
br label %33
33: ; preds = %24, %2, %29
%34 = phi i32 [ %32, %29 ], [ %15, %2 ], [ %28, %24 ]
ret i32 %34
}