void bitwrite_32(register unsigned int *e, register unsigned int p,
                 register unsigned int len, register unsigned int s) {
  e += p / 32;
  p %= 32;
  if (len == 32) {
    *e |= (*e & ((1 << p) - 1)) | (s << p);
    if (!p)
      return;
    e++;
    *e = (*e & ~((1 << p) - 1)) | (s >> (32 - p));
  } else {
    if (p + len <= 32) {
      *e = (*e & ~(((1 << len) - 1) << p)) | (s << p);
      return;
    }
    *e = (*e & ((1 << p) - 1)) | (s << p);
    e++;
    len -= 32 - p;
    *e = (*e & ~((1 << len) - 1)) | (s >> (32 - p));
  }
}


x86 assembly (clang, -O0):
<bitwrite_32>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
mov    %ecx,-0x14(%rbp)
mov    -0xc(%rbp),%ecx
shr    $0x5,%ecx
mov    -0x8(%rbp),%rax
mov    %ecx,%ecx
shl    $0x2,%rcx
add    %rcx,%rax
mov    %rax,-0x8(%rbp)
mov    -0xc(%rbp),%eax
and    $0x1f,%eax
mov    %eax,-0xc(%rbp)
cmpl   $0x20,-0x10(%rbp)
jne    11bf <bitwrite_32+0xbf>
mov    -0x8(%rbp),%rax
mov    (%rax),%eax
mov    -0xc(%rbp),%ecx
mov    $0x1,%edx
shl    %cl,%edx
mov    %edx,%ecx
sub    $0x1,%ecx
and    %ecx,%eax
mov    %eax,-0x18(%rbp)
mov    -0x14(%rbp),%eax
mov    -0xc(%rbp),%ecx
shl    %cl,%eax
mov    -0x18(%rbp),%ecx
or     %eax,%ecx
mov    -0x8(%rbp),%rax
or     (%rax),%ecx
mov    %ecx,(%rax)
cmpl   $0x0,-0xc(%rbp)
jne    1179 <bitwrite_32+0x79>
jmp    1286 <bitwrite_32+0x186>
mov    -0x8(%rbp),%rax
add    $0x4,%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
mov    (%rax),%eax
mov    -0xc(%rbp),%ecx
mov    $0x1,%edx
shl    %cl,%edx
mov    %edx,%ecx
sub    $0x1,%ecx
xor    $0xffffffff,%ecx
and    %ecx,%eax
mov    %eax,-0x1c(%rbp)
mov    -0x14(%rbp),%eax
mov    $0x20,%ecx
sub    -0xc(%rbp),%ecx
shr    %cl,%eax
mov    -0x1c(%rbp),%ecx
or     %eax,%ecx
mov    -0x8(%rbp),%rax
mov    %ecx,(%rax)
jmp    1286 <bitwrite_32+0x186>
mov    -0xc(%rbp),%eax
add    -0x10(%rbp),%eax
cmp    $0x20,%eax
ja     1208 <bitwrite_32+0x108>
mov    -0x8(%rbp),%rax
mov    (%rax),%eax
mov    -0x10(%rbp),%ecx
mov    $0x1,%edx
shl    %cl,%edx
sub    $0x1,%edx
mov    -0xc(%rbp),%ecx
shl    %cl,%edx
mov    %edx,%ecx
xor    $0xffffffff,%ecx
and    %ecx,%eax
mov    %eax,-0x20(%rbp)
mov    -0x14(%rbp),%eax
mov    -0xc(%rbp),%ecx
shl    %cl,%eax
mov    -0x20(%rbp),%ecx
or     %eax,%ecx
mov    -0x8(%rbp),%rax
mov    %ecx,(%rax)
jmp    1286 <bitwrite_32+0x186>
mov    -0x8(%rbp),%rax
mov    (%rax),%eax
mov    -0xc(%rbp),%ecx
mov    $0x1,%edx
shl    %cl,%edx
mov    %edx,%ecx
sub    $0x1,%ecx
and    %ecx,%eax
mov    %eax,-0x28(%rbp)
mov    -0x14(%rbp),%eax
mov    -0xc(%rbp),%ecx
shl    %cl,%eax
mov    -0x28(%rbp),%ecx
or     %eax,%ecx
mov    -0x8(%rbp),%rax
mov    %ecx,(%rax)
mov    -0x8(%rbp),%rax
add    $0x4,%rax
mov    %rax,-0x8(%rbp)
mov    $0x20,%ecx
sub    -0xc(%rbp),%ecx
mov    -0x10(%rbp),%eax
sub    %ecx,%eax
mov    %eax,-0x10(%rbp)
mov    -0x8(%rbp),%rax
mov    (%rax),%eax
mov    -0x10(%rbp),%ecx
mov    $0x1,%edx
shl    %cl,%edx
mov    %edx,%ecx
sub    $0x1,%ecx
xor    $0xffffffff,%ecx
and    %ecx,%eax
mov    %eax,-0x24(%rbp)
mov    -0x14(%rbp),%eax
mov    $0x20,%ecx
sub    -0xc(%rbp),%ecx
shr    %cl,%eax
mov    -0x24(%rbp),%ecx
or     %eax,%ecx
mov    -0x8(%rbp),%rax
mov    %ecx,(%rax)
pop    %rbp
ret

x86 assembly (clang, -O2):
<bitwrite_32>:
mov    %ecx,%r8d
mov    %esi,%r10d
shr    $0x5,%r10d
and    $0x1f,%esi
cmp    $0x20,%edx
jne    1134 <bitwrite_32+0x34>
mov    %r8d,%edx
mov    %esi,%ecx
shl    %cl,%edx
or     %edx,(%rdi,%r10,4)
test   %esi,%esi
je     1197 <bitwrite_32+0x97>
mov    0x4(%rdi,%r10,4),%edx
mov    %esi,%ecx
shr    %cl,%edx
shld   %cl,%r8d,%edx
mov    %edx,0x4(%rdi,%r10,4)
ret
lea    (%rsi,%rdx,1),%ecx
mov    (%rdi,%r10,4),%r9d
mov    $0xffffffff,%eax
cmp    $0x20,%ecx
ja     115f <bitwrite_32+0x5f>
mov    %edx,%ecx
shl    %cl,%eax
not    %eax
mov    %esi,%ecx
shl    %cl,%eax
shl    %cl,%r8d
not    %eax
and    %eax,%r9d
or     %r9d,%r8d
mov    %r8d,(%rdi,%r10,4)
ret
mov    %esi,%ecx
shl    %cl,%eax
not    %eax
and    %eax,%r9d
mov    %r8d,%eax
shl    %cl,%eax
or     %r9d,%eax
mov    %eax,(%rdi,%r10,4)
mov    $0x20,%eax
sub    %esi,%eax
sub    %eax,%edx
mov    0x4(%rdi,%r10,4),%eax
mov    %edx,%ecx
shr    %cl,%eax
shl    %cl,%eax
neg    %esi
mov    %esi,%ecx
shr    %cl,%r8d
or     %eax,%r8d
mov    %r8d,0x4(%rdi,%r10,4)
ret

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

LLVM IR (-O2):
define void @bitwrite_32(i32* nocapture %0, i32 %1, i32 %2, i32 %3) {
%5 = lshr i32 %1, 5
%6 = zext i32 %5 to i64
%7 = getelementptr inbounds i32, i32* %0, i64 %6
%8 = and i32 %1, 31
%9 = icmp eq i32 %2, 32
br i1 %9, label %10, label %23
10: ; preds = %4
%11 = load i32, i32* %7
%12 = shl i32 %3, %8
%13 = or i32 %11, %12
store i32 %13, i32* %7
%14 = icmp eq i32 %8, 0
br i1 %14, label %49, label %15
15: ; preds = %10
%16 = shl nsw i32 -1, %8
%17 = getelementptr inbounds i32, i32* %7, i64 1
%18 = load i32, i32* %17
%19 = and i32 %18, %16
%20 = sub nuw nsw i32 32, %8
%21 = lshr i32 %3, %20
%22 = or i32 %19, %21
store i32 %22, i32* %17
br label %49
23: ; preds = %4
%24 = add i32 %8, %2
%25 = icmp ult i32 %24, 33
%26 = load i32, i32* %7
br i1 %25, label %27, label %35
27: ; preds = %23
%28 = shl nsw i32 -1, %2
%29 = xor i32 %28, -1
%30 = shl i32 %29, %8
%31 = xor i32 %30, -1
%32 = and i32 %26, %31
%33 = shl i32 %3, %8
%34 = or i32 %32, %33
store i32 %34, i32* %7
br label %49
35: ; preds = %23
%36 = shl nsw i32 -1, %8
%37 = xor i32 %36, -1
%38 = and i32 %26, %37
%39 = shl i32 %3, %8
%40 = or i32 %38, %39
store i32 %40, i32* %7
%41 = getelementptr inbounds i32, i32* %7, i64 1
%42 = sub nuw nsw i32 32, %8
%43 = sub i32 %2, %42
%44 = load i32, i32* %41
%45 = shl nsw i32 -1, %43
%46 = and i32 %44, %45
%47 = lshr i32 %3, %42
%48 = or i32 %46, %47
store i32 %48, i32* %41
br label %49
49: ; preds = %10, %27, %35, %15
ret void
}