#define NULL ((void *)0)
typedef unsigned long size_t; // Customize by platform.
typedef long intptr_t;
typedef unsigned long uintptr_t;
typedef long scalar_t__; // Either arithmetic or pointer type.
/* By default, we understand bool (as a convenience). */
typedef int bool;
#define false 0
#define true 1

/* Forward declarations */

/* Type definitions */

/* Variables and functions */
int abs(int);
scalar_t__ strcasecmp(char *, char *);
size_t strlen(char *);
int palindrome(char *string) {
  char rstring[strlen(string)];
  int x;
  for (x = 0; x < strlen(string); x++) {
    rstring[abs(strlen(string) - x) - 1] = string[x];
  }
  rstring[strlen(string)] = (int)NULL;
  if (strcasecmp(string, rstring) == 0) {
    return 1;
  } else {
    return 0;
  }
}


x86 assembly (clang, -O0):
<palindrome>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %rdi,-0x10(%rbp)
mov    -0x10(%rbp),%rdi
call   1050 <strlen@plt>
mov    %rax,%rdx
mov    %rdx,%rax
mov    %rsp,%rcx
mov    %rcx,-0x18(%rbp)
add    $0xf,%rdx
and    $0xfffffffffffffff0,%rdx
mov    %rsp,%rcx
sub    %rdx,%rcx
mov    %rcx,-0x30(%rbp)
mov    %rcx,%rsp
mov    %rax,-0x20(%rbp)
movl   $0x0,-0x24(%rbp)
movslq -0x24(%rbp),%rax
mov    %rax,-0x38(%rbp)
mov    -0x10(%rbp),%rdi
call   1050 <strlen@plt>
mov    %rax,%rcx
mov    -0x38(%rbp),%rax
cmp    %rcx,%rax
jae    11d8 <palindrome+0xa8>
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    (%rax,%rcx,1),%al
mov    %al,-0x39(%rbp)
mov    -0x10(%rbp),%rdi
call   1050 <strlen@plt>
movslq -0x24(%rbp),%rcx
sub    %rcx,%rax
mov    %eax,%edi
call   1040 <abs@plt>
mov    -0x39(%rbp),%dl
mov    %eax,%ecx
mov    -0x30(%rbp),%rax
sub    $0x1,%ecx
movslq %ecx,%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    1172 <palindrome+0x42>
mov    -0x10(%rbp),%rdi
call   1050 <strlen@plt>
mov    -0x30(%rbp),%rsi
movb   $0x0,(%rsi,%rax,1)
mov    -0x10(%rbp),%rdi
call   1030 <strcasecmp@plt>
cmp    $0x0,%rax
jne    120f <palindrome+0xdf>
movl   $0x1,-0x4(%rbp)
movl   $0x1,-0x28(%rbp)
jmp    121d <palindrome+0xed>
movl   $0x0,-0x4(%rbp)
movl   $0x1,-0x28(%rbp)
mov    -0x18(%rbp),%rax
mov    %rax,%rsp
mov    -0x4(%rbp),%eax
mov    %rbp,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<palindrome>:
push   %rbp
mov    %rsp,%rbp
push   %r14
push   %rbx
mov    %rdi,%r14
call   1040 <strlen@plt>
mov    %rsp,%rsi
lea    0xf(%rax),%rcx
and    $0xfffffffffffffff0,%rcx
sub    %rcx,%rsi
mov    %rsi,%rsp
test   %rax,%rax
je     11b1 <palindrome+0x91>
cmp    $0x1,%rax
jne    114f <palindrome+0x2f>
xor    %ecx,%ecx
jmp    1197 <palindrome+0x77>
mov    %rax,%r8
and    $0xfffffffffffffffe,%r8
xor    %ecx,%ecx
mov    %eax,%edi
nopw   0x0(%rax,%rax,1)
movzbl (%r14,%rcx,1),%edx
mov    %edi,%ebx
neg    %ebx
cmovs  %edi,%ebx
movslq %ebx,%rbx
mov    %dl,-0x1(%rbx,%rsi,1)
movzbl 0x1(%r14,%rcx,1),%r9d
lea    -0x1(%rdi),%edx
mov    %edx,%ebx
neg    %ebx
cmovs  %edx,%ebx
movslq %ebx,%rdx
mov    %r9b,-0x1(%rdx,%rsi,1)
add    $0x2,%rcx
add    $0xfffffffe,%edi
cmp    %rcx,%r8
jne    1160 <palindrome+0x40>
test   $0x1,%al
je     11b1 <palindrome+0x91>
mov    (%r14,%rcx,1),%dl
mov    %eax,%edi
sub    %ecx,%edi
mov    %edi,%ecx
neg    %ecx
cmovs  %edi,%ecx
movslq %ecx,%rcx
mov    %dl,-0x1(%rcx,%rsi,1)
movb   $0x0,(%rsi,%rax,1)
mov    %r14,%rdi
call   1030 <strcasecmp@plt>
xor    %ecx,%ecx
test   %rax,%rax
sete   %cl
mov    %ecx,%eax
lea    -0x10(%rbp),%rsp
pop    %rbx
pop    %r14
pop    %rbp
ret

LLVM IR (-O0):
define i32 @palindrome(i8* %0) {
%2 = alloca i32
%3 = alloca i8*
%4 = alloca i8*
%5 = alloca i64
%6 = alloca i32
%7 = alloca i32
store i8* %0, i8** %3
%8 = load i8*, i8** %3
%9 = call i64 @strlen(i8* %8)
%10 = call i8* @llvm.stacksave()
store i8* %10, i8** %4
%11 = alloca i8, i64 %9
store i64 %9, i64* %5
store i32 0, i32* %6
br label %12
12: ; preds = %34, %1
%13 = load i32, i32* %6
%14 = sext i32 %13 to i64
%15 = load i8*, i8** %3
%16 = call i64 @strlen(i8* %15)
%17 = icmp ult i64 %14, %16
br i1 %17, label %18, label %37
18: ; preds = %12
%19 = load i8*, i8** %3
%20 = load i32, i32* %6
%21 = sext i32 %20 to i64
%22 = getelementptr inbounds i8, i8* %19, i64 %21
%23 = load i8, i8* %22
%24 = load i8*, i8** %3
%25 = call i64 @strlen(i8* %24)
%26 = load i32, i32* %6
%27 = sext i32 %26 to i64
%28 = sub i64 %25, %27
%29 = trunc i64 %28 to i32
%30 = call i32 @abs(i32 %29)
%31 = sub nsw i32 %30, 1
%32 = sext i32 %31 to i64
%33 = getelementptr inbounds i8, i8* %11, i64 %32
store i8 %23, i8* %33
br label %34
34: ; preds = %18
%35 = load i32, i32* %6
%36 = add nsw i32 %35, 1
store i32 %36, i32* %6
br label %12
37: ; preds = %12
%38 = load i8*, i8** %3
%39 = call i64 @strlen(i8* %38)
%40 = getelementptr inbounds i8, i8* %11, i64 %39
store i8 0, i8* %40
%41 = load i8*, i8** %3
%42 = call i64 @strcasecmp(i8* %41, i8* %11)
%43 = icmp eq i64 %42, 0
br i1 %43, label %44, label %45
44: ; preds = %37
store i32 1, i32* %2
store i32 1, i32* %7
br label %46
45: ; preds = %37
store i32 0, i32* %2
store i32 1, i32* %7
br label %46
46: ; preds = %45, %44
%47 = load i8*, i8** %4
%48 = load i32, i32* %2
ret i32 %48
}

LLVM IR (-O2):
define i32 @palindrome(i8* nocapture %0) {
%2 = tail call i64 @strlen(i8* dereferenceable(1) %0)
%3 = alloca i8, i64 %2
%4 = icmp eq i64 %2, 0
br i1 %4, label %46, label %5
5: ; preds = %1
%6 = trunc i64 %2 to i32
%7 = and i64 %2, 1
%8 = icmp eq i64 %2, 1
br i1 %8, label %34, label %9
9: ; preds = %5
%10 = and i64 %2, -2
br label %11
11: ; preds = %11, %9
%12 = phi i64 [ 0, %9 ], [ %31, %11 ]
%13 = phi i64 [ 0, %9 ], [ %32, %11 ]
%14 = getelementptr inbounds i8, i8* %0, i64 %12
%15 = load i8, i8* %14
%16 = trunc i64 %12 to i32
%17 = sub i32 %6, %16
%18 = tail call i32 @llvm.abs.i32(i32 %17, i1 true)
%19 = add nsw i32 %18, -1
%20 = sext i32 %19 to i64
%21 = getelementptr inbounds i8, i8* %3, i64 %20
store i8 %15, i8* %21
%22 = or i64 %12, 1
%23 = getelementptr inbounds i8, i8* %0, i64 %22
%24 = load i8, i8* %23
%25 = trunc i64 %22 to i32
%26 = sub i32 %6, %25
%27 = tail call i32 @llvm.abs.i32(i32 %26, i1 true)
%28 = add nsw i32 %27, -1
%29 = sext i32 %28 to i64
%30 = getelementptr inbounds i8, i8* %3, i64 %29
store i8 %24, i8* %30
%31 = add nuw nsw i64 %12, 2
%32 = add i64 %13, 2
%33 = icmp eq i64 %32, %10
br i1 %33, label %34, label %11
34: ; preds = %11, %5
%35 = phi i64 [ 0, %5 ], [ %31, %11 ]
%36 = icmp eq i64 %7, 0
br i1 %36, label %46, label %37
37: ; preds = %34
%38 = getelementptr inbounds i8, i8* %0, i64 %35
%39 = load i8, i8* %38
%40 = trunc i64 %35 to i32
%41 = sub i32 %6, %40
%42 = tail call i32 @llvm.abs.i32(i32 %41, i1 true)
%43 = add nsw i32 %42, -1
%44 = sext i32 %43 to i64
%45 = getelementptr inbounds i8, i8* %3, i64 %44
store i8 %39, i8* %45
br label %46
46: ; preds = %37, %34, %1
%47 = getelementptr inbounds i8, i8* %3, i64 %2
store i8 0, i8* %47
%48 = call i64 @strcasecmp(i8* %0, i8* %3)
%49 = icmp eq i64 %48, 0
%50 = zext i1 %49 to i32
ret i32 %50
}