long libj_fishman(sn)
long sn;
{
  long L, H;
  long p, q;
  long P;
  long Hi, Lo;
  L = sn & 0xffff;
  H = sn >> 16;
  q = 0xff5 * L;
  p = 0xff5 * H + (q >> 16);
  q = ((p & 0x7fff) << 16) | (q & 0xffff);
  P = H + (L >> 16);
  L = ((P & 0x7fff) << 16) | (L & 0xffff);
  Lo = q + ((L & 0x7fff) << 16);
  Hi = (p >> 15) + (P >> 15) + ((L & 0x7fff8000) >> 15);
  sn = Lo - 0x7fffffff;
  sn += Hi;
  if (sn <= 0) {
    sn += 0x7fffffff;
  }
  return (sn);
}


x86 assembly (clang, -O0):
<libj_fishman>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    -0x8(%rbp),%rax
and    $0xffff,%rax
mov    %rax,-0x10(%rbp)
mov    -0x8(%rbp),%rax
sar    $0x10,%rax
mov    %rax,-0x18(%rbp)
imul   $0xff5,-0x10(%rbp),%rax
mov    %rax,-0x28(%rbp)
imul   $0xff5,-0x18(%rbp),%rax
mov    -0x28(%rbp),%rcx
sar    $0x10,%rcx
add    %rcx,%rax
mov    %rax,-0x20(%rbp)
mov    -0x20(%rbp),%rax
and    $0x7fff,%rax
shl    $0x10,%rax
mov    -0x28(%rbp),%rcx
and    $0xffff,%rcx
or     %rcx,%rax
mov    %rax,-0x28(%rbp)
mov    -0x18(%rbp),%rax
mov    -0x10(%rbp),%rcx
sar    $0x10,%rcx
add    %rcx,%rax
mov    %rax,-0x30(%rbp)
mov    -0x30(%rbp),%rax
and    $0x7fff,%rax
shl    $0x10,%rax
mov    -0x10(%rbp),%rcx
and    $0xffff,%rcx
or     %rcx,%rax
mov    %rax,-0x10(%rbp)
mov    -0x28(%rbp),%rax
mov    -0x10(%rbp),%rcx
and    $0x7fff,%rcx
shl    $0x10,%rcx
add    %rcx,%rax
mov    %rax,-0x40(%rbp)
mov    -0x20(%rbp),%rax
sar    $0xf,%rax
mov    -0x30(%rbp),%rcx
sar    $0xf,%rcx
add    %rcx,%rax
mov    -0x10(%rbp),%rcx
and    $0x7fff8000,%rcx
sar    $0xf,%rcx
add    %rcx,%rax
mov    %rax,-0x38(%rbp)
mov    -0x40(%rbp),%rax
sub    $0x7fffffff,%rax
mov    %rax,-0x8(%rbp)
mov    -0x38(%rbp),%rax
add    -0x8(%rbp),%rax
mov    %rax,-0x8(%rbp)
cmpq   $0x0,-0x8(%rbp)
jg     120e <libj_fishman+0x10e>
mov    -0x8(%rbp),%rax
add    $0x7fffffff,%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<libj_fishman>:
movzwl %di,%eax
mov    %rdi,%rcx
sar    $0x10,%rcx
imul   $0xff5,%rax,%rax
imul   $0xff5,%rcx,%rcx
movzwl %ax,%edx
shr    $0x10,%rax
add    %rcx,%rax
mov    %eax,%ecx
shl    $0x10,%ecx
and    $0x7fff0000,%ecx
or     %rcx,%rdx
mov    %edi,%ecx
shl    $0x10,%ecx
and    $0x7fff0000,%ecx
add    %rdx,%rcx
sar    $0xf,%rax
mov    %rdi,%rdx
sar    $0x1f,%rdx
shr    $0xf,%edi
movzwl %di,%esi
add    %rdx,%rsi
add    %rax,%rsi
lea    (%rcx,%rsi,1),%rdx
lea    (%rcx,%rsi,1),%rax
add    $0xffffffff80000001,%rax
mov    $0x80000000,%ecx
cmp    %rcx,%rdx
cmovl  %rdx,%rax
ret

LLVM IR (-O0):
define i64 @libj_fishman(i64 %0) {
%2 = alloca i64
%3 = alloca i64
%4 = alloca i64
%5 = alloca i64
%6 = alloca i64
%7 = alloca i64
%8 = alloca i64
%9 = alloca i64
store i64 %0, i64* %2
%10 = load i64, i64* %2
%11 = and i64 %10, 65535
store i64 %11, i64* %3
%12 = load i64, i64* %2
%13 = ashr i64 %12, 16
store i64 %13, i64* %4
%14 = load i64, i64* %3
%15 = mul nsw i64 4085, %14
store i64 %15, i64* %6
%16 = load i64, i64* %4
%17 = mul nsw i64 4085, %16
%18 = load i64, i64* %6
%19 = ashr i64 %18, 16
%20 = add nsw i64 %17, %19
store i64 %20, i64* %5
%21 = load i64, i64* %5
%22 = and i64 %21, 32767
%23 = shl i64 %22, 16
%24 = load i64, i64* %6
%25 = and i64 %24, 65535
%26 = or i64 %23, %25
store i64 %26, i64* %6
%27 = load i64, i64* %4
%28 = load i64, i64* %3
%29 = ashr i64 %28, 16
%30 = add nsw i64 %27, %29
store i64 %30, i64* %7
%31 = load i64, i64* %7
%32 = and i64 %31, 32767
%33 = shl i64 %32, 16
%34 = load i64, i64* %3
%35 = and i64 %34, 65535
%36 = or i64 %33, %35
store i64 %36, i64* %3
%37 = load i64, i64* %6
%38 = load i64, i64* %3
%39 = and i64 %38, 32767
%40 = shl i64 %39, 16
%41 = add nsw i64 %37, %40
store i64 %41, i64* %9
%42 = load i64, i64* %5
%43 = ashr i64 %42, 15
%44 = load i64, i64* %7
%45 = ashr i64 %44, 15
%46 = add nsw i64 %43, %45
%47 = load i64, i64* %3
%48 = and i64 %47, 2147450880
%49 = ashr i64 %48, 15
%50 = add nsw i64 %46, %49
store i64 %50, i64* %8
%51 = load i64, i64* %9
%52 = sub nsw i64 %51, 2147483647
store i64 %52, i64* %2
%53 = load i64, i64* %8
%54 = load i64, i64* %2
%55 = add nsw i64 %54, %53
store i64 %55, i64* %2
%56 = load i64, i64* %2
%57 = icmp sle i64 %56, 0
br i1 %57, label %58, label %61
58: ; preds = %1
%59 = load i64, i64* %2
%60 = add nsw i64 %59, 2147483647
store i64 %60, i64* %2
br label %61
61: ; preds = %58, %1
%62 = load i64, i64* %2
ret i64 %62
}

LLVM IR (-O2):
define i64 @libj_fishman(i64 %0) {
%2 = and i64 %0, 65535
%3 = ashr i64 %0, 16
%4 = mul nuw nsw i64 %2, 4085
%5 = mul nsw i64 %3, 4085
%6 = lshr i64 %4, 16
%7 = add nsw i64 %6, %5
%8 = shl i64 %7, 16
%9 = and i64 %8, 2147418112
%10 = and i64 %4, 65535
%11 = or i64 %9, %10
%12 = shl i64 %0, 16
%13 = and i64 %12, 2147418112
%14 = add nuw nsw i64 %11, %13
%15 = ashr i64 %7, 15
%16 = ashr i64 %0, 31
%17 = lshr i64 %0, 15
%18 = and i64 %17, 65535
%19 = add nsw i64 %18, %16
%20 = add nsw i64 %19, %15
%21 = add nsw i64 %14, %20
%22 = add nsw i64 %21, -2147483647
%23 = icmp slt i64 %21, 2147483648
%24 = select i1 %23, i64 %21, i64 %22
ret i64 %24
}