void wrt_fd(fd) {
  register long l = 1;
  register char *p = getline(l, 0), *pbuf;
  char buf[1024];
  while (p) {
    pbuf = buf;
    while (p && pbuf < &buf[1024]) {
      if (!*p) {
        *pbuf++ = '\n';
        p = getline(++l, 0);
      } else
        *pbuf++ = *p++ & 0177;
    }
    if (write(fd, buf, pbuf - buf) < 0) {
      error("Write failed");
      break;
    }
  }
}


x86 assembly (clang, -O0):
<wrt_fd>:
push   %rbp
mov    %rsp,%rbp
sub    $0x430,%rsp
mov    %edi,-0x4(%rbp)
movq   $0x1,-0x10(%rbp)
mov    -0x10(%rbp),%rdi
xor    %esi,%esi
mov    $0x0,%al
call   1050 <getline@plt>
cltq
mov    %rax,-0x18(%rbp)
cmpq   $0x0,-0x18(%rbp)
je     125f <wrt_fd+0x12f>
lea    -0x420(%rbp),%rax
mov    %rax,-0x20(%rbp)
xor    %eax,%eax
cmpq   $0x0,-0x18(%rbp)
mov    %al,-0x421(%rbp)
je     11a0 <wrt_fd+0x70>
mov    -0x20(%rbp),%rax
lea    -0x420(%rbp),%rcx
add    $0x400,%rcx
cmp    %rcx,%rax
setb   %al
mov    %al,-0x421(%rbp)
mov    -0x421(%rbp),%al
test   $0x1,%al
jne    11b3 <wrt_fd+0x83>
jmp    121f <wrt_fd+0xef>
mov    -0x18(%rbp),%rax
cmpb   $0x0,(%rax)
jne    11f2 <wrt_fd+0xc2>
mov    -0x20(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x20(%rbp)
movb   $0xa,(%rax)
mov    -0x10(%rbp),%rdi
add    $0x1,%rdi
mov    %rdi,-0x10(%rbp)
xor    %esi,%esi
mov    $0x0,%al
call   1050 <getline@plt>
cltq
mov    %rax,-0x18(%rbp)
jmp    121a <wrt_fd+0xea>
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x18(%rbp)
movsbl (%rax),%eax
and    $0x7f,%eax
mov    %al,%cl
mov    -0x20(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x20(%rbp)
mov    %cl,(%rax)
jmp    116f <wrt_fd+0x3f>
mov    -0x4(%rbp),%edi
lea    -0x420(%rbp),%rsi
mov    -0x20(%rbp),%rdx
lea    -0x420(%rbp),%rax
sub    %rax,%rdx
mov    $0x0,%al
call   1030 <write@plt>
cmp    $0x0,%eax
jge    125a <wrt_fd+0x12a>
lea    0xdb2(%rip),%rdi
mov    $0x0,%al
call   1040 <error@plt>
jmp    125f <wrt_fd+0x12f>
jmp    1159 <wrt_fd+0x29>
add    $0x430,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<wrt_fd>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
sub    $0x408,%rsp
mov    %edi,%r15d
mov    $0x1,%ebx
mov    $0x1,%edi
xor    %esi,%esi
xor    %eax,%eax
call   1050 <getline@plt>
movslq %eax,%r13
lea    0x400(%rsp),%r12
jmp    1184 <wrt_fd+0x54>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
mov    %r15d,%edi
mov    %rsp,%rsi
mov    %rbp,%rdx
xor    %eax,%eax
call   1030 <write@plt>
test   %eax,%eax
js     11df <wrt_fd+0xaf>
test   %r13,%r13
je     11ed <wrt_fd+0xbd>
xor    %ebp,%ebp
lea    0x1(%rsp),%r14
movzbl 0x0(%r13),%eax
test   %al,%al
je     11b0 <wrt_fd+0x80>
add    $0x1,%r13
and    $0x7f,%al
mov    %al,-0x1(%r14)
jmp    11c8 <wrt_fd+0x98>
cs nopw 0x0(%rax,%rax,1)
nop
movb   $0xa,-0x1(%r14)
add    $0x1,%rbx
mov    %rbx,%rdi
xor    %esi,%esi
xor    %eax,%eax
call   1050 <getline@plt>
movslq %eax,%r13
add    $0x1,%rbp
test   %r13,%r13
je     1170 <wrt_fd+0x40>
lea    0x1(%r14),%rax
cmp    %r12,%r14
mov    %rax,%r14
jb     1190 <wrt_fd+0x60>
jmp    1170 <wrt_fd+0x40>
lea    0xe1a(%rip),%rdi
xor    %eax,%eax
call   1040 <error@plt>
add    $0x408,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

LLVM IR (-O0):
@.str = [13 x i8] c"Write failed\00"
define void @wrt_fd(i32 %0) {
%2 = alloca i32
%3 = alloca i64
%4 = alloca i8*
%5 = alloca i8*
%6 = alloca [1024 x i8]
store i32 %0, i32* %2
store i64 1, i64* %3
%7 = load i64, i64* %3
%8 = call i32 (i64, i32, ...) bitcast (i32 (...)* @getline to i32 (i64, i32, ...)*)(i64 %7, i32 0)
%9 = sext i32 %8 to i64
%10 = inttoptr i64 %9 to i8*
store i8* %10, i8** %4
br label %11
11: ; preds = %59, %1
%12 = load i8*, i8** %4
%13 = icmp ne i8* %12, null
br i1 %13, label %14, label %60
14: ; preds = %11
%15 = getelementptr inbounds [1024 x i8], [1024 x i8]* %6, i64 0, i64 0
store i8* %15, i8** %5
br label %16
16: ; preds = %46, %14
%17 = load i8*, i8** %4
%18 = icmp ne i8* %17, null
br i1 %18, label %19, label %23
19: ; preds = %16
%20 = load i8*, i8** %5
%21 = getelementptr inbounds [1024 x i8], [1024 x i8]* %6, i64 0, i64 1024
%22 = icmp ult i8* %20, %21
br label %23
23: ; preds = %19, %16
%24 = phi i1 [ false, %16 ], [ %22, %19 ]
br i1 %24, label %25, label %47
25: ; preds = %23
%26 = load i8*, i8** %4
%27 = load i8, i8* %26
%28 = icmp ne i8 %27, 0
br i1 %28, label %37, label %29
29: ; preds = %25
%30 = load i8*, i8** %5
%31 = getelementptr inbounds i8, i8* %30, i32 1
store i8* %31, i8** %5
store i8 10, i8* %30
%32 = load i64, i64* %3
%33 = add nsw i64 %32, 1
store i64 %33, i64* %3
%34 = call i32 (i64, i32, ...) bitcast (i32 (...)* @getline to i32 (i64, i32, ...)*)(i64 %33, i32 0)
%35 = sext i32 %34 to i64
%36 = inttoptr i64 %35 to i8*
store i8* %36, i8** %4
br label %46
37: ; preds = %25
%38 = load i8*, i8** %4
%39 = getelementptr inbounds i8, i8* %38, i32 1
store i8* %39, i8** %4
%40 = load i8, i8* %38
%41 = sext i8 %40 to i32
%42 = and i32 %41, 127
%43 = trunc i32 %42 to i8
%44 = load i8*, i8** %5
%45 = getelementptr inbounds i8, i8* %44, i32 1
store i8* %45, i8** %5
store i8 %43, i8* %44
br label %46
46: ; preds = %37, %29
br label %16
47: ; preds = %23
%48 = load i32, i32* %2
%49 = getelementptr inbounds [1024 x i8], [1024 x i8]* %6, i64 0, i64 0
%50 = load i8*, i8** %5
%51 = getelementptr inbounds [1024 x i8], [1024 x i8]* %6, i64 0, i64 0
%52 = ptrtoint i8* %50 to i64
%53 = ptrtoint i8* %51 to i64
%54 = sub i64 %52, %53
%55 = call i32 (i32, i8*, i64, ...) bitcast (i32 (...)* @write to i32 (i32, i8*, i64, ...)*)(i32 %48, i8* %49, i64 %54)
%56 = icmp slt i32 %55, 0
br i1 %56, label %57, label %59
57: ; preds = %47
%58 = call i32 (i8*, ...) bitcast (i32 (...)* @error to i32 (i8*, ...)*)(i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str, i64 0, i64 0))
br label %60
59: ; preds = %47
br label %11
60: ; preds = %57, %11
ret void
}

LLVM IR (-O2):
@.str = [13 x i8] c"Write failed\00"
define void @wrt_fd(i32 %0) {
%2 = alloca [1024 x i8]
%3 = tail call i32 (i64, i32, ...) bitcast (i32 (...)* @getline to i32 (i64, i32, ...)*)(i64 1, i32 0)
%4 = sext i32 %3 to i64
%5 = inttoptr i64 %4 to i8*
%6 = getelementptr inbounds [1024 x i8], [1024 x i8]* %2, i64 0, i64 0
%7 = getelementptr inbounds [1024 x i8], [1024 x i8]* %2, i64 0, i64 1024
%8 = ptrtoint [1024 x i8]* %2 to i64
br label %9
9: ; preds = %34, %1
%10 = phi i64 [ 1, %1 ], [ %28, %34 ]
%11 = phi i8* [ %5, %1 ], [ %29, %34 ]
%12 = icmp eq i8* %11, null
br i1 %12, label %41, label %13
13: ; preds = %9, %27
%14 = phi i8* [ %30, %27 ], [ %6, %9 ]
%15 = phi i8* [ %29, %27 ], [ %11, %9 ]
%16 = phi i64 [ %28, %27 ], [ %10, %9 ]
%17 = load i8, i8* %15
%18 = icmp eq i8 %17, 0
br i1 %18, label %19, label %24
19: ; preds = %13
store i8 10, i8* %14
%20 = add nsw i64 %16, 1
%21 = call i32 (i64, i32, ...) bitcast (i32 (...)* @getline to i32 (i64, i32, ...)*)(i64 %20, i32 0)
%22 = sext i32 %21 to i64
%23 = inttoptr i64 %22 to i8*
br label %27
24: ; preds = %13
%25 = getelementptr inbounds i8, i8* %15, i64 1
%26 = and i8 %17, 127
store i8 %26, i8* %14
br label %27
27: ; preds = %24, %19
%28 = phi i64 [ %16, %24 ], [ %20, %19 ]
%29 = phi i8* [ %25, %24 ], [ %23, %19 ]
%30 = getelementptr inbounds i8, i8* %14, i64 1
%31 = icmp ne i8* %29, null
%32 = icmp ult i8* %30, %7
%33 = select i1 %31, i1 %32, i1 false
br i1 %33, label %13, label %34
34: ; preds = %27
%35 = ptrtoint i8* %30 to i64
%36 = sub i64 %35, %8
%37 = call i32 (i32, i8*, i64, ...) bitcast (i32 (...)* @write to i32 (i32, i8*, i64, ...)*)(i32 %0, i8* %6, i64 %36)
%38 = icmp slt i32 %37, 0
br i1 %38, label %39, label %9
39: ; preds = %34
%40 = call i32 (i8*, ...) bitcast (i32 (...)* @error to i32 (i8*, ...)*)(i8* getelementptr inbounds ([13 x i8], [13 x i8]* @.str, i64 0, i64 0))
br label %41
41: ; preds = %9, %39
ret void
}