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


x86 assembly (clang, -O0):
<cs_ipvec>:
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_ipvec+0x29>
cmpq   $0x0,-0x18(%rbp)
jne    1135 <cs_ipvec+0x35>
movl   $0x0,-0x4(%rbp)
jmp    11af <cs_ipvec+0xaf>
movl   $0x0,-0x24(%rbp)
mov    -0x24(%rbp),%eax
cmp    -0x8(%rbp),%eax
jge    11a8 <cs_ipvec+0xa8>
mov    -0x18(%rbp),%rax
movslq -0x24(%rbp),%rcx
movsd  (%rax,%rcx,8),%xmm0
movsd  %xmm0,-0x38(%rbp)
mov    -0x20(%rbp),%rax
mov    %rax,-0x30(%rbp)
cmpq   $0x0,-0x10(%rbp)
je     1180 <cs_ipvec+0x80>
mov    -0x10(%rbp),%rax
movslq -0x24(%rbp),%rcx
mov    (%rax,%rcx,4),%eax
mov    %eax,-0x3c(%rbp)
jmp    1186 <cs_ipvec+0x86>
mov    -0x24(%rbp),%eax
mov    %eax,-0x3c(%rbp)
mov    -0x30(%rbp),%rax
movsd  -0x38(%rbp),%xmm0
mov    -0x3c(%rbp),%ecx
movslq %ecx,%rcx
movsd  %xmm0,(%rax,%rcx,8)
mov    -0x24(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x24(%rbp)
jmp    113c <cs_ipvec+0x3c>
movl   $0x1,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<cs_ipvec>:
xor    %eax,%eax
test   %rdx,%rdx
je     113d <cs_ipvec+0x3d>
test   %rcx,%rcx
je     113d <cs_ipvec+0x3d>
mov    $0x1,%eax
test   %edi,%edi
jle    113d <cs_ipvec+0x3d>
mov    %edi,%r8d
cmp    $0x1,%edi
jne    113e <cs_ipvec+0x3e>
xor    %r11d,%r11d
test   $0x1,%r8b
je     113d <cs_ipvec+0x3d>
movsd  (%rdx,%r11,8),%xmm0
test   %rsi,%rsi
je     1135 <cs_ipvec+0x35>
mov    (%rsi,%r11,4),%r11d
movslq %r11d,%rdx
movsd  %xmm0,(%rcx,%rdx,8)
ret
mov    %r8d,%r9d
and    $0xfffffffe,%r9d
xor    %r11d,%r11d
jmp    116d <cs_ipvec+0x6d>
nopw   0x0(%rax,%rax,1)
mov    0x4(%rsi,%r11,4),%r10d
movsd  0x8(%rdx,%r11,8),%xmm0
movslq %r10d,%rdi
movsd  %xmm0,(%rcx,%rdi,8)
add    $0x2,%r11
cmp    %r11,%r9
je     1120 <cs_ipvec+0x20>
test   %rsi,%rsi
je     1180 <cs_ipvec+0x80>
mov    (%rsi,%r11,4),%r10d
jmp    1183 <cs_ipvec+0x83>
nopl   0x0(%rax,%rax,1)
mov    %r11d,%r10d
movsd  (%rdx,%r11,8),%xmm0
movslq %r10d,%rdi
movsd  %xmm0,(%rcx,%rdi,8)
test   %rsi,%rsi
jne    1150 <cs_ipvec+0x50>
lea    0x1(%r11),%r10
jmp    1155 <cs_ipvec+0x55>

LLVM IR (-O0):
define i32 @cs_ipvec(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* %10
%25 = sext i32 %24 to i64
%26 = getelementptr inbounds double, double* %23, i64 %25
%27 = load double, double* %26
%28 = load double*, double** %9
%29 = load i32*, i32** %7
%30 = icmp ne i32* %29, null
br i1 %30, label %31, label %37
31: ; preds = %22
%32 = load i32*, i32** %7
%33 = load i32, i32* %10
%34 = sext i32 %33 to i64
%35 = getelementptr inbounds i32, i32* %32, i64 %34
%36 = load i32, i32* %35
br label %39
37: ; preds = %22
%38 = load i32, i32* %10
br label %39
39: ; preds = %37, %31
%40 = phi i32 [ %36, %31 ], [ %38, %37 ]
%41 = sext i32 %40 to i64
%42 = getelementptr inbounds double, double* %28, i64 %41
store double %27, double* %42
br label %43
43: ; preds = %39
%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_ipvec(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 = %37, %15
%18 = phi i64 [ 0, %15 ], [ %41, %37 ]
%19 = phi i64 [ 0, %15 ], [ %42, %37 ]
%20 = getelementptr inbounds double, double* %2, i64 %18
%21 = load double, double* %20
%22 = trunc i64 %18 to i32
br i1 %11, label %26, label %23
23: ; preds = %17
%24 = getelementptr inbounds i32, i32* %1, i64 %18
%25 = load i32, i32* %24
br label %26
26: ; preds = %17, %23
%27 = phi i32 [ %25, %23 ], [ %22, %17 ]
%28 = sext i32 %27 to i64
%29 = getelementptr inbounds double, double* %3, i64 %28
store double %21, double* %29
%30 = or i64 %18, 1
%31 = getelementptr inbounds double, double* %2, i64 %30
%32 = load double, double* %31
%33 = trunc i64 %30 to i32
br i1 %11, label %37, label %34
34: ; preds = %26
%35 = getelementptr inbounds i32, i32* %1, i64 %30
%36 = load i32, i32* %35
br label %37
37: ; preds = %34, %26
%38 = phi i32 [ %36, %34 ], [ %33, %26 ]
%39 = sext i32 %38 to i64
%40 = getelementptr inbounds double, double* %3, i64 %39
store double %32, 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 = %37, %10
%45 = phi i64 [ 0, %10 ], [ %41, %37 ]
%46 = icmp eq i64 %13, 0
br i1 %46, label %58, label %47
47: ; preds = %44
%48 = getelementptr inbounds double, double* %2, i64 %45
%49 = load double, double* %48
%50 = trunc i64 %45 to i32
br i1 %11, label %54, label %51
51: ; preds = %47
%52 = getelementptr inbounds i32, i32* %1, i64 %45
%53 = load i32, i32* %52
br label %54
54: ; preds = %51, %47
%55 = phi i32 [ %53, %51 ], [ %50, %47 ]
%56 = sext i32 %55 to i64
%57 = getelementptr inbounds double, double* %3, i64 %56
store double %49, double* %57
br label %58
58: ; preds = %54, %44, %8, %4
%59 = phi i32 [ 0, %4 ], [ 1, %8 ], [ 1, %44 ], [ 1, %54 ]
ret i32 %59
}