void plist(name, preamble, list, postamble, ifno, andor) const char *const name,
    *const preamble, *const postamble, *const ifno, *const andor;
const char *const *list;
{
  pname(name, 0);
  if (!*list)
    putsesc(ifno);
  else {
    putsesc(preamble);
    goto jin;
    do {
      putsesc(list[1] ? ", " : andor);
    jin:
      putsesc(*list);
    } while (*++list);
    putsesc(postamble);
  }
  putsg();
}


x86 assembly (clang, -O0):
<plist>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
mov    %r9,-0x30(%rbp)
mov    -0x8(%rbp),%rdi
xor    %esi,%esi
mov    $0x0,%al
call   1040 <pname@plt>
mov    -0x18(%rbp),%rax
cmpq   $0x0,(%rax)
jne    117b <plist+0x4b>
mov    -0x28(%rbp),%rdi
mov    $0x0,%al
call   1050 <putsesc@plt>
jmp    11f0 <plist+0xc0>
mov    -0x10(%rbp),%rdi
mov    $0x0,%al
call   1050 <putsesc@plt>
jmp    11bd <plist+0x8d>
mov    -0x18(%rbp),%rax
cmpq   $0x0,0x8(%rax)
je     11aa <plist+0x7a>
lea    0xe5f(%rip),%rax
mov    %rax,-0x38(%rbp)
jmp    11b2 <plist+0x82>
mov    -0x30(%rbp),%rax
mov    %rax,-0x38(%rbp)
mov    -0x38(%rbp),%rdi
mov    $0x0,%al
call   1050 <putsesc@plt>
mov    -0x18(%rbp),%rax
mov    (%rax),%rdi
mov    $0x0,%al
call   1050 <putsesc@plt>
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x8,%rcx
mov    %rcx,-0x18(%rbp)
cmpq   $0x0,0x8(%rax)
jne    118b <plist+0x5b>
mov    -0x20(%rbp),%rdi
mov    $0x0,%al
call   1050 <putsesc@plt>
mov    $0x0,%al
call   1030 <putsg@plt>
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<plist>:
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
mov    %r9,%r15
mov    %r8,%r12
mov    %rcx,%r14
mov    %rdx,%rbx
mov    %rsi,%r13
xor    %esi,%esi
xor    %eax,%eax
call   1040 <pname@plt>
cmpq   $0x0,(%rbx)
je     11ad <plist+0x7d>
mov    %r13,%rdi
xor    %eax,%eax
call   1050 <putsesc@plt>
mov    (%rbx),%rdi
xor    %eax,%eax
call   1050 <putsesc@plt>
cmpq   $0x0,0x8(%rbx)
je     11aa <plist+0x7a>
add    $0x10,%rbx
lea    0xe83(%rip),%r12
jmp    119c <plist+0x6c>
nop
xor    %eax,%eax
call   1050 <putsesc@plt>
mov    -0x8(%rbx),%rdi
xor    %eax,%eax
call   1050 <putsesc@plt>
cmpq   $0x0,(%rbx)
lea    0x8(%rbx),%rbx
je     11aa <plist+0x7a>
cmpq   $0x0,(%rbx)
mov    %r15,%rdi
je     1180 <plist+0x50>
mov    %r12,%rdi
jmp    1180 <plist+0x50>
mov    %r14,%r12
mov    %r12,%rdi
xor    %eax,%eax
call   1050 <putsesc@plt>
xor    %eax,%eax
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
jmp    1030 <putsg@plt>

LLVM IR (-O0):
@.str = [3 x i8] c", \00"
define void @plist(i8* %0, i8* %1, i8** %2, i8* %3, i8* %4, i8* %5) {
%7 = alloca i8*
%8 = alloca i8*
%9 = alloca i8**
%10 = alloca i8*
%11 = alloca i8*
%12 = alloca i8*
store i8* %0, i8** %7
store i8* %1, i8** %8
store i8** %2, i8*** %9
store i8* %3, i8** %10
store i8* %4, i8** %11
store i8* %5, i8** %12
%13 = load i8*, i8** %7
%14 = call i32 (i8*, i32, ...) bitcast (i32 (...)* @pname to i32 (i8*, i32, ...)*)(i8* %13, i32 0)
%15 = load i8**, i8*** %9
%16 = load i8*, i8** %15
%17 = icmp ne i8* %16, null
br i1 %17, label %21, label %18
18: ; preds = %6
%19 = load i8*, i8** %11
%20 = call i32 (i8*, ...) bitcast (i32 (...)* @putsesc to i32 (i8*, ...)*)(i8* %19)
br label %48
21: ; preds = %6
%22 = load i8*, i8** %8
%23 = call i32 (i8*, ...) bitcast (i32 (...)* @putsesc to i32 (i8*, ...)*)(i8* %22)
br label %36
24: ; No predecessors!
br label %25
25: ; preds = %40, %24
%26 = load i8**, i8*** %9
%27 = getelementptr inbounds i8*, i8** %26, i64 1
%28 = load i8*, i8** %27
%29 = icmp ne i8* %28, null
br i1 %29, label %30, label %31
30: ; preds = %25
br label %33
31: ; preds = %25
%32 = load i8*, i8** %12
br label %33
33: ; preds = %31, %30
%34 = phi i8* [ getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0), %30 ], [ %32, %31 ]
%35 = call i32 (i8*, ...) bitcast (i32 (...)* @putsesc to i32 (i8*, ...)*)(i8* %34)
br label %36
36: ; preds = %33, %21
%37 = load i8**, i8*** %9
%38 = load i8*, i8** %37
%39 = call i32 (i8*, ...) bitcast (i32 (...)* @putsesc to i32 (i8*, ...)*)(i8* %38)
br label %40
40: ; preds = %36
%41 = load i8**, i8*** %9
%42 = getelementptr inbounds i8*, i8** %41, i32 1
store i8** %42, i8*** %9
%43 = load i8*, i8** %42
%44 = icmp ne i8* %43, null
br i1 %44, label %25, label %45
45: ; preds = %40
%46 = load i8*, i8** %10
%47 = call i32 (i8*, ...) bitcast (i32 (...)* @putsesc to i32 (i8*, ...)*)(i8* %46)
br label %48
48: ; preds = %45, %18
%49 = call i32 (...) @putsg()
ret void
}

LLVM IR (-O2):
@.str = [3 x i8] c", \00"
define void @plist(i8* %0, i8* %1, i8** nocapture %2, i8* %3, i8* %4, i8* %5) {
%7 = tail call i32 (i8*, i32, ...) bitcast (i32 (...)* @pname to i32 (i8*, i32, ...)*)(i8* %0, i32 0)
%8 = load i8*, i8** %2
%9 = icmp eq i8* %8, null
br i1 %9, label %30, label %10
10: ; preds = %6
%11 = tail call i32 (i8*, ...) bitcast (i32 (...)* @putsesc to i32 (i8*, ...)*)(i8* %1)
%12 = load i8*, i8** %2
%13 = tail call i32 (i8*, ...) bitcast (i32 (...)* @putsesc to i32 (i8*, ...)*)(i8* %12)
%14 = getelementptr inbounds i8*, i8** %2, i64 1
%15 = load i8*, i8** %14
%16 = icmp eq i8* %15, null
br i1 %16, label %30, label %17
17: ; preds = %10, %17
%18 = phi i8** [ %27, %17 ], [ %14, %10 ]
%19 = phi i8** [ %18, %17 ], [ %2, %10 ]
%20 = getelementptr inbounds i8*, i8** %19, i64 2
%21 = load i8*, i8** %20
%22 = icmp eq i8* %21, null
%23 = select i1 %22, i8* %5, i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str, i64 0, i64 0)
%24 = tail call i32 (i8*, ...) bitcast (i32 (...)* @putsesc to i32 (i8*, ...)*)(i8* %23)
%25 = load i8*, i8** %18
%26 = tail call i32 (i8*, ...) bitcast (i32 (...)* @putsesc to i32 (i8*, ...)*)(i8* %25)
%27 = getelementptr inbounds i8*, i8** %18, i64 1
%28 = load i8*, i8** %27
%29 = icmp eq i8* %28, null
br i1 %29, label %30, label %17
30: ; preds = %17, %10, %6
%31 = phi i8* [ %4, %6 ], [ %3, %10 ], [ %3, %17 ]
%32 = tail call i32 (i8*, ...) bitcast (i32 (...)* @putsesc to i32 (i8*, ...)*)(i8* %31)
%33 = tail call i32 (...) @putsg()
ret void
}