long bword(char *p, int bloc, int bnum) {
  int i;
  int j = bloc;
  int k = bloc + bnum - 1;
  int l = 4 - bnum;
  long word;
  char *q;
  word = 0;
  q = (char *)&word;
  for (i = j; i <= k; i++, l++) {
    *(q + l) = *(p + i);
  }
  return word;
}


x86 assembly (clang, -O0):
<bword>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
mov    -0xc(%rbp),%eax
mov    %eax,-0x18(%rbp)
mov    -0xc(%rbp),%eax
add    -0x10(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x1c(%rbp)
mov    $0x4,%eax
sub    -0x10(%rbp),%eax
mov    %eax,-0x20(%rbp)
movq   $0x0,-0x28(%rbp)
lea    -0x28(%rbp),%rax
mov    %rax,-0x30(%rbp)
mov    -0x18(%rbp),%eax
mov    %eax,-0x14(%rbp)
mov    -0x14(%rbp),%eax
cmp    -0x1c(%rbp),%eax
jg     117a <bword+0x7a>
mov    -0x8(%rbp),%rax
movslq -0x14(%rbp),%rcx
mov    (%rax,%rcx,1),%dl
mov    -0x30(%rbp),%rax
movslq -0x20(%rbp),%rcx
mov    %dl,(%rax,%rcx,1)
mov    -0x14(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x14(%rbp)
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    1141 <bword+0x41>
mov    -0x28(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<bword>:
push   %rax
movq   $0x0,(%rsp)
test   %edx,%edx
jle    1156 <bword+0x46>
mov    %rdi,%rax
mov    $0x4,%ecx
sub    %edx,%ecx
add    %esi,%edx
movslq %ecx,%rdi
movslq %esi,%rcx
add    %rcx,%rax
lea    0x1(%rcx),%esi
cmp    %esi,%edx
cmovle %esi,%edx
add    %rsp,%rdi
not    %ecx
add    %edx,%ecx
add    $0x1,%rcx
mov    %rax,%rsi
mov    %rcx,%rdx
call   1030 <memcpy@plt>
mov    (%rsp),%rax
pop    %rcx
ret
xor    %eax,%eax
pop    %rcx
ret

LLVM IR (-O0):
define i64 @bword(i8* %0, i32 %1, i32 %2) {
%4 = alloca i8*
%5 = alloca i32
%6 = alloca i32
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
%11 = alloca i64
%12 = alloca i8*
store i8* %0, i8** %4
store i32 %1, i32* %5
store i32 %2, i32* %6
%13 = load i32, i32* %5
store i32 %13, i32* %8
%14 = load i32, i32* %5
%15 = load i32, i32* %6
%16 = add nsw i32 %14, %15
%17 = sub nsw i32 %16, 1
store i32 %17, i32* %9
%18 = load i32, i32* %6
%19 = sub nsw i32 4, %18
store i32 %19, i32* %10
store i64 0, i64* %11
%20 = bitcast i64* %11 to i8*
store i8* %20, i8** %12
%21 = load i32, i32* %8
store i32 %21, i32* %7
br label %22
22: ; preds = %36, %3
%23 = load i32, i32* %7
%24 = load i32, i32* %9
%25 = icmp sle i32 %23, %24
br i1 %25, label %26, label %41
26: ; preds = %22
%27 = load i8*, i8** %4
%28 = load i32, i32* %7
%29 = sext i32 %28 to i64
%30 = getelementptr inbounds i8, i8* %27, i64 %29
%31 = load i8, i8* %30
%32 = load i8*, i8** %12
%33 = load i32, i32* %10
%34 = sext i32 %33 to i64
%35 = getelementptr inbounds i8, i8* %32, i64 %34
store i8 %31, i8* %35
br label %36
36: ; preds = %26
%37 = load i32, i32* %7
%38 = add nsw i32 %37, 1
store i32 %38, i32* %7
%39 = load i32, i32* %10
%40 = add nsw i32 %39, 1
store i32 %40, i32* %10
br label %22
41: ; preds = %22
%42 = load i64, i64* %11
ret i64 %42
}

LLVM IR (-O2):
define i64 @bword(i8* nocapture %0, i32 %1, i32 %2) {
%4 = alloca i64
%5 = bitcast i64* %4 to i8*
store i64 0, i64* %4
%6 = icmp sgt i32 %2, 0
br i1 %6, label %7, label %21
7: ; preds = %3
%8 = sub nsw i32 4, %2
%9 = add i32 %2, %1
%10 = sext i32 %8 to i64
%11 = getelementptr i8, i8* %5, i64 %10
%12 = sext i32 %1 to i64
%13 = getelementptr i8, i8* %0, i64 %12
%14 = add i32 %1, 1
%15 = call i32 @llvm.smax.i32(i32 %9, i32 %14)
%16 = xor i32 %1, -1
%17 = add i32 %15, %16
%18 = zext i32 %17 to i64
%19 = add nuw nsw i64 %18, 1
%20 = load i64, i64* %4
br label %21
21: ; preds = %7, %3
%22 = phi i64 [ %20, %7 ], [ 0, %3 ]
ret i64 %22
}