void gather_long_mul(long *restrict out, const long *restrict in,
                     const unsigned in_stride,
                     const unsigned int *restrict map) {
  unsigned int i, j;
  while ((i = *map++) != -(unsigned int)1) {
    long t = out[i];
    j = *map++;
    do
      t *= in[j * in_stride];
    while ((j = *map++) != -(unsigned int)1);
    out[i] = t;
  }
}


x86 assembly (clang, -O0):
<gather_long_mul>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    %rcx,-0x20(%rbp)
mov    -0x20(%rbp),%rax
mov    %rax,%rcx
add    $0x4,%rcx
mov    %rcx,-0x20(%rbp)
mov    (%rax),%eax
mov    %eax,-0x24(%rbp)
cmp    $0xffffffff,%eax
je     119e <gather_long_mul+0x9e>
mov    -0x8(%rbp),%rax
mov    -0x24(%rbp),%ecx
mov    (%rax,%rcx,8),%rax
mov    %rax,-0x30(%rbp)
mov    -0x20(%rbp),%rax
mov    %rax,%rcx
add    $0x4,%rcx
mov    %rcx,-0x20(%rbp)
mov    (%rax),%eax
mov    %eax,-0x28(%rbp)
mov    -0x10(%rbp),%rax
mov    -0x28(%rbp),%ecx
imul   -0x14(%rbp),%ecx
mov    %ecx,%ecx
mov    (%rax,%rcx,8),%rax
imul   -0x30(%rbp),%rax
mov    %rax,-0x30(%rbp)
mov    -0x20(%rbp),%rax
mov    %rax,%rcx
add    $0x4,%rcx
mov    %rcx,-0x20(%rbp)
mov    (%rax),%eax
mov    %eax,-0x28(%rbp)
cmp    $0xffffffff,%eax
jne    1153 <gather_long_mul+0x53>
mov    -0x30(%rbp),%rdx
mov    -0x8(%rbp),%rax
mov    -0x24(%rbp),%ecx
mov    %rdx,(%rax,%rcx,8)
jmp    1113 <gather_long_mul+0x13>
pop    %rbp
ret

x86 assembly (clang, -O2):
<gather_long_mul>:
mov    (%rcx),%eax
cmp    $0xffffffff,%eax
je     1139 <gather_long_mul+0x39>
mov    %eax,%r8d
mov    (%rdi,%r8,8),%r9
mov    0x4(%rcx),%eax
add    $0x8,%rcx
cs nopw 0x0(%rax,%rax,1)
nop
imul   %edx,%eax
imul   (%rsi,%rax,8),%r9
mov    (%rcx),%eax
add    $0x4,%rcx
cmp    $0xffffffff,%eax
jne    1120 <gather_long_mul+0x20>
mov    %r9,(%rdi,%r8,8)
jmp    1100 <gather_long_mul>
ret

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

LLVM IR (-O2):
define void @gather_long_mul(i64* noalias nocapture %0, i64* noalias nocapture %1, i32 %2, i32* noalias nocapture %3) {
%5 = load i32, i32* %3
%6 = icmp eq i32 %5, -1
br i1 %6, label %31, label %7
7: ; preds = %4, %28
%8 = phi i32 [ %29, %28 ], [ %5, %4 ]
%9 = phi i32* [ %25, %28 ], [ %3, %4 ]
%10 = getelementptr inbounds i32, i32* %9, i64 1
%11 = zext i32 %8 to i64
%12 = getelementptr inbounds i64, i64* %0, i64 %11
%13 = load i64, i64* %12
%14 = getelementptr inbounds i32, i32* %9, i64 2
%15 = load i32, i32* %10
br label %16
16: ; preds = %16, %7
%17 = phi i32* [ %14, %7 ], [ %25, %16 ]
%18 = phi i32 [ %15, %7 ], [ %26, %16 ]
%19 = phi i64 [ %13, %7 ], [ %24, %16 ]
%20 = mul i32 %18, %2
%21 = zext i32 %20 to i64
%22 = getelementptr inbounds i64, i64* %1, i64 %21
%23 = load i64, i64* %22
%24 = mul nsw i64 %23, %19
%25 = getelementptr inbounds i32, i32* %17, i64 1
%26 = load i32, i32* %17
%27 = icmp eq i32 %26, -1
br i1 %27, label %28, label %16
28: ; preds = %16
store i64 %24, i64* %12
%29 = load i32, i32* %25
%30 = icmp eq i32 %29, -1
br i1 %30, label %31, label %7
31: ; preds = %28, %4
ret void
}