needsaddr(field, fieldlen) char **field;
int *fieldlen;
{
  register char *cp;
  int textseen, blankseen;
  int retval;
  for (cp = *field; (*cp == ' ' || *cp == '\t' || *cp == '\n' || *cp == ',');
       cp++)
    ;
  *field = cp;
  if (anychar("(<:", cp)) {
    retval = 0;
    goto leave;
  }
  for (;; cp++) {
    switch (*cp) {
    default:
      textseen++;
      break;
    case ' ':
    case '\t':
      blankseen++;
      break;
    case 'a':
      if (!blankseen || !textseen || !ssequal("at ", cp)) {
        textseen++;
        break;
      }
    case '@':
      retval = 0;
      goto leave;
    case ',':
    case '\n':
    case 0:
      retval = 1;
      goto leave;
    }
  }
leave:
  for (; (*cp) && (*cp != ',') && (*cp != '\n'); cp++)
    ;
  *fieldlen = cp - *field;
  return (retval);
}


x86 assembly (clang, -O0):
<needsaddr>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    -0x8(%rbp),%rax
mov    (%rax),%rax
mov    %rax,-0x18(%rbp)
mov    -0x18(%rbp),%rax
movsbl (%rax),%ecx
mov    $0x1,%al
cmp    $0x20,%ecx
mov    %al,-0x25(%rbp)
je     118a <needsaddr+0x6a>
mov    -0x18(%rbp),%rax
movsbl (%rax),%ecx
mov    $0x1,%al
cmp    $0x9,%ecx
mov    %al,-0x25(%rbp)
je     118a <needsaddr+0x6a>
mov    -0x18(%rbp),%rax
movsbl (%rax),%ecx
mov    $0x1,%al
cmp    $0xa,%ecx
mov    %al,-0x25(%rbp)
je     118a <needsaddr+0x6a>
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2c,%eax
sete   %al
mov    %al,-0x25(%rbp)
mov    -0x25(%rbp),%al
test   $0x1,%al
jne    119a <needsaddr+0x7a>
jmp    11b0 <needsaddr+0x90>
jmp    119f <needsaddr+0x7f>
mov    -0x18(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
jmp    113b <needsaddr+0x1b>
mov    -0x18(%rbp),%rcx
mov    -0x8(%rbp),%rax
mov    %rcx,(%rax)
mov    -0x18(%rbp),%rsi
lea    0xe3a(%rip),%rdi
mov    $0x0,%al
call   1030 <anychar@plt>
cmp    $0x0,%eax
je     11e2 <needsaddr+0xc2>
movl   $0x0,-0x24(%rbp)
jmp    12f0 <needsaddr+0x1d0>
jmp    11e7 <needsaddr+0xc7>
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
mov    %eax,-0x2c(%rbp)
test   %eax,%eax
je     12ce <needsaddr+0x1ae>
jmp    11fe <needsaddr+0xde>
mov    -0x2c(%rbp),%eax
sub    $0x9,%eax
je     1272 <needsaddr+0x152>
jmp    120f <needsaddr+0xef>
mov    -0x2c(%rbp),%eax
sub    $0xa,%eax
je     12ce <needsaddr+0x1ae>
jmp    1220 <needsaddr+0x100>
mov    -0x2c(%rbp),%eax
sub    $0x20,%eax
je     1272 <needsaddr+0x152>
jmp    1231 <needsaddr+0x111>
mov    -0x2c(%rbp),%eax
sub    $0x2c,%eax
je     12ce <needsaddr+0x1ae>
jmp    1242 <needsaddr+0x122>
mov    -0x2c(%rbp),%eax
sub    $0x40,%eax
je     12c2 <needsaddr+0x1a2>
jmp    1253 <needsaddr+0x133>
mov    -0x2c(%rbp),%eax
sub    $0x61,%eax
je     1280 <needsaddr+0x160>
jmp    1264 <needsaddr+0x144>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    12da <needsaddr+0x1ba>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    12da <needsaddr+0x1ba>
cmpl   $0x0,-0x20(%rbp)
je     12af <needsaddr+0x18f>
cmpl   $0x0,-0x1c(%rbp)
je     12af <needsaddr+0x18f>
mov    -0x18(%rbp),%rsi
lea    0xd65(%rip),%rdi
mov    $0x0,%al
call   1040 <ssequal@plt>
cmp    $0x0,%eax
jne    12bd <needsaddr+0x19d>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    12da <needsaddr+0x1ba>
jmp    12c2 <needsaddr+0x1a2>
movl   $0x0,-0x24(%rbp)
jmp    12f0 <needsaddr+0x1d0>
movl   $0x1,-0x24(%rbp)
jmp    12f0 <needsaddr+0x1d0>
jmp    12df <needsaddr+0x1bf>
mov    -0x18(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
jmp    11e7 <needsaddr+0xc7>
jmp    12f5 <needsaddr+0x1d5>
mov    -0x18(%rbp),%rax
movsbl (%rax),%ecx
xor    %eax,%eax
cmp    $0x0,%ecx
mov    %al,-0x2d(%rbp)
je     132f <needsaddr+0x20f>
mov    -0x18(%rbp),%rax
movsbl (%rax),%ecx
xor    %eax,%eax
cmp    $0x2c,%ecx
mov    %al,-0x2d(%rbp)
je     132f <needsaddr+0x20f>
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
cmp    $0xa,%eax
setne  %al
mov    %al,-0x2d(%rbp)
mov    -0x2d(%rbp),%al
test   $0x1,%al
jne    133f <needsaddr+0x21f>
jmp    1355 <needsaddr+0x235>
jmp    1344 <needsaddr+0x224>
mov    -0x18(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
jmp    12f5 <needsaddr+0x1d5>
mov    -0x18(%rbp),%rax
mov    -0x8(%rbp),%rcx
mov    (%rcx),%rcx
sub    %rcx,%rax
mov    %eax,%ecx
mov    -0x10(%rbp),%rax
mov    %ecx,(%rax)
mov    -0x24(%rbp),%eax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<needsaddr>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
mov    %rsi,%r14
mov    %rdi,%rbp
mov    (%rdi),%rbx
movabs $0x100100000600,%rax
xchg   %ax,%ax
movzbl (%rbx),%ecx
cmp    $0x2c,%rcx
ja     1155 <needsaddr+0x35>
bt     %rcx,%rax
jae    1155 <needsaddr+0x35>
add    $0x1,%rbx
jmp    1140 <needsaddr+0x20>
mov    %rbx,0x0(%rbp)
lea    0xea0(%rip),%rdi
xor    %r12d,%r12d
mov    %rbx,%rsi
xor    %eax,%eax
call   1030 <anychar@plt>
movabs $0x100000000401,%r15
test   %eax,%eax
jne    11fb <needsaddr+0xdb>
mov    %r14,(%rsp)
movabs $0x100000200,%r12
jmp    11a7 <needsaddr+0x87>
bt     %rax,%r15
jb     11e8 <needsaddr+0xc8>
cmp    $0x61,%eax
je     11c0 <needsaddr+0xa0>
cmp    $0x40,%eax
je     11f4 <needsaddr+0xd4>
add    $0x1,%r14d
add    $0x1,%rbx
movsbl (%rbx),%eax
cmp    $0x2c,%eax
ja     1195 <needsaddr+0x75>
bt     %rax,%r12
jae    118f <needsaddr+0x6f>
add    $0x1,%r13d
add    $0x1,%rbx
jmp    11a7 <needsaddr+0x87>
nop
test   %r13d,%r13d
je     119f <needsaddr+0x7f>
test   %r14d,%r14d
je     119f <needsaddr+0x7f>
lea    0xe33(%rip),%rdi
mov    %rbx,%rsi
xor    %eax,%eax
call   1040 <ssequal@plt>
test   %eax,%eax
je     119f <needsaddr+0x7f>
xor    %r12d,%r12d
mov    (%rsp),%r14
jmp    11fb <needsaddr+0xdb>
mov    $0x1,%r12d
mov    (%rsp),%r14
jmp    11fb <needsaddr+0xdb>
mov    (%rsp),%r14
xor    %r12d,%r12d
mov    %rbx,%rax
jmp    1207 <needsaddr+0xe7>
add    $0x1,%rax
add    $0x1,%ebx
movzbl (%rax),%ecx
cmp    $0x2c,%rcx
ja     1200 <needsaddr+0xe0>
bt     %rcx,%r15
jae    1200 <needsaddr+0xe0>
sub    0x0(%rbp),%ebx
mov    %ebx,(%r14)
mov    %r12d,%eax
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
@.str = [4 x i8] c"(<:\00"
@.str.1 = [4 x i8] c"at \00"
define i32 @needsaddr(i8** nocapture %0, i32* nocapture writeonly %1) {
%3 = load i8*, i8** %0
br label %4
4: ; preds = %7, %2
%5 = phi i8* [ %3, %2 ], [ %8, %7 ]
%6 = load i8, i8* %5
switch i8 %6, label %9 [
i8 32, label %7
i8 9, label %7
i8 10, label %7
i8 44, label %7
]
7: ; preds = %4, %4, %4, %4
%8 = getelementptr inbounds i8, i8* %5, i64 1
br label %4
9: ; preds = %4
store i8* %5, i8** %0
%10 = tail call i32 (i8*, i8*, ...) bitcast (i32 (...)* @anychar to i32 (i8*, i8*, ...)*)(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str, i64 0, i64 0), i8* %5)
%11 = icmp eq i32 %10, 0
br i1 %11, label %12, label %36
12: ; preds = %9, %31
%13 = phi i8* [ %34, %31 ], [ %5, %9 ]
%14 = phi i32 [ %32, %31 ], [ undef, %9 ]
%15 = phi i32 [ %33, %31 ], [ undef, %9 ]
%16 = load i8, i8* %13
%17 = sext i8 %16 to i32
switch i32 %17, label %18 [
i32 32, label %20
i32 9, label %20
i32 97, label %22
i32 64, label %35
i32 44, label %36
i32 10, label %36
i32 0, label %36
]
18: ; preds = %12
%19 = add nsw i32 %14, 1
br label %31
20: ; preds = %12, %12
%21 = add nsw i32 %15, 1
br label %31
22: ; preds = %12
%23 = icmp ne i32 %15, 0
%24 = icmp ne i32 %14, 0
%25 = select i1 %23, i1 %24, i1 false
br i1 %25, label %26, label %29
26: ; preds = %22
%27 = tail call i32 (i8*, i8*, ...) bitcast (i32 (...)* @ssequal to i32 (i8*, i8*, ...)*)(i8* getelementptr inbounds ([4 x i8], [4 x i8]* @.str.1, i64 0, i64 0), i8* %13)
%28 = icmp eq i32 %27, 0
br i1 %28, label %29, label %35
29: ; preds = %26, %22
%30 = add nsw i32 %14, 1
br label %31
31: ; preds = %18, %20, %29
%32 = phi i32 [ %19, %18 ], [ %30, %29 ], [ %14, %20 ]
%33 = phi i32 [ %15, %18 ], [ %15, %29 ], [ %21, %20 ]
%34 = getelementptr inbounds i8, i8* %13, i64 1
br label %12
35: ; preds = %26, %12
br label %36
36: ; preds = %12, %12, %12, %35, %9
%37 = phi i8* [ %5, %9 ], [ %13, %35 ], [ %13, %12 ], [ %13, %12 ], [ %13, %12 ]
%38 = phi i32 [ 0, %9 ], [ 0, %35 ], [ 1, %12 ], [ 1, %12 ], [ 1, %12 ]
br label %39
39: ; preds = %42, %36
%40 = phi i8* [ %37, %36 ], [ %43, %42 ]
%41 = load i8, i8* %40
switch i8 %41, label %42 [
i8 0, label %44
i8 44, label %44
i8 10, label %44
]
42: ; preds = %39
%43 = getelementptr inbounds i8, i8* %40, i64 1
br label %39
44: ; preds = %39, %39, %39
%45 = load i8*, i8** %0
%46 = ptrtoint i8* %40 to i64
%47 = ptrtoint i8* %45 to i64
%48 = sub i64 %46, %47
%49 = trunc i64 %48 to i32
store i32 %49, i32* %1
ret i32 %38
}