void e24toe(pe, y) unsigned short *pe, *y;
{
  register unsigned short r;
  register unsigned short *p, *e;
  unsigned short yy[(6 + 3)];
  int denorm, k;
  e = pe;
  denorm = 0;
  ecleaz(yy);
  e += 1;
  r = *e;
  yy[0] = 0;
  if (r & 0x8000)
    yy[0] = 0xffff;
  yy[2] = (r & 0x7f) | 0200;
  r &= ~0x807f;
  if (r == 0x7f80) {
    if (((pe[1] & 0x7f) != 0) || (pe[0] != 0)) {
      enan(y, (((6 + 3) - 4) * 16));
      return;
    }
    eclear(y);
    einfin(y);
    if (yy[0])
      eneg(y);
    return;
  }
  r >>= 7;
  if (r == 0) {
    denorm = 1;
    yy[2] &= ~0200;
  }
  r += (0x3fff) - 0177;
  yy[1] = r;
  p = &yy[2 + 1];
  *p++ = *(--e);
  (void)eshift(yy, -8);
  if (denorm) {
    if ((k = enormlz(yy)) > (((6 + 3) - 4) * 16))
      ecleazs(yy);
    else
      yy[1] -= (unsigned short)(k - 1);
  }
  emovo(yy, y);
}


x86 assembly (clang, -O0):
<e24toe>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,-0x28(%rbp)
movl   $0x0,-0x44(%rbp)
lea    -0x40(%rbp),%rdi
mov    $0x0,%al
call   10b0 <ecleaz@plt>
mov    -0x28(%rbp),%rax
add    $0x2,%rax
mov    %rax,-0x28(%rbp)
mov    -0x28(%rbp),%rax
mov    (%rax),%ax
mov    %ax,-0x12(%rbp)
movw   $0x0,-0x40(%rbp)
movzwl -0x12(%rbp),%eax
and    $0x8000,%eax
cmp    $0x0,%eax
je     11ef <e24toe+0x5f>
movw   $0xffff,-0x40(%rbp)
movzwl -0x12(%rbp),%eax
and    $0x7f,%eax
or     $0x80,%eax
mov    %ax,-0x3c(%rbp)
movzwl -0x12(%rbp),%eax
and    $0xffff7f80,%eax
mov    %ax,-0x12(%rbp)
movzwl -0x12(%rbp),%eax
cmp    $0x7f80,%eax
jne    1285 <e24toe+0xf5>
mov    -0x8(%rbp),%rax
movzwl 0x2(%rax),%eax
and    $0x7f,%eax
cmp    $0x0,%eax
jne    123f <e24toe+0xaf>
mov    -0x8(%rbp),%rax
movzwl (%rax),%eax
cmp    $0x0,%eax
je     1254 <e24toe+0xc4>
mov    -0x10(%rbp),%rdi
mov    $0x50,%esi
mov    $0x0,%al
call   1090 <enan@plt>
jmp    135f <e24toe+0x1cf>
mov    -0x10(%rbp),%rdi
mov    $0x0,%al
call   10a0 <eclear@plt>
mov    -0x10(%rbp),%rdi
mov    $0x0,%al
call   1070 <einfin@plt>
cmpw   $0x0,-0x40(%rbp)
je     1280 <e24toe+0xf0>
mov    -0x10(%rbp),%rdi
mov    $0x0,%al
call   1080 <eneg@plt>
jmp    135f <e24toe+0x1cf>
movzwl -0x12(%rbp),%eax
sar    $0x7,%eax
mov    %ax,-0x12(%rbp)
movzwl -0x12(%rbp),%eax
cmp    $0x0,%eax
jne    12b1 <e24toe+0x121>
movl   $0x1,-0x44(%rbp)
movzwl -0x3c(%rbp),%eax
and    $0xffffff7f,%eax
mov    %ax,-0x3c(%rbp)
movzwl -0x12(%rbp),%eax
add    $0x3f80,%eax
mov    %ax,-0x12(%rbp)
mov    -0x12(%rbp),%ax
mov    %ax,-0x3e(%rbp)
lea    -0x40(%rbp),%rax
add    $0x6,%rax
mov    %rax,-0x20(%rbp)
mov    -0x28(%rbp),%rax
mov    %rax,%rcx
add    $0xfffffffffffffffe,%rcx
mov    %rcx,-0x28(%rbp)
mov    -0x2(%rax),%cx
mov    -0x20(%rbp),%rax
mov    %rax,%rdx
add    $0x2,%rdx
mov    %rdx,-0x20(%rbp)
mov    %cx,(%rax)
lea    -0x40(%rbp),%rdi
mov    $0xfffffff8,%esi
mov    $0x0,%al
call   1040 <eshift@plt>
cmpl   $0x0,-0x44(%rbp)
je     1350 <e24toe+0x1c0>
lea    -0x40(%rbp),%rdi
mov    $0x0,%al
call   1060 <enormlz@plt>
mov    %eax,-0x48(%rbp)
cmp    $0x50,%eax
jle    1338 <e24toe+0x1a8>
lea    -0x40(%rbp),%rdi
mov    $0x0,%al
call   1050 <ecleazs@plt>
jmp    134b <e24toe+0x1bb>
mov    -0x48(%rbp),%eax
sub    $0x1,%eax
movzwl %ax,%ecx
movzwl -0x3e(%rbp),%eax
sub    %ecx,%eax
mov    %ax,-0x3e(%rbp)
jmp    1350 <e24toe+0x1c0>
lea    -0x40(%rbp),%rdi
mov    -0x10(%rbp),%rsi
mov    $0x0,%al
call   1030 <emovo@plt>
add    $0x50,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<e24toe>:
push   %rbp
push   %r14
push   %rbx
sub    $0x20,%rsp
mov    %rsi,%r14
mov    %rdi,%rbx
mov    %rsp,%rdi
xor    %eax,%eax
call   10b0 <ecleaz@plt>
movzwl 0x2(%rbx),%ebp
movswl %bp,%eax
shr    $0xf,%eax
mov    %ax,(%rsp)
mov    %ebp,%eax
and    $0x7f,%eax
mov    %eax,%ecx
or     $0x80,%ecx
mov    %cx,0x4(%rsp)
and    $0x7f80,%ebp
cmp    $0x7f80,%ebp
jne    11f6 <e24toe+0x66>
test   %ax,%ax
jne    11e5 <e24toe+0x55>
cmpw   $0x0,(%rbx)
je     1271 <e24toe+0xe1>
mov    %r14,%rdi
mov    $0x50,%esi
xor    %eax,%eax
call   1090 <enan@plt>
jmp    1268 <e24toe+0xd8>
movzwl %bp,%edx
mov    %edx,%ecx
shr    $0x7,%ecx
test   %dx,%dx
jne    1208 <e24toe+0x78>
mov    %ax,0x4(%rsp)
movzwl %cx,%eax
add    $0x3f80,%eax
mov    %ax,0x2(%rsp)
movzwl (%rbx),%eax
mov    %ax,0x6(%rsp)
mov    %rsp,%rdi
mov    $0xfffffff8,%esi
xor    %eax,%eax
call   1040 <eshift@plt>
test   %bp,%bp
jne    125b <e24toe+0xcb>
mov    %rsp,%rdi
xor    %eax,%eax
call   1060 <enormlz@plt>
cmp    $0x51,%eax
jl     124c <e24toe+0xbc>
mov    %rsp,%rdi
xor    %eax,%eax
call   1050 <ecleazs@plt>
jmp    125b <e24toe+0xcb>
movzwl 0x2(%rsp),%ecx
sub    %eax,%ecx
add    $0x1,%ecx
mov    %cx,0x2(%rsp)
mov    %rsp,%rdi
mov    %r14,%rsi
xor    %eax,%eax
call   1030 <emovo@plt>
add    $0x20,%rsp
pop    %rbx
pop    %r14
pop    %rbp
ret
mov    %r14,%rdi
xor    %eax,%eax
call   10a0 <eclear@plt>
mov    %r14,%rdi
xor    %eax,%eax
call   1070 <einfin@plt>
cmpw   $0x0,(%rsp)
je     1268 <e24toe+0xd8>
mov    %r14,%rdi
xor    %eax,%eax
call   1080 <eneg@plt>
jmp    1268 <e24toe+0xd8>

LLVM IR (-O0):
define void @e24toe(i16* %0, i16* %1) {
%3 = alloca i16*
%4 = alloca i16*
%5 = alloca i16
%6 = alloca i16*
%7 = alloca i16*
%8 = alloca [9 x i16]
%9 = alloca i32
%10 = alloca i32
store i16* %0, i16** %3
store i16* %1, i16** %4
%11 = load i16*, i16** %3
store i16* %11, i16** %7
store i32 0, i32* %9
%12 = getelementptr inbounds [9 x i16], [9 x i16]* %8, i64 0, i64 0
%13 = call i32 (i16*, ...) bitcast (i32 (...)* @ecleaz to i32 (i16*, ...)*)(i16* %12)
%14 = load i16*, i16** %7
%15 = getelementptr inbounds i16, i16* %14, i64 1
store i16* %15, i16** %7
%16 = load i16*, i16** %7
%17 = load i16, i16* %16
store i16 %17, i16* %5
%18 = getelementptr inbounds [9 x i16], [9 x i16]* %8, i64 0, i64 0
store i16 0, i16* %18
%19 = load i16, i16* %5
%20 = zext i16 %19 to i32
%21 = and i32 %20, 32768
%22 = icmp ne i32 %21, 0
br i1 %22, label %23, label %25
23: ; preds = %2
%24 = getelementptr inbounds [9 x i16], [9 x i16]* %8, i64 0, i64 0
store i16 -1, i16* %24
br label %25
25: ; preds = %23, %2
%26 = load i16, i16* %5
%27 = zext i16 %26 to i32
%28 = and i32 %27, 127
%29 = or i32 %28, 128
%30 = trunc i32 %29 to i16
%31 = getelementptr inbounds [9 x i16], [9 x i16]* %8, i64 0, i64 2
store i16 %30, i16* %31
%32 = load i16, i16* %5
%33 = zext i16 %32 to i32
%34 = and i32 %33, -32896
%35 = trunc i32 %34 to i16
store i16 %35, i16* %5
%36 = load i16, i16* %5
%37 = zext i16 %36 to i32
%38 = icmp eq i32 %37, 32640
br i1 %38, label %39, label %67
39: ; preds = %25
%40 = load i16*, i16** %3
%41 = getelementptr inbounds i16, i16* %40, i64 1
%42 = load i16, i16* %41
%43 = zext i16 %42 to i32
%44 = and i32 %43, 127
%45 = icmp ne i32 %44, 0
br i1 %45, label %52, label %46
46: ; preds = %39
%47 = load i16*, i16** %3
%48 = getelementptr inbounds i16, i16* %47, i64 0
%49 = load i16, i16* %48
%50 = zext i16 %49 to i32
%51 = icmp ne i32 %50, 0
br i1 %51, label %52, label %55
52: ; preds = %46, %39
%53 = load i16*, i16** %4
%54 = call i32 (i16*, i32, ...) bitcast (i32 (...)* @enan to i32 (i16*, i32, ...)*)(i16* %53, i32 80)
br label %120
55: ; preds = %46
%56 = load i16*, i16** %4
%57 = call i32 (i16*, ...) bitcast (i32 (...)* @eclear to i32 (i16*, ...)*)(i16* %56)
%58 = load i16*, i16** %4
%59 = call i32 (i16*, ...) bitcast (i32 (...)* @einfin to i32 (i16*, ...)*)(i16* %58)
%60 = getelementptr inbounds [9 x i16], [9 x i16]* %8, i64 0, i64 0
%61 = load i16, i16* %60
%62 = icmp ne i16 %61, 0
br i1 %62, label %63, label %66
63: ; preds = %55
%64 = load i16*, i16** %4
%65 = call i32 (i16*, ...) bitcast (i32 (...)* @eneg to i32 (i16*, ...)*)(i16* %64)
br label %66
66: ; preds = %63, %55
br label %120
67: ; preds = %25
%68 = load i16, i16* %5
%69 = zext i16 %68 to i32
%70 = ashr i32 %69, 7
%71 = trunc i32 %70 to i16
store i16 %71, i16* %5
%72 = load i16, i16* %5
%73 = zext i16 %72 to i32
%74 = icmp eq i32 %73, 0
br i1 %74, label %75, label %81
75: ; preds = %67
store i32 1, i32* %9
%76 = getelementptr inbounds [9 x i16], [9 x i16]* %8, i64 0, i64 2
%77 = load i16, i16* %76
%78 = zext i16 %77 to i32
%79 = and i32 %78, -129
%80 = trunc i32 %79 to i16
store i16 %80, i16* %76
br label %81
81: ; preds = %75, %67
%82 = load i16, i16* %5
%83 = zext i16 %82 to i32
%84 = add nsw i32 %83, 16256
%85 = trunc i32 %84 to i16
store i16 %85, i16* %5
%86 = load i16, i16* %5
%87 = getelementptr inbounds [9 x i16], [9 x i16]* %8, i64 0, i64 1
store i16 %86, i16* %87
%88 = getelementptr inbounds [9 x i16], [9 x i16]* %8, i64 0, i64 3
store i16* %88, i16** %6
%89 = load i16*, i16** %7
%90 = getelementptr inbounds i16, i16* %89, i32 -1
store i16* %90, i16** %7
%91 = load i16, i16* %90
%92 = load i16*, i16** %6
%93 = getelementptr inbounds i16, i16* %92, i32 1
store i16* %93, i16** %6
store i16 %91, i16* %92
%94 = getelementptr inbounds [9 x i16], [9 x i16]* %8, i64 0, i64 0
%95 = call i32 (i16*, i32, ...) bitcast (i32 (...)* @eshift to i32 (i16*, i32, ...)*)(i16* %94, i32 -8)
%96 = load i32, i32* %9
%97 = icmp ne i32 %96, 0
br i1 %97, label %98, label %116
98: ; preds = %81
%99 = getelementptr inbounds [9 x i16], [9 x i16]* %8, i64 0, i64 0
%100 = call i32 (i16*, ...) bitcast (i32 (...)* @enormlz to i32 (i16*, ...)*)(i16* %99)
store i32 %100, i32* %10
%101 = icmp sgt i32 %100, 80
br i1 %101, label %102, label %105
102: ; preds = %98
%103 = getelementptr inbounds [9 x i16], [9 x i16]* %8, i64 0, i64 0
%104 = call i32 (i16*, ...) bitcast (i32 (...)* @ecleazs to i32 (i16*, ...)*)(i16* %103)
br label %115
105: ; preds = %98
%106 = load i32, i32* %10
%107 = sub nsw i32 %106, 1
%108 = trunc i32 %107 to i16
%109 = zext i16 %108 to i32
%110 = getelementptr inbounds [9 x i16], [9 x i16]* %8, i64 0, i64 1
%111 = load i16, i16* %110
%112 = zext i16 %111 to i32
%113 = sub nsw i32 %112, %109
%114 = trunc i32 %113 to i16
store i16 %114, i16* %110
br label %115
115: ; preds = %105, %102
br label %116
116: ; preds = %115, %81
%117 = getelementptr inbounds [9 x i16], [9 x i16]* %8, i64 0, i64 0
%118 = load i16*, i16** %4
%119 = call i32 (i16*, i16*, ...) bitcast (i32 (...)* @emovo to i32 (i16*, i16*, ...)*)(i16* %117, i16* %118)
br label %120
120: ; preds = %116, %66, %52
ret void
}

LLVM IR (-O2):
define void @e24toe(i16* nocapture %0, i16* %1) {
%3 = alloca [9 x i16]
%4 = bitcast [9 x i16]* %3 to i8*
%5 = getelementptr inbounds [9 x i16], [9 x i16]* %3, i64 0, i64 0
%6 = call i32 (i16*, ...) bitcast (i32 (...)* @ecleaz to i32 (i16*, ...)*)(i16* %5)
%7 = getelementptr inbounds i16, i16* %0, i64 1
%8 = load i16, i16* %7
%9 = ashr i16 %8, 15
store i16 %9, i16* %5
%10 = and i16 %8, 127
%11 = or i16 %10, 128
%12 = getelementptr inbounds [9 x i16], [9 x i16]* %3, i64 0, i64 2
store i16 %11, i16* %12
%13 = and i16 %8, 32640
%14 = icmp eq i16 %13, 32640
br i1 %14, label %15, label %29
15: ; preds = %2
%16 = icmp eq i16 %10, 0
br i1 %16, label %17, label %20
17: ; preds = %15
%18 = load i16, i16* %0
%19 = icmp eq i16 %18, 0
br i1 %19, label %22, label %20
20: ; preds = %17, %15
%21 = call i32 (i16*, i32, ...) bitcast (i32 (...)* @enan to i32 (i16*, i32, ...)*)(i16* %1, i32 80)
br label %51
22: ; preds = %17
%23 = call i32 (i16*, ...) bitcast (i32 (...)* @eclear to i32 (i16*, ...)*)(i16* %1)
%24 = call i32 (i16*, ...) bitcast (i32 (...)* @einfin to i32 (i16*, ...)*)(i16* %1)
%25 = load i16, i16* %5
%26 = icmp eq i16 %25, 0
br i1 %26, label %51, label %27
27: ; preds = %22
%28 = call i32 (i16*, ...) bitcast (i32 (...)* @eneg to i32 (i16*, ...)*)(i16* %1)
br label %51
29: ; preds = %2
%30 = lshr exact i16 %13, 7
%31 = icmp eq i16 %13, 0
br i1 %31, label %32, label %33
32: ; preds = %29
store i16 %10, i16* %12
br label %33
33: ; preds = %32, %29
%34 = add nuw nsw i16 %30, 16256
%35 = getelementptr inbounds [9 x i16], [9 x i16]* %3, i64 0, i64 1
store i16 %34, i16* %35
%36 = getelementptr inbounds [9 x i16], [9 x i16]* %3, i64 0, i64 3
%37 = load i16, i16* %0
store i16 %37, i16* %36
%38 = call i32 (i16*, i32, ...) bitcast (i32 (...)* @eshift to i32 (i16*, i32, ...)*)(i16* %5, i32 -8)
br i1 %31, label %39, label %49
39: ; preds = %33
%40 = call i32 (i16*, ...) bitcast (i32 (...)* @enormlz to i32 (i16*, ...)*)(i16* %5)
%41 = icmp sgt i32 %40, 80
br i1 %41, label %42, label %44
42: ; preds = %39
%43 = call i32 (i16*, ...) bitcast (i32 (...)* @ecleazs to i32 (i16*, ...)*)(i16* %5)
br label %49
44: ; preds = %39
%45 = load i16, i16* %35
%46 = trunc i32 %40 to i16
%47 = sub i16 1, %46
%48 = add i16 %47, %45
store i16 %48, i16* %35
br label %49
49: ; preds = %42, %44, %33
%50 = call i32 (i16*, i16*, ...) bitcast (i32 (...)* @emovo to i32 (i16*, i16*, ...)*)(i16* %5, i16* %1)
br label %51
51: ; preds = %22, %27, %49, %20
ret void
}