void spi_send(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;
  while (len--)
    *fifo = (unsigned long)*p++;
  do {
    regval = *stat;
  } while ((regval & 0xf04) != 4);
}


x86 assembly (clang, -O0):
<spi_send>:
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    %rax,%rcx
add    $0xffffffffffffffff,%rcx
mov    %rcx,-0x8(%rbp)
cmp    $0x0,%rax
je     115f <spi_send+0x5f>
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)
jmp    1126 <spi_send+0x26>
jmp    1164 <spi_send+0x64>
mov    -0x30(%rbp),%rax
mov    (%rax),%rax
mov    %rax,-0x20(%rbp)
mov    -0x20(%rbp),%rax
and    $0xf04,%rax
cmp    $0x4,%rax
jne    1164 <spi_send+0x64>
pop    %rbp
ret

x86 assembly (clang, -O2):
<spi_send>:
mov    $0xd4035010,%eax
test   %rdi,%rdi
je     1190 <spi_send+0x90>
lea    -0x1(%rdi),%r8
mov    %rdi,%r9
and    $0x7,%r9
je     1136 <spi_send+0x36>
xor    %edx,%edx
nopl   (%rax)
movzbl (%rsi,%rdx,1),%ecx
mov    %rcx,(%rax)
add    $0x1,%rdx
cmp    %rdx,%r9
jne    1120 <spi_send+0x20>
sub    %rdx,%rdi
add    %rdx,%rsi
cmp    $0x7,%r8
jb     1190 <spi_send+0x90>
xor    %ecx,%ecx
xchg   %ax,%ax
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    %rcx,%rdi
jne    1140 <spi_send+0x40>
nopl   0x0(%rax,%rax,1)
mov    -0x8(%rax),%rcx
and    $0xf04,%ecx
cmp    $0x4,%ecx
jne    1190 <spi_send+0x90>
ret

LLVM IR (-O0):
define void @spi_send(i64 %0, i64 %1) {
%3 = alloca i64
%4 = alloca i64
%5 = alloca i8*
%6 = alloca i64
%7 = alloca i64*
%8 = alloca i64*
store i64 %0, i64* %3
store i64 %1, i64* %4
%9 = load i64, i64* %4
%10 = inttoptr i64 %9 to i8*
store i8* %10, i8** %5
store i64* inttoptr (i64 3556986896 to i64*), i64** %7
store i64* inttoptr (i64 3556986888 to i64*), i64** %8
br label %11
11: ; preds = %15, %2
%12 = load i64, i64* %3
%13 = add nsw i64 %12, -1
store i64 %13, i64* %3
%14 = icmp ne i64 %12, 0
br i1 %14, label %15, label %21
15: ; preds = %11
%16 = load i8*, i8** %5
%17 = getelementptr inbounds i8, i8* %16, i32 1
store i8* %17, i8** %5
%18 = load i8, i8* %16
%19 = zext i8 %18 to i64
%20 = load i64*, i64** %7
store volatile i64 %19, i64* %20
br label %11
21: ; preds = %11
br label %22
22: ; preds = %25, %21
%23 = load i64*, i64** %8
%24 = load volatile i64, i64* %23
store i64 %24, i64* %6
br label %25
25: ; preds = %22
%26 = load i64, i64* %6
%27 = and i64 %26, 3844
%28 = icmp ne i64 %27, 4
br i1 %28, label %22, label %29
29: ; preds = %25
ret void
}

LLVM IR (-O2):
define void @spi_send(i64 %0, i64 %1) {
%3 = icmp eq i64 %0, 0
br i1 %3, label %52, label %4
4: ; preds = %2
%5 = inttoptr i64 %1 to i8*
%6 = add i64 %0, -1
%7 = and i64 %0, 7
%8 = icmp eq i64 %7, 0
br i1 %8, label %19, label %9
9: ; preds = %4, %9
%10 = phi i64 [ %13, %9 ], [ %0, %4 ]
%11 = phi i8* [ %14, %9 ], [ %5, %4 ]
%12 = phi i64 [ %17, %9 ], [ 0, %4 ]
%13 = add nsw i64 %10, -1
%14 = getelementptr inbounds i8, i8* %11, i64 1
%15 = load i8, i8* %11
%16 = zext i8 %15 to i64
store volatile i64 %16, i64* inttoptr (i64 3556986896 to i64*)
%17 = add i64 %12, 1
%18 = icmp eq i64 %17, %7
br i1 %18, label %19, label %9
19: ; preds = %9, %4
%20 = phi i64 [ %0, %4 ], [ %13, %9 ]
%21 = phi i8* [ %5, %4 ], [ %14, %9 ]
%22 = icmp ult i64 %6, 7
br i1 %22, label %52, label %23
23: ; preds = %19, %23
%24 = phi i64 [ %47, %23 ], [ %20, %19 ]
%25 = phi i8* [ %48, %23 ], [ %21, %19 ]
%26 = getelementptr inbounds i8, i8* %25, i64 1
%27 = load i8, i8* %25
%28 = zext i8 %27 to i64
store volatile i64 %28, i64* inttoptr (i64 3556986896 to i64*)
%29 = getelementptr inbounds i8, i8* %25, i64 2
%30 = load i8, i8* %26
%31 = zext i8 %30 to i64
store volatile i64 %31, i64* inttoptr (i64 3556986896 to i64*)
%32 = getelementptr inbounds i8, i8* %25, i64 3
%33 = load i8, i8* %29
%34 = zext i8 %33 to i64
store volatile i64 %34, i64* inttoptr (i64 3556986896 to i64*)
%35 = getelementptr inbounds i8, i8* %25, i64 4
%36 = load i8, i8* %32
%37 = zext i8 %36 to i64
store volatile i64 %37, i64* inttoptr (i64 3556986896 to i64*)
%38 = getelementptr inbounds i8, i8* %25, i64 5
%39 = load i8, i8* %35
%40 = zext i8 %39 to i64
store volatile i64 %40, i64* inttoptr (i64 3556986896 to i64*)
%41 = getelementptr inbounds i8, i8* %25, i64 6
%42 = load i8, i8* %38
%43 = zext i8 %42 to i64
store volatile i64 %43, i64* inttoptr (i64 3556986896 to i64*)
%44 = getelementptr inbounds i8, i8* %25, i64 7
%45 = load i8, i8* %41
%46 = zext i8 %45 to i64
store volatile i64 %46, i64* inttoptr (i64 3556986896 to i64*)
%47 = add nsw i64 %24, -8
%48 = getelementptr inbounds i8, i8* %25, i64 8
%49 = load i8, i8* %44
%50 = zext i8 %49 to i64
store volatile i64 %50, i64* inttoptr (i64 3556986896 to i64*)
%51 = icmp eq i64 %47, 0
br i1 %51, label %52, label %23
52: ; preds = %19, %23, %2
br label %53
53: ; preds = %52, %53
%54 = load volatile i64, i64* inttoptr (i64 3556986888 to i64*)
%55 = and i64 %54, 3844
%56 = icmp eq i64 %55, 4
br i1 %56, label %57, label %53
57: ; preds = %53
ret void
}