int dns_smtp(host)
char *host;
{
  int sock;
  char *str, *ptr, mxlist[1024];
  dns_mx(host, str = mxlist);
  if (!*str) {
    if (dns_aton(host) != 0xffffffff)
      return -1;
    str = host;
  }
  for (;;) {
    ptr = str;
    while (sock = *ptr) {
      if (sock == ':') {
        *ptr++ = '\0';
        break;
      }
      ptr++;
    }
    if (!*str)
      return -1;
    sock = dns_open(str, 25);
    if (sock >= 0)
      return sock;
    str = ptr;
  }
}


x86 assembly (clang, -O0):
<dns_smtp>:
push   %rbp
mov    %rsp,%rbp
sub    $0x430,%rsp
mov    %rdi,-0x10(%rbp)
mov    -0x10(%rbp),%rdi
lea    -0x430(%rbp),%rsi
mov    %rsi,-0x20(%rbp)
mov    $0x0,%al
call   1040 <dns_mx@plt>
mov    -0x20(%rbp),%rax
cmpb   $0x0,(%rax)
jne    118a <dns_smtp+0x5a>
mov    -0x10(%rbp),%rdi
mov    $0x0,%al
call   1030 <dns_aton@plt>
cmp    $0xffffffff,%eax
je     1182 <dns_smtp+0x52>
movl   $0xffffffff,-0x4(%rbp)
jmp    122a <dns_smtp+0xfa>
mov    -0x10(%rbp),%rax
mov    %rax,-0x20(%rbp)
jmp    118f <dns_smtp+0x5f>
mov    -0x20(%rbp),%rax
mov    %rax,-0x28(%rbp)
mov    -0x28(%rbp),%rax
movsbl (%rax),%eax
mov    %eax,-0x14(%rbp)
cmp    $0x0,%eax
je     11dc <dns_smtp+0xac>
cmpl   $0x3a,-0x14(%rbp)
jne    11cb <dns_smtp+0x9b>
mov    -0x28(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x28(%rbp)
movb   $0x0,(%rax)
jmp    11dc <dns_smtp+0xac>
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
jmp    1197 <dns_smtp+0x67>
mov    -0x20(%rbp),%rax
cmpb   $0x0,(%rax)
jne    11f5 <dns_smtp+0xc5>
movl   $0xffffffff,-0x4(%rbp)
jmp    122a <dns_smtp+0xfa>
mov    -0x20(%rbp),%rdi
mov    $0x19,%esi
mov    $0x0,%al
call   1050 <dns_open@plt>
mov    %eax,-0x14(%rbp)
cmpl   $0x0,-0x14(%rbp)
jl     121d <dns_smtp+0xed>
mov    -0x14(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    122a <dns_smtp+0xfa>
mov    -0x28(%rbp),%rax
mov    %rax,-0x20(%rbp)
jmp    118f <dns_smtp+0x5f>
mov    -0x4(%rbp),%eax
add    $0x430,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<dns_smtp>:
push   %r15
push   %r14
push   %rbx
sub    $0x400,%rsp
mov    %rdi,%r14
mov    %rsp,%r15
mov    %r15,%rsi
xor    %eax,%eax
call   1040 <dns_mx@plt>
cmpb   $0x0,(%rsp)
jne    116b <dns_smtp+0x3b>
mov    %r14,%rdi
xor    %eax,%eax
call   1030 <dns_aton@plt>
mov    %eax,%ecx
mov    $0xffffffff,%eax
mov    %r14,%r15
cmp    $0xffffffff,%ecx
jne    11a9 <dns_smtp+0x79>
mov    %r15,%rbx
jmp    1174 <dns_smtp+0x44>
add    $0x1,%rbx
movzbl (%rbx),%eax
test   %al,%al
je     1186 <dns_smtp+0x56>
cmp    $0x3a,%al
jne    1170 <dns_smtp+0x40>
movb   $0x0,(%rbx)
add    $0x1,%rbx
cmpb   $0x0,(%r15)
je     11a4 <dns_smtp+0x74>
mov    %r15,%rdi
mov    $0x19,%esi
xor    %eax,%eax
call   1050 <dns_open@plt>
mov    %rbx,%r15
test   %eax,%eax
js     1174 <dns_smtp+0x44>
jmp    11a9 <dns_smtp+0x79>
mov    $0xffffffff,%eax
add    $0x400,%rsp
pop    %rbx
pop    %r14
pop    %r15
ret

LLVM IR (-O0):
define i32 @dns_smtp(i8* %0) {
%2 = alloca i32
%3 = alloca i8*
%4 = alloca i32
%5 = alloca i8*
%6 = alloca i8*
%7 = alloca [1024 x i8]
store i8* %0, i8** %3
%8 = load i8*, i8** %3
%9 = getelementptr inbounds [1024 x i8], [1024 x i8]* %7, i64 0, i64 0
store i8* %9, i8** %5
%10 = call i32 (i8*, i8*, ...) bitcast (i32 (...)* @dns_mx to i32 (i8*, i8*, ...)*)(i8* %8, i8* %9)
%11 = load i8*, i8** %5
%12 = load i8, i8* %11
%13 = icmp ne i8 %12, 0
br i1 %13, label %21, label %14
14: ; preds = %1
%15 = load i8*, i8** %3
%16 = call i32 (i8*, ...) bitcast (i32 (...)* @dns_aton to i32 (i8*, ...)*)(i8* %15)
%17 = icmp ne i32 %16, -1
br i1 %17, label %18, label %19
18: ; preds = %14
store i32 -1, i32* %2
br label %52
19: ; preds = %14
%20 = load i8*, i8** %3
store i8* %20, i8** %5
br label %21
21: ; preds = %19, %1
br label %22
22: ; preds = %50, %21
%23 = load i8*, i8** %5
store i8* %23, i8** %6
br label %24
24: ; preds = %35, %22
%25 = load i8*, i8** %6
%26 = load i8, i8* %25
%27 = sext i8 %26 to i32
store i32 %27, i32* %4
%28 = icmp ne i32 %27, 0
br i1 %28, label %29, label %38
29: ; preds = %24
%30 = load i32, i32* %4
%31 = icmp eq i32 %30, 58
br i1 %31, label %32, label %35
32: ; preds = %29
%33 = load i8*, i8** %6
%34 = getelementptr inbounds i8, i8* %33, i32 1
store i8* %34, i8** %6
store i8 0, i8* %33
br label %38
35: ; preds = %29
%36 = load i8*, i8** %6
%37 = getelementptr inbounds i8, i8* %36, i32 1
store i8* %37, i8** %6
br label %24
38: ; preds = %32, %24
%39 = load i8*, i8** %5
%40 = load i8, i8* %39
%41 = icmp ne i8 %40, 0
br i1 %41, label %43, label %42
42: ; preds = %38
store i32 -1, i32* %2
br label %52
43: ; preds = %38
%44 = load i8*, i8** %5
%45 = call i32 (i8*, i32, ...) bitcast (i32 (...)* @dns_open to i32 (i8*, i32, ...)*)(i8* %44, i32 25)
store i32 %45, i32* %4
%46 = load i32, i32* %4
%47 = icmp sge i32 %46, 0
br i1 %47, label %48, label %50
48: ; preds = %43
%49 = load i32, i32* %4
store i32 %49, i32* %2
br label %52
50: ; preds = %43
%51 = load i8*, i8** %6
store i8* %51, i8** %5
br label %22
52: ; preds = %48, %42, %18
%53 = load i32, i32* %2
ret i32 %53
}

LLVM IR (-O2):
define i32 @dns_smtp(i8* %0) {
%2 = alloca [1024 x i8]
%3 = getelementptr inbounds [1024 x i8], [1024 x i8]* %2, i64 0, i64 0
%4 = call i32 (i8*, i8*, ...) bitcast (i32 (...)* @dns_mx to i32 (i8*, i8*, ...)*)(i8* %0, i8* %3)
%5 = load i8, i8* %3
%6 = icmp eq i8 %5, 0
br i1 %6, label %7, label %10
7: ; preds = %1
%8 = call i32 (i8*, ...) bitcast (i32 (...)* @dns_aton to i32 (i8*, ...)*)(i8* %0)
%9 = icmp eq i32 %8, -1
br i1 %9, label %10, label %28
10: ; preds = %7, %1
%11 = phi i8* [ %0, %7 ], [ %3, %1 ]
br label %12
12: ; preds = %10, %25
%13 = phi i8* [ %22, %25 ], [ %11, %10 ]
br label %14
14: ; preds = %19, %12
%15 = phi i8* [ %13, %12 ], [ %20, %19 ]
%16 = load i8, i8* %15
switch i8 %16, label %19 [
i8 0, label %21
i8 58, label %17
]
17: ; preds = %14
%18 = getelementptr inbounds i8, i8* %15, i64 1
store i8 0, i8* %15
br label %21
19: ; preds = %14
%20 = getelementptr inbounds i8, i8* %15, i64 1
br label %14
21: ; preds = %14, %17
%22 = phi i8* [ %18, %17 ], [ %15, %14 ]
%23 = load i8, i8* %13
%24 = icmp eq i8 %23, 0
br i1 %24, label %28, label %25
25: ; preds = %21
%26 = call i32 (i8*, i32, ...) bitcast (i32 (...)* @dns_open to i32 (i8*, i32, ...)*)(i8* %13, i32 25)
%27 = icmp sgt i32 %26, -1
br i1 %27, label %28, label %12
28: ; preds = %25, %21, %7
%29 = phi i32 [ -1, %7 ], [ %26, %25 ], [ -1, %21 ]
ret i32 %29
}