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


x86 assembly (clang, -O0):
<_IEG2CRI_64C64_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    11f3 <_IEG2CRI_64C64_ONCRI+0xf3>
mov    -0x8(%rbp),%rax
mov    -0x28(%rbp),%rcx
shl    $0x1,%rcx
mov    (%rax,%rcx,8),%rcx
mov    -0x10(%rbp),%rax
mov    %rcx,(%rax)
mov    -0x8(%rbp),%rcx
mov    -0x28(%rbp),%rdx
shl    $0x1,%rdx
and    (%rcx,%rdx,8),%rax
cmp    $0x0,%rax
jne    1178 <_IEG2CRI_64C64_ONCRI+0x78>
mov    -0x8(%rbp),%rax
mov    -0x28(%rbp),%rdx
shl    $0x1,%rdx
and    (%rax,%rdx,8),%rcx
mov    -0x10(%rbp),%rax
mov    %rcx,(%rax)
mov    -0x8(%rbp),%rax
mov    -0x28(%rbp),%rcx
shl    $0x1,%rcx
mov    0x8(%rax,%rcx,8),%rcx
mov    -0x10(%rbp),%rax
mov    %rcx,0x8(%rax)
mov    -0x8(%rbp),%rcx
mov    -0x28(%rbp),%rdx
shl    $0x1,%rdx
and    0x8(%rcx,%rdx,8),%rax
cmp    $0x0,%rax
jne    11c5 <_IEG2CRI_64C64_ONCRI+0xc5>
mov    -0x8(%rbp),%rax
mov    -0x28(%rbp),%rdx
shl    $0x1,%rdx
and    0x8(%rax,%rdx,8),%rcx
mov    -0x10(%rbp),%rax
mov    %rcx,0x8(%rax)
jmp    11ca <_IEG2CRI_64C64_ONCRI+0xca>
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_64C64_ONCRI+0x1c>
pop    %rbp
ret

x86 assembly (clang, -O2):
<_IEG2CRI_64C64_ONCRI>:
push   %rbx
movslq (%rdx),%r9
test   %r9,%r9
jle    119a <_IEG2CRI_64C64_ONCRI+0x9a>
cmp    $0x1,%r9d
jne    111d <_IEG2CRI_64C64_ONCRI+0x1d>
xor    %ecx,%ecx
test   $0x1,%r9b
jne    1183 <_IEG2CRI_64C64_ONCRI+0x83>
jmp    119a <_IEG2CRI_64C64_ONCRI+0x9a>
movslq (%rcx),%r10
mov    %r9,%rbx
and    $0xfffffffffffffffe,%rbx
mov    %r10,%r8
shl    $0x4,%r8
shl    $0x3,%r10
xor    %ecx,%ecx
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
mov    %rsi,%rdx
mov    (%rdi,%rcx,8),%rsi
mov    %rsi,(%rdx)
mov    0x8(%rdi,%rcx,8),%rsi
mov    %rsi,0x8(%rdx)
mov    0x10(%rdi,%rcx,8),%r11
lea    (%rdx,%r10,1),%rsi
mov    %r11,(%rdx,%r10,1)
mov    0x18(%rdi,%rcx,8),%rax
mov    %rax,0x8(%rdx,%r10,1)
add    $0x4,%rcx
add    %r10,%rsi
add    $0xfffffffffffffffe,%rbx
jne    1140 <_IEG2CRI_64C64_ONCRI+0x40>
add    %r8,%rdx
mov    %rdx,%rsi
test   $0x1,%r9b
je     119a <_IEG2CRI_64C64_ONCRI+0x9a>
mov    (%rdi,%rcx,8),%rax
shl    $0x3,%rcx
mov    %rax,(%rsi)
or     $0x8,%rcx
mov    (%rdi,%rcx,1),%rax
mov    %rax,0x8(%rsi)
pop    %rbx
ret

LLVM IR (-O0):
define void @_IEG2CRI_64C64_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 = %66, %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 %74
16: ; preds = %10
%17 = load i64*, i64** %5
%18 = load i64, i64* %9
%19 = mul nsw i64 2, %18
%20 = getelementptr inbounds i64, i64* %17, i64 %19
%21 = load i64, i64* %20
%22 = load i64*, i64** %6
store i64 %21, i64* %22
%23 = load i64*, i64** %5
%24 = load i64, i64* %9
%25 = mul nsw i64 2, %24
%26 = getelementptr inbounds i64, i64* %23, i64 %25
%27 = load i64, i64* %26
%28 = and i64 %27, poison
%29 = icmp eq i64 %28, 0
br i1 %29, label %30, label %38
30: ; preds = %16
%31 = load i64*, i64** %5
%32 = load i64, i64* %9
%33 = mul nsw i64 2, %32
%34 = getelementptr inbounds i64, i64* %31, i64 %33
%35 = load i64, i64* %34
%36 = and i64 %35, poison
%37 = load i64*, i64** %6
store i64 %36, i64* %37
br label %38
38: ; preds = %30, %16
%39 = load i64*, i64** %5
%40 = load i64, i64* %9
%41 = mul nsw i64 2, %40
%42 = add nsw i64 %41, 1
%43 = getelementptr inbounds i64, i64* %39, i64 %42
%44 = load i64, i64* %43
%45 = load i64*, i64** %6
%46 = getelementptr inbounds i64, i64* %45, i64 1
store i64 %44, i64* %46
%47 = load i64*, i64** %5
%48 = load i64, i64* %9
%49 = mul nsw i64 2, %48
%50 = add nsw i64 %49, 1
%51 = getelementptr inbounds i64, i64* %47, i64 %50
%52 = load i64, i64* %51
%53 = and i64 %52, poison
%54 = icmp eq i64 %53, 0
br i1 %54, label %55, label %65
55: ; preds = %38
%56 = load i64*, i64** %5
%57 = load i64, i64* %9
%58 = mul nsw i64 2, %57
%59 = add nsw i64 %58, 1
%60 = getelementptr inbounds i64, i64* %56, i64 %59
%61 = load i64, i64* %60
%62 = and i64 %61, poison
%63 = load i64*, i64** %6
%64 = getelementptr inbounds i64, i64* %63, i64 1
store i64 %62, i64* %64
br label %65
65: ; preds = %55, %38
br label %66
66: ; preds = %65
%67 = load i64, i64* %9
%68 = add nsw i64 %67, 1
store i64 %68, i64* %9
%69 = load i32*, i32** %8
%70 = load i32, i32* %69
%71 = load i64*, i64** %6
%72 = sext i32 %70 to i64
%73 = getelementptr inbounds i64, i64* %71, i64 %72
store i64* %73, i64** %6
br label %10
74: ; preds = %10
ret void
}

LLVM IR (-O2):
define void @_IEG2CRI_64C64_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 %52
8: ; preds = %4
%9 = load i32, i32* %3
%10 = sext i32 %9 to i64
%11 = and i64 %6, 1
%12 = icmp eq i32 %5, 1
br i1 %12, label %41, label %13
13: ; preds = %8
%14 = and i64 %6, -2
br label %15
15: ; preds = %15, %13
%16 = phi i64 [ 0, %13 ], [ %35, %15 ]
%17 = phi i64* [ %1, %13 ], [ %36, %15 ]
%18 = phi i64 [ 0, %13 ], [ %37, %15 ]
%19 = shl nuw nsw i64 %16, 1
%20 = getelementptr inbounds i64, i64* %0, i64 %19
%21 = load i64, i64* %20
store i64 %21, i64* %17
%22 = or i64 %19, 1
%23 = getelementptr inbounds i64, i64* %0, i64 %22
%24 = load i64, i64* %23
%25 = getelementptr inbounds i64, i64* %17, i64 1
store i64 %24, i64* %25
%26 = getelementptr inbounds i64, i64* %17, i64 %10
%27 = shl nuw i64 %16, 1
%28 = or i64 %27, 2
%29 = getelementptr inbounds i64, i64* %0, i64 %28
%30 = load i64, i64* %29
store i64 %30, i64* %26
%31 = or i64 %27, 3
%32 = getelementptr inbounds i64, i64* %0, i64 %31
%33 = load i64, i64* %32
%34 = getelementptr inbounds i64, i64* %26, i64 1
store i64 %33, i64* %34
%35 = add nuw nsw i64 %16, 2
%36 = getelementptr inbounds i64, i64* %26, i64 %10
%37 = add nuw i64 %18, 2
%38 = icmp eq i64 %37, %14
br i1 %38, label %39, label %15
39: ; preds = %15
%40 = shl nuw i64 %35, 1
br label %41
41: ; preds = %39, %8
%42 = phi i64 [ 0, %8 ], [ %40, %39 ]
%43 = phi i64* [ %1, %8 ], [ %36, %39 ]
%44 = icmp eq i64 %11, 0
br i1 %44, label %52, label %45
45: ; preds = %41
%46 = getelementptr inbounds i64, i64* %0, i64 %42
%47 = load i64, i64* %46
store i64 %47, i64* %43
%48 = or i64 %42, 1
%49 = getelementptr inbounds i64, i64* %0, i64 %48
%50 = load i64, i64* %49
%51 = getelementptr inbounds i64, i64* %43, i64 1
store i64 %50, i64* %51
br label %52
52: ; preds = %45, %41, %4
ret void
}