extern long lprand(rngstate)
long rngstate[57];
{
  long t, ta, tb, retval;
  ta = (rngstate[57 - 2]);
  tb = (rngstate[57 - 1]);
  if (ta-- == 0)
    ta = 54;
  if (tb-- == 0)
    tb = 54;
  t = rngstate[ta] - rngstate[tb];
  if (t < 0)
    t += 1000000000;
  rngstate[ta] = t;
  retval = t;
  (rngstate[57 - 2]) = ta;
  (rngstate[57 - 1]) = tb;
  return (retval);
}


x86 assembly (clang, -O0):
<lprand>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    -0x8(%rbp),%rax
mov    0x1b8(%rax),%rax
mov    %rax,-0x18(%rbp)
mov    -0x8(%rbp),%rax
mov    0x1c0(%rax),%rax
mov    %rax,-0x20(%rbp)
mov    -0x18(%rbp),%rax
mov    %rax,%rcx
add    $0xffffffffffffffff,%rcx
mov    %rcx,-0x18(%rbp)
cmp    $0x0,%rax
jne    1147 <lprand+0x47>
movq   $0x36,-0x18(%rbp)
mov    -0x20(%rbp),%rax
mov    %rax,%rcx
add    $0xffffffffffffffff,%rcx
mov    %rcx,-0x20(%rbp)
cmp    $0x0,%rax
jne    1168 <lprand+0x68>
movq   $0x36,-0x20(%rbp)
mov    -0x8(%rbp),%rax
mov    -0x18(%rbp),%rcx
mov    (%rax,%rcx,8),%rax
mov    -0x8(%rbp),%rcx
mov    -0x20(%rbp),%rdx
sub    (%rcx,%rdx,8),%rax
mov    %rax,-0x10(%rbp)
cmpq   $0x0,-0x10(%rbp)
jge    119d <lprand+0x9d>
mov    -0x10(%rbp),%rax
add    $0x3b9aca00,%rax
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rdx
mov    -0x8(%rbp),%rax
mov    -0x18(%rbp),%rcx
mov    %rdx,(%rax,%rcx,8)
mov    -0x10(%rbp),%rax
mov    %rax,-0x28(%rbp)
mov    -0x18(%rbp),%rcx
mov    -0x8(%rbp),%rax
mov    %rcx,0x1b8(%rax)
mov    -0x20(%rbp),%rcx
mov    -0x8(%rbp),%rax
mov    %rcx,0x1c0(%rax)
mov    -0x28(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<lprand>:
mov    0x1b8(%rdi),%rcx
sub    $0x1,%rcx
mov    $0x36,%eax
cmovb  %rax,%rcx
mov    0x1c0(%rdi),%rdx
sub    $0x1,%rdx
cmovb  %rax,%rdx
mov    (%rdi,%rcx,8),%rsi
sub    (%rdi,%rdx,8),%rsi
lea    0x3b9aca00(%rsi),%rax
test   %rsi,%rsi
cmovns %rsi,%rax
mov    %rax,(%rdi,%rcx,8)
mov    %rcx,0x1b8(%rdi)
mov    %rdx,0x1c0(%rdi)
ret

LLVM IR (-O0):
define i64 @lprand(i64* %0) {
%2 = alloca i64*
%3 = alloca i64
%4 = alloca i64
%5 = alloca i64
%6 = alloca i64
store i64* %0, i64** %2
%7 = load i64*, i64** %2
%8 = getelementptr inbounds i64, i64* %7, i64 55
%9 = load i64, i64* %8
store i64 %9, i64* %4
%10 = load i64*, i64** %2
%11 = getelementptr inbounds i64, i64* %10, i64 56
%12 = load i64, i64* %11
store i64 %12, i64* %5
%13 = load i64, i64* %4
%14 = add nsw i64 %13, -1
store i64 %14, i64* %4
%15 = icmp eq i64 %13, 0
br i1 %15, label %16, label %17
16: ; preds = %1
store i64 54, i64* %4
br label %17
17: ; preds = %16, %1
%18 = load i64, i64* %5
%19 = add nsw i64 %18, -1
store i64 %19, i64* %5
%20 = icmp eq i64 %18, 0
br i1 %20, label %21, label %22
21: ; preds = %17
store i64 54, i64* %5
br label %22
22: ; preds = %21, %17
%23 = load i64*, i64** %2
%24 = load i64, i64* %4
%25 = getelementptr inbounds i64, i64* %23, i64 %24
%26 = load i64, i64* %25
%27 = load i64*, i64** %2
%28 = load i64, i64* %5
%29 = getelementptr inbounds i64, i64* %27, i64 %28
%30 = load i64, i64* %29
%31 = sub nsw i64 %26, %30
store i64 %31, i64* %3
%32 = load i64, i64* %3
%33 = icmp slt i64 %32, 0
br i1 %33, label %34, label %37
34: ; preds = %22
%35 = load i64, i64* %3
%36 = add nsw i64 %35, 1000000000
store i64 %36, i64* %3
br label %37
37: ; preds = %34, %22
%38 = load i64, i64* %3
%39 = load i64*, i64** %2
%40 = load i64, i64* %4
%41 = getelementptr inbounds i64, i64* %39, i64 %40
store i64 %38, i64* %41
%42 = load i64, i64* %3
store i64 %42, i64* %6
%43 = load i64, i64* %4
%44 = load i64*, i64** %2
%45 = getelementptr inbounds i64, i64* %44, i64 55
store i64 %43, i64* %45
%46 = load i64, i64* %5
%47 = load i64*, i64** %2
%48 = getelementptr inbounds i64, i64* %47, i64 56
store i64 %46, i64* %48
%49 = load i64, i64* %6
ret i64 %49
}

LLVM IR (-O2):
define i64 @lprand(i64* nocapture %0) {
%2 = getelementptr inbounds i64, i64* %0, i64 55
%3 = load i64, i64* %2
%4 = getelementptr inbounds i64, i64* %0, i64 56
%5 = load i64, i64* %4
%6 = add nsw i64 %3, -1
%7 = icmp eq i64 %3, 0
%8 = select i1 %7, i64 54, i64 %6
%9 = add nsw i64 %5, -1
%10 = icmp eq i64 %5, 0
%11 = select i1 %10, i64 54, i64 %9
%12 = getelementptr inbounds i64, i64* %0, i64 %8
%13 = load i64, i64* %12
%14 = getelementptr inbounds i64, i64* %0, i64 %11
%15 = load i64, i64* %14
%16 = sub nsw i64 %13, %15
%17 = icmp slt i64 %16, 0
%18 = add nsw i64 %16, 1000000000
%19 = select i1 %17, i64 %18, i64 %16
store i64 %19, i64* %12
store i64 %8, i64* %2
store i64 %11, i64* %4
ret i64 %19
}