void _SCOTCHintAscn(int *const permtab, const int permnbr, const int baseval) {
  int *permtax;
  int permnum;
  int permnnd;
  for (permnum = baseval, permnnd = baseval + permnbr,
      permtax = permtab - baseval;
       permnum < permnnd; permnum++)
    permtax[permnum] = permnum;
}


x86 assembly (clang, -O0):
<_SCOTCHintAscn>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
mov    -0x10(%rbp),%eax
mov    %eax,-0x1c(%rbp)
mov    -0x10(%rbp),%eax
add    -0xc(%rbp),%eax
mov    %eax,-0x20(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x10(%rbp),%rdx
xor    %ecx,%ecx
sub    %rdx,%rcx
shl    $0x2,%rcx
add    %rcx,%rax
mov    %rax,-0x18(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x20(%rbp),%eax
jge    115d <_SCOTCHintAscn+0x5d>
mov    -0x1c(%rbp),%edx
mov    -0x18(%rbp),%rax
movslq -0x1c(%rbp),%rcx
mov    %edx,(%rax,%rcx,4)
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    1135 <_SCOTCHintAscn+0x35>
pop    %rbp
ret

x86 assembly (clang, -O2):
<_SCOTCHintAscn>:
test   %esi,%esi
jle    128c <_SCOTCHintAscn+0x18c>
movslq %edx,%r8
add    %edx,%esi
movslq %esi,%rax
lea    0x1(%r8),%r9
cmp    %rax,%r9
cmovle %rax,%r9
sub    %r8,%r9
mov    %r8,%rsi
cmp    $0x8,%r9
jb     1278 <_SCOTCHintAscn+0x178>
mov    %r9,%rsi
and    $0xfffffffffffffff8,%rsi
movd   %edx,%xmm0
pshufd $0x0,%xmm0,%xmm0
paddd  0xebd(%rip),%xmm0
lea    -0x8(%rsi),%rcx
mov    %rcx,%rdx
shr    $0x3,%rdx
add    $0x1,%rdx
mov    %edx,%r10d
and    $0x3,%r10d
cmp    $0x18,%rcx
jae    1166 <_SCOTCHintAscn+0x66>
xor    %ecx,%ecx
jmp    1228 <_SCOTCHintAscn+0x128>
and    $0xfffffffffffffffc,%rdx
xor    %ecx,%ecx
movdqa 0xe9b(%rip),%xmm8
movdqa 0xea2(%rip),%xmm9
movdqa 0xea9(%rip),%xmm10
movdqa 0xeb1(%rip),%xmm4
movdqa 0xeb9(%rip),%xmm5
movdqa 0xec1(%rip),%xmm6
movdqa 0xec9(%rip),%xmm7
movdqa 0xed1(%rip),%xmm1
nop
movdqa %xmm0,%xmm2
paddd  %xmm8,%xmm2
movdqu %xmm0,(%rdi,%rcx,4)
movdqu %xmm2,0x10(%rdi,%rcx,4)
movdqa %xmm0,%xmm2
paddd  %xmm9,%xmm2
movdqa %xmm0,%xmm3
paddd  %xmm10,%xmm3
movdqu %xmm2,0x20(%rdi,%rcx,4)
movdqu %xmm3,0x30(%rdi,%rcx,4)
movdqa %xmm0,%xmm2
paddd  %xmm4,%xmm2
movdqa %xmm0,%xmm3
paddd  %xmm5,%xmm3
movdqu %xmm2,0x40(%rdi,%rcx,4)
movdqu %xmm3,0x50(%rdi,%rcx,4)
movdqa %xmm0,%xmm2
paddd  %xmm6,%xmm2
movdqa %xmm0,%xmm3
paddd  %xmm7,%xmm3
movdqu %xmm2,0x60(%rdi,%rcx,4)
movdqu %xmm3,0x70(%rdi,%rcx,4)
add    $0x20,%rcx
paddd  %xmm1,%xmm0
add    $0xfffffffffffffffc,%rdx
jne    11b0 <_SCOTCHintAscn+0xb0>
test   %r10,%r10
je     1270 <_SCOTCHintAscn+0x170>
lea    (%rdi,%rcx,4),%rcx
add    $0x10,%rcx
shl    $0x5,%r10
xor    %edx,%edx
movdqa 0xdcd(%rip),%xmm1
movdqa 0xdd5(%rip),%xmm2
nopl   0x0(%rax,%rax,1)
movdqa %xmm0,%xmm3
paddd  %xmm1,%xmm3
movdqu %xmm0,-0x10(%rcx,%rdx,1)
movdqu %xmm3,(%rcx,%rdx,1)
paddd  %xmm2,%xmm0
add    $0x20,%rdx
cmp    %rdx,%r10
jne    1250 <_SCOTCHintAscn+0x150>
cmp    %rsi,%r9
je     128c <_SCOTCHintAscn+0x18c>
add    %r8,%rsi
shl    $0x2,%r8
sub    %r8,%rdi
nop
mov    %esi,(%rdi,%rsi,4)
add    $0x1,%rsi
cmp    %rax,%rsi
jl     1280 <_SCOTCHintAscn+0x180>
ret

LLVM IR (-O0):
define void @_SCOTCHintAscn(i32* %0, i32 %1, i32 %2) {
%4 = alloca i32*
%5 = alloca i32
%6 = alloca i32
%7 = alloca i32*
%8 = alloca i32
%9 = alloca i32
store i32* %0, i32** %4
store i32 %1, i32* %5
store i32 %2, i32* %6
%10 = load i32, i32* %6
store i32 %10, i32* %8
%11 = load i32, i32* %6
%12 = load i32, i32* %5
%13 = add nsw i32 %11, %12
store i32 %13, i32* %9
%14 = load i32*, i32** %4
%15 = load i32, i32* %6
%16 = sext i32 %15 to i64
%17 = sub i64 0, %16
%18 = getelementptr inbounds i32, i32* %14, i64 %17
store i32* %18, i32** %7
br label %19
19: ; preds = %29, %3
%20 = load i32, i32* %8
%21 = load i32, i32* %9
%22 = icmp slt i32 %20, %21
br i1 %22, label %23, label %32
23: ; preds = %19
%24 = load i32, i32* %8
%25 = load i32*, i32** %7
%26 = load i32, i32* %8
%27 = sext i32 %26 to i64
%28 = getelementptr inbounds i32, i32* %25, i64 %27
store i32 %24, i32* %28
br label %29
29: ; preds = %23
%30 = load i32, i32* %8
%31 = add nsw i32 %30, 1
store i32 %31, i32* %8
br label %19
32: ; preds = %19
ret void
}

LLVM IR (-O2):
define void @_SCOTCHintAscn(i32* nocapture writeonly %0, i32 %1, i32 %2) {
%4 = sext i32 %2 to i64
%5 = sub nsw i64 0, %4
%6 = getelementptr inbounds i32, i32* %0, i64 %5
%7 = icmp sgt i32 %1, 0
br i1 %7, label %8, label %89
8: ; preds = %3
%9 = add nsw i32 %2, %1
%10 = sext i32 %9 to i64
%11 = add nsw i64 %4, 1
%12 = call i64 @llvm.smax.i64(i64 %11, i64 %10)
%13 = sub i64 %12, %4
%14 = icmp ult i64 %13, 8
br i1 %14, label %81, label %15
15: ; preds = %8
%16 = and i64 %13, -8
%17 = add i64 %16, %4
%18 = insertelement <4 x i32> poison, i32 %2, i64 0
%19 = shufflevector <4 x i32> %18, <4 x i32> poison, <4 x i32> zeroinitializer
%20 = add <4 x i32> %19, <i32 0, i32 1, i32 2, i32 3>
%21 = add i64 %16, -8
%22 = lshr exact i64 %21, 3
%23 = add nuw nsw i64 %22, 1
%24 = and i64 %23, 3
%25 = icmp ult i64 %21, 24
br i1 %25, label %62, label %26
26: ; preds = %15
%27 = and i64 %23, 4611686018427387900
br label %28
28: ; preds = %28, %26
%29 = phi i64 [ 0, %26 ], [ %58, %28 ]
%30 = phi <4 x i32> [ %20, %26 ], [ %59, %28 ]
%31 = phi i64 [ 0, %26 ], [ %60, %28 ]
%32 = add <4 x i32> %30, <i32 4, i32 4, i32 4, i32 4>
%33 = getelementptr inbounds i32, i32* %0, i64 %29
%34 = bitcast i32* %33 to <4 x i32>*
store <4 x i32> %30, <4 x i32>* %34
%35 = getelementptr inbounds i32, i32* %33, i64 4
%36 = bitcast i32* %35 to <4 x i32>*
store <4 x i32> %32, <4 x i32>* %36
%37 = or i64 %29, 8
%38 = add <4 x i32> %30, <i32 8, i32 8, i32 8, i32 8>
%39 = add <4 x i32> %30, <i32 12, i32 12, i32 12, i32 12>
%40 = getelementptr inbounds i32, i32* %0, i64 %37
%41 = bitcast i32* %40 to <4 x i32>*
store <4 x i32> %38, <4 x i32>* %41
%42 = getelementptr inbounds i32, i32* %40, i64 4
%43 = bitcast i32* %42 to <4 x i32>*
store <4 x i32> %39, <4 x i32>* %43
%44 = or i64 %29, 16
%45 = add <4 x i32> %30, <i32 16, i32 16, i32 16, i32 16>
%46 = add <4 x i32> %30, <i32 20, i32 20, i32 20, i32 20>
%47 = getelementptr inbounds i32, i32* %0, i64 %44
%48 = bitcast i32* %47 to <4 x i32>*
store <4 x i32> %45, <4 x i32>* %48
%49 = getelementptr inbounds i32, i32* %47, i64 4
%50 = bitcast i32* %49 to <4 x i32>*
store <4 x i32> %46, <4 x i32>* %50
%51 = or i64 %29, 24
%52 = add <4 x i32> %30, <i32 24, i32 24, i32 24, i32 24>
%53 = add <4 x i32> %30, <i32 28, i32 28, i32 28, i32 28>
%54 = getelementptr inbounds i32, i32* %0, i64 %51
%55 = bitcast i32* %54 to <4 x i32>*
store <4 x i32> %52, <4 x i32>* %55
%56 = getelementptr inbounds i32, i32* %54, i64 4
%57 = bitcast i32* %56 to <4 x i32>*
store <4 x i32> %53, <4 x i32>* %57
%58 = add nuw i64 %29, 32
%59 = add <4 x i32> %30, <i32 32, i32 32, i32 32, i32 32>
%60 = add i64 %31, 4
%61 = icmp eq i64 %60, %27
br i1 %61, label %62, label %28
62: ; preds = %28, %15
%63 = phi i64 [ 0, %15 ], [ %58, %28 ]
%64 = phi <4 x i32> [ %20, %15 ], [ %59, %28 ]
%65 = icmp eq i64 %24, 0
br i1 %65, label %79, label %66
66: ; preds = %62, %66
%67 = phi i64 [ %75, %66 ], [ %63, %62 ]
%68 = phi <4 x i32> [ %76, %66 ], [ %64, %62 ]
%69 = phi i64 [ %77, %66 ], [ 0, %62 ]
%70 = add <4 x i32> %68, <i32 4, i32 4, i32 4, i32 4>
%71 = getelementptr inbounds i32, i32* %0, i64 %67
%72 = bitcast i32* %71 to <4 x i32>*
store <4 x i32> %68, <4 x i32>* %72
%73 = getelementptr inbounds i32, i32* %71, i64 4
%74 = bitcast i32* %73 to <4 x i32>*
store <4 x i32> %70, <4 x i32>* %74
%75 = add nuw i64 %67, 8
%76 = add <4 x i32> %68, <i32 8, i32 8, i32 8, i32 8>
%77 = add i64 %69, 1
%78 = icmp eq i64 %77, %24
br i1 %78, label %79, label %66
79: ; preds = %66, %62
%80 = icmp eq i64 %13, %16
br i1 %80, label %89, label %81
81: ; preds = %8, %79
%82 = phi i64 [ %4, %8 ], [ %17, %79 ]
br label %83
83: ; preds = %81, %83
%84 = phi i64 [ %87, %83 ], [ %82, %81 ]
%85 = getelementptr inbounds i32, i32* %6, i64 %84
%86 = trunc i64 %84 to i32
store i32 %86, i32* %85
%87 = add nsw i64 %84, 1
%88 = icmp slt i64 %87, %10
br i1 %88, label %83, label %89
89: ; preds = %83, %79, %3
ret void
}