void agile_bit_set(unsigned char *bits, int pos, int state) {
  unsigned char mask;
  int i;
  mask = 0x80;
  for (i = 0; i < (pos % 8); ++i)
    mask >>= 1;
  if (state)
    bits[pos / 8] |= mask;
  else
    bits[pos / 8] &= ~mask;
}


x86 assembly (clang, -O0):
<agile_bit_set>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
movb   $0x80,-0x11(%rbp)
movl   $0x0,-0x18(%rbp)
mov    -0x18(%rbp),%eax
mov    %eax,-0x1c(%rbp)
mov    -0xc(%rbp),%eax
mov    $0x8,%ecx
cltd
idiv   %ecx
mov    -0x1c(%rbp),%eax
cmp    %edx,%eax
jge    114d <agile_bit_set+0x4d>
movzbl -0x11(%rbp),%eax
sar    $0x1,%eax
mov    %al,-0x11(%rbp)
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
jmp    1119 <agile_bit_set+0x19>
cmpl   $0x0,-0x10(%rbp)
je     1185 <agile_bit_set+0x85>
movzbl -0x11(%rbp),%esi
mov    -0x8(%rbp),%rax
mov    %rax,-0x28(%rbp)
mov    -0xc(%rbp),%eax
mov    $0x8,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x28(%rbp),%rax
movslq %ecx,%rcx
movzbl (%rax,%rcx,1),%edx
or     %esi,%edx
mov    %dl,(%rax,%rcx,1)
jmp    11b1 <agile_bit_set+0xb1>
movzbl -0x11(%rbp),%esi
xor    $0xffffffff,%esi
mov    -0x8(%rbp),%rax
mov    %rax,-0x30(%rbp)
mov    -0xc(%rbp),%eax
mov    $0x8,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x30(%rbp),%rax
movslq %ecx,%rcx
movzbl (%rax,%rcx,1),%edx
and    %esi,%edx
mov    %dl,(%rax,%rcx,1)
pop    %rbp
ret

x86 assembly (clang, -O2):
<agile_bit_set>:
lea    0x7(%rsi),%eax
test   %esi,%esi
cmovns %esi,%eax
mov    %eax,%ecx
and    $0xfffffff8,%ecx
sub    %ecx,%esi
sar    $0x3,%eax
test   %esi,%esi
jle    1136 <agile_bit_set+0x36>
add    $0xffffffff,%esi
cmp    $0x5,%esi
ja     114f <agile_bit_set+0x4f>
mov    $0x40,%r9b
lea    0xed8(%rip),%r8
movslq (%r8,%rsi,4),%rsi
add    %r8,%rsi
jmp    *%rsi
mov    $0x20,%r9b
jmp    1152 <agile_bit_set+0x52>
mov    $0x80,%r9b
jmp    1152 <agile_bit_set+0x52>
mov    $0x10,%r9b
jmp    1152 <agile_bit_set+0x52>
mov    $0x8,%r9b
jmp    1152 <agile_bit_set+0x52>
mov    $0x4,%r9b
jmp    1152 <agile_bit_set+0x52>
mov    $0x2,%r9b
jmp    1152 <agile_bit_set+0x52>
mov    $0x1,%r9b
movslq %eax,%rsi
mov    (%rdi,%rsi,1),%cl
mov    %r9d,%eax
not    %al
and    %cl,%al
or     %r9b,%cl
test   %edx,%edx
movzbl %al,%eax
movzbl %cl,%ecx
cmove  %eax,%ecx
mov    %cl,(%rdi,%rsi,1)
ret

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

LLVM IR (-O2):
define void @agile_bit_set(i8* nocapture %0, i32 %1, i32 %2) {
%4 = srem i32 %1, 8
%5 = sdiv i32 %1, 8
%6 = icmp sgt i32 %4, 0
br i1 %6, label %7, label %14
7: ; preds = %3
switch i32 %4, label %8 [
i32 1, label %14
i32 2, label %9
i32 3, label %10
i32 4, label %11
i32 5, label %12
i32 6, label %13
]
8: ; preds = %7
br label %14
9: ; preds = %7
br label %14
10: ; preds = %7
br label %14
11: ; preds = %7
br label %14
12: ; preds = %7
br label %14
13: ; preds = %7
br label %14
14: ; preds = %8, %9, %10, %11, %12, %13, %7, %3
%15 = phi i8 [ -128, %3 ], [ 64, %7 ], [ 1, %8 ], [ 32, %9 ], [ 16, %10 ], [ 8, %11 ], [ 4, %12 ], [ 2, %13 ]
%16 = icmp eq i32 %2, 0
%17 = sext i32 %5 to i64
%18 = getelementptr inbounds i8, i8* %0, i64 %17
%19 = load i8, i8* %18
%20 = xor i8 %15, -1
%21 = and i8 %19, %20
%22 = or i8 %19, %15
%23 = select i1 %16, i8 %21, i8 %22
store i8 %23, i8* %18
ret void
}