void scale(long *alpha, long *x, int n) {
  int i, ix;
  if (*alpha != 1)
    for (i = 0, ix = 0; i < n; i++, ix += 2) {
      long tmpr, tmpi;
      tmpr = *alpha * x[ix];
      tmpi = *alpha * x[ix + 1];
      x[ix] = tmpr;
      x[ix + 1] = tmpi;
    }
}


x86 assembly (clang, -O0):
<scale>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    -0x8(%rbp),%rax
cmpq   $0x1,(%rax)
je     11ad <scale+0xad>
movl   $0x0,-0x18(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x18(%rbp),%eax
cmp    -0x14(%rbp),%eax
jge    11a8 <scale+0xa8>
mov    -0x8(%rbp),%rax
mov    (%rax),%rax
mov    -0x10(%rbp),%rcx
movslq -0x1c(%rbp),%rdx
imul   (%rcx,%rdx,8),%rax
mov    %rax,-0x28(%rbp)
mov    -0x8(%rbp),%rax
mov    (%rax),%rax
mov    -0x10(%rbp),%rcx
mov    -0x1c(%rbp),%edx
add    $0x1,%edx
movslq %edx,%rdx
imul   (%rcx,%rdx,8),%rax
mov    %rax,-0x30(%rbp)
mov    -0x28(%rbp),%rdx
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    %rdx,(%rax,%rcx,8)
mov    -0x30(%rbp),%rdx
mov    -0x10(%rbp),%rax
mov    -0x1c(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
mov    %rdx,(%rax,%rcx,8)
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
mov    -0x1c(%rbp),%eax
add    $0x2,%eax
mov    %eax,-0x1c(%rbp)
jmp    112b <scale+0x2b>
jmp    11ad <scale+0xad>
pop    %rbp
ret

x86 assembly (clang, -O2):
<scale>:
mov    (%rdi),%rax
cmp    $0x1,%rax
je     11ba <scale+0xba>
test   %edx,%edx
jle    11ba <scale+0xba>
mov    (%rsi),%rcx
imul   %rax,%rcx
imul   0x8(%rsi),%rax
mov    %rcx,(%rsi)
mov    %rax,0x8(%rsi)
cmp    $0x1,%edx
je     11ba <scale+0xba>
lea    -0x1(%rdx),%r8d
mov    $0x2,%eax
cmp    $0x2,%edx
je     1190 <scale+0x90>
mov    %r8d,%r9d
and    $0xfffffffe,%r9d
mov    $0x2,%eax
nopl   0x0(%rax,%rax,1)
mov    (%rdi),%rcx
mov    (%rsi,%rax,8),%rdx
imul   %rcx,%rdx
imul   0x8(%rsi,%rax,8),%rcx
mov    %rdx,(%rsi,%rax,8)
mov    %rcx,0x8(%rsi,%rax,8)
mov    (%rdi),%rcx
mov    0x10(%rsi,%rax,8),%rdx
imul   %rcx,%rdx
imul   0x18(%rsi,%rax,8),%rcx
mov    %rdx,0x10(%rsi,%rax,8)
mov    %rcx,0x18(%rsi,%rax,8)
add    $0x4,%rax
add    $0xfffffffe,%r9d
jne    1150 <scale+0x50>
test   $0x1,%r8b
je     11ba <scale+0xba>
mov    (%rdi),%rcx
lea    0x0(,%rax,8),%rdx
mov    (%rsi,%rax,8),%rdi
imul   %rcx,%rdi
or     $0x8,%rdx
imul   (%rsi,%rdx,1),%rcx
mov    %rdi,(%rsi,%rax,8)
mov    %rcx,(%rsi,%rdx,1)
ret

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

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