#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 */
scalar_t__ malloc(int);
int /*<<< orphan*/ memset(char *, int /*<<< orphan*/, int);
int /*<<< orphan*/ printf(char *);
int strlen(char const *);
char *Pascal2Hungary(const char *src) {
  if (src == NULL) {
    printf("src == NULL\n");
    return NULL;
  }
  int index = 0;
  int tags = 0;
  int length = strlen(src);
  char *dst = (char *)malloc(length * 2);
  memset(dst, 0, length * 2);
  dst[index] = src[index] + 32;
  index++;
  for (int i = 1; i < length; i++) {
    char c = src[i];
    if (c >= 'A' && c <= 'Z' && tags == 0) {
      dst[index] = '_';
      tags++;
      index++;
      c = src[i] + 32;
    }
    dst[index] = c;
    index++;
  }
  dst[index] = '\0';
  return dst;
}


x86 assembly (clang, -O0):
<Pascal2Hungary>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x10(%rbp)
cmpq   $0x0,-0x10(%rbp)
jne    1170 <Pascal2Hungary+0x30>
lea    0xea2(%rip),%rdi
call   1040 <printf@plt>
movq   $0x0,-0x8(%rbp)
jmp    127d <Pascal2Hungary+0x13d>
movl   $0x0,-0x14(%rbp)
movl   $0x0,-0x18(%rbp)
mov    -0x10(%rbp),%rdi
call   1030 <strlen@plt>
mov    %eax,-0x1c(%rbp)
mov    -0x1c(%rbp),%edi
shl    $0x1,%edi
call   1060 <malloc@plt>
mov    %rax,-0x28(%rbp)
mov    -0x28(%rbp),%rdi
mov    -0x1c(%rbp),%edx
shl    $0x1,%edx
xor    %esi,%esi
call   1050 <memset@plt>
mov    -0x10(%rbp),%rax
movslq -0x14(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
add    $0x20,%eax
mov    %al,%dl
mov    -0x28(%rbp),%rax
movslq -0x14(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
movl   $0x1,-0x2c(%rbp)
mov    -0x2c(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jge    1269 <Pascal2Hungary+0x129>
mov    -0x10(%rbp),%rax
movslq -0x2c(%rbp),%rcx
mov    (%rax,%rcx,1),%al
mov    %al,-0x2d(%rbp)
movsbl -0x2d(%rbp),%eax
cmp    $0x41,%eax
jl     1244 <Pascal2Hungary+0x104>
movsbl -0x2d(%rbp),%eax
cmp    $0x5a,%eax
jg     1244 <Pascal2Hungary+0x104>
cmpl   $0x0,-0x18(%rbp)
jne    1244 <Pascal2Hungary+0x104>
mov    -0x28(%rbp),%rax
movslq -0x14(%rbp),%rcx
movb   $0x5f,(%rax,%rcx,1)
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
mov    -0x10(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movsbl (%rax,%rcx,1),%eax
add    $0x20,%eax
mov    %al,-0x2d(%rbp)
mov    -0x2d(%rbp),%dl
mov    -0x28(%rbp),%rax
movslq -0x14(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    11d6 <Pascal2Hungary+0x96>
mov    -0x28(%rbp),%rax
movslq -0x14(%rbp),%rcx
movb   $0x0,(%rax,%rcx,1)
mov    -0x28(%rbp),%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<Pascal2Hungary>:
push   %rbp
push   %r15
push   %r14
push   %r12
push   %rbx
test   %rdi,%rdi
je     11df <Pascal2Hungary+0x9f>
mov    %rdi,%r14
call   1040 <strlen@plt>
mov    %eax,%r15d
lea    (%r15,%r15,1),%r12d
mov    %r12d,%edi
call   1060 <malloc@plt>
mov    %rax,%rbx
xor    %ebp,%ebp
mov    %rax,%rdi
xor    %esi,%esi
mov    %r12d,%edx
call   1050 <memset@plt>
mov    (%r14),%al
add    $0x20,%al
mov    %al,(%rbx)
mov    $0x1,%eax
cmp    $0x2,%r15d
jl     11f2 <Pascal2Hungary+0xb2>
mov    %r15d,%eax
mov    $0x1,%ecx
mov    $0x1,%edx
jmp    11b3 <Pascal2Hungary+0x73>
nopl   0x0(%rax,%rax,1)
movslq %ecx,%rcx
mov    %sil,(%rbx,%rcx,1)
add    $0x1,%ecx
add    $0x1,%rdx
cmp    %rdx,%rax
je     11ef <Pascal2Hungary+0xaf>
movzbl (%r14,%rdx,1),%esi
lea    -0x41(%rsi),%edi
cmp    $0x19,%dil
ja     11a0 <Pascal2Hungary+0x60>
test   %ebp,%ebp
jne    11a0 <Pascal2Hungary+0x60>
movslq %ecx,%rcx
movb   $0x5f,(%rbx,%rcx,1)
add    $0x1,%ecx
movzbl (%r14,%rdx,1),%esi
add    $0x20,%sil
mov    $0x1,%ebp
jmp    11a0 <Pascal2Hungary+0x60>
lea    0xe1a(%rip),%rdi
call   1030 <puts@plt>
xor    %ebx,%ebx
jmp    11f6 <Pascal2Hungary+0xb6>
movslq %ecx,%rax
movb   $0x0,(%rbx,%rax,1)
mov    %rbx,%rax
pop    %rbx
pop    %r12
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
@str = [12 x i8] c"src == NULL\00"
define i8* @Pascal2Hungary(i8* %0) {
%2 = icmp eq i8* %0, null
br i1 %2, label %3, label %5
3: ; preds = %1
%4 = tail call i32 @puts(i8* dereferenceable(1) getelementptr inbounds ([12 x i8], [12 x i8]* @str, i64 0, i64 0))
br label %46
5: ; preds = %1
%6 = tail call i32 @strlen(i8* %0)
%7 = shl nsw i32 %6, 1
%8 = tail call i64 @malloc(i32 %7)
%9 = inttoptr i64 %8 to i8*
%10 = tail call i32 @memset(i8* %9, i32 0, i32 %7)
%11 = load i8, i8* %0
%12 = add i8 %11, 32
store i8 %12, i8* %9
%13 = icmp sgt i32 %6, 1
br i1 %13, label %14, label %18
14: ; preds = %5
%15 = zext i32 %6 to i64
br label %21
16: ; preds = %37
%17 = sext i32 %43 to i64
br label %18
18: ; preds = %16, %5
%19 = phi i64 [ 1, %5 ], [ %17, %16 ]
%20 = getelementptr inbounds i8, i8* %9, i64 %19
store i8 0, i8* %20
br label %46
21: ; preds = %14, %37
%22 = phi i64 [ 1, %14 ], [ %44, %37 ]
%23 = phi i32 [ 1, %14 ], [ %43, %37 ]
%24 = phi i32 [ 0, %14 ], [ %38, %37 ]
%25 = getelementptr inbounds i8, i8* %0, i64 %22
%26 = load i8, i8* %25
%27 = add i8 %26, -65
%28 = icmp ult i8 %27, 26
%29 = icmp eq i32 %24, 0
%30 = select i1 %28, i1 %29, i1 false
br i1 %30, label %31, label %37
31: ; preds = %21
%32 = sext i32 %23 to i64
%33 = getelementptr inbounds i8, i8* %9, i64 %32
store i8 95, i8* %33
%34 = add nsw i32 %23, 1
%35 = load i8, i8* %25
%36 = add i8 %35, 32
br label %37
37: ; preds = %31, %21
%38 = phi i32 [ 1, %31 ], [ %24, %21 ]
%39 = phi i32 [ %34, %31 ], [ %23, %21 ]
%40 = phi i8 [ %36, %31 ], [ %26, %21 ]
%41 = sext i32 %39 to i64
%42 = getelementptr inbounds i8, i8* %9, i64 %41
store i8 %40, i8* %42
%43 = add nsw i32 %39, 1
%44 = add nuw nsw i64 %22, 1
%45 = icmp eq i64 %44, %15
br i1 %45, label %16, label %21
46: ; preds = %18, %3
%47 = phi i8* [ null, %3 ], [ %9, %18 ]
ret i8* %47
}