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


x86 assembly (clang, -O0):
<lr>:
push   %rbp
mov    %rsp,%rbp
mov    %sil,%al
mov    %rdi,-0x8(%rbp)
mov    %al,-0x9(%rbp)
movsbl -0x9(%rbp),%eax
cmp    $0x8,%eax
jge    118b <lr+0x8b>
movsbl -0x9(%rbp),%ecx
mov    $0x1,%eax
shl    %cl,%eax
sub    $0x1,%eax
movsbl -0x9(%rbp),%edx
shl    $0x1,%edx
mov    $0x8,%ecx
sub    %edx,%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
shl    %cl,%esi
mov    %esi,%ecx
and    %ecx,%edx
movsbl -0x9(%rbp),%ecx
sar    %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    11e6 <lr+0xe6>
movsbl -0x9(%rbp),%eax
mov    $0x8,%ecx
cltd
idiv   %ecx
mov    %al,-0x9(%rbp)
movb   $0x0,-0xa(%rbp)
movzbl -0xa(%rbp),%eax
movsbl -0x9(%rbp),%ecx
cmp    %ecx,%eax
jge    11e1 <lr+0xe1>
mov    -0x8(%rbp),%rax
movzbl -0xa(%rbp),%ecx
movsbl (%rax,%rcx,1),%esi
mov    -0x8(%rbp),%rax
movzbl -0xa(%rbp),%ecx
movsbl -0x9(%rbp),%edx
add    %edx,%ecx
movslq %ecx,%rcx
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    119e <lr+0x9e>
jmp    11e6 <lr+0xe6>
pop    %rbp
ret

x86 assembly (clang, -O2):
<lr>:
cmp    $0x7,%sil
jg     113a <lr+0x3a>
mov    $0xffffffff,%eax
mov    %esi,%ecx
shl    %cl,%eax
not    %eax
lea    (%rsi,%rsi,1),%edx
mov    $0x8,%cl
sub    %dl,%cl
shl    %cl,%eax
movsbl (%rdi),%r8d
movzbl %al,%edx
mov    %esi,%ecx
shl    %cl,%edx
and    %r8d,%edx
sar    %cl,%edx
mov    %r8d,%ecx
xor    %r8d,%ecx
xor    %edx,%ecx
and    %eax,%ecx
xor    %r8d,%ecx
mov    %cl,(%rdi)
ret
shr    $0x3,%sil
movzbl %sil,%r8d
cmp    $0x1,%r8b
jne    114c <lr+0x4c>
xor    %ecx,%ecx
jmp    1189 <lr+0x89>
mov    %r8d,%r9d
and    $0xfffffffe,%r9d
lea    0x1(%rdi),%rsi
lea    (%rdi,%r8,1),%rax
add    $0x1,%rax
xor    %ecx,%ecx
cs nopw 0x0(%rax,%rax,1)
nopl   0x0(%rax,%rax,1)
movzbl -0x1(%rsi,%rcx,1),%edx
xor    %dl,-0x1(%rax,%rcx,1)
movzbl (%rsi,%rcx,1),%edx
xor    %dl,(%rax,%rcx,1)
add    $0x2,%rcx
cmp    %rcx,%r9
jne    1170 <lr+0x70>
test   $0x1,%r8b
je     1198 <lr+0x98>
mov    (%rdi,%rcx,1),%al
add    %r8,%rcx
xor    %al,(%rdi,%rcx,1)
ret

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

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