long _pack(long *up, char *cp, long bc, int tc) {
  int i;
  int narg;
  narg = 4;
  if (narg < 3 || bc < 0)
    return (-1);
  for (i = 0; i < bc; i++) {
    cp[i] = up[i];
  }
  if (narg > 3 && tc != -1) {
    if (tc < 0 || tc > 0177)
      return (-1);
    cp[i++] = tc;
  }
  return (i);
}


x86 assembly (clang, -O0):
<_pack>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %rdx,-0x20(%rbp)
mov    %ecx,-0x24(%rbp)
movl   $0x4,-0x2c(%rbp)
cmpl   $0x3,-0x2c(%rbp)
jl     112f <_pack+0x2f>
cmpq   $0x0,-0x20(%rbp)
jge    113c <_pack+0x3c>
movq   $0xffffffffffffffff,-0x8(%rbp)
ff
jmp    11cf <_pack+0xcf>
movl   $0x0,-0x28(%rbp)
movslq -0x28(%rbp),%rax
cmp    -0x20(%rbp),%rax
jge    1178 <_pack+0x78>
mov    -0x10(%rbp),%rax
movslq -0x28(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    %al,%dl
mov    -0x18(%rbp),%rax
movslq -0x28(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x28(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x28(%rbp)
jmp    1143 <_pack+0x43>
cmpl   $0x3,-0x2c(%rbp)
jle    11c7 <_pack+0xc7>
cmpl   $0xffffffff,-0x24(%rbp)
je     11c7 <_pack+0xc7>
cmpl   $0x0,-0x24(%rbp)
jl     11a0 <_pack+0xa0>
cmpl   $0x7f,-0x24(%rbp)
jle    11ad <_pack+0xad>
movq   $0xffffffffffffffff,-0x8(%rbp)
ff
jmp    11cf <_pack+0xcf>
mov    -0x24(%rbp),%eax
mov    %al,%dl
mov    -0x18(%rbp),%rax
mov    -0x28(%rbp),%ecx
mov    %ecx,%esi
add    $0x1,%esi
mov    %esi,-0x28(%rbp)
movslq %ecx,%rcx
mov    %dl,(%rax,%rcx,1)
movslq -0x28(%rbp),%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<_pack>:
mov    $0xffffffffffffffff,%rax
test   %rdx,%rdx
js     11b7 <_pack+0xb7>
je     1128 <_pack+0x28>
lea    -0x1(%rdx),%r9
mov    %edx,%r8d
and    $0x3,%r8d
cmp    $0x3,%r9
jae    112c <_pack+0x2c>
xor    %r9d,%r9d
jmp    1173 <_pack+0x73>
xor    %edx,%edx
jmp    11a2 <_pack+0xa2>
mov    %rdx,%r10
and    $0xfffffffffffffffc,%r10
xor    %r9d,%r9d
cs nopw 0x0(%rax,%rax,1)
movzbl (%rdi,%r9,8),%r11d
mov    %r11b,(%rsi,%r9,1)
movzbl 0x8(%rdi,%r9,8),%r11d
mov    %r11b,0x1(%rsi,%r9,1)
movzbl 0x10(%rdi,%r9,8),%r11d
mov    %r11b,0x2(%rsi,%r9,1)
movzbl 0x18(%rdi,%r9,8),%r11d
mov    %r11b,0x3(%rsi,%r9,1)
add    $0x4,%r9
cmp    %r9,%r10
jne    1140 <_pack+0x40>
test   %r8,%r8
je     11a2 <_pack+0xa2>
lea    (%rsi,%r9,1),%r10
lea    (%rdi,%r9,8),%r9
xor    %edi,%edi
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax)
movzbl (%r9,%rdi,8),%r11d
mov    %r11b,(%r10,%rdi,1)
add    $0x1,%rdi
cmp    %rdi,%r8
jne    1190 <_pack+0x90>
cmp    $0xffffffff,%ecx
je     11b4 <_pack+0xb4>
cmp    $0x7f,%ecx
ja     11b7 <_pack+0xb7>
mov    %edx,%eax
add    $0x1,%edx
mov    %cl,(%rsi,%rax,1)
movslq %edx,%rax
ret

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

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