void HTTP_OK2(unsigned body[], unsigned header[], unsigned body_length) {
  unsigned header_length;
  unsigned cnt;
  unsigned length, index, packet_count;
  header_length = 0;
  while (header[header_length])
    header_length++;
  length = header_length + 5;
  if (body_length > 9)
    length++;
  if (body_length > 99)
    length++;
  if (body_length > 999)
    length++;
  put_socket(length);
  socket_put_string(header);
  socket_put_decimal(body_length);
  socket_put_string("\r\n\r\n");
  socket_flush();
  length = body_length;
  index = 0;
  packet_count = 0;
  while (length >= 1046) {
    length -= 1046;
    put_socket(1046);
    for (packet_count = 0; packet_count < 523; packet_count++) {
      put_socket(body[index]);
      index++;
    }
  }
  put_socket(length);
  for (packet_count = 0; packet_count < (length >> 1); packet_count++) {
    put_socket(body[index]);
    index++;
  }
}


x86 assembly (clang, -O0):
<HTTP_OK2>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
movl   $0x0,-0x18(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x18(%rbp),%ecx
cmpl   $0x0,(%rax,%rcx,4)
je     1179 <HTTP_OK2+0x39>
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    115a <HTTP_OK2+0x1a>
mov    -0x18(%rbp),%eax
add    $0x5,%eax
mov    %eax,-0x20(%rbp)
cmpl   $0x9,-0x14(%rbp)
jbe    1195 <HTTP_OK2+0x55>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
cmpl   $0x63,-0x14(%rbp)
jbe    11a8 <HTTP_OK2+0x68>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
cmpl   $0x3e7,-0x14(%rbp)
jbe    11be <HTTP_OK2+0x7e>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
mov    -0x20(%rbp),%edi
mov    $0x0,%al
call   1030 <put_socket@plt>
mov    -0x10(%rbp),%rdi
mov    $0x0,%al
call   1050 <socket_put_string@plt>
mov    -0x14(%rbp),%edi
mov    $0x0,%al
call   1060 <socket_put_decimal@plt>
lea    0xe1c(%rip),%rdi
mov    $0x0,%al
call   1050 <socket_put_string@plt>
mov    $0x0,%al
call   1040 <socket_flush@plt>
mov    -0x14(%rbp),%eax
mov    %eax,-0x20(%rbp)
movl   $0x0,-0x24(%rbp)
movl   $0x0,-0x28(%rbp)
cmpl   $0x416,-0x20(%rbp)
jb     126b <HTTP_OK2+0x12b>
mov    -0x20(%rbp),%eax
sub    $0x416,%eax
mov    %eax,-0x20(%rbp)
mov    $0x416,%edi
mov    $0x0,%al
call   1030 <put_socket@plt>
movl   $0x0,-0x28(%rbp)
cmpl   $0x20b,-0x28(%rbp)
jae    1266 <HTTP_OK2+0x126>
mov    -0x8(%rbp),%rax
mov    -0x24(%rbp),%ecx
mov    (%rax,%rcx,4),%edi
mov    $0x0,%al
call   1030 <put_socket@plt>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    1231 <HTTP_OK2+0xf1>
jmp    1206 <HTTP_OK2+0xc6>
mov    -0x20(%rbp),%edi
mov    $0x0,%al
call   1030 <put_socket@plt>
movl   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%eax
mov    -0x20(%rbp),%ecx
shr    $0x1,%ecx
cmp    %ecx,%eax
jae    12b5 <HTTP_OK2+0x175>
mov    -0x8(%rbp),%rax
mov    -0x24(%rbp),%ecx
mov    (%rax,%rcx,4),%edi
mov    $0x0,%al
call   1030 <put_socket@plt>
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    127c <HTTP_OK2+0x13c>
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<HTTP_OK2>:
push   %rbp
push   %r15
push   %r14
push   %r13
push   %r12
push   %rbx
push   %rax
mov    %edx,%r13d
mov    %rsi,%r15
mov    %rdi,%r14
mov    $0xffffffff,%eax
nopl   0x0(%rax)
add    $0x1,%eax
cmpl   $0x0,(%r15,%rax,4)
jne    1160 <HTTP_OK2+0x20>
xor    %ecx,%ecx
cmp    $0xa,%r13d
setae  %cl
cmp    $0x64,%r13d
sbb    $0xffffffff,%ecx
cmp    $0x3e8,%r13d
sbb    $0xffffffff,%ecx
lea    (%rcx,%rax,1),%edi
add    $0x5,%edi
xor    %r12d,%r12d
xor    %eax,%eax
call   1030 <put_socket@plt>
mov    %r15,%rdi
xor    %eax,%eax
call   1050 <socket_put_string@plt>
mov    %r13d,%edi
xor    %eax,%eax
call   1060 <socket_put_decimal@plt>
lea    0xe51(%rip),%rdi
xor    %eax,%eax
call   1050 <socket_put_string@plt>
xor    %eax,%eax
call   1040 <socket_flush@plt>
cmp    $0x416,%r13d
jb     121e <HTTP_OK2+0xde>
mov    %r14,%rbp
xor    %r12d,%r12d
nopl   0x0(%rax)
mov    $0x416,%edi
xor    %eax,%eax
call   1030 <put_socket@plt>
add    $0x20b,%r12d
xor    %ebx,%ebx
cs nopw 0x0(%rax,%rax,1)
nop
mov    0x0(%rbp,%rbx,4),%edi
xor    %eax,%eax
call   1030 <put_socket@plt>
add    $0x1,%rbx
cmp    $0x20b,%ebx
jne    11f0 <HTTP_OK2+0xb0>
add    $0xfffffbea,%r13d
add    $0x82c,%rbp
cmp    $0x416,%r13d
jae    11d0 <HTTP_OK2+0x90>
mov    %r13d,%edi
xor    %eax,%eax
call   1030 <put_socket@plt>
cmp    $0x2,%r13d
jb     1258 <HTTP_OK2+0x118>
shr    %r13d
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
mov    %r12d,%eax
mov    (%r14,%rax,4),%edi
xor    %eax,%eax
call   1030 <put_socket@plt>
add    $0x1,%r12d
add    $0xffffffff,%r13d
jne    1240 <HTTP_OK2+0x100>
add    $0x8,%rsp
pop    %rbx
pop    %r12
pop    %r13
pop    %r14
pop    %r15
pop    %rbp
ret

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

LLVM IR (-O2):
@.str = [5 x i8] c"\0D\0A\0D\0A\00"
define void @HTTP_OK2(i32* nocapture %0, i32* %1, i32 %2) {
br label %4
4: ; preds = %4, %3
%5 = phi i32 [ 0, %3 ], [ %10, %4 ]
%6 = zext i32 %5 to i64
%7 = getelementptr inbounds i32, i32* %1, i64 %6
%8 = load i32, i32* %7
%9 = icmp eq i32 %8, 0
%10 = add i32 %5, 1
br i1 %9, label %11, label %4
11: ; preds = %4
%12 = icmp ugt i32 %2, 9
%13 = select i1 %12, i32 6, i32 5
%14 = icmp ugt i32 %2, 99
%15 = zext i1 %14 to i32
%16 = icmp ugt i32 %2, 999
%17 = zext i1 %16 to i32
%18 = add nuw nsw i32 %13, %15
%19 = add nuw nsw i32 %18, %17
%20 = add i32 %19, %5
%21 = tail call i32 (i32, ...) bitcast (i32 (...)* @put_socket to i32 (i32, ...)*)(i32 %20)
%22 = tail call i32 (i32*, ...) bitcast (i32 (...)* @socket_put_string to i32 (i32*, ...)*)(i32* %1)
%23 = tail call i32 (i32, ...) bitcast (i32 (...)* @socket_put_decimal to i32 (i32, ...)*)(i32 %2)
%24 = tail call i32 (i8*, ...) bitcast (i32 (...)* @socket_put_string to i32 (i8*, ...)*)(i8* getelementptr inbounds ([5 x i8], [5 x i8]* @.str, i64 0, i64 0))
%25 = tail call i32 (...) @socket_flush()
%26 = icmp ugt i32 %2, 1045
br i1 %26, label %30, label %43
27: ; preds = %35
%28 = add i32 %32, -1046
%29 = icmp ugt i32 %28, 1045
br i1 %29, label %30, label %43
30: ; preds = %11, %27
%31 = phi i32 [ %34, %27 ], [ 0, %11 ]
%32 = phi i32 [ %28, %27 ], [ %2, %11 ]
%33 = tail call i32 (i32, ...) bitcast (i32 (...)* @put_socket to i32 (i32, ...)*)(i32 1046)
%34 = add i32 %31, 523
br label %35
35: ; preds = %30, %35
%36 = phi i32 [ %31, %30 ], [ %41, %35 ]
%37 = zext i32 %36 to i64
%38 = getelementptr inbounds i32, i32* %0, i64 %37
%39 = load i32, i32* %38
%40 = tail call i32 (i32, ...) bitcast (i32 (...)* @put_socket to i32 (i32, ...)*)(i32 %39)
%41 = add i32 %36, 1
%42 = icmp eq i32 %41, %34
br i1 %42, label %27, label %35
43: ; preds = %27, %11
%44 = phi i32 [ %2, %11 ], [ %28, %27 ]
%45 = phi i32 [ 0, %11 ], [ %34, %27 ]
%46 = tail call i32 (i32, ...) bitcast (i32 (...)* @put_socket to i32 (i32, ...)*)(i32 %44)
%47 = icmp ult i32 %44, 2
br i1 %47, label %60, label %48
48: ; preds = %43
%49 = lshr i32 %44, 1
br label %50
50: ; preds = %48, %50
%51 = phi i32 [ %58, %50 ], [ 0, %48 ]
%52 = phi i32 [ %57, %50 ], [ %45, %48 ]
%53 = zext i32 %52 to i64
%54 = getelementptr inbounds i32, i32* %0, i64 %53
%55 = load i32, i32* %54
%56 = tail call i32 (i32, ...) bitcast (i32 (...)* @put_socket to i32 (i32, ...)*)(i32 %55)
%57 = add i32 %52, 1
%58 = add nuw nsw i32 %51, 1
%59 = icmp eq i32 %58, %49
br i1 %59, label %60, label %50
60: ; preds = %50, %43
ret void
}