char *mx_strvec_join(char *sep, char **strvec) {
  int elements = 0;
  int len = 0;
  char *out;
  char *in;
  char *p;
  int i;
  assert(sep);
  assert(strvec);
  for (i = 0; (in = strvec[i]); i++) {
    elements++;
    len += strlen(in);
  }
  if (elements == 0)
    return mx_strdup_forever("");
  len += strlen(sep) * (elements - 1);
  out = mx_malloc_forever(len + 1);
  p = out;
  for (i = 0; i < elements - 1; i++) {
    p = stpcpy(p, strvec[i]);
    p = stpcpy(p, sep);
  }
  p = stpcpy(p, strvec[i]);
  return out;
}


x86 assembly (clang, -O0):
<mx_strvec_join>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
movl   $0x0,-0x1c(%rbp)
movl   $0x0,-0x20(%rbp)
mov    -0x10(%rbp),%rdi
mov    $0x0,%al
call   1070 <assert@plt>
mov    -0x18(%rbp),%rdi
mov    $0x0,%al
call   1070 <assert@plt>
movl   $0x0,-0x3c(%rbp)
mov    -0x18(%rbp),%rax
movslq -0x3c(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    %rax,-0x30(%rbp)
cmp    $0x0,%rax
je     11d2 <mx_strvec_join+0x82>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
mov    -0x30(%rbp),%rdi
call   1050 <strlen@plt>
mov    %rax,%rcx
movslq -0x20(%rbp),%rax
add    %rcx,%rax
mov    %eax,-0x20(%rbp)
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
jmp    118b <mx_strvec_join+0x3b>
cmpl   $0x0,-0x1c(%rbp)
jne    11f5 <mx_strvec_join+0xa5>
lea    0xe1d(%rip),%rdi
mov    $0x0,%al
call   1030 <mx_strdup_forever@plt>
cltq
mov    %rax,-0x8(%rbp)
jmp    12a3 <mx_strvec_join+0x153>
mov    -0x10(%rbp),%rdi
call   1050 <strlen@plt>
mov    %rax,%rcx
mov    -0x1c(%rbp),%eax
sub    $0x1,%eax
cltq
imul   %rax,%rcx
movslq -0x20(%rbp),%rax
add    %rcx,%rax
mov    %eax,-0x20(%rbp)
mov    -0x20(%rbp),%edi
add    $0x1,%edi
mov    $0x0,%al
call   1060 <mx_malloc_forever@plt>
cltq
mov    %rax,-0x28(%rbp)
mov    -0x28(%rbp),%rax
mov    %rax,-0x38(%rbp)
movl   $0x0,-0x3c(%rbp)
mov    -0x3c(%rbp),%eax
mov    -0x1c(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jge    1282 <mx_strvec_join+0x132>
mov    -0x38(%rbp),%rdi
mov    -0x18(%rbp),%rax
movslq -0x3c(%rbp),%rcx
mov    (%rax,%rcx,8),%rsi
call   1040 <stpcpy@plt>
mov    %rax,-0x38(%rbp)
mov    -0x38(%rbp),%rdi
mov    -0x10(%rbp),%rsi
call   1040 <stpcpy@plt>
mov    %rax,-0x38(%rbp)
mov    -0x3c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x3c(%rbp)
jmp    1239 <mx_strvec_join+0xe9>
mov    -0x38(%rbp),%rdi
mov    -0x18(%rbp),%rax
movslq -0x3c(%rbp),%rcx
mov    (%rax,%rcx,8),%rsi
call   1040 <stpcpy@plt>
mov    %rax,-0x38(%rbp)
mov    -0x28(%rbp),%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<mx_strvec_join>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
mov    %rsi,%r12
mov    %rdi,%r14
xor    %eax,%eax
call   1080 <assert@plt>
mov    %r12,%rdi
xor    %eax,%eax
call   1080 <assert@plt>
mov    (%r12),%rdi
test   %rdi,%rdi
je     1224 <mx_strvec_join+0xc4>
xor    %r13d,%r13d
xor    %ebp,%ebp
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
mov    %r13,%r15
add    $0x1,%r13
call   1060 <strlen@plt>
mov    %rax,%rbx
add    %rbp,%rbx
movslq %ebx,%rbp
mov    0x8(%r12,%r15,8),%rdi
test   %rdi,%rdi
jne    11a0 <mx_strvec_join+0x40>
test   %r13d,%r13d
je     1224 <mx_strvec_join+0xc4>
mov    %r14,%rdi
call   1060 <strlen@plt>
lea    -0x1(%r13),%rbp
imul   %ebp,%eax
lea    (%rax,%rbx,1),%edi
add    $0x1,%edi
xor    %ebx,%ebx
xor    %eax,%eax
call   1070 <mx_malloc_forever@plt>
movslq %eax,%r15
cmp    $0x2,%r13d
jl     1237 <mx_strvec_join+0xd7>
add    $0xffffffff,%r13d
xor    %ebx,%ebx
mov    %r15,%rax
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
mov    (%r12,%rbx,8),%rsi
mov    %rax,%rdi
call   1050 <stpcpy@plt>
mov    %rax,%rdi
mov    %r14,%rsi
call   1050 <stpcpy@plt>
add    $0x1,%rbx
cmp    %rbx,%r13
jne    1200 <mx_strvec_join+0xa0>
mov    %ebp,%ebx
jmp    123a <mx_strvec_join+0xda>
lea    0xdd5(%rip),%rdi
xor    %eax,%eax
call   1030 <mx_strdup_forever@plt>
movslq %eax,%r15
jmp    1246 <mx_strvec_join+0xe6>
mov    %r15,%rax
mov    (%r12,%rbx,8),%rsi
mov    %rax,%rdi
call   1040 <strcpy@plt>
mov    %r15,%rax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
@.str = [1 x i8] zeroinitializer
define i8* @mx_strvec_join(i8* %0, i8** %1) {
%3 = tail call i32 (i8*, ...) bitcast (i32 (...)* @assert to i32 (i8*, ...)*)(i8* %0)
%4 = tail call i32 (i8**, ...) bitcast (i32 (...)* @assert to i32 (i8**, ...)*)(i8** %1)
%5 = load i8*, i8** %1
%6 = icmp eq i8* %5, null
br i1 %6, label %22, label %7
7: ; preds = %2, %7
%8 = phi i64 [ %11, %7 ], [ 0, %2 ]
%9 = phi i8* [ %17, %7 ], [ %5, %2 ]
%10 = phi i64 [ %15, %7 ], [ 0, %2 ]
%11 = add nuw nsw i64 %8, 1
%12 = tail call i64 @strlen(i8* %9)
%13 = add i64 %12, %10
%14 = shl i64 %13, 32
%15 = ashr exact i64 %14, 32
%16 = getelementptr inbounds i8*, i8** %1, i64 %11
%17 = load i8*, i8** %16
%18 = icmp eq i8* %17, null
br i1 %18, label %19, label %7
19: ; preds = %7
%20 = trunc i64 %11 to i32
%21 = icmp eq i32 %20, 0
br i1 %21, label %22, label %26
22: ; preds = %2, %19
%23 = tail call i32 (i8*, ...) bitcast (i32 (...)* @mx_strdup_forever to i32 (i8*, ...)*)(i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str, i64 0, i64 0))
%24 = sext i32 %23 to i64
%25 = inttoptr i64 %24 to i8*
br label %57
26: ; preds = %19
%27 = tail call i64 @strlen(i8* dereferenceable(1) %0)
%28 = add nsw i32 %20, -1
%29 = zext i32 %28 to i64
%30 = mul i64 %27, %29
%31 = add i64 %30, %13
%32 = trunc i64 %31 to i32
%33 = add nsw i32 %32, 1
%34 = tail call i32 (i32, ...) bitcast (i32 (...)* @mx_malloc_forever to i32 (i32, ...)*)(i32 %33)
%35 = sext i32 %34 to i64
%36 = inttoptr i64 %35 to i8*
%37 = icmp sgt i32 %20, 1
br i1 %37, label %38, label %51
38: ; preds = %26
%39 = zext i32 %28 to i64
br label %40
40: ; preds = %38, %40
%41 = phi i64 [ 0, %38 ], [ %47, %40 ]
%42 = phi i8* [ %36, %38 ], [ %46, %40 ]
%43 = getelementptr inbounds i8*, i8** %1, i64 %41
%44 = load i8*, i8** %43
%45 = tail call i8* @stpcpy(i8* %42, i8* %44)
%46 = tail call i8* @stpcpy(i8* %45, i8* %0)
%47 = add nuw nsw i64 %41, 1
%48 = icmp eq i64 %47, %39
br i1 %48, label %49, label %40
49: ; preds = %40
%50 = zext i32 %28 to i64
br label %51
51: ; preds = %26, %49
%52 = phi i8* [ %46, %49 ], [ %36, %26 ]
%53 = phi i64 [ %50, %49 ], [ 0, %26 ]
%54 = getelementptr inbounds i8*, i8** %1, i64 %53
%55 = load i8*, i8** %54
%56 = tail call i8* @strcpy(i8* dereferenceable(1) %52, i8* dereferenceable(1) %55)
br label %57
57: ; preds = %51, %22
%58 = phi i8* [ %25, %22 ], [ %36, %51 ]
ret i8* %58
}