long swaplw(pp_source, l_len, pp_dest)
long *pp_source, *pp_dest;
long l_len;
{
  char unsigned *p_source, *p_dest, *p_s, *p_d;
  long unsigned lu_save;
  p_source = (unsigned char *)pp_source;
  p_dest = (unsigned char *)pp_dest;
  if (p_dest) {
    for (p_s = (unsigned char *)p_source, p_d = (unsigned char *)p_dest;
         p_s < p_source + (l_len * 4); p_s += 4) {
      p_s += 4;
      *(p_d++) = *(--p_s);
      *(p_d++) = *(--p_s);
      *(p_d++) = *(--p_s);
      *(p_d++) = *(--p_s);
    }
  } else {
    for (p_d = (unsigned char *)p_source, p_s = (unsigned char *)&lu_save;
         p_d < p_source + (l_len * 4);) {
      lu_save = *((long *)p_d);
      p_s += 4;
      *(p_d++) = *(--p_s);
      *(p_d++) = *(--p_s);
      *(p_d++) = *(--p_s);
      *(p_d++) = *(--p_s);
    }
  }
  return (1);
}


x86 assembly (clang, -O0):
<swaplw>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,-0x20(%rbp)
mov    -0x18(%rbp),%rax
mov    %rax,-0x28(%rbp)
cmpq   $0x0,-0x28(%rbp)
je     1205 <swaplw+0x105>
mov    -0x20(%rbp),%rax
mov    %rax,-0x30(%rbp)
mov    -0x28(%rbp),%rax
mov    %rax,-0x38(%rbp)
mov    -0x30(%rbp),%rax
mov    -0x20(%rbp),%rcx
mov    -0x10(%rbp),%rdx
shl    $0x2,%rdx
add    %rdx,%rcx
cmp    %rcx,%rax
jae    1200 <swaplw+0x100>
mov    -0x30(%rbp),%rax
add    $0x4,%rax
mov    %rax,-0x30(%rbp)
mov    -0x30(%rbp),%rax
mov    %rax,%rcx
add    $0xffffffffffffffff,%rcx
mov    %rcx,-0x30(%rbp)
mov    -0x1(%rax),%cl
mov    -0x38(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x38(%rbp)
mov    %cl,(%rax)
mov    -0x30(%rbp),%rax
mov    %rax,%rcx
add    $0xffffffffffffffff,%rcx
mov    %rcx,-0x30(%rbp)
mov    -0x1(%rax),%cl
mov    -0x38(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x38(%rbp)
mov    %cl,(%rax)
mov    -0x30(%rbp),%rax
mov    %rax,%rcx
add    $0xffffffffffffffff,%rcx
mov    %rcx,-0x30(%rbp)
mov    -0x1(%rax),%cl
mov    -0x38(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x38(%rbp)
mov    %cl,(%rax)
mov    -0x30(%rbp),%rax
mov    %rax,%rcx
add    $0xffffffffffffffff,%rcx
mov    %rcx,-0x30(%rbp)
mov    -0x1(%rax),%cl
mov    -0x38(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x38(%rbp)
mov    %cl,(%rax)
mov    -0x30(%rbp),%rax
add    $0x4,%rax
mov    %rax,-0x30(%rbp)
jmp    113b <swaplw+0x3b>
jmp    12de <swaplw+0x1de>
mov    -0x20(%rbp),%rax
mov    %rax,-0x38(%rbp)
lea    -0x40(%rbp),%rax
mov    %rax,-0x30(%rbp)
mov    -0x38(%rbp),%rax
mov    -0x20(%rbp),%rcx
mov    -0x10(%rbp),%rdx
shl    $0x2,%rdx
add    %rdx,%rcx
cmp    %rcx,%rax
jae    12d9 <swaplw+0x1d9>
mov    -0x38(%rbp),%rax
mov    (%rax),%rax
mov    %rax,-0x40(%rbp)
mov    -0x30(%rbp),%rax
add    $0x4,%rax
mov    %rax,-0x30(%rbp)
mov    -0x30(%rbp),%rax
mov    %rax,%rcx
add    $0xffffffffffffffff,%rcx
mov    %rcx,-0x30(%rbp)
mov    -0x1(%rax),%cl
mov    -0x38(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x38(%rbp)
mov    %cl,(%rax)
mov    -0x30(%rbp),%rax
mov    %rax,%rcx
add    $0xffffffffffffffff,%rcx
mov    %rcx,-0x30(%rbp)
mov    -0x1(%rax),%cl
mov    -0x38(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x38(%rbp)
mov    %cl,(%rax)
mov    -0x30(%rbp),%rax
mov    %rax,%rcx
add    $0xffffffffffffffff,%rcx
mov    %rcx,-0x30(%rbp)
mov    -0x1(%rax),%cl
mov    -0x38(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x38(%rbp)
mov    %cl,(%rax)
mov    -0x30(%rbp),%rax
mov    %rax,%rcx
add    $0xffffffffffffffff,%rcx
mov    %rcx,-0x30(%rbp)
mov    -0x1(%rax),%cl
mov    -0x38(%rbp),%rax
mov    %rax,%rdx
add    $0x1,%rdx
mov    %rdx,-0x38(%rbp)
mov    %cl,(%rax)
jmp    1215 <swaplw+0x115>
jmp    12de <swaplw+0x1de>
mov    $0x1,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<swaplw>:
lea    (%rdi,%rsi,4),%rax
test   %rdx,%rdx
je     1139 <swaplw+0x39>
cmp    %rdi,%rax
jbe    114f <swaplw+0x4f>
xchg   %ax,%ax
movzbl 0x3(%rdi),%ecx
mov    %cl,(%rdx)
movzbl 0x2(%rdi),%ecx
mov    %cl,0x1(%rdx)
movzbl 0x1(%rdi),%ecx
mov    %cl,0x2(%rdx)
movzbl (%rdi),%ecx
mov    %cl,0x3(%rdx)
add    $0x4,%rdi
add    $0x4,%rdx
cmp    %rax,%rdi
jb     1110 <swaplw+0x10>
jmp    114f <swaplw+0x4f>
cmp    %rdi,%rax
jbe    114f <swaplw+0x4f>
xchg   %ax,%ax
mov    (%rdi),%ecx
bswap  %ecx
mov    %ecx,(%rdi)
add    $0x4,%rdi
cmp    %rax,%rdi
jb     1140 <swaplw+0x40>
mov    $0x1,%eax
ret

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

LLVM IR (-O2):
define i64 @swaplw(i64* %0, i64 %1, i64* writeonly %2) {
%4 = bitcast i64* %0 to i8*
%5 = icmp eq i64* %2, null
%6 = shl nsw i64 %1, 2
%7 = getelementptr inbounds i8, i8* %4, i64 %6
%8 = icmp ugt i8* %7, %4
br i1 %5, label %9, label %10
9: ; preds = %3
br i1 %8, label %29, label %45
10: ; preds = %3
br i1 %8, label %11, label %45
11: ; preds = %10
%12 = bitcast i64* %2 to i8*
br label %13
13: ; preds = %11, %13
%14 = phi i8* [ %26, %13 ], [ %12, %11 ]
%15 = phi i8* [ %27, %13 ], [ %4, %11 ]
%16 = getelementptr inbounds i8, i8* %15, i64 3
%17 = load i8, i8* %16
%18 = getelementptr inbounds i8, i8* %14, i64 1
store i8 %17, i8* %14
%19 = getelementptr inbounds i8, i8* %15, i64 2
%20 = load i8, i8* %19
%21 = getelementptr inbounds i8, i8* %14, i64 2
store i8 %20, i8* %18
%22 = getelementptr inbounds i8, i8* %15, i64 1
%23 = load i8, i8* %22
%24 = getelementptr inbounds i8, i8* %14, i64 3
store i8 %23, i8* %21
%25 = load i8, i8* %15
%26 = getelementptr inbounds i8, i8* %14, i64 4
store i8 %25, i8* %24
%27 = getelementptr inbounds i8, i8* %15, i64 4
%28 = icmp ult i8* %27, %7
br i1 %28, label %13, label %45
29: ; preds = %9, %29
%30 = phi i8* [ %43, %29 ], [ %4, %9 ]
%31 = bitcast i8* %30 to i64*
%32 = load i64, i64* %31
%33 = trunc i64 %32 to i8
%34 = lshr i64 %32, 8
%35 = trunc i64 %34 to i8
%36 = lshr i64 %32, 16
%37 = trunc i64 %36 to i8
%38 = lshr i64 %32, 24
%39 = trunc i64 %38 to i8
%40 = getelementptr inbounds i8, i8* %30, i64 1
store i8 %39, i8* %30
%41 = getelementptr inbounds i8, i8* %30, i64 2
store i8 %37, i8* %40
%42 = getelementptr inbounds i8, i8* %30, i64 3
store i8 %35, i8* %41
%43 = getelementptr inbounds i8, i8* %30, i64 4
store i8 %33, i8* %42
%44 = icmp ult i8* %43, %7
br i1 %44, label %29, label %45
45: ; preds = %13, %29, %10, %9
ret i64 1
}