long lpcrand(rngstate)
long rngstate[2];
{
  long k;
  long U;
  k = rngstate[0] / 53668L;
  rngstate[0] = 40014L * (rngstate[0] - k * 53668L) - k * 12211L;
  if (rngstate[0] < 0) {
    rngstate[0] += 2147483563L;
  }
  k = rngstate[1] / 52774L;
  rngstate[1] = 40692L * (rngstate[1] - k * 52774L) - k * 3791L;
  if (rngstate[1] < 0) {
    rngstate[1] += 2147483399L;
  }
  U = rngstate[0] - rngstate[1];
  if (U < 1) {
    U += 2147483563L - 1;
  }
  return (U - 1);
}


x86 assembly (clang, -O0):
<lpcrand>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    -0x8(%rbp),%rax
mov    (%rax),%rax
mov    $0xd1a4,%ecx
cqto
idiv   %rcx
mov    %rax,-0x10(%rbp)
mov    -0x8(%rbp),%rax
mov    (%rax),%rax
imul   $0xd1a4,-0x10(%rbp),%rcx
sub    %rcx,%rax
imul   $0x9c4e,%rax,%rcx
imul   $0x2fb3,-0x10(%rbp),%rax
sub    %rax,%rcx
mov    -0x8(%rbp),%rax
mov    %rcx,(%rax)
mov    -0x8(%rbp),%rax
cmpq   $0x0,(%rax)
jge    1167 <lpcrand+0x67>
mov    -0x8(%rbp),%rax
mov    (%rax),%rcx
add    $0x7fffffab,%rcx
mov    %rcx,(%rax)
mov    -0x8(%rbp),%rax
mov    0x8(%rax),%rax
mov    $0xce26,%ecx
cqto
idiv   %rcx
mov    %rax,-0x10(%rbp)
mov    -0x8(%rbp),%rax
mov    0x8(%rax),%rax
imul   $0xce26,-0x10(%rbp),%rcx
sub    %rcx,%rax
imul   $0x9ef4,%rax,%rcx
imul   $0xecf,-0x10(%rbp),%rax
sub    %rax,%rcx
mov    -0x8(%rbp),%rax
mov    %rcx,0x8(%rax)
mov    -0x8(%rbp),%rax
cmpq   $0x0,0x8(%rax)
jge    11cc <lpcrand+0xcc>
mov    -0x8(%rbp),%rax
mov    0x8(%rax),%rcx
add    $0x7fffff07,%rcx
mov    %rcx,0x8(%rax)
mov    -0x8(%rbp),%rax
mov    (%rax),%rax
mov    -0x8(%rbp),%rcx
sub    0x8(%rcx),%rax
mov    %rax,-0x18(%rbp)
cmpq   $0x1,-0x18(%rbp)
jge    11f8 <lpcrand+0xf8>
mov    -0x18(%rbp),%rax
add    $0x7fffffaa,%rax
mov    %rax,-0x18(%rbp)
mov    -0x18(%rbp),%rax
sub    $0x1,%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<lpcrand>:
mov    (%rdi),%rcx
movabs $0x9c4e3aa71ae25487,%rdx
3a 4e 9c
mov    %rcx,%rax
imul   %rdx
add    %rcx,%rdx
mov    %rdx,%rax
shr    $0x3f,%rax
sar    $0xf,%rdx
add    %rax,%rdx
imul   $0xffffffffffff2e5c,%rdx,%rax
add    %rcx,%rax
imul   $0x9c4e,%rax,%rax
imul   $0xffffffffffffd04d,%rdx,%rcx
lea    (%rax,%rcx,1),%rsi
add    $0x7fffffab,%rsi
add    %rcx,%rax
cmovns %rax,%rsi
mov    0x8(%rdi),%rcx
movabs $0x4f7a09cc7bd54605,%rdx
09 7a 4f
mov    %rcx,%rax
imul   %rdx
mov    %rdx,%rax
shr    $0x3f,%rax
sar    $0xe,%rdx
add    %rax,%rdx
imul   $0xffffffffffff31da,%rdx,%rax
add    %rcx,%rax
imul   $0x9ef4,%rax,%rax
imul   $0xfffffffffffff131,%rdx,%rcx
lea    (%rax,%rcx,1),%rdx
add    $0x7fffff07,%rdx
add    %rcx,%rax
cmovns %rax,%rdx
mov    %rsi,(%rdi)
mov    %rdx,0x8(%rdi)
sub    %rdx,%rsi
lea    0x7fffffaa(%rsi),%rax
test   %rsi,%rsi
cmovg  %rsi,%rax
add    $0xffffffffffffffff,%rax
ret

LLVM IR (-O0):
define i64 @lpcrand(i64* %0) {
%2 = alloca i64*
%3 = alloca i64
%4 = alloca i64
store i64* %0, i64** %2
%5 = load i64*, i64** %2
%6 = getelementptr inbounds i64, i64* %5, i64 0
%7 = load i64, i64* %6
%8 = sdiv i64 %7, 53668
store i64 %8, i64* %3
%9 = load i64*, i64** %2
%10 = getelementptr inbounds i64, i64* %9, i64 0
%11 = load i64, i64* %10
%12 = load i64, i64* %3
%13 = mul nsw i64 %12, 53668
%14 = sub nsw i64 %11, %13
%15 = mul nsw i64 40014, %14
%16 = load i64, i64* %3
%17 = mul nsw i64 %16, 12211
%18 = sub nsw i64 %15, %17
%19 = load i64*, i64** %2
%20 = getelementptr inbounds i64, i64* %19, i64 0
store i64 %18, i64* %20
%21 = load i64*, i64** %2
%22 = getelementptr inbounds i64, i64* %21, i64 0
%23 = load i64, i64* %22
%24 = icmp slt i64 %23, 0
br i1 %24, label %25, label %30
25: ; preds = %1
%26 = load i64*, i64** %2
%27 = getelementptr inbounds i64, i64* %26, i64 0
%28 = load i64, i64* %27
%29 = add nsw i64 %28, 2147483563
store i64 %29, i64* %27
br label %30
30: ; preds = %25, %1
%31 = load i64*, i64** %2
%32 = getelementptr inbounds i64, i64* %31, i64 1
%33 = load i64, i64* %32
%34 = sdiv i64 %33, 52774
store i64 %34, i64* %3
%35 = load i64*, i64** %2
%36 = getelementptr inbounds i64, i64* %35, i64 1
%37 = load i64, i64* %36
%38 = load i64, i64* %3
%39 = mul nsw i64 %38, 52774
%40 = sub nsw i64 %37, %39
%41 = mul nsw i64 40692, %40
%42 = load i64, i64* %3
%43 = mul nsw i64 %42, 3791
%44 = sub nsw i64 %41, %43
%45 = load i64*, i64** %2
%46 = getelementptr inbounds i64, i64* %45, i64 1
store i64 %44, i64* %46
%47 = load i64*, i64** %2
%48 = getelementptr inbounds i64, i64* %47, i64 1
%49 = load i64, i64* %48
%50 = icmp slt i64 %49, 0
br i1 %50, label %51, label %56
51: ; preds = %30
%52 = load i64*, i64** %2
%53 = getelementptr inbounds i64, i64* %52, i64 1
%54 = load i64, i64* %53
%55 = add nsw i64 %54, 2147483399
store i64 %55, i64* %53
br label %56
56: ; preds = %51, %30
%57 = load i64*, i64** %2
%58 = getelementptr inbounds i64, i64* %57, i64 0
%59 = load i64, i64* %58
%60 = load i64*, i64** %2
%61 = getelementptr inbounds i64, i64* %60, i64 1
%62 = load i64, i64* %61
%63 = sub nsw i64 %59, %62
store i64 %63, i64* %4
%64 = load i64, i64* %4
%65 = icmp slt i64 %64, 1
br i1 %65, label %66, label %69
66: ; preds = %56
%67 = load i64, i64* %4
%68 = add nsw i64 %67, 2147483562
store i64 %68, i64* %4
br label %69
69: ; preds = %66, %56
%70 = load i64, i64* %4
%71 = sub nsw i64 %70, 1
ret i64 %71
}

LLVM IR (-O2):
define i64 @lpcrand(i64* nocapture %0) {
%2 = load i64, i64* %0
%3 = sdiv i64 %2, 53668
%4 = mul nsw i64 %3, -53668
%5 = add i64 %4, %2
%6 = mul nsw i64 %5, 40014
%7 = mul nsw i64 %3, -12211
%8 = add i64 %6, %7
%9 = icmp slt i64 %8, 0
%10 = add nsw i64 %8, 2147483563
%11 = select i1 %9, i64 %10, i64 %8
store i64 %11, i64* %0
%12 = getelementptr inbounds i64, i64* %0, i64 1
%13 = load i64, i64* %12
%14 = sdiv i64 %13, 52774
%15 = mul nsw i64 %14, -52774
%16 = add i64 %15, %13
%17 = mul nsw i64 %16, 40692
%18 = mul nsw i64 %14, -3791
%19 = add i64 %17, %18
%20 = icmp slt i64 %19, 0
%21 = add nsw i64 %19, 2147483399
%22 = select i1 %20, i64 %21, i64 %19
store i64 %22, i64* %12
%23 = sub nsw i64 %11, %22
%24 = icmp slt i64 %23, 1
%25 = add nsw i64 %23, 2147483562
%26 = select i1 %24, i64 %25, i64 %23
%27 = add nsw i64 %26, -1
ret i64 %27
}