int halfedgeperm_pack(array_in)
int array_in[8];
{
  int temp_arr[4], halfedgeloc_arr[8], ii, count;
  count = 0;
  for (ii = 0; ii < 8; ii++) {
    if (array_in[ii] != 0)
      temp_arr[count++] = array_in[ii] - 1;
    halfedgeloc_arr[ii] = (array_in[ii] != 0);
  }
  return perm_n_pack(4, temp_arr) * 70 + halfedgeloc_pack(halfedgeloc_arr);
}


x86 assembly (clang, -O0):
<halfedgeperm_pack>:
push   %rbp
mov    %rsp,%rbp
sub    $0x50,%rsp
mov    %rdi,-0x8(%rbp)
movl   $0x0,-0x48(%rbp)
movl   $0x0,-0x44(%rbp)
cmpl   $0x8,-0x44(%rbp)
jge    119f <halfedgeperm_pack+0x7f>
mov    -0x8(%rbp),%rax
movslq -0x44(%rbp),%rcx
cmpl   $0x0,(%rax,%rcx,4)
je     1175 <halfedgeperm_pack+0x55>
mov    -0x8(%rbp),%rax
movslq -0x44(%rbp),%rcx
mov    (%rax,%rcx,4),%ecx
sub    $0x1,%ecx
mov    -0x48(%rbp),%eax
mov    %eax,%edx
add    $0x1,%edx
mov    %edx,-0x48(%rbp)
cltq
mov    %ecx,-0x20(%rbp,%rax,4)
mov    -0x8(%rbp),%rax
movslq -0x44(%rbp),%rcx
cmpl   $0x0,(%rax,%rcx,4)
setne  %al
and    $0x1,%al
movzbl %al,%ecx
movslq -0x44(%rbp),%rax
mov    %ecx,-0x40(%rbp,%rax,4)
mov    -0x44(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x44(%rbp)
jmp    113a <halfedgeperm_pack+0x1a>
lea    -0x20(%rbp),%rsi
mov    $0x4,%edi
mov    $0x0,%al
call   1030 <perm_n_pack@plt>
imul   $0x46,%eax,%eax
mov    %eax,-0x4c(%rbp)
lea    -0x40(%rbp),%rdi
mov    $0x0,%al
call   1040 <halfedgeloc_pack@plt>
mov    %eax,%ecx
mov    -0x4c(%rbp),%eax
add    %ecx,%eax
add    $0x50,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<halfedgeperm_pack>:
push   %rbx
sub    $0x30,%rsp
mov    (%rdi),%ecx
test   %ecx,%ecx
je     1138 <halfedgeperm_pack+0x18>
lea    -0x1(%rcx),%eax
mov    %eax,(%rsp)
mov    $0x1,%eax
jmp    113a <halfedgeperm_pack+0x1a>
xor    %eax,%eax
xor    %edx,%edx
test   %ecx,%ecx
setne  %dl
mov    %edx,0x10(%rsp)
mov    0x4(%rdi),%ecx
test   %ecx,%ecx
je     1157 <halfedgeperm_pack+0x37>
lea    -0x1(%rcx),%edx
mov    %eax,%esi
add    $0x1,%eax
mov    %edx,(%rsp,%rsi,4)
xor    %edx,%edx
test   %ecx,%ecx
setne  %dl
mov    %edx,0x14(%rsp)
mov    0x8(%rdi),%ecx
test   %ecx,%ecx
je     1174 <halfedgeperm_pack+0x54>
lea    -0x1(%rcx),%edx
mov    %eax,%esi
add    $0x1,%eax
mov    %edx,(%rsp,%rsi,4)
xor    %edx,%edx
test   %ecx,%ecx
setne  %dl
mov    %edx,0x18(%rsp)
mov    0xc(%rdi),%ecx
test   %ecx,%ecx
je     1191 <halfedgeperm_pack+0x71>
lea    -0x1(%rcx),%edx
mov    %eax,%esi
add    $0x1,%eax
mov    %edx,(%rsp,%rsi,4)
xor    %edx,%edx
test   %ecx,%ecx
setne  %dl
mov    %edx,0x1c(%rsp)
mov    0x10(%rdi),%ecx
test   %ecx,%ecx
je     11ae <halfedgeperm_pack+0x8e>
lea    -0x1(%rcx),%edx
mov    %eax,%esi
add    $0x1,%eax
mov    %edx,(%rsp,%rsi,4)
xor    %edx,%edx
test   %ecx,%ecx
setne  %dl
mov    %edx,0x20(%rsp)
mov    0x14(%rdi),%ecx
test   %ecx,%ecx
je     11cb <halfedgeperm_pack+0xab>
lea    -0x1(%rcx),%edx
mov    %eax,%esi
add    $0x1,%eax
mov    %edx,(%rsp,%rsi,4)
xor    %edx,%edx
test   %ecx,%ecx
setne  %dl
mov    %edx,0x24(%rsp)
mov    0x18(%rdi),%ecx
test   %ecx,%ecx
je     11e8 <halfedgeperm_pack+0xc8>
lea    -0x1(%rcx),%edx
mov    %eax,%esi
add    $0x1,%eax
mov    %edx,(%rsp,%rsi,4)
xor    %edx,%edx
test   %ecx,%ecx
setne  %dl
mov    %edx,0x28(%rsp)
mov    0x1c(%rdi),%ecx
test   %ecx,%ecx
je     1202 <halfedgeperm_pack+0xe2>
lea    -0x1(%rcx),%edx
mov    %eax,%eax
mov    %edx,(%rsp,%rax,4)
xor    %eax,%eax
test   %ecx,%ecx
setne  %al
mov    %eax,0x2c(%rsp)
mov    %rsp,%rsi
mov    $0x4,%edi
xor    %eax,%eax
call   1030 <perm_n_pack@plt>
imul   $0x46,%eax,%ebx
lea    0x10(%rsp),%rdi
xor    %eax,%eax
call   1040 <halfedgeloc_pack@plt>
add    %ebx,%eax
add    $0x30,%rsp
pop    %rbx
ret

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

LLVM IR (-O2):
define i32 @halfedgeperm_pack(i32* nocapture %0) {
%2 = alloca [4 x i32]
%3 = alloca [8 x i32]
%4 = bitcast [4 x i32]* %2 to i8*
%5 = bitcast [8 x i32]* %3 to i8*
%6 = load i32, i32* %0
%7 = icmp eq i32 %6, 0
br i1 %7, label %11, label %8
8: ; preds = %1
%9 = add nsw i32 %6, -1
%10 = getelementptr inbounds [4 x i32], [4 x i32]* %2, i64 0, i64 0
store i32 %9, i32* %10
br label %11
11: ; preds = %8, %1
%12 = phi i32 [ 1, %8 ], [ 0, %1 ]
%13 = icmp ne i32 %6, 0
%14 = zext i1 %13 to i32
%15 = getelementptr inbounds [8 x i32], [8 x i32]* %3, i64 0, i64 0
store i32 %14, i32* %15
%16 = getelementptr inbounds i32, i32* %0, i64 1
%17 = load i32, i32* %16
%18 = icmp eq i32 %17, 0
br i1 %18, label %24, label %19
19: ; preds = %11
%20 = add nsw i32 %17, -1
%21 = add nuw nsw i32 %12, 1
%22 = zext i32 %12 to i64
%23 = getelementptr inbounds [4 x i32], [4 x i32]* %2, i64 0, i64 %22
store i32 %20, i32* %23
br label %24
24: ; preds = %19, %11
%25 = phi i32 [ %21, %19 ], [ %12, %11 ]
%26 = icmp ne i32 %17, 0
%27 = zext i1 %26 to i32
%28 = getelementptr inbounds [8 x i32], [8 x i32]* %3, i64 0, i64 1
store i32 %27, i32* %28
%29 = getelementptr inbounds i32, i32* %0, i64 2
%30 = load i32, i32* %29
%31 = icmp eq i32 %30, 0
br i1 %31, label %37, label %32
32: ; preds = %24
%33 = add nsw i32 %30, -1
%34 = add nuw nsw i32 %25, 1
%35 = zext i32 %25 to i64
%36 = getelementptr inbounds [4 x i32], [4 x i32]* %2, i64 0, i64 %35
store i32 %33, i32* %36
br label %37
37: ; preds = %32, %24
%38 = phi i32 [ %34, %32 ], [ %25, %24 ]
%39 = icmp ne i32 %30, 0
%40 = zext i1 %39 to i32
%41 = getelementptr inbounds [8 x i32], [8 x i32]* %3, i64 0, i64 2
store i32 %40, i32* %41
%42 = getelementptr inbounds i32, i32* %0, i64 3
%43 = load i32, i32* %42
%44 = icmp eq i32 %43, 0
br i1 %44, label %50, label %45
45: ; preds = %37
%46 = add nsw i32 %43, -1
%47 = add nuw nsw i32 %38, 1
%48 = zext i32 %38 to i64
%49 = getelementptr inbounds [4 x i32], [4 x i32]* %2, i64 0, i64 %48
store i32 %46, i32* %49
br label %50
50: ; preds = %45, %37
%51 = phi i32 [ %47, %45 ], [ %38, %37 ]
%52 = icmp ne i32 %43, 0
%53 = zext i1 %52 to i32
%54 = getelementptr inbounds [8 x i32], [8 x i32]* %3, i64 0, i64 3
store i32 %53, i32* %54
%55 = getelementptr inbounds i32, i32* %0, i64 4
%56 = load i32, i32* %55
%57 = icmp eq i32 %56, 0
br i1 %57, label %63, label %58
58: ; preds = %50
%59 = add nsw i32 %56, -1
%60 = add nuw nsw i32 %51, 1
%61 = zext i32 %51 to i64
%62 = getelementptr inbounds [4 x i32], [4 x i32]* %2, i64 0, i64 %61
store i32 %59, i32* %62
br label %63
63: ; preds = %58, %50
%64 = phi i32 [ %60, %58 ], [ %51, %50 ]
%65 = icmp ne i32 %56, 0
%66 = zext i1 %65 to i32
%67 = getelementptr inbounds [8 x i32], [8 x i32]* %3, i64 0, i64 4
store i32 %66, i32* %67
%68 = getelementptr inbounds i32, i32* %0, i64 5
%69 = load i32, i32* %68
%70 = icmp eq i32 %69, 0
br i1 %70, label %76, label %71
71: ; preds = %63
%72 = add nsw i32 %69, -1
%73 = add nuw nsw i32 %64, 1
%74 = zext i32 %64 to i64
%75 = getelementptr inbounds [4 x i32], [4 x i32]* %2, i64 0, i64 %74
store i32 %72, i32* %75
br label %76
76: ; preds = %71, %63
%77 = phi i32 [ %73, %71 ], [ %64, %63 ]
%78 = icmp ne i32 %69, 0
%79 = zext i1 %78 to i32
%80 = getelementptr inbounds [8 x i32], [8 x i32]* %3, i64 0, i64 5
store i32 %79, i32* %80
%81 = getelementptr inbounds i32, i32* %0, i64 6
%82 = load i32, i32* %81
%83 = icmp eq i32 %82, 0
br i1 %83, label %89, label %84
84: ; preds = %76
%85 = add nsw i32 %82, -1
%86 = add nuw nsw i32 %77, 1
%87 = zext i32 %77 to i64
%88 = getelementptr inbounds [4 x i32], [4 x i32]* %2, i64 0, i64 %87
store i32 %85, i32* %88
br label %89
89: ; preds = %84, %76
%90 = phi i32 [ %86, %84 ], [ %77, %76 ]
%91 = icmp ne i32 %82, 0
%92 = zext i1 %91 to i32
%93 = getelementptr inbounds [8 x i32], [8 x i32]* %3, i64 0, i64 6
store i32 %92, i32* %93
%94 = getelementptr inbounds i32, i32* %0, i64 7
%95 = load i32, i32* %94
%96 = icmp eq i32 %95, 0
br i1 %96, label %101, label %97
97: ; preds = %89
%98 = add nsw i32 %95, -1
%99 = zext i32 %90 to i64
%100 = getelementptr inbounds [4 x i32], [4 x i32]* %2, i64 0, i64 %99
store i32 %98, i32* %100
br label %101
101: ; preds = %97, %89
%102 = icmp ne i32 %95, 0
%103 = zext i1 %102 to i32
%104 = getelementptr inbounds [8 x i32], [8 x i32]* %3, i64 0, i64 7
store i32 %103, i32* %104
%105 = getelementptr inbounds [4 x i32], [4 x i32]* %2, i64 0, i64 0
%106 = call i32 (i32, i32*, ...) bitcast (i32 (...)* @perm_n_pack to i32 (i32, i32*, ...)*)(i32 4, i32* %105)
%107 = mul nsw i32 %106, 70
%108 = call i32 (i32*, ...) bitcast (i32 (...)* @halfedgeloc_pack to i32 (i32*, ...)*)(i32* %15)
%109 = add nsw i32 %107, %108
ret i32 %109
}