long julian(long date) {
  long offset;
  long result;
  long yr;
  long yend;
  offset = date - 92001;
  result = 92001;
  while (1) {
    yr = result / 1000;
    yend = yr * 1000 + 365 + ((!(yr % 4) && (yr % 100)) ? 1 : 0);
    if (result + offset > yend) {
      offset -= yend - result + 1;
      result += 1000;
      continue;
    } else
      break;
  }
  return (result + offset);
}


x86 assembly (clang, -O0):
<julian>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    -0x8(%rbp),%rax
sub    $0x16761,%rax
mov    %rax,-0x10(%rbp)
movq   $0x16761,-0x18(%rbp)
mov    -0x18(%rbp),%rax
mov    $0x3e8,%ecx
cqto
idiv   %rcx
mov    %rax,-0x20(%rbp)
imul   $0x3e8,-0x20(%rbp),%rax
add    $0x16d,%rax
mov    %rax,-0x38(%rbp)
mov    -0x20(%rbp),%rax
mov    $0x4,%ecx
cqto
idiv   %rcx
xor    %eax,%eax
cmp    $0x0,%rdx
mov    %al,-0x29(%rbp)
jne    1177 <julian+0x77>
mov    -0x20(%rbp),%rax
mov    $0x64,%ecx
cqto
idiv   %rcx
cmp    $0x0,%rdx
setne  %al
mov    %al,-0x29(%rbp)
mov    -0x38(%rbp),%rax
mov    -0x29(%rbp),%sil
xor    %ecx,%ecx
mov    $0x1,%edx
test   $0x1,%sil
cmovne %edx,%ecx
movslq %ecx,%rcx
add    %rcx,%rax
mov    %rax,-0x28(%rbp)
mov    -0x18(%rbp),%rax
add    -0x10(%rbp),%rax
cmp    -0x28(%rbp),%rax
jle    11d3 <julian+0xd3>
mov    -0x28(%rbp),%rcx
sub    -0x18(%rbp),%rcx
add    $0x1,%rcx
mov    -0x10(%rbp),%rax
sub    %rcx,%rax
mov    %rax,-0x10(%rbp)
mov    -0x18(%rbp),%rax
add    $0x3e8,%rax
mov    %rax,-0x18(%rbp)
jmp    111e <julian+0x1e>
jmp    11d8 <julian+0xd8>
mov    -0x18(%rbp),%rax
add    -0x10(%rbp),%rax
pop    %rbp
ret

x86 assembly (clang, -O2):
<julian>:
add    $0xfffffffffffe989f,%rdi
mov    $0xffffffffffffffa4,%r8
mov    $0x5c,%esi
mov    $0xfffffffffffe9732,%r9
mov    $0x168cd,%ecx
movabs $0x28f5c28f5c28f5c3,%r10
c2 f5 28
nopl   0x0(%rax)
mov    %rsi,%rax
shr    $0x2,%rax
mul    %r10
test   $0x3,%sil
je     1150 <julian+0x50>
xor    %eax,%eax
jmp    115e <julian+0x5e>
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
shr    $0x2,%rdx
imul   $0x64,%rdx,%rax
add    %r8,%rax
setne  %al
movzbl %al,%eax
lea    (%rcx,%rax,1),%rdx
add    %rcx,%rdi
add    $0xfffffffffffffe94,%rdi
cmp    %rdx,%rdi
jle    1195 <julian+0x95>
mov    %r9,%rdx
sub    %rax,%rdx
add    %rdx,%rdi
add    $0xffffffffffffffff,%r8
add    $0x1,%rsi
add    $0xfffffffffffffc18,%r9
add    $0x3e8,%rcx
jmp    1130 <julian+0x30>
mov    %rdi,%rax
ret

LLVM IR (-O0):
define i64 @julian(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 = sub nsw i64 %7, 92001
store i64 %8, i64* %3
store i64 92001, i64* %4
br label %9
9: ; preds = %1, %33
%10 = load i64, i64* %4
%11 = sdiv i64 %10, 1000
store i64 %11, i64* %5
%12 = load i64, i64* %5
%13 = mul nsw i64 %12, 1000
%14 = add nsw i64 %13, 365
%15 = load i64, i64* %5
%16 = srem i64 %15, 4
%17 = icmp ne i64 %16, 0
br i1 %17, label %22, label %18
18: ; preds = %9
%19 = load i64, i64* %5
%20 = srem i64 %19, 100
%21 = icmp ne i64 %20, 0
br label %22
22: ; preds = %18, %9
%23 = phi i1 [ false, %9 ], [ %21, %18 ]
%24 = zext i1 %23 to i64
%25 = select i1 %23, i32 1, i32 0
%26 = sext i32 %25 to i64
%27 = add nsw i64 %14, %26
store i64 %27, i64* %6
%28 = load i64, i64* %4
%29 = load i64, i64* %3
%30 = add nsw i64 %28, %29
%31 = load i64, i64* %6
%32 = icmp sgt i64 %30, %31
br i1 %32, label %33, label %42
33: ; preds = %22
%34 = load i64, i64* %6
%35 = load i64, i64* %4
%36 = sub nsw i64 %34, %35
%37 = add nsw i64 %36, 1
%38 = load i64, i64* %3
%39 = sub nsw i64 %38, %37
store i64 %39, i64* %3
%40 = load i64, i64* %4
%41 = add nsw i64 %40, 1000
store i64 %41, i64* %4
br label %9
42: ; preds = %22
br label %43
43: ; preds = %42
%44 = load i64, i64* %4
%45 = load i64, i64* %3
%46 = add nsw i64 %44, %45
ret i64 %46
}

LLVM IR (-O2):
define i64 @julian(i64 %0) {
%2 = add nsw i64 %0, -92001
br label %3
3: ; preds = %20, %1
%4 = phi i64 [ 92001, %1 ], [ %23, %20 ]
%5 = phi i64 [ %2, %1 ], [ %22, %20 ]
%6 = udiv i64 %4, 1000
%7 = mul nuw nsw i64 %6, 1000
%8 = add nuw nsw i64 %7, 365
%9 = and i64 %6, 3
%10 = icmp eq i64 %9, 0
br i1 %10, label %11, label %14
11: ; preds = %3
%12 = urem i64 %6, 100
%13 = icmp ne i64 %12, 0
br label %14
14: ; preds = %11, %3
%15 = phi i1 [ false, %3 ], [ %13, %11 ]
%16 = zext i1 %15 to i64
%17 = add nuw nsw i64 %8, %16
%18 = add i64 %5, %4
%19 = icmp sgt i64 %18, %17
br i1 %19, label %20, label %24
20: ; preds = %14
%21 = xor i64 %17, -1
%22 = add i64 %18, %21
%23 = add nuw nsw i64 %4, 1000
br label %3
24: ; preds = %14
ret i64 %18
}