char *Tcl_Concat(argc, argv)
int argc;
char **argv;
{
  int totalSize, i;
  register char *p;
  char *result;
  for (totalSize = 1, i = 0; i < argc; i++) {
    totalSize += strlen(argv[i]) + 1;
  }
  result = (char *)malloc((unsigned)totalSize);
  if (argc == 0) {
    *result = '\0';
    return result;
  }
  for (p = result, i = 0; i < argc; i++) {
    char *element;
    int length;
    element = argv[i];
    while (isspace(*element)) {
      element++;
    }
    for (length = strlen(element);
         (length > 0) && (isspace(element[length - 1])); length--) {
    }
    if (length == 0) {
      continue;
    }
    (void)strncpy(p, element, length);
    p += length;
    *p = ' ';
    p++;
  }
  if (p != result) {
    p[-1] = 0;
  } else {
    *p = 0;
  }
  return result;
}


x86 assembly (clang, -O0):
<Tcl_Concat>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %edi,-0xc(%rbp)
mov    %rsi,-0x18(%rbp)
movl   $0x1,-0x1c(%rbp)
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    1199 <Tcl_Concat+0x59>
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
mov    (%rax,%rcx,8),%rdi
call   1040 <strlen@plt>
mov    %rax,%rcx
add    $0x1,%rcx
movslq -0x1c(%rbp),%rax
add    %rcx,%rax
mov    %eax,-0x1c(%rbp)
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    115d <Tcl_Concat+0x1d>
mov    -0x1c(%rbp),%eax
mov    %eax,%edi
call   1060 <malloc@plt>
mov    %rax,-0x30(%rbp)
cmpl   $0x0,-0xc(%rbp)
jne    11c5 <Tcl_Concat+0x85>
mov    -0x30(%rbp),%rax
movb   $0x0,(%rax)
mov    -0x30(%rbp),%rax
mov    %rax,-0x8(%rbp)
jmp    12ef <Tcl_Concat+0x1af>
mov    -0x30(%rbp),%rax
mov    %rax,-0x28(%rbp)
movl   $0x0,-0x20(%rbp)
mov    -0x20(%rbp),%eax
cmp    -0xc(%rbp),%eax
jge    12c5 <Tcl_Concat+0x185>
mov    -0x18(%rbp),%rax
movslq -0x20(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    %rax,-0x38(%rbp)
mov    -0x38(%rbp),%rax
movsbl (%rax),%edi
call   1050 <isspace@plt>
cmp    $0x0,%eax
je     1216 <Tcl_Concat+0xd6>
mov    -0x38(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x38(%rbp)
jmp    11f0 <Tcl_Concat+0xb0>
mov    -0x38(%rbp),%rdi
call   1040 <strlen@plt>
mov    %eax,-0x3c(%rbp)
xor    %eax,%eax
cmpl   $0x0,-0x3c(%rbp)
mov    %al,-0x3d(%rbp)
jle    1250 <Tcl_Concat+0x110>
mov    -0x38(%rbp),%rax
mov    -0x3c(%rbp),%ecx
sub    $0x1,%ecx
movslq %ecx,%rcx
movsbl (%rax,%rcx,1),%edi
call   1050 <isspace@plt>
cmp    $0x0,%eax
setne  %al
mov    %al,-0x3d(%rbp)
mov    -0x3d(%rbp),%al
test   $0x1,%al
jne    1260 <Tcl_Concat+0x120>
jmp    1273 <Tcl_Concat+0x133>
jmp    1265 <Tcl_Concat+0x125>
mov    -0x3c(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x3c(%rbp)
jmp    1222 <Tcl_Concat+0xe2>
cmpl   $0x0,-0x3c(%rbp)
jne    1282 <Tcl_Concat+0x142>
jmp    12b7 <Tcl_Concat+0x177>
mov    -0x28(%rbp),%rdi
mov    -0x38(%rbp),%rsi
movslq -0x3c(%rbp),%rdx
call   1030 <strncpy@plt>
mov    -0x3c(%rbp),%ecx
mov    -0x28(%rbp),%rax
movslq %ecx,%rcx
add    %rcx,%rax
mov    %rax,-0x28(%rbp)
mov    -0x28(%rbp),%rax
movb   $0x20,(%rax)
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    11d4 <Tcl_Concat+0x94>
mov    -0x28(%rbp),%rax
cmp    -0x30(%rbp),%rax
je     12e0 <Tcl_Concat+0x1a0>
mov    -0x28(%rbp),%rax
movb   $0x0,-0x1(%rax)
jmp    12e7 <Tcl_Concat+0x1a7>
mov    -0x28(%rbp),%rax
movb   $0x0,(%rax)
mov    -0x30(%rbp),%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<Tcl_Concat>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x18,%rsp
test   %edi,%edi
jle    1279 <Tcl_Concat+0x139>
mov    %rsi,%r15
mov    %edi,%r14d
mov    %edi,%r13d
mov    $0x1,%ebp
xor    %ebx,%ebx
cs nopw 0x0(%rax,%rax,1)
mov    (%r15,%rbx,8),%rdi
call   1040 <strlen@plt>
add    %eax,%ebp
add    $0x1,%ebp
add    $0x1,%rbx
cmp    %rbx,%r13
jne    1170 <Tcl_Concat+0x30>
mov    %ebp,%edi
call   1060 <malloc@plt>
mov    %rax,%r12
test   %r14d,%r14d
jle    1288 <Tcl_Concat+0x148>
xor    %r14d,%r14d
mov    %r12,0x8(%rsp)
mov    %r15,(%rsp)
mov    %r13,0x10(%rsp)
jmp    11e8 <Tcl_Concat+0xa8>
nopl   (%rax)
movslq %r13d,%r15
lea    (%r15,%rbp,1),%rdx
add    $0x2,%rdx
mov    %r12,%rdi
mov    %rbx,%rsi
call   1030 <strncpy@plt>
add    %r15,%r12
movb   $0x20,0x2(%rbp,%r12,1)
add    %rbp,%r12
add    $0x3,%r12
mov    (%rsp),%r15
add    $0x1,%r14
mov    0x10(%rsp),%r13
cmp    %r13,%r14
je     1263 <Tcl_Concat+0x123>
mov    (%r15,%r14,8),%r15
lea    -0x1(%r15),%rbx
movsbl 0x1(%rbx),%edi
add    $0x1,%rbx
call   1050 <isspace@plt>
add    $0x1,%r15
test   %eax,%eax
jne    11f0 <Tcl_Concat+0xb0>
mov    %rbx,%rdi
call   1040 <strlen@plt>
mov    %rax,%r13
mov    %r13d,%eax
add    %rax,%r15
mov    $0xfffffffffffffffe,%rcx
nopl   (%rax)
mov    %rcx,%rbp
lea    (%rcx,%r13,1),%eax
add    $0x2,%eax
test   %eax,%eax
jle    1250 <Tcl_Concat+0x110>
movsbl (%r15,%rbp,1),%edi
call   1050 <isspace@plt>
lea    -0x1(%rbp),%rcx
test   %eax,%eax
jne    1220 <Tcl_Concat+0xe0>
jmp    11b0 <Tcl_Concat+0x70>
cs nopw 0x0(%rax,%rax,1)
nop
lea    0x0(%r13,%rbp,1),%eax
cmp    $0xfffffffe,%eax
jne    11b0 <Tcl_Concat+0x70>
jmp    11d6 <Tcl_Concat+0x96>
lea    -0x1(%r12),%rax
mov    0x8(%rsp),%rcx
cmp    %rcx,%r12
mov    %rcx,%r12
cmove  %rcx,%rax
jmp    128b <Tcl_Concat+0x14b>
mov    $0x1,%edi
call   1060 <malloc@plt>
mov    %rax,%r12
jmp    128b <Tcl_Concat+0x14b>
mov    %r12,%rax
movb   $0x0,(%rax)
mov    %r12,%rax
add    $0x18,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
define i8* @Tcl_Concat(i32 %0, i8** %1) {
%3 = alloca i8*
%4 = alloca i32
%5 = alloca i8**
%6 = alloca i32
%7 = alloca i32
%8 = alloca i8*
%9 = alloca i8*
%10 = alloca i8*
%11 = alloca i32
store i32 %0, i32* %4
store i8** %1, i8*** %5
store i32 1, i32* %6
store i32 0, i32* %7
br label %12
12: ; preds = %28, %2
%13 = load i32, i32* %7
%14 = load i32, i32* %4
%15 = icmp slt i32 %13, %14
br i1 %15, label %16, label %31
16: ; preds = %12
%17 = load i8**, i8*** %5
%18 = load i32, i32* %7
%19 = sext i32 %18 to i64
%20 = getelementptr inbounds i8*, i8** %17, i64 %19
%21 = load i8*, i8** %20
%22 = call i64 @strlen(i8* %21)
%23 = add i64 %22, 1
%24 = load i32, i32* %6
%25 = sext i32 %24 to i64
%26 = add i64 %25, %23
%27 = trunc i64 %26 to i32
store i32 %27, i32* %6
br label %28
28: ; preds = %16
%29 = load i32, i32* %7
%30 = add nsw i32 %29, 1
store i32 %30, i32* %7
br label %12
31: ; preds = %12
%32 = load i32, i32* %6
%33 = zext i32 %32 to i64
%34 = call i8* @malloc(i64 %33)
store i8* %34, i8** %9
%35 = load i32, i32* %4
%36 = icmp eq i32 %35, 0
br i1 %36, label %37, label %40
37: ; preds = %31
%38 = load i8*, i8** %9
store i8 0, i8* %38
%39 = load i8*, i8** %9
store i8* %39, i8** %3
br label %115
40: ; preds = %31
%41 = load i8*, i8** %9
store i8* %41, i8** %8
store i32 0, i32* %7
br label %42
42: ; preds = %101, %40
%43 = load i32, i32* %7
%44 = load i32, i32* %4
%45 = icmp slt i32 %43, %44
br i1 %45, label %46, label %104
46: ; preds = %42
%47 = load i8**, i8*** %5
%48 = load i32, i32* %7
%49 = sext i32 %48 to i64
%50 = getelementptr inbounds i8*, i8** %47, i64 %49
%51 = load i8*, i8** %50
store i8* %51, i8** %10
br label %52
52: ; preds = %58, %46
%53 = load i8*, i8** %10
%54 = load i8, i8* %53
%55 = sext i8 %54 to i32
%56 = call i32 @isspace(i32 %55)
%57 = icmp ne i32 %56, 0
br i1 %57, label %58, label %61
58: ; preds = %52
%59 = load i8*, i8** %10
%60 = getelementptr inbounds i8, i8* %59, i32 1
store i8* %60, i8** %10
br label %52
61: ; preds = %52
%62 = load i8*, i8** %10
%63 = call i64 @strlen(i8* %62)
%64 = trunc i64 %63 to i32
store i32 %64, i32* %11
br label %65
65: ; preds = %81, %61
%66 = load i32, i32* %11
%67 = icmp sgt i32 %66, 0
br i1 %67, label %68, label %78
68: ; preds = %65
%69 = load i8*, i8** %10
%70 = load i32, i32* %11
%71 = sub nsw i32 %70, 1
%72 = sext i32 %71 to i64
%73 = getelementptr inbounds i8, i8* %69, i64 %72
%74 = load i8, i8* %73
%75 = sext i8 %74 to i32
%76 = call i32 @isspace(i32 %75)
%77 = icmp ne i32 %76, 0
br label %78
78: ; preds = %68, %65
%79 = phi i1 [ false, %65 ], [ %77, %68 ]
br i1 %79, label %80, label %84
80: ; preds = %78
br label %81
81: ; preds = %80
%82 = load i32, i32* %11
%83 = add nsw i32 %82, -1
store i32 %83, i32* %11
br label %65
84: ; preds = %78
%85 = load i32, i32* %11
%86 = icmp eq i32 %85, 0
br i1 %86, label %87, label %88
87: ; preds = %84
br label %101
88: ; preds = %84
%89 = load i8*, i8** %8
%90 = load i8*, i8** %10
%91 = load i32, i32* %11
%92 = sext i32 %91 to i64
%93 = call i8* @strncpy(i8* %89, i8* %90, i64 %92)
%94 = load i32, i32* %11
%95 = load i8*, i8** %8
%96 = sext i32 %94 to i64
%97 = getelementptr inbounds i8, i8* %95, i64 %96
store i8* %97, i8** %8
%98 = load i8*, i8** %8
store i8 32, i8* %98
%99 = load i8*, i8** %8
%100 = getelementptr inbounds i8, i8* %99, i32 1
store i8* %100, i8** %8
br label %101
101: ; preds = %88, %87
%102 = load i32, i32* %7
%103 = add nsw i32 %102, 1
store i32 %103, i32* %7
br label %42
104: ; preds = %42
%105 = load i8*, i8** %8
%106 = load i8*, i8** %9
%107 = icmp ne i8* %105, %106
br i1 %107, label %108, label %111
108: ; preds = %104
%109 = load i8*, i8** %8
%110 = getelementptr inbounds i8, i8* %109, i64 -1
store i8 0, i8* %110
br label %113
111: ; preds = %104
%112 = load i8*, i8** %8
store i8 0, i8* %112
br label %113
113: ; preds = %111, %108
%114 = load i8*, i8** %9
store i8* %114, i8** %3
br label %115
115: ; preds = %113, %37
%116 = load i8*, i8** %3
ret i8* %116
}

LLVM IR (-O2):
define i8* @Tcl_Concat(i32 %0, i8** nocapture %1) {
%3 = icmp sgt i32 %0, 0
br i1 %3, label %4, label %20
4: ; preds = %2
%5 = zext i32 %0 to i64
br label %6
6: ; preds = %4, %6
%7 = phi i64 [ 0, %4 ], [ %15, %6 ]
%8 = phi i32 [ 1, %4 ], [ %14, %6 ]
%9 = getelementptr inbounds i8*, i8** %1, i64 %7
%10 = load i8*, i8** %9
%11 = tail call i64 @strlen(i8* dereferenceable(1) %10)
%12 = trunc i64 %11 to i32
%13 = add i32 %8, 1
%14 = add i32 %13, %12
%15 = add nuw nsw i64 %7, 1
%16 = icmp eq i64 %15, %5
br i1 %16, label %17, label %6
17: ; preds = %6
%18 = zext i32 %14 to i64
%19 = tail call i8* @malloc(i64 %18)
br i1 %3, label %22, label %67
20: ; preds = %2
%21 = tail call dereferenceable_or_null(1) i8* @malloc(i64 1)
br label %67
22: ; preds = %17
%23 = zext i32 %0 to i64
br label %24
24: ; preds = %22, %59
%25 = phi i64 [ 0, %22 ], [ %61, %59 ]
%26 = phi i8* [ %19, %22 ], [ %60, %59 ]
%27 = getelementptr inbounds i8*, i8** %1, i64 %25
%28 = load i8*, i8** %27
br label %29
29: ; preds = %29, %24
%30 = phi i8* [ %28, %24 ], [ %35, %29 ]
%31 = load i8, i8* %30
%32 = sext i8 %31 to i32
%33 = tail call i32 @isspace(i32 %32)
%34 = icmp eq i32 %33, 0
%35 = getelementptr inbounds i8, i8* %30, i64 1
br i1 %34, label %36, label %29
36: ; preds = %29
%37 = tail call i64 @strlen(i8* %30)
%38 = and i64 %37, 4294967295
br label %39
39: ; preds = %43, %36
%40 = phi i64 [ %44, %43 ], [ %38, %36 ]
%41 = trunc i64 %40 to i32
%42 = icmp sgt i32 %41, 0
br i1 %42, label %43, label %50
43: ; preds = %39
%44 = add nsw i64 %40, -1
%45 = getelementptr inbounds i8, i8* %30, i64 %44
%46 = load i8, i8* %45
%47 = sext i8 %46 to i32
%48 = tail call i32 @isspace(i32 %47)
%49 = icmp eq i32 %48, 0
br i1 %49, label %53, label %39
50: ; preds = %39
%51 = trunc i64 %40 to i32
%52 = icmp eq i32 %51, 0
br i1 %52, label %59, label %53
53: ; preds = %43, %50
%54 = shl i64 %40, 32
%55 = ashr exact i64 %54, 32
%56 = tail call i8* @strncpy(i8* dereferenceable(1) %26, i8* %30, i64 %55)
%57 = getelementptr inbounds i8, i8* %26, i64 %55
store i8 32, i8* %57
%58 = getelementptr inbounds i8, i8* %57, i64 1
br label %59
59: ; preds = %50, %53
%60 = phi i8* [ %58, %53 ], [ %26, %50 ]
%61 = add nuw nsw i64 %25, 1
%62 = icmp eq i64 %61, %23
br i1 %62, label %63, label %24
63: ; preds = %59
%64 = icmp eq i8* %60, %19
%65 = getelementptr inbounds i8, i8* %60, i64 -1
%66 = select i1 %64, i8* %19, i8* %65
br label %67
67: ; preds = %63, %17, %20
%68 = phi i8* [ %19, %17 ], [ %21, %20 ], [ %66, %63 ]
%69 = phi i8* [ %19, %17 ], [ %21, %20 ], [ %19, %63 ]
store i8 0, i8* %68
ret i8* %69
}