concat(args) int args[];
{
  register char **a;
  register char *cp;
  register int len;
  len = 1;
  for (a = &args; *a;)
    len = +length(*a++);
  len = cp = alloc(len);
  for (a = &args; *a;)
    cp = copy(*a++, cp);
  return (len);
}


x86 assembly (clang, -O0):
<concat>:
push   %rbp
mov    %rsp,%rbp
sub    $0x20,%rsp
mov    %rdi,-0x8(%rbp)
movl   $0x1,-0x1c(%rbp)
lea    -0x8(%rbp),%rax
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rax
cmpq   $0x0,(%rax)
je     117a <concat+0x4a>
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x8,%rcx
mov    %rcx,-0x10(%rbp)
mov    (%rax),%rdi
mov    $0x0,%al
call   1030 <length@plt>
mov    %eax,-0x1c(%rbp)
jmp    114b <concat+0x1b>
mov    -0x1c(%rbp),%edi
mov    $0x0,%al
call   1050 <alloc@plt>
cltq
mov    %rax,-0x18(%rbp)
mov    %eax,-0x1c(%rbp)
lea    -0x8(%rbp),%rax
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rax
cmpq   $0x0,(%rax)
je     11cb <concat+0x9b>
mov    -0x10(%rbp),%rax
mov    %rax,%rcx
add    $0x8,%rcx
mov    %rcx,-0x10(%rbp)
mov    (%rax),%rdi
mov    -0x18(%rbp),%rsi
mov    $0x0,%al
call   1040 <copy@plt>
cltq
mov    %rax,-0x18(%rbp)
jmp    1195 <concat+0x65>
mov    -0x1c(%rbp),%eax
add    $0x20,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<concat>:
push   %rbp
push   %r14
push   %rbx
sub    $0x10,%rsp
mov    %rdi,0x8(%rsp)
test   %rdi,%rdi
je     11a6 <concat+0x76>
mov    %rdi,%rbx
lea    0x10(%rsp),%rbp
nopw   0x0(%rax,%rax,1)
xor    %eax,%eax
call   1030 <length@plt>
mov    0x0(%rbp),%rdi
add    $0x8,%rbp
test   %rdi,%rdi
jne    1150 <concat+0x20>
mov    %eax,%edi
xor    %eax,%eax
call   1050 <alloc@plt>
mov    %eax,%r14d
lea    0x10(%rsp),%rbp
cs nopw 0x0(%rax,%rax,1)
nop
movslq %eax,%rsi
mov    %rbx,%rdi
xor    %eax,%eax
call   1040 <copy@plt>
mov    0x0(%rbp),%rbx
add    $0x8,%rbp
test   %rbx,%rbx
jne    1180 <concat+0x50>
mov    %r14d,%eax
add    $0x10,%rsp
pop    %rbx
pop    %r14
pop    %rbp
ret
mov    $0x1,%edi
xor    %eax,%eax
add    $0x10,%rsp
pop    %rbx
pop    %r14
pop    %rbp
jmp    1050 <alloc@plt>

LLVM IR (-O0):
define i32 @concat(i32* %0) {
%2 = alloca i32*
%3 = alloca i8**
%4 = alloca i8*
%5 = alloca i32
store i32* %0, i32** %2
store i32 1, i32* %5
%6 = bitcast i32** %2 to i8**
store i8** %6, i8*** %3
br label %7
7: ; preds = %11, %1
%8 = load i8**, i8*** %3
%9 = load i8*, i8** %8
%10 = icmp ne i8* %9, null
br i1 %10, label %11, label %16
11: ; preds = %7
%12 = load i8**, i8*** %3
%13 = getelementptr inbounds i8*, i8** %12, i32 1
store i8** %13, i8*** %3
%14 = load i8*, i8** %12
%15 = call i32 (i8*, ...) bitcast (i32 (...)* @length to i32 (i8*, ...)*)(i8* %14)
store i32 %15, i32* %5
br label %7
16: ; preds = %7
%17 = load i32, i32* %5
%18 = call i32 (i32, ...) bitcast (i32 (...)* @alloc to i32 (i32, ...)*)(i32 %17)
%19 = sext i32 %18 to i64
%20 = inttoptr i64 %19 to i8*
store i8* %20, i8** %4
%21 = ptrtoint i8* %20 to i32
store i32 %21, i32* %5
%22 = bitcast i32** %2 to i8**
store i8** %22, i8*** %3
br label %23
23: ; preds = %27, %16
%24 = load i8**, i8*** %3
%25 = load i8*, i8** %24
%26 = icmp ne i8* %25, null
br i1 %26, label %27, label %35
27: ; preds = %23
%28 = load i8**, i8*** %3
%29 = getelementptr inbounds i8*, i8** %28, i32 1
store i8** %29, i8*** %3
%30 = load i8*, i8** %28
%31 = load i8*, i8** %4
%32 = call i32 (i8*, i8*, ...) bitcast (i32 (...)* @copy to i32 (i8*, i8*, ...)*)(i8* %30, i8* %31)
%33 = sext i32 %32 to i64
%34 = inttoptr i64 %33 to i8*
store i8* %34, i8** %4
br label %23
35: ; preds = %23
%36 = load i32, i32* %5
ret i32 %36
}

LLVM IR (-O2):
define i32 @concat(i32* %0) {
%2 = alloca i32*
store i32* %0, i32** %2
%3 = bitcast i32** %2 to i8**
%4 = bitcast i32* %0 to i8*
%5 = icmp eq i32* %0, null
br i1 %5, label %6, label %8
6: ; preds = %1
%7 = tail call i32 (i32, ...) bitcast (i32 (...)* @alloc to i32 (i32, ...)*)(i32 1)
br label %27
8: ; preds = %1, %8
%9 = phi i8** [ %11, %8 ], [ %3, %1 ]
%10 = phi i8* [ %13, %8 ], [ %4, %1 ]
%11 = getelementptr inbounds i8*, i8** %9, i64 1
%12 = tail call i32 (i8*, ...) bitcast (i32 (...)* @length to i32 (i8*, ...)*)(i8* %10)
%13 = load i8*, i8** %11
%14 = icmp eq i8* %13, null
br i1 %14, label %15, label %8
15: ; preds = %8
%16 = tail call i32 (i32, ...) bitcast (i32 (...)* @alloc to i32 (i32, ...)*)(i32 %12)
br label %17
17: ; preds = %15, %17
%18 = phi i8* [ %25, %17 ], [ %4, %15 ]
%19 = phi i32 [ %24, %17 ], [ %16, %15 ]
%20 = phi i8** [ %23, %17 ], [ %3, %15 ]
%21 = sext i32 %19 to i64
%22 = inttoptr i64 %21 to i8*
%23 = getelementptr inbounds i8*, i8** %20, i64 1
%24 = tail call i32 (i8*, i8*, ...) bitcast (i32 (...)* @copy to i32 (i8*, i8*, ...)*)(i8* %18, i8* %22)
%25 = load i8*, i8** %23
%26 = icmp eq i8* %25, null
br i1 %26, label %27, label %17
27: ; preds = %17, %6
%28 = phi i32 [ %7, %6 ], [ %16, %17 ]
ret i32 %28
}