char *fix(field, address)
char *field, *address;
{
  register int len;
  register char *newp;
  int addrlen;
  int needadr;
  int fieldlen;
  char *cp;
  addrlen = strlen(address);
  len = 0;
  newp = "";
  for (cp = field;; cp += fieldlen + 1) {
    needadr = needsaddr(&cp, &fieldlen);
    if (fieldlen == 0) {
      cndfree(field);
      newp = add("\n", newp);
      return (newp);
    }
    if ((len + fieldlen + (needadr ? addrlen : 0)) > 70) {
      newp = add(",\n    ", newp);
      len = 4;
    } else if (*newp) {
      newp = add(", ", newp);
      len += 2;
    }
    *(cp + fieldlen) = 0;
    newp = add(cp, newp);
    if (needadr)
      newp = add(address, newp);
    len += fieldlen + (needadr ? addrlen : 0);
  }
}


x86 assembly (clang, -O0):
<fix>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    -0x10(%rbp),%rdi
call   1050 <strlen@plt>
mov    %eax,-0x24(%rbp)
movl   $0x0,-0x14(%rbp)
lea    0xe97(%rip),%rax
mov    %rax,-0x20(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,-0x38(%rbp)
lea    -0x38(%rbp),%rdi
lea    -0x2c(%rbp),%rsi
mov    $0x0,%al
call   1040 <needsaddr@plt>
mov    %eax,-0x28(%rbp)
cmpl   $0x0,-0x2c(%rbp)
jne    11bf <fix+0x7f>
mov    -0x8(%rbp),%rdi
mov    $0x0,%al
call   1060 <cndfree@plt>
mov    -0x20(%rbp),%rsi
lea    0xe58(%rip),%rdi
mov    $0x0,%al
call   1030 <add@plt>
cltq
mov    %rax,-0x20(%rbp)
mov    -0x20(%rbp),%rax
add    $0x50,%rsp
pop    %rbp
ret
mov    -0x14(%rbp),%eax
add    -0x2c(%rbp),%eax
mov    %eax,-0x3c(%rbp)
cmpl   $0x0,-0x28(%rbp)
je     11dd <fix+0x9d>
mov    -0x24(%rbp),%eax
mov    %eax,-0x40(%rbp)
jmp    11e7 <fix+0xa7>
xor    %eax,%eax
mov    %eax,-0x40(%rbp)
jmp    11e7 <fix+0xa7>
mov    -0x3c(%rbp),%eax
mov    -0x40(%rbp),%ecx
add    %ecx,%eax
cmp    $0x46,%eax
jle    121c <fix+0xdc>
mov    -0x20(%rbp),%rsi
lea    0xdff(%rip),%rdi
mov    $0x0,%al
call   1030 <add@plt>
cltq
mov    %rax,-0x20(%rbp)
movl   $0x4,-0x14(%rbp)
jmp    124f <fix+0x10f>
mov    -0x20(%rbp),%rax
cmpb   $0x0,(%rax)
je     124a <fix+0x10a>
mov    -0x20(%rbp),%rsi
lea    0xdd5(%rip),%rdi
mov    $0x0,%al
call   1030 <add@plt>
cltq
mov    %rax,-0x20(%rbp)
mov    -0x14(%rbp),%eax
add    $0x2,%eax
mov    %eax,-0x14(%rbp)
jmp    124f <fix+0x10f>
mov    -0x38(%rbp),%rax
movslq -0x2c(%rbp),%rcx
movb   $0x0,(%rax,%rcx,1)
mov    -0x38(%rbp),%rdi
mov    -0x20(%rbp),%rsi
mov    $0x0,%al
call   1030 <add@plt>
cltq
mov    %rax,-0x20(%rbp)
cmpl   $0x0,-0x28(%rbp)
je     128f <fix+0x14f>
mov    -0x10(%rbp),%rdi
mov    -0x20(%rbp),%rsi
mov    $0x0,%al
call   1030 <add@plt>
cltq
mov    %rax,-0x20(%rbp)
mov    -0x2c(%rbp),%eax
mov    %eax,-0x44(%rbp)
cmpl   $0x0,-0x28(%rbp)
je     12aa <fix+0x16a>
mov    -0x24(%rbp),%eax
mov    %eax,-0x48(%rbp)
jmp    12b4 <fix+0x174>
xor    %eax,%eax
mov    %eax,-0x48(%rbp)
jmp    12b4 <fix+0x174>
mov    -0x44(%rbp),%eax
mov    -0x48(%rbp),%ecx
add    %ecx,%eax
add    -0x14(%rbp),%eax
mov    %eax,-0x14(%rbp)
mov    -0x2c(%rbp),%ecx
add    $0x1,%ecx
mov    -0x38(%rbp),%rax
movslq %ecx,%rcx
add    %rcx,%rax
mov    %rax,-0x38(%rbp)
jmp    1176 <fix+0x36>

x86 assembly (clang, -O2):
<fix>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x18,%rsp
mov    %rsi,%r15
mov    %rdi,%rbp
mov    %rsi,%rdi
call   1050 <strlen@plt>
mov    %rax,%rbx
mov    %rbp,0x10(%rsp)
mov    %rbp,0x8(%rsp)
lea    0x8(%rsp),%rdi
lea    0x4(%rsp),%rsi
xor    %eax,%eax
call   1040 <needsaddr@plt>
mov    %eax,%r12d
mov    0x4(%rsp),%eax
lea    0xe79(%rip),%r14
test   %eax,%eax
je     126c <fix+0x12c>
xor    %r13d,%r13d
jmp    11dc <fix+0x9c>
cs nopw 0x0(%rax,%rax,1)
nop
movslq 0x4(%rsp),%rax
add    %ebp,%r13d
add    %eax,%r13d
mov    0x8(%rsp),%rcx
add    %rcx,%rax
add    $0x1,%rax
mov    %rax,0x8(%rsp)
lea    0x8(%rsp),%rdi
lea    0x4(%rsp),%rsi
xor    %eax,%eax
call   1040 <needsaddr@plt>
mov    %eax,%r12d
mov    0x4(%rsp),%eax
test   %eax,%eax
je     126c <fix+0x12c>
add    %r13d,%eax
test   %r12d,%r12d
mov    %ebx,%ebp
cmove  %r12d,%ebp
add    %ebp,%eax
cmp    $0x47,%eax
jl     1210 <fix+0xd0>
lea    0xe0c(%rip),%rdi
mov    %r14,%rsi
xor    %eax,%eax
call   1030 <add@plt>
movslq %eax,%r14
mov    $0x4,%r13d
jmp    122e <fix+0xee>
nopl   0x0(%rax,%rax,1)
cmpb   $0x0,(%r14)
je     122e <fix+0xee>
lea    0xdec(%rip),%rdi
mov    %r14,%rsi
xor    %eax,%eax
call   1030 <add@plt>
movslq %eax,%r14
add    $0x2,%r13d
mov    0x8(%rsp),%rax
movslq 0x4(%rsp),%rcx
movb   $0x0,(%rax,%rcx,1)
mov    0x8(%rsp),%rdi
mov    %r14,%rsi
xor    %eax,%eax
call   1030 <add@plt>
movslq %eax,%r14
test   %r12d,%r12d
je     11a0 <fix+0x60>
mov    %r15,%rdi
mov    %r14,%rsi
xor    %eax,%eax
call   1030 <add@plt>
movslq %eax,%r14
jmp    11a0 <fix+0x60>
mov    0x10(%rsp),%rdi
xor    %eax,%eax
call   1060 <cndfree@plt>
lea    0xd81(%rip),%rdi
mov    %r14,%rsi
xor    %eax,%eax
call   1030 <add@plt>
cltq
add    $0x18,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
@.str = [1 x i8] zeroinitializer
@.str.1 = [2 x i8] c"\0A\00"
@.str.2 = [7 x i8] c",\0A \00"
@.str.3 = [3 x i8] c", \00"
define i8* @fix(i8* %0, i8* %1) {
%3 = alloca i32
%4 = alloca i8*
%5 = bitcast i32* %3 to i8*
%6 = bitcast i8** %4 to i8*
%7 = tail call i64 @strlen(i8* dereferenceable(1) %1)
%8 = trunc i64 %7 to i32
store i8* %0, i8** %4
%9 = call i32 (i8**, i32*, ...) bitcast (i32 (...)* @needsaddr to i32 (i8**, i32*, ...)*)(i8** %4, i32* %3)
%10 = load i32, i32* %3
%11 = icmp eq i32 %10, 0
br i1 %11, label %12, label %18
12: ; preds = %55, %2
%13 = phi i8* [ getelementptr inbounds ([1 x i8], [1 x i8]* @.str, i64 0, i64 0), %2 ], [ %56, %55 ]
%14 = call i32 (i8*, ...) bitcast (i32 (...)* @cndfree to i32 (i8*, ...)*)(i8* %0)
%15 = call i32 (i8*, i8*, ...) bitcast (i32 (...)* @add to i32 (i8*, i8*, ...)*)(i8* getelementptr inbounds ([2 x i8], [2 x i8]* @.str.1, i64 0, i64 0), i8* %13)
%16 = sext i32 %15 to i64
%17 = inttoptr i64 %16 to i8*
ret i8* %17
18: ; preds = %2, %55
%19 = phi i32 [ %65, %55 ], [ %10, %2 ]
%20 = phi i32 [ %64, %55 ], [ %9, %2 ]
%21 = phi i32 [ %59, %55 ], [ 0, %2 ]
%22 = phi i8* [ %56, %55 ], [ getelementptr inbounds ([1 x i8], [1 x i8]* @.str, i64 0, i64 0), %2 ]
%23 = add nsw i32 %19, %21
%24 = icmp eq i32 %20, 0
%25 = select i1 %24, i32 0, i32 %8
%26 = add nsw i32 %23, %25
%27 = icmp sgt i32 %26, 70
br i1 %27, label %28, label %32
28: ; preds = %18
%29 = call i32 (i8*, i8*, ...) bitcast (i32 (...)* @add to i32 (i8*, i8*, ...)*)(i8* getelementptr inbounds ([7 x i8], [7 x i8]* @.str.2, i64 0, i64 0), i8* %22)
%30 = sext i32 %29 to i64
%31 = inttoptr i64 %30 to i8*
br label %40
32: ; preds = %18
%33 = load i8, i8* %22
%34 = icmp eq i8 %33, 0
br i1 %34, label %40, label %35
35: ; preds = %32
%36 = call i32 (i8*, i8*, ...) bitcast (i32 (...)* @add to i32 (i8*, i8*, ...)*)(i8* getelementptr inbounds ([3 x i8], [3 x i8]* @.str.3, i64 0, i64 0), i8* %22)
%37 = sext i32 %36 to i64
%38 = inttoptr i64 %37 to i8*
%39 = add nsw i32 %21, 2
br label %40
40: ; preds = %32, %35, %28
%41 = phi i8* [ %31, %28 ], [ %38, %35 ], [ %22, %32 ]
%42 = phi i32 [ 4, %28 ], [ %39, %35 ], [ %21, %32 ]
%43 = load i8*, i8** %4
%44 = load i32, i32* %3
%45 = sext i32 %44 to i64
%46 = getelementptr inbounds i8, i8* %43, i64 %45
store i8 0, i8* %46
%47 = load i8*, i8** %4
%48 = call i32 (i8*, i8*, ...) bitcast (i32 (...)* @add to i32 (i8*, i8*, ...)*)(i8* %47, i8* %41)
%49 = sext i32 %48 to i64
%50 = inttoptr i64 %49 to i8*
br i1 %24, label %55, label %51
51: ; preds = %40
%52 = call i32 (i8*, i8*, ...) bitcast (i32 (...)* @add to i32 (i8*, i8*, ...)*)(i8* %1, i8* %50)
%53 = sext i32 %52 to i64
%54 = inttoptr i64 %53 to i8*
br label %55
55: ; preds = %51, %40
%56 = phi i8* [ %54, %51 ], [ %50, %40 ]
%57 = load i32, i32* %3
%58 = add i32 %42, %25
%59 = add i32 %58, %57
%60 = add nsw i32 %57, 1
%61 = load i8*, i8** %4
%62 = sext i32 %60 to i64
%63 = getelementptr inbounds i8, i8* %61, i64 %62
store i8* %63, i8** %4
%64 = call i32 (i8**, i32*, ...) bitcast (i32 (...)* @needsaddr to i32 (i8**, i32*, ...)*)(i8** %4, i32* %3)
%65 = load i32, i32* %3
%66 = icmp eq i32 %65, 0
br i1 %66, label %12, label %18
}