int jam_copy_array_subrange(long *source_heap_data, long source_subrange_begin,
                            long source_subrange_end, long *dest_heap_data,
                            long dest_subrange_begin, long dest_subrange_end) {
  long source_length = 1 + source_subrange_end - source_subrange_begin;
  long dest_length = 1 + dest_subrange_end - dest_subrange_begin;
  long length = source_length;
  long index = 0L;
  long source_index = 0L;
  long dest_index = 0L;
  int status = 0;
  if (length > dest_length)
    length = dest_length;
  if (length <= 0L) {
    status = 11;
  } else {
    for (index = 0L; index < length; ++index) {
      source_index = index + source_subrange_begin;
      dest_index = index + dest_subrange_begin;
      if (source_heap_data[source_index >> 5] & (1L << (source_index & 0x1f))) {
        dest_heap_data[dest_index >> 5] |= (1L << (dest_index & 0x1f));
      } else {
        dest_heap_data[dest_index >> 5] &=
            (~(unsigned long)(1L << (dest_index & 0x1f)));
      }
    }
  }
  return (status);
}


x86 assembly (clang, -O0):
<jam_copy_array_subrange>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
mov    %r9,-0x30(%rbp)
mov    -0x18(%rbp),%rax
add    $0x1,%rax
sub    -0x10(%rbp),%rax
mov    %rax,-0x38(%rbp)
mov    -0x30(%rbp),%rax
add    $0x1,%rax
sub    -0x28(%rbp),%rax
mov    %rax,-0x40(%rbp)
mov    -0x38(%rbp),%rax
mov    %rax,-0x48(%rbp)
movq   $0x0,-0x50(%rbp)
movq   $0x0,-0x58(%rbp)
movq   $0x0,-0x60(%rbp)
movl   $0x0,-0x64(%rbp)
mov    -0x48(%rbp),%rax
cmp    -0x40(%rbp),%rax
jle    1179 <jam_copy_array_subrange+0x79>
mov    -0x40(%rbp),%rax
mov    %rax,-0x48(%rbp)
cmpq   $0x0,-0x48(%rbp)
jg     1190 <jam_copy_array_subrange+0x90>
movl   $0xb,-0x64(%rbp)
jmp    125a <jam_copy_array_subrange+0x15a>
movq   $0x0,-0x50(%rbp)
mov    -0x50(%rbp),%rax
cmp    -0x48(%rbp),%rax
jge    1255 <jam_copy_array_subrange+0x155>
mov    -0x50(%rbp),%rax
add    -0x10(%rbp),%rax
mov    %rax,-0x58(%rbp)
mov    -0x50(%rbp),%rax
add    -0x28(%rbp),%rax
mov    %rax,-0x60(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x58(%rbp),%rcx
sar    $0x5,%rcx
mov    (%rax,%rcx,8),%rax
mov    -0x58(%rbp),%rcx
and    $0x1f,%rcx
mov    $0x1,%edx
shl    %cl,%rdx
mov    %rdx,%rcx
and    %rcx,%rax
cmp    $0x0,%rax
je     1217 <jam_copy_array_subrange+0x117>
mov    -0x60(%rbp),%rcx
and    $0x1f,%rcx
mov    $0x1,%edx
shl    %cl,%rdx
mov    -0x20(%rbp),%rax
mov    -0x60(%rbp),%rcx
sar    $0x5,%rcx
or     (%rax,%rcx,8),%rdx
mov    %rdx,(%rax,%rcx,8)
jmp    123f <jam_copy_array_subrange+0x13f>
mov    -0x60(%rbp),%rcx
and    $0x1f,%rcx
mov    $0x1,%edx
shl    %cl,%rdx
xor    $0xffffffffffffffff,%rdx
mov    -0x20(%rbp),%rax
mov    -0x60(%rbp),%rcx
sar    $0x5,%rcx
and    (%rax,%rcx,8),%rdx
mov    %rdx,(%rax,%rcx,8)
jmp    1244 <jam_copy_array_subrange+0x144>
mov    -0x50(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x50(%rbp)
jmp    1198 <jam_copy_array_subrange+0x98>
jmp    125a <jam_copy_array_subrange+0x15a>
mov    -0x64(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<jam_copy_array_subrange>:
sub    %rsi,%rdx
add    $0x1,%rdx
sub    %r8,%r9
add    $0x1,%r9
cmp    %r9,%rdx
cmovle %rdx,%r9
test   %r9,%r9
jle    1169 <jam_copy_array_subrange+0x69>
mov    %rcx,%r10
jmp    113c <jam_copy_array_subrange+0x3c>
nop
not    %rdx
mov    %r8,%rax
sar    $0x5,%rax
and    %rdx,(%r10,%rax,8)
add    $0x1,%r8
add    $0x1,%rsi
add    $0xffffffffffffffff,%r9
je     1166 <jam_copy_array_subrange+0x66>
mov    %rsi,%rcx
sar    $0x5,%rcx
mov    (%rdi,%rcx,8),%eax
mov    %r8d,%ecx
and    $0x1f,%cl
mov    $0x1,%edx
shl    %cl,%rdx
bt     %esi,%eax
jae    1120 <jam_copy_array_subrange+0x20>
mov    %r8,%rax
sar    $0x5,%rax
or     %rdx,(%r10,%rax,8)
jmp    112e <jam_copy_array_subrange+0x2e>
xor    %eax,%eax
ret
mov    $0xb,%eax
ret

LLVM IR (-O0):
define i32 @jam_copy_array_subrange(i64* %0, i64 %1, i64 %2, i64* %3, i64 %4, i64 %5) {
%7 = alloca i64*
%8 = alloca i64
%9 = alloca i64
%10 = alloca i64*
%11 = alloca i64
%12 = alloca i64
%13 = alloca i64
%14 = alloca i64
%15 = alloca i64
%16 = alloca i64
%17 = alloca i64
%18 = alloca i64
%19 = alloca i32
store i64* %0, i64** %7
store i64 %1, i64* %8
store i64 %2, i64* %9
store i64* %3, i64** %10
store i64 %4, i64* %11
store i64 %5, i64* %12
%20 = load i64, i64* %9
%21 = add nsw i64 1, %20
%22 = load i64, i64* %8
%23 = sub nsw i64 %21, %22
store i64 %23, i64* %13
%24 = load i64, i64* %12
%25 = add nsw i64 1, %24
%26 = load i64, i64* %11
%27 = sub nsw i64 %25, %26
store i64 %27, i64* %14
%28 = load i64, i64* %13
store i64 %28, i64* %15
store i64 0, i64* %16
store i64 0, i64* %17
store i64 0, i64* %18
store i32 0, i32* %19
%29 = load i64, i64* %15
%30 = load i64, i64* %14
%31 = icmp sgt i64 %29, %30
br i1 %31, label %32, label %34
32: ; preds = %6
%33 = load i64, i64* %14
store i64 %33, i64* %15
br label %34
34: ; preds = %32, %6
%35 = load i64, i64* %15
%36 = icmp sle i64 %35, 0
br i1 %36, label %37, label %38
37: ; preds = %34
store i32 11, i32* %19
br label %86
38: ; preds = %34
store i64 0, i64* %16
br label %39
39: ; preds = %82, %38
%40 = load i64, i64* %16
%41 = load i64, i64* %15
%42 = icmp slt i64 %40, %41
br i1 %42, label %43, label %85
43: ; preds = %39
%44 = load i64, i64* %16
%45 = load i64, i64* %8
%46 = add nsw i64 %44, %45
store i64 %46, i64* %17
%47 = load i64, i64* %16
%48 = load i64, i64* %11
%49 = add nsw i64 %47, %48
store i64 %49, i64* %18
%50 = load i64*, i64** %7
%51 = load i64, i64* %17
%52 = ashr i64 %51, 5
%53 = getelementptr inbounds i64, i64* %50, i64 %52
%54 = load i64, i64* %53
%55 = load i64, i64* %17
%56 = and i64 %55, 31
%57 = shl i64 1, %56
%58 = and i64 %54, %57
%59 = icmp ne i64 %58, 0
br i1 %59, label %60, label %70
60: ; preds = %43
%61 = load i64, i64* %18
%62 = and i64 %61, 31
%63 = shl i64 1, %62
%64 = load i64*, i64** %10
%65 = load i64, i64* %18
%66 = ashr i64 %65, 5
%67 = getelementptr inbounds i64, i64* %64, i64 %66
%68 = load i64, i64* %67
%69 = or i64 %68, %63
store i64 %69, i64* %67
br label %81
70: ; preds = %43
%71 = load i64, i64* %18
%72 = and i64 %71, 31
%73 = shl i64 1, %72
%74 = xor i64 %73, -1
%75 = load i64*, i64** %10
%76 = load i64, i64* %18
%77 = ashr i64 %76, 5
%78 = getelementptr inbounds i64, i64* %75, i64 %77
%79 = load i64, i64* %78
%80 = and i64 %79, %74
store i64 %80, i64* %78
br label %81
81: ; preds = %70, %60
br label %82
82: ; preds = %81
%83 = load i64, i64* %16
%84 = add nsw i64 %83, 1
store i64 %84, i64* %16
br label %39
85: ; preds = %39
br label %86
86: ; preds = %85, %37
%87 = load i32, i32* %19
ret i32 %87
}

LLVM IR (-O2):
define i32 @jam_copy_array_subrange(i64* nocapture %0, i64 %1, i64 %2, i64* nocapture %3, i64 %4, i64 %5) {
%7 = sub i64 1, %1
%8 = add i64 %7, %2
%9 = sub i64 1, %4
%10 = add i64 %9, %5
%11 = icmp sgt i64 %8, %10
%12 = select i1 %11, i64 %10, i64 %8
%13 = icmp slt i64 %12, 1
br i1 %13, label %41, label %14
14: ; preds = %6, %38
%15 = phi i64 [ %39, %38 ], [ 0, %6 ]
%16 = add nsw i64 %15, %1
%17 = add nsw i64 %15, %4
%18 = ashr i64 %16, 5
%19 = getelementptr inbounds i64, i64* %0, i64 %18
%20 = load i64, i64* %19
%21 = and i64 %16, 31
%22 = shl nuw nsw i64 1, %21
%23 = and i64 %20, %22
%24 = icmp eq i64 %23, 0
%25 = and i64 %17, 31
%26 = shl nuw nsw i64 1, %25
br i1 %24, label %32, label %27
27: ; preds = %14
%28 = ashr i64 %17, 5
%29 = getelementptr inbounds i64, i64* %3, i64 %28
%30 = load i64, i64* %29
%31 = or i64 %30, %26
store i64 %31, i64* %29
br label %38
32: ; preds = %14
%33 = xor i64 %26, -1
%34 = ashr i64 %17, 5
%35 = getelementptr inbounds i64, i64* %3, i64 %34
%36 = load i64, i64* %35
%37 = and i64 %36, %33
store i64 %37, i64* %35
br label %38
38: ; preds = %27, %32
%39 = add nuw nsw i64 %15, 1
%40 = icmp eq i64 %39, %12
br i1 %40, label %41, label %14
41: ; preds = %38, %6
%42 = phi i32 [ 11, %6 ], [ 0, %38 ]
ret i32 %42
}