void spi_send_only(long len, long adr) {
  unsigned char *p = (char *)adr;
  unsigned long regval;
  volatile unsigned long *fifo = (volatile unsigned long *)0xd4035010;
  volatile unsigned long *stat = (volatile unsigned long *)0xd4035008;
  int i;
  for (i = len; i; i--)
    *fifo = (unsigned long)*p++;
  for (i = len; i; i--) {
    while ((*stat & 8) == 0)
      ;
    regval = *fifo;
  }
}


x86 assembly (clang, -O0):
<spi_send_only>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,-0x18(%rbp)
mov    $0xd4035010,%eax
mov    %rax,-0x28(%rbp)
mov    $0xd4035008,%eax
mov    %rax,-0x30(%rbp)
mov    -0x8(%rbp),%rax
mov    %eax,-0x34(%rbp)
cmpl   $0x0,-0x34(%rbp)
je     1160 <spi_send_only+0x60>
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0x1,%rcx
mov    %rcx,-0x18(%rbp)
movzbl (%rax),%eax
mov    %eax,%ecx
mov    -0x28(%rbp),%rax
mov    %rcx,(%rax)
mov    -0x34(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x34(%rbp)
jmp    112d <spi_send_only+0x2d>
mov    -0x8(%rbp),%rax
mov    %eax,-0x34(%rbp)
cmpl   $0x0,-0x34(%rbp)
je     11a9 <spi_send_only+0xa9>
jmp    1176 <spi_send_only+0x76>
mov    -0x30(%rbp),%rax
mov    (%rax),%rax
and    $0x8,%rax
cmp    $0x0,%rax
jne    1190 <spi_send_only+0x90>
jmp    1176 <spi_send_only+0x76>
mov    -0x28(%rbp),%rax
mov    (%rax),%rax
mov    %rax,-0x20(%rbp)
mov    -0x34(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x34(%rbp)
jmp    1167 <spi_send_only+0x67>
pop    %rbp
ret

x86 assembly (clang, -O2):
<spi_send_only>:
test   %edi,%edi
je     11e2 <spi_send_only+0xe2>
mov    $0xd4035010,%eax
lea    -0x1(%rdi),%r8d
test   $0x7,%dil
je     113f <spi_send_only+0x3f>
mov    %edi,%r9d
and    $0x7,%r9d
xor    %ecx,%ecx
movzbl (%rsi,%rcx,1),%edx
mov    %rdx,(%rax)
add    $0x1,%rcx
cmp    %ecx,%r9d
jne    1120 <spi_send_only+0x20>
mov    %edi,%edx
sub    %ecx,%edx
add    %rcx,%rsi
cmp    $0x7,%r8d
jae    1147 <spi_send_only+0x47>
jmp    1198 <spi_send_only+0x98>
mov    %edi,%edx
cmp    $0x7,%r8d
jb     1198 <spi_send_only+0x98>
mov    %edx,%r9d
xor    %ecx,%ecx
nopl   0x0(%rax)
movzbl (%rsi,%rcx,1),%edx
mov    %rdx,(%rax)
movzbl 0x1(%rsi,%rcx,1),%edx
mov    %rdx,(%rax)
movzbl 0x2(%rsi,%rcx,1),%edx
mov    %rdx,(%rax)
movzbl 0x3(%rsi,%rcx,1),%edx
mov    %rdx,(%rax)
movzbl 0x4(%rsi,%rcx,1),%edx
mov    %rdx,(%rax)
movzbl 0x5(%rsi,%rcx,1),%edx
mov    %rdx,(%rax)
movzbl 0x6(%rsi,%rcx,1),%edx
mov    %rdx,(%rax)
movzbl 0x7(%rsi,%rcx,1),%edx
mov    %rdx,(%rax)
add    $0x8,%rcx
cmp    %ecx,%r9d
jne    1150 <spi_send_only+0x50>
test   $0x1,%dil
je     11b0 <spi_send_only+0xb0>
xchg   %ax,%ax
testq  $0x8,-0x8(%rax)
je     11a0 <spi_send_only+0xa0>
mov    (%rax),%rcx
mov    %r8d,%edi
test   %r8d,%r8d
je     11e2 <spi_send_only+0xe2>
cs nopw 0x0(%rax,%rax,1)
nop
testq  $0x8,-0x8(%rax)
je     11c0 <spi_send_only+0xc0>
mov    (%rax),%rcx
nopl   (%rax)
testq  $0x8,-0x8(%rax)
je     11d0 <spi_send_only+0xd0>
mov    (%rax),%rcx
add    $0xfffffffe,%edi
jne    11c0 <spi_send_only+0xc0>
ret

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

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