void rl(char *n, char l) {
  unsigned char m;
  if (l < 8) {
    m = ((1 << l) - 1) << l;
    *n = (*n & ~m) | ((*n ^ ((*n & (m >> l)) << l)) & m);
  } else {
    l /= 8;
    for (m = 8 - 2 * l; m < 8 - l; ++m) {
      n[m] ^= n[m + l];
    }
  }
}


x86 assembly (clang, -O0):
<rl>:
push   %rbp
mov    %rsp,%rbp
mov    %sil,%al
mov    %rdi,-0x8(%rbp)
mov    %al,-0x9(%rbp)
movsbl -0x9(%rbp),%eax
cmp    $0x8,%eax
jge    1181 <rl+0x81>
movsbl -0x9(%rbp),%ecx
mov    $0x1,%eax
shl    %cl,%eax
sub    $0x1,%eax
movsbl -0x9(%rbp),%ecx
shl    %cl,%eax
mov    %al,-0xa(%rbp)
mov    -0x8(%rbp),%rax
movsbl (%rax),%eax
movzbl -0xa(%rbp),%ecx
xor    $0xffffffff,%ecx
and    %ecx,%eax
mov    -0x8(%rbp),%rcx
movsbl (%rcx),%ecx
mov    %ecx,-0x10(%rbp)
mov    -0x8(%rbp),%rcx
movsbl (%rcx),%edx
movzbl -0xa(%rbp),%esi
movsbl -0x9(%rbp),%ecx
sar    %cl,%esi
mov    %esi,%ecx
and    %ecx,%edx
movsbl -0x9(%rbp),%ecx
shl    %cl,%edx
mov    -0x10(%rbp),%ecx
xor    %edx,%ecx
movzbl -0xa(%rbp),%edx
and    %edx,%ecx
or     %ecx,%eax
mov    %al,%cl
mov    -0x8(%rbp),%rax
mov    %cl,(%rax)
jmp    11f0 <rl+0xf0>
movsbl -0x9(%rbp),%eax
mov    $0x8,%ecx
cltd
idiv   %ecx
mov    %al,-0x9(%rbp)
movsbl -0x9(%rbp),%ecx
shl    $0x1,%ecx
mov    $0x8,%eax
sub    %ecx,%eax
mov    %al,-0xa(%rbp)
movzbl -0xa(%rbp),%eax
movsbl -0x9(%rbp),%edx
mov    $0x8,%ecx
sub    %edx,%ecx
cmp    %ecx,%eax
jge    11eb <rl+0xeb>
mov    -0x8(%rbp),%rax
movzbl -0xa(%rbp),%ecx
movsbl -0x9(%rbp),%edx
add    %edx,%ecx
movslq %ecx,%rcx
movsbl (%rax,%rcx,1),%esi
mov    -0x8(%rbp),%rax
movzbl -0xa(%rbp),%ecx
movsbl (%rax,%rcx,1),%edx
xor    %esi,%edx
mov    %dl,(%rax,%rcx,1)
mov    -0xa(%rbp),%al
add    $0x1,%al
mov    %al,-0xa(%rbp)
jmp    11a1 <rl+0xa1>
jmp    11f0 <rl+0xf0>
pop    %rbp
ret

x86 assembly (clang, -O2):
<rl>:
mov    %esi,%ecx
cmp    $0x7,%cl
jg     112b <rl+0x2b>
mov    $0xffffffff,%eax
shl    %cl,%eax
not    %eax
shl    %cl,%eax
movsbl (%rdi),%edx
movzbl %al,%esi
shr    %cl,%esi
and    %edx,%esi
shl    %cl,%esi
mov    %edx,%ecx
xor    %edx,%ecx
xor    %esi,%ecx
and    %eax,%ecx
xor    %edx,%ecx
mov    %cl,(%rdi)
ret
shr    $0x3,%cl
movzbl %cl,%edx
lea    (%rdx,%rdx,1),%eax
mov    $0x8,%cl
sub    %al,%cl
mov    $0x8,%eax
sub    %edx,%eax
movzbl %cl,%ecx
cmp    %ecx,%eax
jle    1167 <rl+0x67>
mov    %edx,%r8d
nopl   0x0(%rax)
mov    %ecx,%esi
lea    (%rsi,%r8,1),%rdx
movzbl (%rdi,%rdx,1),%edx
xor    %dl,(%rdi,%rsi,1)
add    $0x1,%ecx
movzbl %cl,%ecx
cmp    %ecx,%eax
jg     1150 <rl+0x50>
ret

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

LLVM IR (-O2):
define void @rl(i8* nocapture %0, i8 signext %1) {
%3 = sext i8 %1 to i32
%4 = icmp slt i8 %1, 8
br i1 %4, label %5, label %21
5: ; preds = %2
%6 = shl nsw i32 -1, %3
%7 = xor i32 %6, -1
%8 = shl i32 %7, %3
%9 = load i8, i8* %0
%10 = sext i8 %9 to i32
%11 = and i32 %8, 255
%12 = xor i32 %8, -1
%13 = and i32 %10, %12
%14 = lshr i32 %11, %3
%15 = and i32 %14, %10
%16 = shl i32 %15, %3
%17 = xor i32 %16, %10
%18 = and i32 %17, %8
%19 = or i32 %18, %13
%20 = trunc i32 %19 to i8
store i8 %20, i8* %0
br label %42
21: ; preds = %2
%22 = lshr i8 %1, 3
%23 = zext i8 %22 to i32
%24 = mul nsw i8 %22, -2
%25 = add nsw i8 %24, 8
%26 = sub nsw i32 8, %23
%27 = zext i8 %25 to i32
%28 = icmp sgt i32 %26, %27
br i1 %28, label %29, label %42
29: ; preds = %21, %29
%30 = phi i32 [ %40, %29 ], [ %27, %21 ]
%31 = add nuw nsw i32 %30, %23
%32 = zext i32 %31 to i64
%33 = getelementptr inbounds i8, i8* %0, i64 %32
%34 = load i8, i8* %33
%35 = zext i32 %30 to i64
%36 = getelementptr inbounds i8, i8* %0, i64 %35
%37 = load i8, i8* %36
%38 = xor i8 %37, %34
store i8 %38, i8* %36
%39 = add nuw nsw i32 %30, 1
%40 = and i32 %39, 255
%41 = icmp sgt i32 %26, %40
br i1 %41, label %29, label %42
42: ; preds = %29, %21, %5
ret void
}