jan1(yr) {
  register y, d;
  y = yr;
  d = 4 + y + (y + 3) / 4;
  if (y > 1800) {
    d -= (y - 1701) / 100;
    d += (y - 1601) / 400;
  }
  if (y > 1752)
    d += 3;
  return (d % 7);
}


x86 assembly (clang, -O0):
<jan1>:
push   %rbp
mov    %rsp,%rbp
mov    %edi,-0x4(%rbp)
mov    -0x4(%rbp),%eax
mov    %eax,-0x8(%rbp)
mov    -0x8(%rbp),%eax
add    $0x4,%eax
mov    %eax,-0x10(%rbp)
mov    -0x8(%rbp),%eax
add    $0x3,%eax
mov    $0x4,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x10(%rbp),%eax
add    %ecx,%eax
mov    %eax,-0xc(%rbp)
cmpl   $0x708,-0x8(%rbp)
jle    116b <jan1+0x6b>
mov    -0x8(%rbp),%eax
sub    $0x6a5,%eax
mov    $0x64,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0xc(%rbp),%eax
sub    %ecx,%eax
mov    %eax,-0xc(%rbp)
mov    -0x8(%rbp),%eax
sub    $0x641,%eax
mov    $0x190,%ecx
cltd
idiv   %ecx
add    -0xc(%rbp),%eax
mov    %eax,-0xc(%rbp)
cmpl   $0x6d8,-0x8(%rbp)
jle    1181 <jan1+0x81>
mov    -0xc(%rbp),%eax
add    $0x3,%eax
mov    %eax,-0xc(%rbp)
mov    -0xc(%rbp),%eax
mov    $0x7,%ecx
cltd
idiv   %ecx
mov    %edx,%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<jan1>:
lea    0x3(%rdi),%eax
lea    0x6(%rdi),%ecx
test   %eax,%eax
cmovns %eax,%ecx
sar    $0x2,%ecx
lea    (%rdi,%rcx,1),%eax
add    $0x4,%eax
cmp    $0x709,%edi
jl     1144 <jan1+0x44>
lea    -0x6a5(%rdi),%ecx
imul   $0x51eb851f,%rcx,%rcx
shr    $0x25,%rcx
lea    -0x641(%rdi),%edx
imul   $0x51eb851f,%rdx,%rdx
shr    $0x27,%rdx
sub    %ecx,%edx
add    %eax,%edx
mov    %edx,%eax
lea    0x3(%rax),%ecx
cmp    $0x6d9,%edi
cmovl  %eax,%ecx
movslq %ecx,%rcx
imul   $0xffffffff92492493,%rcx,%rax
shr    $0x20,%rax
add    %ecx,%eax
mov    %eax,%edx
shr    $0x1f,%edx
sar    $0x2,%eax
add    %edx,%eax
lea    0x0(,%rax,8),%edx
sub    %edx,%eax
add    %ecx,%eax
ret

LLVM IR (-O0):
define i32 @jan1(i32 %0) {
%2 = alloca i32
%3 = alloca i32
%4 = alloca i32
store i32 %0, i32* %2
%5 = load i32, i32* %2
store i32 %5, i32* %3
%6 = load i32, i32* %3
%7 = add nsw i32 4, %6
%8 = load i32, i32* %3
%9 = add nsw i32 %8, 3
%10 = sdiv i32 %9, 4
%11 = add nsw i32 %7, %10
store i32 %11, i32* %4
%12 = load i32, i32* %3
%13 = icmp sgt i32 %12, 1800
br i1 %13, label %14, label %25
14: ; preds = %1
%15 = load i32, i32* %3
%16 = sub nsw i32 %15, 1701
%17 = sdiv i32 %16, 100
%18 = load i32, i32* %4
%19 = sub nsw i32 %18, %17
store i32 %19, i32* %4
%20 = load i32, i32* %3
%21 = sub nsw i32 %20, 1601
%22 = sdiv i32 %21, 400
%23 = load i32, i32* %4
%24 = add nsw i32 %23, %22
store i32 %24, i32* %4
br label %25
25: ; preds = %14, %1
%26 = load i32, i32* %3
%27 = icmp sgt i32 %26, 1752
br i1 %27, label %28, label %31
28: ; preds = %25
%29 = load i32, i32* %4
%30 = add nsw i32 %29, 3
store i32 %30, i32* %4
br label %31
31: ; preds = %28, %25
%32 = load i32, i32* %4
%33 = srem i32 %32, 7
ret i32 %33
}

LLVM IR (-O2):
define i32 @jan1(i32 %0) {
%2 = add nsw i32 %0, 4
%3 = add nsw i32 %0, 3
%4 = sdiv i32 %3, 4
%5 = add nsw i32 %2, %4
%6 = icmp sgt i32 %0, 1800
br i1 %6, label %7, label %14
7: ; preds = %1
%8 = add nsw i32 %0, -1701
%9 = udiv i32 %8, 100
%10 = add nsw i32 %0, -1601
%11 = udiv i32 %10, 400
%12 = sub nsw i32 %11, %9
%13 = add i32 %12, %5
br label %14
14: ; preds = %7, %1
%15 = phi i32 [ %13, %7 ], [ %5, %1 ]
%16 = icmp sgt i32 %0, 1752
%17 = add nsw i32 %15, 3
%18 = select i1 %16, i32 %17, i32 %15
%19 = srem i32 %18, 7
ret i32 %19
}