void efrexp(x, exp, s) unsigned short x[];
long *exp;
unsigned short s[];
{
  unsigned short xi[(6 + 3)];
  long li;
  emovi(x, xi);
  li = (long)((short)xi[1]);
  if (li == 0) {
    li -= enormlz(xi);
  }
  xi[1] = 0x3ffe;
  emovo(xi, s);
  *exp = li - 0x3ffe;
}


x86 assembly (clang, -O0):
<efrexp>:
push   %rbp
mov    %rsp,%rbp
sub    $0x40,%rsp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    -0x8(%rbp),%rdi
lea    -0x30(%rbp),%rsi
mov    $0x0,%al
call   1040 <emovi@plt>
movswq -0x2e(%rbp),%rax
mov    %rax,-0x38(%rbp)
cmpq   $0x0,-0x38(%rbp)
jne    1180 <efrexp+0x50>
lea    -0x30(%rbp),%rdi
mov    $0x0,%al
call   1050 <enormlz@plt>
movslq %eax,%rcx
mov    -0x38(%rbp),%rax
sub    %rcx,%rax
mov    %rax,-0x38(%rbp)
movw   $0x3ffe,-0x2e(%rbp)
lea    -0x30(%rbp),%rdi
mov    -0x18(%rbp),%rsi
mov    $0x0,%al
call   1030 <emovo@plt>
mov    -0x38(%rbp),%rcx
sub    $0x3ffe,%rcx
mov    -0x10(%rbp),%rax
mov    %rcx,(%rax)
add    $0x40,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<efrexp>:
push   %r15
push   %r14
push   %rbx
sub    $0x20,%rsp
mov    %rdx,%r15
mov    %rsi,%r14
mov    %rsp,%rsi
xor    %eax,%eax
call   1040 <emovi@plt>
movswq 0x2(%rsp),%rbx
test   %rbx,%rbx
jne    1164 <efrexp+0x34>
mov    %rsp,%rdi
xor    %eax,%eax
call   1050 <enormlz@plt>
movslq %eax,%rbx
neg    %rbx
movw   $0x3ffe,0x2(%rsp)
mov    %rsp,%rdi
mov    %r15,%rsi
xor    %eax,%eax
call   1030 <emovo@plt>
add    $0xffffffffffffc002,%rbx
mov    %rbx,(%r14)
add    $0x20,%rsp
pop    %rbx
pop    %r14
pop    %r15
ret

LLVM IR (-O0):
define void @efrexp(i16* %0, i64* %1, i16* %2) {
%4 = alloca i16*
%5 = alloca i64*
%6 = alloca i16*
%7 = alloca [9 x i16]
%8 = alloca i64
store i16* %0, i16** %4
store i64* %1, i64** %5
store i16* %2, i16** %6
%9 = load i16*, i16** %4
%10 = getelementptr inbounds [9 x i16], [9 x i16]* %7, i64 0, i64 0
%11 = call i32 (i16*, i16*, ...) bitcast (i32 (...)* @emovi to i32 (i16*, i16*, ...)*)(i16* %9, i16* %10)
%12 = getelementptr inbounds [9 x i16], [9 x i16]* %7, i64 0, i64 1
%13 = load i16, i16* %12
%14 = sext i16 %13 to i64
store i64 %14, i64* %8
%15 = load i64, i64* %8
%16 = icmp eq i64 %15, 0
br i1 %16, label %17, label %23
17: ; preds = %3
%18 = getelementptr inbounds [9 x i16], [9 x i16]* %7, i64 0, i64 0
%19 = call i32 (i16*, ...) bitcast (i32 (...)* @enormlz to i32 (i16*, ...)*)(i16* %18)
%20 = sext i32 %19 to i64
%21 = load i64, i64* %8
%22 = sub nsw i64 %21, %20
store i64 %22, i64* %8
br label %23
23: ; preds = %17, %3
%24 = getelementptr inbounds [9 x i16], [9 x i16]* %7, i64 0, i64 1
store i16 16382, i16* %24
%25 = getelementptr inbounds [9 x i16], [9 x i16]* %7, i64 0, i64 0
%26 = load i16*, i16** %6
%27 = call i32 (i16*, i16*, ...) bitcast (i32 (...)* @emovo to i32 (i16*, i16*, ...)*)(i16* %25, i16* %26)
%28 = load i64, i64* %8
%29 = sub nsw i64 %28, 16382
%30 = load i64*, i64** %5
store i64 %29, i64* %30
ret void
}

LLVM IR (-O2):
define void @efrexp(i16* %0, i64* nocapture writeonly %1, i16* %2) {
%4 = alloca [9 x i16]
%5 = bitcast [9 x i16]* %4 to i8*
%6 = getelementptr inbounds [9 x i16], [9 x i16]* %4, i64 0, i64 0
%7 = call i32 (i16*, i16*, ...) bitcast (i32 (...)* @emovi to i32 (i16*, i16*, ...)*)(i16* %0, i16* %6)
%8 = getelementptr inbounds [9 x i16], [9 x i16]* %4, i64 0, i64 1
%9 = load i16, i16* %8
%10 = sext i16 %9 to i64
%11 = icmp eq i16 %9, 0
br i1 %11, label %12, label %16
12: ; preds = %3
%13 = call i32 (i16*, ...) bitcast (i32 (...)* @enormlz to i32 (i16*, ...)*)(i16* %6)
%14 = sext i32 %13 to i64
%15 = sub nsw i64 0, %14
br label %16
16: ; preds = %12, %3
%17 = phi i64 [ %15, %12 ], [ %10, %3 ]
store i16 16382, i16* %8
%18 = call i32 (i16*, i16*, ...) bitcast (i32 (...)* @emovo to i32 (i16*, i16*, ...)*)(i16* %6, i16* %2)
%19 = add nsw i64 %17, -16382
store i64 %19, i64* %1
ret void
}