char *palindrome6(char *s) {
  int n = strlen(s);
  char *dest = malloc((2 * n + 1) * sizeof(char));
  for (int i = 0; i < n; i++) {
    *(dest + i) = *(s + i);
    *(dest + 2 * n - i - 1) = *(s + i);
  }
  *(dest + 2 * n) = 0;
  return dest;
}


x86 assembly (clang, -O0):
<palindrome6>:
push   %rbp
mov    %rsp,%rbp
sub    $0x20,%rsp
mov    %rdi,-0x8(%rbp)
mov    -0x8(%rbp),%rdi
call   1030 <strlen@plt>
mov    %eax,-0xc(%rbp)
mov    -0xc(%rbp),%eax
shl    $0x1,%eax
add    $0x1,%eax
movslq %eax,%rdi
shl    $0x0,%rdi
call   1040 <malloc@plt>
mov    %rax,-0x18(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    11b0 <palindrome6+0x90>
mov    -0x8(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    (%rax,%rcx,1),%dl
mov    -0x18(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x8(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    (%rax,%rcx,1),%dl
mov    -0x18(%rbp),%rax
mov    -0xc(%rbp),%ecx
shl    $0x1,%ecx
movslq %ecx,%rcx
add    %rcx,%rax
movslq -0x1c(%rbp),%rsi
xor    %ecx,%ecx
sub    %rsi,%rcx
mov    %dl,-0x1(%rax,%rcx,1)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1158 <palindrome6+0x38>
mov    -0x18(%rbp),%rax
mov    -0xc(%rbp),%ecx
shl    $0x1,%ecx
movslq %ecx,%rcx
movb   $0x0,(%rax,%rcx,1)
mov    -0x18(%rbp),%rax
add    $0x20,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<palindrome6>:
push   %r15
push   %r14
push   %r12
push   %rbx
push   %rax
mov    %rdi,%rbx
call   1030 <strlen@plt>
mov    %rax,%r14
movslq %r14d,%r12
lea    (%r12,%r12,1),%r15
lea    0x1(%r15),%eax
movslq %eax,%rdi
call   1040 <malloc@plt>
test   %r12d,%r12d
jle    11ac <palindrome6+0x8c>
mov    %r14d,%edi
and    $0x1,%r14d
cmp    $0x1,%rdi
jne    115c <palindrome6+0x3c>
xor    %ecx,%ecx
jmp    1194 <palindrome6+0x74>
sub    %r14,%rdi
lea    -0x1(%r15),%rsi
xor    %ecx,%ecx
cs nopw 0x0(%rax,%rax,1)
nop
movzbl (%rbx,%rcx,1),%edx
mov    %dl,(%rax,%rcx,1)
mov    %dl,(%rax,%rsi,1)
movzbl 0x1(%rbx,%rcx,1),%edx
mov    %dl,0x1(%rax,%rcx,1)
mov    %dl,-0x1(%rax,%rsi,1)
add    $0x2,%rcx
add    $0xfffffffffffffffe,%rsi
cmp    %rcx,%rdi
jne    1170 <palindrome6+0x50>
test   %r14,%r14
je     11ac <palindrome6+0x8c>
lea    (%rax,%r15,1),%rdx
add    $0xffffffffffffffff,%rdx
mov    (%rbx,%rcx,1),%bl
mov    %bl,(%rax,%rcx,1)
sub    %rcx,%rdx
mov    %bl,(%rdx)
movb   $0x0,(%rax,%r15,1)
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
ret

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

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