void toe64(a, b) unsigned short *a, *b;
{
  register unsigned short *p, *q;
  unsigned short i;
  if (eiisnan(a)) {
    enan(b, 64);
    return;
  }
  if (a[1] == 0)
    eshdn1(a);
  p = a;
  q = b + 4;
  *(q + 1) = 0;
  i = *p++;
  if (i)
    *q-- = *p++ | 0x8000;
  else
    *q-- = *p++;
  ++p;
  if (eiisinf(a)) {
    *q-- = 0x8000;
    *q-- = 0;
    *q-- = 0;
    *q = 0;
    return;
  }
  for (i = 0; i < 4; i++)
    *q-- = *p++;
}


x86 assembly (clang, -O0):
<toe64>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    -0x8(%rbp),%rdi
mov    $0x0,%al
call   1050 <eiisnan@plt>
cmp    $0x0,%eax
je     1179 <toe64+0x39>
mov    -0x10(%rbp),%rdi
mov    $0x40,%esi
mov    $0x0,%al
call   1040 <enan@plt>
jmp    12db <toe64+0x19b>
mov    -0x8(%rbp),%rax
movzwl 0x2(%rax),%eax
cmp    $0x0,%eax
jne    1195 <toe64+0x55>
mov    -0x8(%rbp),%rdi
mov    $0x0,%al
call   1060 <eshdn1@plt>
mov    -0x8(%rbp),%rax
mov    %rax,-0x18(%rbp)
mov    -0x10(%rbp),%rax
add    $0x8,%rax
mov    %rax,-0x20(%rbp)
mov    -0x20(%rbp),%rax
movw   $0x0,0x2(%rax)
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x2,%rcx
mov    %rcx,-0x18(%rbp)
mov    (%rax),%ax
mov    %ax,-0x22(%rbp)
cmpw   $0x0,-0x22(%rbp)
je     1205 <toe64+0xc5>
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x2,%rcx
mov    %rcx,-0x18(%rbp)
movzwl (%rax),%eax
or     $0x8000,%eax
mov    %ax,%cx
mov    -0x20(%rbp),%rax
mov    %rax,%rdx
add    $0xfffffffffffffffe,%rdx
mov    %rdx,-0x20(%rbp)
mov    %cx,(%rax)
jmp    1229 <toe64+0xe9>
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x2,%rcx
mov    %rcx,-0x18(%rbp)
mov    (%rax),%cx
mov    -0x20(%rbp),%rax
mov    %rax,%rdx
add    $0xfffffffffffffffe,%rdx
mov    %rdx,-0x20(%rbp)
mov    %cx,(%rax)
mov    -0x18(%rbp),%rax
add    $0x2,%rax
mov    %rax,-0x18(%rbp)
mov    -0x8(%rbp),%rdi
mov    $0x0,%al
call   1030 <eiisinf@plt>
cmp    $0x0,%eax
je     1293 <toe64+0x153>
mov    -0x20(%rbp),%rax
mov    %rax,%rcx
add    $0xfffffffffffffffe,%rcx
mov    %rcx,-0x20(%rbp)
movw   $0x8000,(%rax)
mov    -0x20(%rbp),%rax
mov    %rax,%rcx
add    $0xfffffffffffffffe,%rcx
mov    %rcx,-0x20(%rbp)
movw   $0x0,(%rax)
mov    -0x20(%rbp),%rax
mov    %rax,%rcx
add    $0xfffffffffffffffe,%rcx
mov    %rcx,-0x20(%rbp)
movw   $0x0,(%rax)
mov    -0x20(%rbp),%rax
movw   $0x0,(%rax)
jmp    12db <toe64+0x19b>
movw   $0x0,-0x22(%rbp)
movzwl -0x22(%rbp),%eax
cmp    $0x4,%eax
jge    12db <toe64+0x19b>
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x2,%rcx
mov    %rcx,-0x18(%rbp)
mov    (%rax),%cx
mov    -0x20(%rbp),%rax
mov    %rax,%rdx
add    $0xfffffffffffffffe,%rdx
mov    %rdx,-0x20(%rbp)
mov    %cx,(%rax)
mov    -0x22(%rbp),%ax
add    $0x1,%ax
mov    %ax,-0x22(%rbp)
jmp    1299 <toe64+0x159>
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<toe64>:
push   %r14
push   %rbx
push   %rax
mov    %rsi,%r14
mov    %rdi,%rbx
xor    %eax,%eax
call   1050 <eiisnan@plt>
test   %eax,%eax
je     116b <toe64+0x2b>
mov    %r14,%rdi
mov    $0x40,%esi
xor    %eax,%eax
add    $0x8,%rsp
pop    %rbx
pop    %r14
jmp    1040 <enan@plt>
cmpw   $0x0,0x2(%rbx)
jne    117c <toe64+0x3c>
mov    %rbx,%rdi
xor    %eax,%eax
call   1060 <eshdn1@plt>
movw   $0x0,0xa(%r14)
movzwl 0x2(%rbx),%eax
mov    %eax,%ecx
or     $0xffff8000,%ecx
cmpw   $0x0,(%rbx)
cmove  %eax,%ecx
mov    %cx,0x8(%r14)
mov    %rbx,%rdi
xor    %eax,%eax
call   1030 <eiisinf@plt>
test   %eax,%eax
je     11b8 <toe64+0x78>
movabs $0x8000000000000000,%rax
mov    %rax,(%r14)
jmp    11db <toe64+0x9b>
movzwl 0x6(%rbx),%eax
mov    %ax,0x6(%r14)
movzwl 0x8(%rbx),%eax
mov    %ax,0x4(%r14)
movzwl 0xa(%rbx),%eax
mov    %ax,0x2(%r14)
movzwl 0xc(%rbx),%eax
mov    %ax,(%r14)
add    $0x8,%rsp
pop    %rbx
pop    %r14
ret

LLVM IR (-O0):
define void @toe64(i16* %0, i16* %1) {
%3 = alloca i16*
%4 = alloca i16*
%5 = alloca i16*
%6 = alloca i16*
%7 = alloca i16
store i16* %0, i16** %3
store i16* %1, i16** %4
%8 = load i16*, i16** %3
%9 = call i32 (i16*, ...) bitcast (i32 (...)* @eiisnan to i32 (i16*, ...)*)(i16* %8)
%10 = icmp ne i32 %9, 0
br i1 %10, label %11, label %14
11: ; preds = %2
%12 = load i16*, i16** %4
%13 = call i32 (i16*, i32, ...) bitcast (i32 (...)* @enan to i32 (i16*, i32, ...)*)(i16* %12, i32 64)
br label %77
14: ; preds = %2
%15 = load i16*, i16** %3
%16 = getelementptr inbounds i16, i16* %15, i64 1
%17 = load i16, i16* %16
%18 = zext i16 %17 to i32
%19 = icmp eq i32 %18, 0
br i1 %19, label %20, label %23
20: ; preds = %14
%21 = load i16*, i16** %3
%22 = call i32 (i16*, ...) bitcast (i32 (...)* @eshdn1 to i32 (i16*, ...)*)(i16* %21)
br label %23
23: ; preds = %20, %14
%24 = load i16*, i16** %3
store i16* %24, i16** %5
%25 = load i16*, i16** %4
%26 = getelementptr inbounds i16, i16* %25, i64 4
store i16* %26, i16** %6
%27 = load i16*, i16** %6
%28 = getelementptr inbounds i16, i16* %27, i64 1
store i16 0, i16* %28
%29 = load i16*, i16** %5
%30 = getelementptr inbounds i16, i16* %29, i32 1
store i16* %30, i16** %5
%31 = load i16, i16* %29
store i16 %31, i16* %7
%32 = load i16, i16* %7
%33 = icmp ne i16 %32, 0
br i1 %33, label %34, label %43
34: ; preds = %23
%35 = load i16*, i16** %5
%36 = getelementptr inbounds i16, i16* %35, i32 1
store i16* %36, i16** %5
%37 = load i16, i16* %35
%38 = zext i16 %37 to i32
%39 = or i32 %38, 32768
%40 = trunc i32 %39 to i16
%41 = load i16*, i16** %6
%42 = getelementptr inbounds i16, i16* %41, i32 -1
store i16* %42, i16** %6
store i16 %40, i16* %41
br label %49
43: ; preds = %23
%44 = load i16*, i16** %5
%45 = getelementptr inbounds i16, i16* %44, i32 1
store i16* %45, i16** %5
%46 = load i16, i16* %44
%47 = load i16*, i16** %6
%48 = getelementptr inbounds i16, i16* %47, i32 -1
store i16* %48, i16** %6
store i16 %46, i16* %47
br label %49
49: ; preds = %43, %34
%50 = load i16*, i16** %5
%51 = getelementptr inbounds i16, i16* %50, i32 1
store i16* %51, i16** %5
%52 = load i16*, i16** %3
%53 = call i32 (i16*, ...) bitcast (i32 (...)* @eiisinf to i32 (i16*, ...)*)(i16* %52)
%54 = icmp ne i32 %53, 0
br i1 %54, label %55, label %63
55: ; preds = %49
%56 = load i16*, i16** %6
%57 = getelementptr inbounds i16, i16* %56, i32 -1
store i16* %57, i16** %6
store i16 -32768, i16* %56
%58 = load i16*, i16** %6
%59 = getelementptr inbounds i16, i16* %58, i32 -1
store i16* %59, i16** %6
store i16 0, i16* %58
%60 = load i16*, i16** %6
%61 = getelementptr inbounds i16, i16* %60, i32 -1
store i16* %61, i16** %6
store i16 0, i16* %60
%62 = load i16*, i16** %6
store i16 0, i16* %62
br label %77
63: ; preds = %49
store i16 0, i16* %7
br label %64
64: ; preds = %74, %63
%65 = load i16, i16* %7
%66 = zext i16 %65 to i32
%67 = icmp slt i32 %66, 4
br i1 %67, label %68, label %77
68: ; preds = %64
%69 = load i16*, i16** %5
%70 = getelementptr inbounds i16, i16* %69, i32 1
store i16* %70, i16** %5
%71 = load i16, i16* %69
%72 = load i16*, i16** %6
%73 = getelementptr inbounds i16, i16* %72, i32 -1
store i16* %73, i16** %6
store i16 %71, i16* %72
br label %74
74: ; preds = %68
%75 = load i16, i16* %7
%76 = add i16 %75, 1
store i16 %76, i16* %7
br label %64
77: ; preds = %11, %55, %64
ret void
}

LLVM IR (-O2):
define void @toe64(i16* %0, i16* %1) {
%3 = tail call i32 (i16*, ...) bitcast (i32 (...)* @eiisnan to i32 (i16*, ...)*)(i16* %0)
%4 = icmp eq i32 %3, 0
br i1 %4, label %7, label %5
5: ; preds = %2
%6 = tail call i32 (i16*, i32, ...) bitcast (i32 (...)* @enan to i32 (i16*, i32, ...)*)(i16* %1, i32 64)
br label %38
7: ; preds = %2
%8 = getelementptr inbounds i16, i16* %0, i64 1
%9 = load i16, i16* %8
%10 = icmp eq i16 %9, 0
br i1 %10, label %11, label %13
11: ; preds = %7
%12 = tail call i32 (i16*, ...) bitcast (i32 (...)* @eshdn1 to i32 (i16*, ...)*)(i16* %0)
br label %13
13: ; preds = %11, %7
%14 = getelementptr inbounds i16, i16* %1, i64 4
%15 = getelementptr inbounds i16, i16* %1, i64 5
store i16 0, i16* %15
%16 = load i16, i16* %0
%17 = icmp eq i16 %16, 0
%18 = load i16, i16* %8
%19 = or i16 %18, -32768
%20 = select i1 %17, i16 %18, i16 %19
%21 = getelementptr inbounds i16, i16* %1, i64 3
store i16 %20, i16* %14
%22 = tail call i32 (i16*, ...) bitcast (i32 (...)* @eiisinf to i32 (i16*, ...)*)(i16* %0)
%23 = icmp eq i32 %22, 0
br i1 %23, label %27, label %24
24: ; preds = %13
%25 = getelementptr inbounds i16, i16* %1, i64 2
store i16 -32768, i16* %21
%26 = getelementptr inbounds i16, i16* %1, i64 1
store i16 0, i16* %25
store i16 0, i16* %26
store i16 0, i16* %1
br label %38
27: ; preds = %13
%28 = getelementptr inbounds i16, i16* %0, i64 3
%29 = load i16, i16* %28
%30 = getelementptr inbounds i16, i16* %1, i64 2
store i16 %29, i16* %21
%31 = getelementptr inbounds i16, i16* %0, i64 4
%32 = load i16, i16* %31
%33 = getelementptr inbounds i16, i16* %1, i64 1
store i16 %32, i16* %30
%34 = getelementptr inbounds i16, i16* %0, i64 5
%35 = load i16, i16* %34
store i16 %35, i16* %33
%36 = getelementptr inbounds i16, i16* %0, i64 6
%37 = load i16, i16* %36
store i16 %37, i16* %1
br label %38
38: ; preds = %27, %24, %5
ret void
}