char palin(char *s, short len) {
  short i;
  for (i = 0; i < (len + 1) / 2; i++)
    if (s[i] != s[len - i - 1])
      return 0;
  return 1;
}


x86 assembly (clang, -O0):
<palin>:
push   %rbp
mov    %rsp,%rbp
mov    %si,%ax
mov    %rdi,-0x10(%rbp)
mov    %ax,-0x12(%rbp)
movw   $0x0,-0x14(%rbp)
movswl -0x14(%rbp),%eax
mov    %eax,-0x18(%rbp)
movswl -0x12(%rbp),%eax
add    $0x1,%eax
mov    $0x2,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x18(%rbp),%eax
cmp    %ecx,%eax
jge    1184 <palin+0x84>
mov    -0x10(%rbp),%rax
movswq -0x14(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
mov    -0x10(%rbp),%rcx
movswl -0x12(%rbp),%edx
movswl -0x14(%rbp),%esi
sub    %esi,%edx
sub    $0x1,%edx
movslq %edx,%rdx
movsbl (%rcx,%rdx,1),%ecx
cmp    %ecx,%eax
je     116e <palin+0x6e>
movb   $0x0,-0x1(%rbp)
jmp    1188 <palin+0x88>
jmp    1173 <palin+0x73>
mov    -0x14(%rbp),%ax
add    $0x1,%ax
mov    %ax,-0x14(%rbp)
jmp    1115 <palin+0x15>
movb   $0x1,-0x1(%rbp)
movsbl -0x1(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<palin>:
mov    $0x1,%al
test   %si,%si
jle    1140 <palin+0x40>
lea    0x1(%rsi),%ecx
shr    $0x1f,%ecx
lea    (%rsi,%rcx,1),%r8d
add    $0x1,%r8d
sar    %r8d
xor    %edx,%edx
nopw   0x0(%rax,%rax,1)
movslq %edx,%rcx
movzbl (%rdi,%rcx,1),%r9d
not    %ecx
add    %esi,%ecx
movslq %ecx,%rcx
cmp    (%rdi,%rcx,1),%r9b
jne    1141 <palin+0x41>
add    $0x1,%edx
movswl %dx,%edx
cmp    %edx,%r8d
jg     1120 <palin+0x20>
ret
xor    %eax,%eax
ret

LLVM IR (-O0):
define signext i8 @palin(i8* %0, i16 signext %1) {
%3 = alloca i8
%4 = alloca i8*
%5 = alloca i16
%6 = alloca i16
store i8* %0, i8** %4
store i16 %1, i16* %5
store i16 0, i16* %6
br label %7
7: ; preds = %36, %2
%8 = load i16, i16* %6
%9 = sext i16 %8 to i32
%10 = load i16, i16* %5
%11 = sext i16 %10 to i32
%12 = add nsw i32 %11, 1
%13 = sdiv i32 %12, 2
%14 = icmp slt i32 %9, %13
br i1 %14, label %15, label %39
15: ; preds = %7
%16 = load i8*, i8** %4
%17 = load i16, i16* %6
%18 = sext i16 %17 to i64
%19 = getelementptr inbounds i8, i8* %16, i64 %18
%20 = load i8, i8* %19
%21 = sext i8 %20 to i32
%22 = load i8*, i8** %4
%23 = load i16, i16* %5
%24 = sext i16 %23 to i32
%25 = load i16, i16* %6
%26 = sext i16 %25 to i32
%27 = sub nsw i32 %24, %26
%28 = sub nsw i32 %27, 1
%29 = sext i32 %28 to i64
%30 = getelementptr inbounds i8, i8* %22, i64 %29
%31 = load i8, i8* %30
%32 = sext i8 %31 to i32
%33 = icmp ne i32 %21, %32
br i1 %33, label %34, label %35
34: ; preds = %15
store i8 0, i8* %3
br label %40
35: ; preds = %15
br label %36
36: ; preds = %35
%37 = load i16, i16* %6
%38 = add i16 %37, 1
store i16 %38, i16* %6
br label %7
39: ; preds = %7
store i8 1, i8* %3
br label %40
40: ; preds = %39, %34
%41 = load i8, i8* %3
ret i8 %41
}

LLVM IR (-O2):
define signext i8 @palin(i8* nocapture %0, i16 signext %1) {
%3 = sext i16 %1 to i32
%4 = add nsw i32 %3, 1
%5 = sdiv i32 %4, 2
%6 = icmp sgt i16 %1, 0
br i1 %6, label %12, label %23
7: ; preds = %12
%8 = shl nsw i32 %13, 16
%9 = add i32 %8, 65536
%10 = ashr exact i32 %9, 16
%11 = icmp sgt i32 %5, %10
br i1 %11, label %12, label %23
12: ; preds = %2, %7
%13 = phi i32 [ %10, %7 ], [ 0, %2 ]
%14 = sext i32 %13 to i64
%15 = getelementptr inbounds i8, i8* %0, i64 %14
%16 = load i8, i8* %15
%17 = xor i32 %13, -1
%18 = add nsw i32 %17, %3
%19 = sext i32 %18 to i64
%20 = getelementptr inbounds i8, i8* %0, i64 %19
%21 = load i8, i8* %20
%22 = icmp eq i8 %16, %21
br i1 %22, label %7, label %23
23: ; preds = %12, %7, %2
%24 = phi i8 [ 1, %2 ], [ 1, %7 ], [ 0, %12 ]
ret i8 %24
}