void _IEG2CRI_64R64_ONCRI(unsigned long *iptr, unsigned long *optr, int *numadd,
                          int *strideadd) {
  long i;
  for (i = 0; i < *numadd; i++, optr += *strideadd) {
    *optr = iptr[i];
    if ((iptr[i] & (((1 << 11) - 1) << 52)) == 0)
      *optr = iptr[i] & (1 << (52 + 11));
  }
}


x86 assembly (clang, -O0):
<_IEG2CRI_64R64_ONCRI>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
movq   $0x0,-0x28(%rbp)
mov    -0x28(%rbp),%rax
mov    -0x18(%rbp),%rcx
movslq (%rcx),%rcx
cmp    %rcx,%rax
jge    119a <_IEG2CRI_64R64_ONCRI+0x9a>
mov    -0x8(%rbp),%rax
mov    -0x28(%rbp),%rcx
mov    (%rax,%rcx,8),%rcx
mov    -0x10(%rbp),%rax
mov    %rcx,(%rax)
mov    -0x8(%rbp),%rcx
mov    -0x28(%rbp),%rdx
and    (%rcx,%rdx,8),%rax
cmp    $0x0,%rax
jne    116c <_IEG2CRI_64R64_ONCRI+0x6c>
mov    -0x8(%rbp),%rax
mov    -0x28(%rbp),%rdx
and    (%rax,%rdx,8),%rcx
mov    -0x10(%rbp),%rax
mov    %rcx,(%rax)
jmp    1171 <_IEG2CRI_64R64_ONCRI+0x71>
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
mov    -0x20(%rbp),%rax
mov    (%rax),%ecx
mov    -0x10(%rbp),%rax
movslq %ecx,%rcx
shl    $0x3,%rcx
add    %rcx,%rax
mov    %rax,-0x10(%rbp)
jmp    111c <_IEG2CRI_64R64_ONCRI+0x1c>
pop    %rbp
ret

x86 assembly (clang, -O2):
<_IEG2CRI_64R64_ONCRI>:
push   %rbx
movslq (%rdx),%r11
test   %r11,%r11
jle    11e3 <_IEG2CRI_64R64_ONCRI+0xe3>
movslq (%rcx),%r8
lea    -0x1(%r11),%rax
mov    %r11d,%r10d
and    $0x7,%r10d
cmp    $0x7,%rax
jae    1131 <_IEG2CRI_64R64_ONCRI+0x31>
xor    %eax,%eax
test   %r10,%r10
jne    11c6 <_IEG2CRI_64R64_ONCRI+0xc6>
jmp    11e3 <_IEG2CRI_64R64_ONCRI+0xe3>
and    $0xfffffffffffffff8,%r11
mov    %r8,%r9
shl    $0x6,%r9
lea    0x0(,%r8,8),%rcx
xor    %eax,%eax
cs nopw 0x0(%rax,%rax,1)
mov    %rsi,%rdx
mov    (%rdi,%rax,8),%rsi
mov    %rsi,(%rdx)
mov    0x8(%rdi,%rax,8),%rbx
lea    (%rdx,%rcx,1),%rsi
mov    %rbx,(%rdx,%rcx,1)
mov    0x10(%rdi,%rax,8),%rbx
mov    %rbx,(%rcx,%rsi,1)
add    %rcx,%rsi
mov    0x18(%rdi,%rax,8),%rbx
mov    %rbx,(%rcx,%rsi,1)
add    %rcx,%rsi
mov    0x20(%rdi,%rax,8),%rbx
mov    %rbx,(%rcx,%rsi,1)
add    %rcx,%rsi
mov    0x28(%rdi,%rax,8),%rbx
mov    %rbx,(%rcx,%rsi,1)
add    %rcx,%rsi
mov    0x30(%rdi,%rax,8),%rbx
mov    %rbx,(%rcx,%rsi,1)
add    %rcx,%rsi
mov    0x38(%rdi,%rax,8),%rbx
mov    %rbx,(%rcx,%rsi,1)
add    %rcx,%rsi
add    $0x8,%rax
add    %rcx,%rsi
cmp    %rax,%r11
jne    1150 <_IEG2CRI_64R64_ONCRI+0x50>
add    %r9,%rdx
mov    %rdx,%rsi
test   %r10,%r10
je     11e3 <_IEG2CRI_64R64_ONCRI+0xe3>
lea    (%rdi,%rax,8),%rax
shl    $0x3,%r8
xor    %ecx,%ecx
mov    (%rax,%rcx,8),%rdx
mov    %rdx,(%rsi)
add    $0x1,%rcx
add    %r8,%rsi
cmp    %rcx,%r10
jne    11d0 <_IEG2CRI_64R64_ONCRI+0xd0>
pop    %rbx
ret

LLVM IR (-O0):
define void @_IEG2CRI_64R64_ONCRI(i64* %0, i64* %1, i32* %2, i32* %3) {
%5 = alloca i64*
%6 = alloca i64*
%7 = alloca i32*
%8 = alloca i32*
%9 = alloca i64
store i64* %0, i64** %5
store i64* %1, i64** %6
store i32* %2, i32** %7
store i32* %3, i32** %8
store i64 0, i64* %9
br label %10
10: ; preds = %36, %4
%11 = load i64, i64* %9
%12 = load i32*, i32** %7
%13 = load i32, i32* %12
%14 = sext i32 %13 to i64
%15 = icmp slt i64 %11, %14
br i1 %15, label %16, label %44
16: ; preds = %10
%17 = load i64*, i64** %5
%18 = load i64, i64* %9
%19 = getelementptr inbounds i64, i64* %17, i64 %18
%20 = load i64, i64* %19
%21 = load i64*, i64** %6
store i64 %20, i64* %21
%22 = load i64*, i64** %5
%23 = load i64, i64* %9
%24 = getelementptr inbounds i64, i64* %22, i64 %23
%25 = load i64, i64* %24
%26 = and i64 %25, poison
%27 = icmp eq i64 %26, 0
br i1 %27, label %28, label %35
28: ; preds = %16
%29 = load i64*, i64** %5
%30 = load i64, i64* %9
%31 = getelementptr inbounds i64, i64* %29, i64 %30
%32 = load i64, i64* %31
%33 = and i64 %32, poison
%34 = load i64*, i64** %6
store i64 %33, i64* %34
br label %35
35: ; preds = %28, %16
br label %36
36: ; preds = %35
%37 = load i64, i64* %9
%38 = add nsw i64 %37, 1
store i64 %38, i64* %9
%39 = load i32*, i32** %8
%40 = load i32, i32* %39
%41 = load i64*, i64** %6
%42 = sext i32 %40 to i64
%43 = getelementptr inbounds i64, i64* %41, i64 %42
store i64* %43, i64** %6
br label %10
44: ; preds = %10
ret void
}

LLVM IR (-O2):
define void @_IEG2CRI_64R64_ONCRI(i64* nocapture %0, i64* nocapture writeonly %1, i32* nocapture %2, i32* nocapture %3) {
%5 = load i32, i32* %2
%6 = sext i32 %5 to i64
%7 = icmp sgt i32 %5, 0
br i1 %7, label %8, label %68
8: ; preds = %4
%9 = load i32, i32* %3
%10 = sext i32 %9 to i64
%11 = add nsw i64 %6, -1
%12 = and i64 %6, 7
%13 = icmp ult i64 %11, 7
br i1 %13, label %54, label %14
14: ; preds = %8
%15 = and i64 %6, -8
br label %16
16: ; preds = %16, %14
%17 = phi i64 [ 0, %14 ], [ %50, %16 ]
%18 = phi i64* [ %1, %14 ], [ %51, %16 ]
%19 = phi i64 [ 0, %14 ], [ %52, %16 ]
%20 = getelementptr inbounds i64, i64* %0, i64 %17
%21 = load i64, i64* %20
store i64 %21, i64* %18
%22 = or i64 %17, 1
%23 = getelementptr inbounds i64, i64* %18, i64 %10
%24 = getelementptr inbounds i64, i64* %0, i64 %22
%25 = load i64, i64* %24
store i64 %25, i64* %23
%26 = or i64 %17, 2
%27 = getelementptr inbounds i64, i64* %23, i64 %10
%28 = getelementptr inbounds i64, i64* %0, i64 %26
%29 = load i64, i64* %28
store i64 %29, i64* %27
%30 = or i64 %17, 3
%31 = getelementptr inbounds i64, i64* %27, i64 %10
%32 = getelementptr inbounds i64, i64* %0, i64 %30
%33 = load i64, i64* %32
store i64 %33, i64* %31
%34 = or i64 %17, 4
%35 = getelementptr inbounds i64, i64* %31, i64 %10
%36 = getelementptr inbounds i64, i64* %0, i64 %34
%37 = load i64, i64* %36
store i64 %37, i64* %35
%38 = or i64 %17, 5
%39 = getelementptr inbounds i64, i64* %35, i64 %10
%40 = getelementptr inbounds i64, i64* %0, i64 %38
%41 = load i64, i64* %40
store i64 %41, i64* %39
%42 = or i64 %17, 6
%43 = getelementptr inbounds i64, i64* %39, i64 %10
%44 = getelementptr inbounds i64, i64* %0, i64 %42
%45 = load i64, i64* %44
store i64 %45, i64* %43
%46 = or i64 %17, 7
%47 = getelementptr inbounds i64, i64* %43, i64 %10
%48 = getelementptr inbounds i64, i64* %0, i64 %46
%49 = load i64, i64* %48
store i64 %49, i64* %47
%50 = add nuw nsw i64 %17, 8
%51 = getelementptr inbounds i64, i64* %47, i64 %10
%52 = add i64 %19, 8
%53 = icmp eq i64 %52, %15
br i1 %53, label %54, label %16
54: ; preds = %16, %8
%55 = phi i64 [ 0, %8 ], [ %50, %16 ]
%56 = phi i64* [ %1, %8 ], [ %51, %16 ]
%57 = icmp eq i64 %12, 0
br i1 %57, label %68, label %58
58: ; preds = %54, %58
%59 = phi i64 [ %64, %58 ], [ %55, %54 ]
%60 = phi i64* [ %65, %58 ], [ %56, %54 ]
%61 = phi i64 [ %66, %58 ], [ 0, %54 ]
%62 = getelementptr inbounds i64, i64* %0, i64 %59
%63 = load i64, i64* %62
store i64 %63, i64* %60
%64 = add nuw nsw i64 %59, 1
%65 = getelementptr inbounds i64, i64* %60, i64 %10
%66 = add i64 %61, 1
%67 = icmp eq i64 %66, %12
br i1 %67, label %68, label %58
68: ; preds = %54, %58, %4
ret void
}