long mjd(date)
char *date;
{
  char year[5];
  char month[3];
  char day[3];
  int x, a, d, m, y;
  long z;
  if (!date)
    date = "";
  x = strlen(date);
  if (x < 1)
    return (0L);
  if (x < 8)
    return (-1L);
  for (x = 0; x < 8; x++)
    if (!isdigit(date[x]))
      return (-1L);
  year[0] = date[0];
  year[1] = date[1];
  year[2] = date[2];
  year[3] = date[3];
  year[4] = '\0';
  month[0] = date[4];
  month[1] = date[5];
  month[2] = '\0';
  ;
  m = atoi(month);
  day[0] = date[6];
  day[1] = date[7];
  day[2] = '\0';
  d = atoi(day);
  a = (14 - m) / 12;
  y = atoi(year) + 4800 - a;
  m = m + 12 * a - 3;
  z = d + (long)(306 * m + 5) / 10 + (long)(y * 365) + y / 4 - y / 100 +
      y / 400 - 32045L;
  z -= 2400001L;
  return (z);
}


x86 assembly (clang, -O0):
<mjd>:
push   %rbp
mov    %rsp,%rbp
sub    $0x60,%rsp
mov    %rdi,-0x10(%rbp)
cmpq   $0x0,-0x10(%rbp)
jne    1152 <mjd+0x22>
lea    0xeb2(%rip),%rax
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rdi
call   1040 <strlen@plt>
mov    %eax,-0x20(%rbp)
cmpl   $0x1,-0x20(%rbp)
jge    1175 <mjd+0x45>
movq   $0x0,-0x8(%rbp)
jmp    132c <mjd+0x1fc>
cmpl   $0x8,-0x20(%rbp)
jge    118c <mjd+0x5c>
movq   $0xffffffffffffffff,-0x8(%rbp)
ff
jmp    132c <mjd+0x1fc>
movl   $0x0,-0x20(%rbp)
cmpl   $0x8,-0x20(%rbp)
jge    11d7 <mjd+0xa7>
mov    -0x10(%rbp),%rax
movslq -0x20(%rbp),%rcx
movsbl (%rax,%rcx,1),%edi
call   1030 <isdigit@plt>
cmp    $0x0,%eax
jne    11c4 <mjd+0x94>
movq   $0xffffffffffffffff,-0x8(%rbp)
ff
jmp    132c <mjd+0x1fc>
jmp    11c9 <mjd+0x99>
mov    -0x20(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x20(%rbp)
jmp    1193 <mjd+0x63>
mov    -0x10(%rbp),%rax
mov    (%rax),%al
mov    %al,-0x15(%rbp)
mov    -0x10(%rbp),%rax
mov    0x1(%rax),%al
mov    %al,-0x14(%rbp)
mov    -0x10(%rbp),%rax
mov    0x2(%rax),%al
mov    %al,-0x13(%rbp)
mov    -0x10(%rbp),%rax
mov    0x3(%rax),%al
mov    %al,-0x12(%rbp)
movb   $0x0,-0x11(%rbp)
mov    -0x10(%rbp),%rax
mov    0x4(%rax),%al
mov    %al,-0x18(%rbp)
mov    -0x10(%rbp),%rax
mov    0x5(%rax),%al
mov    %al,-0x17(%rbp)
movb   $0x0,-0x16(%rbp)
lea    -0x18(%rbp),%rdi
mov    $0x0,%al
call   1050 <atoi@plt>
mov    %eax,-0x2c(%rbp)
mov    -0x10(%rbp),%rax
mov    0x6(%rax),%al
mov    %al,-0x1b(%rbp)
mov    -0x10(%rbp),%rax
mov    0x7(%rax),%al
mov    %al,-0x1a(%rbp)
movb   $0x0,-0x19(%rbp)
lea    -0x1b(%rbp),%rdi
mov    $0x0,%al
call   1050 <atoi@plt>
mov    %eax,-0x28(%rbp)
mov    $0xe,%eax
sub    -0x2c(%rbp),%eax
mov    $0xc,%ecx
cltd
idiv   %ecx
mov    %eax,-0x24(%rbp)
lea    -0x15(%rbp),%rdi
mov    $0x0,%al
call   1050 <atoi@plt>
add    $0x12c0,%eax
sub    -0x24(%rbp),%eax
mov    %eax,-0x30(%rbp)
mov    -0x2c(%rbp),%eax
imul   $0xc,-0x24(%rbp),%ecx
add    %ecx,%eax
sub    $0x3,%eax
mov    %eax,-0x2c(%rbp)
movslq -0x28(%rbp),%rax
mov    %rax,-0x58(%rbp)
imul   $0x132,-0x2c(%rbp),%eax
add    $0x5,%eax
cltq
mov    $0xa,%ecx
cqto
idiv   %rcx
mov    %rax,%rcx
mov    -0x58(%rbp),%rax
add    %rcx,%rax
imul   $0x16d,-0x30(%rbp),%ecx
movslq %ecx,%rcx
add    %rcx,%rax
mov    %rax,-0x50(%rbp)
mov    -0x30(%rbp),%eax
mov    $0x4,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x50(%rbp),%rax
movslq %ecx,%rcx
add    %rcx,%rax
mov    %rax,-0x48(%rbp)
mov    -0x30(%rbp),%eax
mov    $0x64,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x48(%rbp),%rax
movslq %ecx,%rcx
sub    %rcx,%rax
mov    %rax,-0x40(%rbp)
mov    -0x30(%rbp),%eax
mov    $0x190,%ecx
cltd
idiv   %ecx
mov    %eax,%ecx
mov    -0x40(%rbp),%rax
movslq %ecx,%rcx
add    %rcx,%rax
sub    $0x7d2d,%rax
mov    %rax,-0x38(%rbp)
mov    -0x38(%rbp),%rax
sub    $0x249f01,%rax
mov    %rax,-0x38(%rbp)
mov    -0x38(%rbp),%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
add    $0x60,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<mjd>:
push   %rbp
push   %r14
push   %rbx
sub    $0x10,%rsp
test   %rdi,%rdi
lea    0xece(%rip),%rbx
cmovne %rdi,%rbx
mov    %rbx,%rdi
call   1030 <strlen@plt>
mov    %rax,%rcx
test   %ecx,%ecx
jle    12f7 <mjd+0x1d7>
mov    $0xffffffffffffffff,%rax
cmp    $0x8,%ecx
jb     12f9 <mjd+0x1d9>
movsbl (%rbx),%ecx
lea    -0x30(%rcx),%edx
cmp    $0x9,%edx
ja     12f9 <mjd+0x1d9>
movsbl 0x1(%rbx),%edx
lea    -0x30(%rdx),%esi
cmp    $0x9,%esi
ja     12f9 <mjd+0x1d9>
movsbl 0x2(%rbx),%esi
lea    -0x30(%rsi),%edi
cmp    $0x9,%edi
ja     12f9 <mjd+0x1d9>
movsbl 0x3(%rbx),%r10d
lea    -0x30(%r10),%edi
cmp    $0x9,%edi
ja     12f9 <mjd+0x1d9>
movsbl 0x4(%rbx),%r8d
lea    -0x30(%r8),%edi
cmp    $0x9,%edi
ja     12f9 <mjd+0x1d9>
movsbl 0x5(%rbx),%r9d
lea    -0x30(%r9),%edi
cmp    $0x9,%edi
ja     12f9 <mjd+0x1d9>
movsbl 0x6(%rbx),%edi
add    $0xffffffd0,%edi
cmp    $0x9,%edi
ja     12f9 <mjd+0x1d9>
movsbl 0x7(%rbx),%edi
add    $0xffffffd0,%edi
cmp    $0x9,%edi
ja     12f9 <mjd+0x1d9>
mov    %cl,0xb(%rsp)
mov    %dl,0xc(%rsp)
mov    %sil,0xd(%rsp)
mov    %r10b,0xe(%rsp)
movb   $0x0,0xf(%rsp)
mov    %r8b,0x8(%rsp)
mov    %r9b,0x9(%rsp)
movb   $0x0,0xa(%rsp)
lea    0x8(%rsp),%rdi
xor    %eax,%eax
call   1040 <atoi@plt>
mov    %eax,%r14d
mov    0x6(%rbx),%al
mov    %al,0x5(%rsp)
mov    0x7(%rbx),%al
mov    %al,0x6(%rsp)
movb   $0x0,0x7(%rsp)
lea    0x5(%rsp),%rdi
xor    %eax,%eax
call   1040 <atoi@plt>
mov    %eax,%ebp
mov    $0xe,%eax
sub    %r14d,%eax
cltq
imul   $0x2aaaaaab,%rax,%rbx
mov    %rbx,%rax
shr    $0x3f,%rax
sar    $0x21,%rbx
add    %eax,%ebx
lea    0xb(%rsp),%rdi
xor    %eax,%eax
call   1040 <atoi@plt>
sub    %ebx,%eax
lea    0x12c0(%rax),%edi
lea    (%rbx,%rbx,2),%ecx
lea    (%r14,%rcx,4),%edx
movslq %ebp,%rcx
imul   $0x132,%edx,%edx
add    $0xfffffc6f,%edx
movslq %edx,%rdx
imul   $0x66666667,%rdx,%rdx
mov    %rdx,%rsi
shr    $0x3f,%rsi
sar    $0x22,%rdx
add    %esi,%edx
movslq %edx,%rdx
imul   $0x16d,%edi,%esi
movslq %esi,%rsi
add    $0x12c3,%eax
test   %edi,%edi
cmovns %edi,%eax
sar    $0x2,%eax
cltq
movslq %edi,%rdi
imul   $0xffffffffae147ae1,%rdi,%rbp
mov    %rbp,%rbx
shr    $0x3f,%rbx
sar    $0x25,%rbp
add    %ebx,%ebp
movslq %ebp,%rbp
imul   $0x51eb851f,%rdi,%rdi
mov    %rdi,%rbx
shr    $0x3f,%rbx
sar    $0x27,%rdi
add    %ebx,%edi
movslq %edi,%rdi
add    %rcx,%rdx
add    %rsi,%rdx
add    %rax,%rdx
add    %rbp,%rdx
lea    (%rdi,%rdx,1),%rax
add    $0xffffffffffdae3d2,%rax
jmp    12f9 <mjd+0x1d9>
xor    %eax,%eax
add    $0x10,%rsp
pop    %rbx
pop    %r14
pop    %rbp
ret

LLVM IR (-O0):
@.str = [1 x i8] zeroinitializer
define i64 @mjd(i8* %0) {
%2 = alloca i64
%3 = alloca i8*
%4 = alloca [5 x i8]
%5 = alloca [3 x i8]
%6 = alloca [3 x i8]
%7 = alloca i32
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32
%11 = alloca i32
%12 = alloca i64
store i8* %0, i8** %3
%13 = load i8*, i8** %3
%14 = icmp ne i8* %13, null
br i1 %14, label %16, label %15
15: ; preds = %1
store i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str, i64 0, i64 0), i8** %3
br label %16
16: ; preds = %15, %1
%17 = load i8*, i8** %3
%18 = call i64 @strlen(i8* %17)
%19 = trunc i64 %18 to i32
store i32 %19, i32* %7
%20 = load i32, i32* %7
%21 = icmp slt i32 %20, 1
br i1 %21, label %22, label %23
22: ; preds = %16
store i64 0, i64* %2
br label %126
23: ; preds = %16
%24 = load i32, i32* %7
%25 = icmp slt i32 %24, 8
br i1 %25, label %26, label %27
26: ; preds = %23
store i64 -1, i64* %2
br label %126
27: ; preds = %23
store i32 0, i32* %7
br label %28
28: ; preds = %42, %27
%29 = load i32, i32* %7
%30 = icmp slt i32 %29, 8
br i1 %30, label %31, label %45
31: ; preds = %28
%32 = load i8*, i8** %3
%33 = load i32, i32* %7
%34 = sext i32 %33 to i64
%35 = getelementptr inbounds i8, i8* %32, i64 %34
%36 = load i8, i8* %35
%37 = sext i8 %36 to i32
%38 = call i32 @isdigit(i32 %37)
%39 = icmp ne i32 %38, 0
br i1 %39, label %41, label %40
40: ; preds = %31
store i64 -1, i64* %2
br label %126
41: ; preds = %31
br label %42
42: ; preds = %41
%43 = load i32, i32* %7
%44 = add nsw i32 %43, 1
store i32 %44, i32* %7
br label %28
45: ; preds = %28
%46 = load i8*, i8** %3
%47 = getelementptr inbounds i8, i8* %46, i64 0
%48 = load i8, i8* %47
%49 = getelementptr inbounds [5 x i8], [5 x i8]* %4, i64 0, i64 0
store i8 %48, i8* %49
%50 = load i8*, i8** %3
%51 = getelementptr inbounds i8, i8* %50, i64 1
%52 = load i8, i8* %51
%53 = getelementptr inbounds [5 x i8], [5 x i8]* %4, i64 0, i64 1
store i8 %52, i8* %53
%54 = load i8*, i8** %3
%55 = getelementptr inbounds i8, i8* %54, i64 2
%56 = load i8, i8* %55
%57 = getelementptr inbounds [5 x i8], [5 x i8]* %4, i64 0, i64 2
store i8 %56, i8* %57
%58 = load i8*, i8** %3
%59 = getelementptr inbounds i8, i8* %58, i64 3
%60 = load i8, i8* %59
%61 = getelementptr inbounds [5 x i8], [5 x i8]* %4, i64 0, i64 3
store i8 %60, i8* %61
%62 = getelementptr inbounds [5 x i8], [5 x i8]* %4, i64 0, i64 4
store i8 0, i8* %62
%63 = load i8*, i8** %3
%64 = getelementptr inbounds i8, i8* %63, i64 4
%65 = load i8, i8* %64
%66 = getelementptr inbounds [3 x i8], [3 x i8]* %5, i64 0, i64 0
store i8 %65, i8* %66
%67 = load i8*, i8** %3
%68 = getelementptr inbounds i8, i8* %67, i64 5
%69 = load i8, i8* %68
%70 = getelementptr inbounds [3 x i8], [3 x i8]* %5, i64 0, i64 1
store i8 %69, i8* %70
%71 = getelementptr inbounds [3 x i8], [3 x i8]* %5, i64 0, i64 2
store i8 0, i8* %71
%72 = getelementptr inbounds [3 x i8], [3 x i8]* %5, i64 0, i64 0
%73 = call i32 (i8*, ...) bitcast (i32 (...)* @atoi to i32 (i8*, ...)*)(i8* %72)
store i32 %73, i32* %10
%74 = load i8*, i8** %3
%75 = getelementptr inbounds i8, i8* %74, i64 6
%76 = load i8, i8* %75
%77 = getelementptr inbounds [3 x i8], [3 x i8]* %6, i64 0, i64 0
store i8 %76, i8* %77
%78 = load i8*, i8** %3
%79 = getelementptr inbounds i8, i8* %78, i64 7
%80 = load i8, i8* %79
%81 = getelementptr inbounds [3 x i8], [3 x i8]* %6, i64 0, i64 1
store i8 %80, i8* %81
%82 = getelementptr inbounds [3 x i8], [3 x i8]* %6, i64 0, i64 2
store i8 0, i8* %82
%83 = getelementptr inbounds [3 x i8], [3 x i8]* %6, i64 0, i64 0
%84 = call i32 (i8*, ...) bitcast (i32 (...)* @atoi to i32 (i8*, ...)*)(i8* %83)
store i32 %84, i32* %9
%85 = load i32, i32* %10
%86 = sub nsw i32 14, %85
%87 = sdiv i32 %86, 12
store i32 %87, i32* %8
%88 = getelementptr inbounds [5 x i8], [5 x i8]* %4, i64 0, i64 0
%89 = call i32 (i8*, ...) bitcast (i32 (...)* @atoi to i32 (i8*, ...)*)(i8* %88)
%90 = add nsw i32 %89, 4800
%91 = load i32, i32* %8
%92 = sub nsw i32 %90, %91
store i32 %92, i32* %11
%93 = load i32, i32* %10
%94 = load i32, i32* %8
%95 = mul nsw i32 12, %94
%96 = add nsw i32 %93, %95
%97 = sub nsw i32 %96, 3
store i32 %97, i32* %10
%98 = load i32, i32* %9
%99 = sext i32 %98 to i64
%100 = load i32, i32* %10
%101 = mul nsw i32 306, %100
%102 = add nsw i32 %101, 5
%103 = sext i32 %102 to i64
%104 = sdiv i64 %103, 10
%105 = add nsw i64 %99, %104
%106 = load i32, i32* %11
%107 = mul nsw i32 %106, 365
%108 = sext i32 %107 to i64
%109 = add nsw i64 %105, %108
%110 = load i32, i32* %11
%111 = sdiv i32 %110, 4
%112 = sext i32 %111 to i64
%113 = add nsw i64 %109, %112
%114 = load i32, i32* %11
%115 = sdiv i32 %114, 100
%116 = sext i32 %115 to i64
%117 = sub nsw i64 %113, %116
%118 = load i32, i32* %11
%119 = sdiv i32 %118, 400
%120 = sext i32 %119 to i64
%121 = add nsw i64 %117, %120
%122 = sub nsw i64 %121, 32045
store i64 %122, i64* %12
%123 = load i64, i64* %12
%124 = sub nsw i64 %123, 2400001
store i64 %124, i64* %12
%125 = load i64, i64* %12
store i64 %125, i64* %2
br label %126
126: ; preds = %45, %40, %26, %22
%127 = load i64, i64* %2
ret i64 %127
}

LLVM IR (-O2):
@.str = [1 x i8] zeroinitializer
define i64 @mjd(i8* %0) {
%2 = alloca [5 x i8]
%3 = alloca [3 x i8]
%4 = alloca [3 x i8]
%5 = getelementptr inbounds [5 x i8], [5 x i8]* %2, i64 0, i64 0
%6 = getelementptr inbounds [3 x i8], [3 x i8]* %3, i64 0, i64 0
%7 = getelementptr inbounds [3 x i8], [3 x i8]* %4, i64 0, i64 0
%8 = icmp eq i8* %0, null
%9 = select i1 %8, i8* getelementptr inbounds ([1 x i8], [1 x i8]* @.str, i64 0, i64 0), i8* %0
%10 = tail call i64 @strlen(i8* dereferenceable(1) %9)
%11 = trunc i64 %10 to i32
%12 = icmp slt i32 %11, 1
br i1 %12, label %101, label %13
13: ; preds = %1
%14 = icmp ult i32 %11, 8
br i1 %14, label %101, label %15
15: ; preds = %13
%16 = load i8, i8* %9
%17 = sext i8 %16 to i32
%18 = add nsw i32 %17, -48
%19 = icmp ult i32 %18, 10
br i1 %19, label %20, label %101
20: ; preds = %15
%21 = getelementptr inbounds i8, i8* %9, i64 1
%22 = load i8, i8* %21
%23 = sext i8 %22 to i32
%24 = add nsw i32 %23, -48
%25 = icmp ult i32 %24, 10
br i1 %25, label %26, label %101
26: ; preds = %20
%27 = getelementptr inbounds i8, i8* %9, i64 2
%28 = load i8, i8* %27
%29 = sext i8 %28 to i32
%30 = add nsw i32 %29, -48
%31 = icmp ult i32 %30, 10
br i1 %31, label %32, label %101
32: ; preds = %26
%33 = getelementptr inbounds i8, i8* %9, i64 3
%34 = load i8, i8* %33
%35 = sext i8 %34 to i32
%36 = add nsw i32 %35, -48
%37 = icmp ult i32 %36, 10
br i1 %37, label %38, label %101
38: ; preds = %32
%39 = getelementptr inbounds i8, i8* %9, i64 4
%40 = load i8, i8* %39
%41 = sext i8 %40 to i32
%42 = add nsw i32 %41, -48
%43 = icmp ult i32 %42, 10
br i1 %43, label %44, label %101
44: ; preds = %38
%45 = getelementptr inbounds i8, i8* %9, i64 5
%46 = load i8, i8* %45
%47 = sext i8 %46 to i32
%48 = add nsw i32 %47, -48
%49 = icmp ult i32 %48, 10
br i1 %49, label %50, label %101
50: ; preds = %44
%51 = getelementptr inbounds i8, i8* %9, i64 6
%52 = load i8, i8* %51
%53 = sext i8 %52 to i32
%54 = add nsw i32 %53, -48
%55 = icmp ult i32 %54, 10
br i1 %55, label %56, label %101
56: ; preds = %50
%57 = getelementptr inbounds i8, i8* %9, i64 7
%58 = load i8, i8* %57
%59 = sext i8 %58 to i32
%60 = add nsw i32 %59, -48
%61 = icmp ult i32 %60, 10
br i1 %61, label %62, label %101
62: ; preds = %56
store i8 %16, i8* %5
%63 = getelementptr inbounds [5 x i8], [5 x i8]* %2, i64 0, i64 1
store i8 %22, i8* %63
%64 = getelementptr inbounds [5 x i8], [5 x i8]* %2, i64 0, i64 2
store i8 %28, i8* %64
%65 = getelementptr inbounds [5 x i8], [5 x i8]* %2, i64 0, i64 3
store i8 %34, i8* %65
%66 = getelementptr inbounds [5 x i8], [5 x i8]* %2, i64 0, i64 4
store i8 0, i8* %66
store i8 %40, i8* %6
%67 = getelementptr inbounds [3 x i8], [3 x i8]* %3, i64 0, i64 1
store i8 %46, i8* %67
%68 = getelementptr inbounds [3 x i8], [3 x i8]* %3, i64 0, i64 2
store i8 0, i8* %68
%69 = call i32 (i8*, ...) bitcast (i32 (...)* @atoi to i32 (i8*, ...)*)(i8* %6)
%70 = load i8, i8* %51
store i8 %70, i8* %7
%71 = load i8, i8* %57
%72 = getelementptr inbounds [3 x i8], [3 x i8]* %4, i64 0, i64 1
store i8 %71, i8* %72
%73 = getelementptr inbounds [3 x i8], [3 x i8]* %4, i64 0, i64 2
store i8 0, i8* %73
%74 = call i32 (i8*, ...) bitcast (i32 (...)* @atoi to i32 (i8*, ...)*)(i8* %7)
%75 = sub nsw i32 14, %69
%76 = sdiv i32 %75, 12
%77 = call i32 (i8*, ...) bitcast (i32 (...)* @atoi to i32 (i8*, ...)*)(i8* %5)
%78 = sub nsw i32 4800, %76
%79 = add i32 %78, %77
%80 = mul nsw i32 %76, 12
%81 = add nsw i32 %80, %69
%82 = sext i32 %74 to i64
%83 = mul i32 %81, 306
%84 = add i32 %83, -913
%85 = sdiv i32 %84, 10
%86 = sext i32 %85 to i64
%87 = mul nsw i32 %79, 365
%88 = sext i32 %87 to i64
%89 = sdiv i32 %79, 4
%90 = sext i32 %89 to i64
%91 = sdiv i32 %79, -100
%92 = sext i32 %91 to i64
%93 = sdiv i32 %79, 400
%94 = sext i32 %93 to i64
%95 = add nsw i64 %82, -2432046
%96 = add nsw i64 %95, %86
%97 = add nsw i64 %96, %88
%98 = add nsw i64 %97, %90
%99 = add nsw i64 %98, %92
%100 = add nsw i64 %99, %94
br label %101
101: ; preds = %15, %20, %26, %32, %38, %44, %50, %56, %13, %1, %62
%102 = phi i64 [ %100, %62 ], [ 0, %1 ], [ -1, %13 ], [ -1, %56 ], [ -1, %50 ], [ -1, %44 ], [ -1, %38 ], [ -1, %32 ], [ -1, %26 ], [ -1, %20 ], [ -1, %15 ]
ret i64 %102
}