void make_kn(unsigned char *k1, const unsigned char *l, int bl) {
  int i;
  unsigned char c = l[0], carry = c >> 7, cnext;
  for (i = 0; i < bl - 1; i++, c = cnext)
    k1[i] = (c << 1) | ((cnext = l[i + 1]) >> 7);
  k1[i] = (c << 1) ^ ((0 - carry) & (bl == 16 ? 0x87 : 0x1b));
}


x86 assembly (clang, -O0):
<make_kn>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    -0x10(%rbp),%rax
mov    (%rax),%al
mov    %al,-0x19(%rbp)
movzbl -0x19(%rbp),%eax
sar    $0x7,%eax
mov    %al,-0x1a(%rbp)
movl   $0x0,-0x18(%rbp)
mov    -0x18(%rbp),%eax
mov    -0x14(%rbp),%ecx
sub    $0x1,%ecx
cmp    %ecx,%eax
jge    117d <make_kn+0x7d>
movzbl -0x19(%rbp),%eax
shl    $0x1,%eax
mov    -0x10(%rbp),%rcx
mov    -0x18(%rbp),%edx
add    $0x1,%edx
movslq %edx,%rdx
mov    (%rcx,%rdx,1),%cl
mov    %cl,-0x1b(%rbp)
movzbl %cl,%ecx
sar    $0x7,%ecx
or     %ecx,%eax
mov    %al,%dl
mov    -0x8(%rbp),%rax
movslq -0x18(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x18(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x18(%rbp)
mov    -0x1b(%rbp),%al
mov    %al,-0x19(%rbp)
jmp    1129 <make_kn+0x29>
movzbl -0x19(%rbp),%eax
shl    $0x1,%eax
movzbl -0x1a(%rbp),%edx
xor    %ecx,%ecx
sub    %edx,%ecx
mov    -0x14(%rbp),%edi
mov    $0x1b,%edx
mov    $0x87,%esi
cmp    $0x10,%edi
cmove  %esi,%edx
and    %edx,%ecx
xor    %ecx,%eax
mov    %al,%dl
mov    -0x8(%rbp),%rax
movslq -0x18(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
pop    %rbp
ret

x86 assembly (clang, -O2):
<make_kn>:
push   %rbp
push   %rbx
mov    (%rsi),%r8b
cmp    $0x2,%edx
jl     1152 <make_kn+0x52>
lea    -0x1(%rdx),%eax
mov    %eax,%r9d
cmp    $0x20,%eax
jb     1137 <make_kn+0x37>
lea    (%r9,%rsi,1),%rax
add    $0x1,%rax
cmp    %rdi,%rax
jbe    11c8 <make_kn+0xc8>
lea    (%rdi,%r9,1),%rax
lea    0x1(%rsi),%rcx
cmp    %rax,%rcx
jae    11c8 <make_kn+0xc8>
xor    %ebp,%ebp
mov    %r8d,%r10d
mov    %rbp,%r11
not    %r11
test   $0x1,%r9b
jne    115d <make_kn+0x5d>
add    %r9,%r11
jne    1185 <make_kn+0x85>
jmp    1278 <make_kn+0x178>
xor    %r9d,%r9d
mov    %r8d,%ecx
jmp    1278 <make_kn+0x178>
mov    %rbp,%rbx
or     $0x1,%rbx
mov    (%rsi,%rbx,1),%cl
mov    %ecx,%eax
shr    $0x7,%al
add    %r10b,%r10b
or     %al,%r10b
mov    %r10b,(%rdi,%rbp,1)
mov    %rbx,%rbp
mov    %ecx,%r10d
add    %r9,%r11
je     1278 <make_kn+0x178>
mov    %r10d,%ecx
nopl   0x0(%rax,%rax,1)
movzbl 0x1(%rsi,%rbp,1),%r10d
mov    %r10d,%ebx
shr    $0x7,%bl
add    %cl,%cl
or     %bl,%cl
mov    %cl,(%rdi,%rbp,1)
movzbl 0x2(%rsi,%rbp,1),%ecx
add    %r10b,%r10b
mov    %ecx,%eax
shr    $0x7,%al
or     %r10b,%al
mov    %al,0x1(%rdi,%rbp,1)
lea    0x2(%rbp),%rax
mov    %rax,%rbp
cmp    %rax,%r9
jne    1190 <make_kn+0x90>
jmp    1278 <make_kn+0x178>
mov    %r9d,%ebp
and    $0xffffffe0,%ebp
movzbl %r8b,%eax
movd   %eax,%xmm0
pslldq $0xf,%xmm0
xor    %eax,%eax
movdqa 0xe1b(%rip),%xmm1
cs nopw 0x0(%rax,%rax,1)
nop
movdqa %xmm0,%xmm2
movdqu 0x1(%rsi,%rax,1),%xmm3
movdqu 0x11(%rsi,%rax,1),%xmm0
movdqa %xmm3,%xmm4
pslldq $0x1,%xmm4
psrldq $0xf,%xmm2
por    %xmm4,%xmm2
movdqa %xmm3,%xmm4
psrldq $0xf,%xmm4
movdqa %xmm0,%xmm5
pslldq $0x1,%xmm5
por    %xmm4,%xmm5
psrlw  $0x7,%xmm3
pand   %xmm1,%xmm3
paddb  %xmm2,%xmm2
por    %xmm3,%xmm2
paddb  %xmm5,%xmm5
movdqa %xmm0,%xmm3
psrlw  $0x7,%xmm3
pand   %xmm1,%xmm3
por    %xmm5,%xmm3
movdqu %xmm2,(%rdi,%rax,1)
movdqu %xmm3,0x10(%rdi,%rax,1)
add    $0x20,%rax
cmp    %rax,%rbp
jne    11f0 <make_kn+0xf0>
pextrw $0x7,%xmm0,%r10d
shr    $0x8,%r10d
mov    %r10d,%ecx
cmp    %r9,%rbp
jne    113c <make_kn+0x3c>
add    %cl,%cl
cmp    $0x10,%edx
mov    $0x87,%eax
mov    $0x1b,%edx
cmove  %eax,%edx
sar    $0x7,%r8b
and    %dl,%r8b
xor    %cl,%r8b
mov    %r8b,(%rdi,%r9,1)
pop    %rbx
pop    %rbp
ret

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

LLVM IR (-O2):
define void @make_kn(i8* nocapture writeonly %0, i8* nocapture %1, i32 %2) {
%4 = load i8, i8* %1
%5 = add i32 %2, -1
%6 = icmp sgt i32 %2, 1
br i1 %6, label %7, label %80
7: ; preds = %3
%8 = zext i32 %5 to i64
%9 = icmp ult i32 %5, 32
br i1 %9, label %45, label %10
10: ; preds = %7
%11 = getelementptr i8, i8* %0, i64 %8
%12 = getelementptr i8, i8* %1, i64 1
%13 = add nuw nsw i64 %8, 1
%14 = getelementptr i8, i8* %1, i64 %13
%15 = icmp ugt i8* %14, %0
%16 = icmp ult i8* %12, %11
%17 = and i1 %15, %16
br i1 %17, label %45, label %18
18: ; preds = %10
%19 = and i64 %8, 4294967264
%20 = insertelement <16 x i8> poison, i8 %4, i64 15
br label %21
21: ; preds = %21, %18
%22 = phi i64 [ 0, %18 ], [ %39, %21 ]
%23 = phi <16 x i8> [ %20, %18 ], [ %30, %21 ]
%24 = or i64 %22, 1
%25 = getelementptr inbounds i8, i8* %1, i64 %24
%26 = bitcast i8* %25 to <16 x i8>*
%27 = load <16 x i8>, <16 x i8>* %26
%28 = getelementptr inbounds i8, i8* %25, i64 16
%29 = bitcast i8* %28 to <16 x i8>*
%30 = load <16 x i8>, <16 x i8>* %29
%31 = shufflevector <16 x i8> %23, <16 x i8> %27, <16 x i32> <i32 15, i32 16, i32 17, i32 18, i32 19, i32 20, i32 21, i32 22, i32 23, i32 24, i32 25, i32 26, i32 27, i32 28, i32 29, i32 30>
%32 = shufflevector <16 x i8> %27, <16 x i8> %30, <16 x i32> <i32 15, i32 16, i32 17, i32 18, i32 19, i32 20, i32 21, i32 22, i32 23, i32 24, i32 25, i32 26, i32 27, i32 28, i32 29, i32 30>
%33 = call <16 x i8> @llvm.fshl.v16i8(<16 x i8> %31, <16 x i8> %27, <16 x i8> <i8 1, i8 1, i8 1, i8 1, i8 1, i8 1, i8 1, i8 1, i8 1, i8 1, i8 1, i8 1, i8 1, i8 1, i8 1, i8 1>)
%34 = call <16 x i8> @llvm.fshl.v16i8(<16 x i8> %32, <16 x i8> %30, <16 x i8> <i8 1, i8 1, i8 1, i8 1, i8 1, i8 1, i8 1, i8 1, i8 1, i8 1, i8 1, i8 1, i8 1, i8 1, i8 1, i8 1>)
%35 = getelementptr inbounds i8, i8* %0, i64 %22
%36 = bitcast i8* %35 to <16 x i8>*
store <16 x i8> %33, <16 x i8>* %36
%37 = getelementptr inbounds i8, i8* %35, i64 16
%38 = bitcast i8* %37 to <16 x i8>*
store <16 x i8> %34, <16 x i8>* %38
%39 = add nuw i64 %22, 32
%40 = icmp eq i64 %39, %19
br i1 %40, label %41, label %21
41: ; preds = %21
%42 = icmp eq i64 %19, %8
%43 = extractelement <16 x i8> %30, i64 15
%44 = extractelement <16 x i8> %30, i64 15
br i1 %42, label %77, label %45
45: ; preds = %10, %7, %41
%46 = phi i64 [ %19, %41 ], [ 0, %7 ], [ 0, %10 ]
%47 = phi i8 [ %43, %41 ], [ %4, %7 ], [ %4, %10 ]
%48 = xor i64 %46, -1
%49 = and i64 %8, 1
%50 = icmp eq i64 %49, 0
br i1 %50, label %57, label %51
51: ; preds = %45
%52 = or i64 %46, 1
%53 = getelementptr inbounds i8, i8* %1, i64 %52
%54 = load i8, i8* %53
%55 = tail call i8 @llvm.fshl.i8(i8 %47, i8 %54, i8 1)
%56 = getelementptr inbounds i8, i8* %0, i64 %46
store i8 %55, i8* %56
br label %57
57: ; preds = %51, %45
%58 = phi i8 [ undef, %45 ], [ %54, %51 ]
%59 = phi i64 [ %46, %45 ], [ %52, %51 ]
%60 = phi i8 [ %47, %45 ], [ %54, %51 ]
%61 = sub nsw i64 0, %8
%62 = icmp eq i64 %48, %61
br i1 %62, label %77, label %63
63: ; preds = %57, %63
%64 = phi i64 [ %71, %63 ], [ %59, %57 ]
%65 = phi i8 [ %73, %63 ], [ %60, %57 ]
%66 = add nuw nsw i64 %64, 1
%67 = getelementptr inbounds i8, i8* %1, i64 %66
%68 = load i8, i8* %67
%69 = tail call i8 @llvm.fshl.i8(i8 %65, i8 %68, i8 1)
%70 = getelementptr inbounds i8, i8* %0, i64 %64
store i8 %69, i8* %70
%71 = add nuw nsw i64 %64, 2
%72 = getelementptr inbounds i8, i8* %1, i64 %71
%73 = load i8, i8* %72
%74 = tail call i8 @llvm.fshl.i8(i8 %68, i8 %73, i8 1)
%75 = getelementptr inbounds i8, i8* %0, i64 %66
store i8 %74, i8* %75
%76 = icmp eq i64 %71, %8
br i1 %76, label %77, label %63
77: ; preds = %57, %63, %41
%78 = phi i8 [ %44, %41 ], [ %58, %57 ], [ %73, %63 ]
%79 = zext i32 %5 to i64
br label %80
80: ; preds = %3, %77
%81 = phi i8 [ %78, %77 ], [ %4, %3 ]
%82 = phi i64 [ %79, %77 ], [ 0, %3 ]
%83 = shl i8 %81, 1
%84 = icmp eq i32 %2, 16
%85 = select i1 %84, i8 -121, i8 27
%86 = icmp slt i8 %4, 0
%87 = select i1 %86, i8 %85, i8 0
%88 = xor i8 %83, %87
%89 = getelementptr inbounds i8, i8* %0, i64 %82
store i8 %88, i8* %89
ret void
}