int shift_right(unsigned char *fa, int carry) {
  int temp;
  int i, carry2;
  for (i = 6 - 1; i > 6 - 6; i--) {
    temp = (fa[i] & 1);
    fa[i] >>= 1;
    if (carry)
      fa[i] |= 128;
    carry = temp;
  }
  carry2 = carry;
  for (; i >= 0; i--) {
    temp = (fa[i] & 1);
    fa[i] >>= 1;
    if (carry2)
      fa[i] |= 128;
    carry2 = temp;
  }
  return carry;
}


x86 assembly (clang, -O0):
<shift_right>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
movl   $0x5,-0x14(%rbp)
cmpl   $0x0,-0x14(%rbp)
jle    1173 <shift_right+0x73>
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
movzbl (%rax,%rcx,1),%eax
and    $0x1,%eax
mov    %eax,-0x10(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
movzbl (%rax,%rcx,1),%edx
sar    $0x1,%edx
mov    %dl,(%rax,%rcx,1)
cmpl   $0x0,-0xc(%rbp)
je     115f <shift_right+0x5f>
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
movzbl (%rax,%rcx,1),%edx
or     $0x80,%edx
mov    %dl,(%rax,%rcx,1)
mov    -0x10(%rbp),%eax
mov    %eax,-0xc(%rbp)
mov    -0x14(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x14(%rbp)
jmp    1112 <shift_right+0x12>
mov    -0xc(%rbp),%eax
mov    %eax,-0x18(%rbp)
cmpl   $0x0,-0x14(%rbp)
jl     11da <shift_right+0xda>
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
movzbl (%rax,%rcx,1),%eax
and    $0x1,%eax
mov    %eax,-0x10(%rbp)
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
movzbl (%rax,%rcx,1),%edx
sar    $0x1,%edx
mov    %dl,(%rax,%rcx,1)
cmpl   $0x0,-0x18(%rbp)
je     11c6 <shift_right+0xc6>
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
movzbl (%rax,%rcx,1),%edx
or     $0x80,%edx
mov    %dl,(%rax,%rcx,1)
mov    -0x10(%rbp),%eax
mov    %eax,-0x18(%rbp)
mov    -0x14(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x14(%rbp)
jmp    1179 <shift_right+0x79>
mov    -0xc(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<shift_right>:
mov    0x5(%rdi),%al
mov    %eax,%ecx
shr    %cl
lea    -0x80(%rcx),%edx
test   %esi,%esi
movzbl %cl,%ecx
movzbl %dl,%edx
cmove  %ecx,%edx
mov    %dl,0x5(%rdi)
mov    0x4(%rdi),%cl
mov    %ecx,%edx
shr    %dl
shl    $0x7,%al
or     %dl,%al
mov    %al,0x4(%rdi)
mov    0x3(%rdi),%al
mov    %eax,%edx
shr    %dl
shl    $0x7,%cl
or     %dl,%cl
mov    %cl,0x3(%rdi)
mov    (%rdi),%sil
mov    0x2(%rdi),%cl
mov    %ecx,%edx
shr    %dl
shl    $0x7,%al
or     %dl,%al
mov    %al,0x2(%rdi)
movzbl 0x1(%rdi),%eax
shl    $0x7,%cl
mov    %eax,%edx
shr    %dl
or     %cl,%dl
mov    %dl,0x1(%rdi)
shr    %sil
mov    %eax,%ecx
shl    $0x7,%cl
or     %sil,%cl
mov    %cl,(%rdi)
and    $0x1,%eax
ret

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

LLVM IR (-O2):
define i32 @shift_right(i8* nocapture %0, i32 %1) {
%3 = getelementptr inbounds i8, i8* %0, i64 5
%4 = load i8, i8* %3
%5 = lshr i8 %4, 1
%6 = icmp eq i32 %1, 0
%7 = or i8 %5, -128
%8 = select i1 %6, i8 %5, i8 %7
store i8 %8, i8* %3
%9 = getelementptr inbounds i8, i8* %0, i64 4
%10 = load i8, i8* %9
%11 = call i8 @llvm.fshl.i8(i8 %4, i8 %10, i8 7)
store i8 %11, i8* %9
%12 = getelementptr inbounds i8, i8* %0, i64 3
%13 = load i8, i8* %12
%14 = call i8 @llvm.fshl.i8(i8 %10, i8 %13, i8 7)
store i8 %14, i8* %12
%15 = getelementptr inbounds i8, i8* %0, i64 2
%16 = load i8, i8* %15
%17 = call i8 @llvm.fshl.i8(i8 %13, i8 %16, i8 7)
store i8 %17, i8* %15
%18 = getelementptr inbounds i8, i8* %0, i64 1
%19 = load i8, i8* %18
%20 = call i8 @llvm.fshl.i8(i8 %16, i8 %19, i8 7)
store i8 %20, i8* %18
%21 = load i8, i8* %0
%22 = call i8 @llvm.fshl.i8(i8 %19, i8 %21, i8 7)
store i8 %22, i8* %0
%23 = and i8 %19, 1
%24 = zext i8 %23 to i32
ret i32 %24
}