int cs_pvec(int n, const int *P, const double *b, double *x) {
  int k;
  if (!x || !b)
    return (0);
  for (k = 0; k < n; k++)
    x[k] = b[P ? P[k] : k];
  return (1);
}


x86 assembly (clang, -O0):
<cs_pvec>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
cmpq   $0x0,-0x20(%rbp)
je     1129 <cs_pvec+0x29>
cmpq   $0x0,-0x18(%rbp)
jne    1135 <cs_pvec+0x35>
movl   $0x0,-0x4(%rbp)
jmp    11a5 <cs_pvec+0xa5>
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    119e <cs_pvec+0x9e>
mov    -0x18(%rbp),%rax
mov    %rax,-0x30(%rbp)
cmpq   $0x0,-0x10(%rbp)
je     116e <cs_pvec+0x6e>
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
mov    %eax,-0x34(%rbp)
jmp    1174 <cs_pvec+0x74>
mov    -0x24(%rbp),%eax
mov    %eax,-0x34(%rbp)
mov    -0x30(%rbp),%rax
mov    -0x34(%rbp),%ecx
movslq %ecx,%rcx
movsd  (%rax,%rcx,8),%xmm0
mov    -0x20(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    113c <cs_pvec+0x3c>
movl   $0x1,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<cs_pvec>:
xor    %eax,%eax
test   %rdx,%rdx
je     11ad <cs_pvec+0xad>
test   %rcx,%rcx
je     11ad <cs_pvec+0xad>
mov    $0x1,%eax
test   %edi,%edi
jle    11ad <cs_pvec+0xad>
mov    %edi,%r8d
cmp    $0x1,%edi
jne    113d <cs_pvec+0x3d>
xor    %r11d,%r11d
test   $0x1,%r8b
je     11ad <cs_pvec+0xad>
test   %rsi,%rsi
je     119c <cs_pvec+0x9c>
mov    (%rsi,%r11,4),%esi
jmp    119f <cs_pvec+0x9f>
mov    %r8d,%r9d
and    $0xfffffffe,%r9d
xor    %r11d,%r11d
jmp    116d <cs_pvec+0x6d>
nopl   0x0(%rax)
mov    0x4(%rsi,%r11,4),%r10d
movslq %r10d,%rdi
movsd  (%rdx,%rdi,8),%xmm0
movsd  %xmm0,0x8(%rcx,%r11,8)
add    $0x2,%r11
cmp    %r11,%r9
je     112c <cs_pvec+0x2c>
test   %rsi,%rsi
je     1180 <cs_pvec+0x80>
mov    (%rsi,%r11,4),%r10d
jmp    1183 <cs_pvec+0x83>
nopl   0x0(%rax,%rax,1)
mov    %r11d,%r10d
movslq %r10d,%rdi
movsd  (%rdx,%rdi,8),%xmm0
movsd  %xmm0,(%rcx,%r11,8)
test   %rsi,%rsi
jne    1150 <cs_pvec+0x50>
lea    0x1(%r11),%r10
jmp    1155 <cs_pvec+0x55>
mov    %r11d,%esi
movslq %esi,%rsi
movsd  (%rdx,%rsi,8),%xmm0
movsd  %xmm0,(%rcx,%r11,8)
ret

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

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