long parsetime(strp, istime)
char **strp;
int *istime;
{
  static long t;
  if (!isdigit((unsigned char)(**strp)) && **strp != ':') {
    eprintf("invalid or missing integer or time value");
    return -1;
  }
  t = (strtol(*(strp), (char **)strp, 10));
  if (**strp == ':') {
    if (istime)
      *istime = 1;
    t *= 3600;
    ++*strp;
    if (isdigit((unsigned char)(**strp))) {
      t += (strtol(*(strp), (char **)strp, 10)) * 60;
      if (**strp == ':') {
        ++*strp;
        if (isdigit((unsigned char)(**strp)))
          t += (strtol(*(strp), (char **)strp, 10));
      }
    }
  } else {
    if (istime)
      *istime = 0;
  }
  return t;
}


x86 assembly (clang, -O0):
<parsetime>:
push   %rbp
mov    %rsp,%rbp
sub    $0x20,%rsp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    -0x10(%rbp),%rax
mov    (%rax),%rax
movzbl (%rax),%edi
call   1030 <isdigit@plt>
cmp    $0x0,%eax
jne    1186 <parsetime+0x56>
mov    -0x10(%rbp),%rax
mov    (%rax),%rax
movsbl (%rax),%eax
cmp    $0x3a,%eax
je     1186 <parsetime+0x56>
lea    0xe8e(%rip),%rdi
mov    $0x0,%al
call   1050 <eprintf@plt>
movq   $0xffffffffffffffff,-0x8(%rbp)
ff
jmp    12b9 <parsetime+0x189>
mov    -0x10(%rbp),%rax
mov    (%rax),%rdi
mov    -0x10(%rbp),%rsi
mov    $0xa,%edx
call   1040 <strtol@plt>
mov    %rax,0x2e9e(%rip)
mov    -0x10(%rbp),%rax
mov    (%rax),%rax
movsbl (%rax),%eax
cmp    $0x3a,%eax
jne    1294 <parsetime+0x164>
cmpq   $0x0,-0x18(%rbp)
je     11ca <parsetime+0x9a>
mov    -0x18(%rbp),%rax
movl   $0x1,(%rax)
imul   $0xe10,0x2e6b(%rip),%rax
mov    %rax,0x2e64(%rip)
mov    -0x10(%rbp),%rax
mov    (%rax),%rcx
add    $0x1,%rcx
mov    %rcx,(%rax)
mov    -0x10(%rbp),%rax
mov    (%rax),%rax
movzbl (%rax),%edi
call   1030 <isdigit@plt>
cmp    $0x0,%eax
je     128f <parsetime+0x15f>
mov    -0x10(%rbp),%rax
mov    (%rax),%rdi
mov    -0x10(%rbp),%rsi
mov    $0xa,%edx
call   1040 <strtol@plt>
imul   $0x3c,%rax,%rax
add    0x2e1e(%rip),%rax
mov    %rax,0x2e17(%rip)
mov    -0x10(%rbp),%rax
mov    (%rax),%rax
movsbl (%rax),%eax
cmp    $0x3a,%eax
jne    128a <parsetime+0x15a>
mov    -0x10(%rbp),%rax
mov    (%rax),%rcx
add    $0x1,%rcx
mov    %rcx,(%rax)
mov    -0x10(%rbp),%rax
mov    (%rax),%rax
movzbl (%rax),%edi
call   1030 <isdigit@plt>
cmp    $0x0,%eax
je     1285 <parsetime+0x155>
mov    -0x10(%rbp),%rax
mov    (%rax),%rdi
mov    -0x10(%rbp),%rsi
mov    $0xa,%edx
call   1040 <strtol@plt>
add    0x2dc2(%rip),%rax
mov    %rax,0x2dbb(%rip)
jmp    128a <parsetime+0x15a>
jmp    128f <parsetime+0x15f>
jmp    12ae <parsetime+0x17e>
cmpq   $0x0,-0x18(%rbp)
je     12a9 <parsetime+0x179>
mov    -0x18(%rbp),%rax
movl   $0x0,(%rax)
jmp    12ae <parsetime+0x17e>
mov    0x2d8b(%rip),%rax
mov    %rax,-0x8(%rbp)
mov    -0x8(%rbp),%rax
add    $0x20,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<parsetime>:
push   %r14
push   %rbx
push   %rax
mov    %rsi,%r14
mov    %rdi,%rbx
mov    (%rdi),%rdi
movzbl (%rdi),%eax
lea    -0x30(%rax),%ecx
cmp    $0xa,%ecx
jb     1156 <parsetime+0x36>
cmp    $0x3a,%al
je     1156 <parsetime+0x36>
lea    0xebd(%rip),%rdi
xor    %eax,%eax
call   1040 <eprintf@plt>
mov    $0xffffffffffffffff,%rax
jmp    1206 <parsetime+0xe6>
mov    %rbx,%rsi
mov    $0xa,%edx
call   1030 <strtol@plt>
mov    %rax,0x2ece(%rip)
mov    (%rbx),%rcx
cmpb   $0x3a,(%rcx)
jne    11fa <parsetime+0xda>
test   %r14,%r14
je     1182 <parsetime+0x62>
movl   $0x1,(%r14)
imul   $0xe10,%rax,%rax
mov    %rax,0x2ea8(%rip)
lea    0x1(%rcx),%rdi
mov    %rdi,(%rbx)
movzbl 0x1(%rcx),%ecx
add    $0xffffffd0,%ecx
cmp    $0x9,%ecx
ja     1206 <parsetime+0xe6>
mov    %rbx,%rsi
mov    $0xa,%edx
call   1030 <strtol@plt>
imul   $0x3c,%rax,%rax
add    0x2e7d(%rip),%rax
mov    %rax,0x2e76(%rip)
mov    (%rbx),%rcx
cmpb   $0x3a,(%rcx)
jne    1206 <parsetime+0xe6>
lea    0x1(%rcx),%rdi
mov    %rdi,(%rbx)
movzbl 0x1(%rcx),%ecx
add    $0xffffffd0,%ecx
cmp    $0x9,%ecx
ja     1206 <parsetime+0xe6>
mov    %rbx,%rsi
mov    $0xa,%edx
call   1030 <strtol@plt>
add    0x2e47(%rip),%rax
mov    %rax,0x2e40(%rip)
jmp    1206 <parsetime+0xe6>
test   %r14,%r14
je     1206 <parsetime+0xe6>
movl   $0x0,(%r14)
add    $0x8,%rsp
pop    %rbx
pop    %r14
ret

LLVM IR (-O0):
@parsetime.t = internal global i64 0
@.str = [41 x i8] c"invalid or missing integer or time value\00"
define i64 @parsetime(i8** %0, i32* %1) {
%3 = alloca i64
%4 = alloca i8**
%5 = alloca i32*
store i8** %0, i8*** %4
store i32* %1, i32** %5
%6 = load i8**, i8*** %4
%7 = load i8*, i8** %6
%8 = load i8, i8* %7
%9 = zext i8 %8 to i32
%10 = call i32 @isdigit(i32 %9)
%11 = icmp ne i32 %10, 0
br i1 %11, label %20, label %12
12: ; preds = %2
%13 = load i8**, i8*** %4
%14 = load i8*, i8** %13
%15 = load i8, i8* %14
%16 = sext i8 %15 to i32
%17 = icmp ne i32 %16, 58
br i1 %17, label %18, label %20
18: ; preds = %12
%19 = call i32 (i8*, ...) bitcast (i32 (...)* @eprintf to i32 (i8*, ...)*)(i8* getelementptr inbounds ([41 x i8], [41 x i8]* @.str, i64 0, i64 0))
store i64 -1, i64* %3
br label %88
20: ; preds = %12, %2
%21 = load i8**, i8*** %4
%22 = load i8*, i8** %21
%23 = load i8**, i8*** %4
%24 = call i64 @strtol(i8* %22, i8** %23, i32 10)
store i64 %24, i64* @parsetime.t
%25 = load i8**, i8*** %4
%26 = load i8*, i8** %25
%27 = load i8, i8* %26
%28 = sext i8 %27 to i32
%29 = icmp eq i32 %28, 58
br i1 %29, label %30, label %80
30: ; preds = %20
%31 = load i32*, i32** %5
%32 = icmp ne i32* %31, null
br i1 %32, label %33, label %35
33: ; preds = %30
%34 = load i32*, i32** %5
store i32 1, i32* %34
br label %35
35: ; preds = %33, %30
%36 = load i64, i64* @parsetime.t
%37 = mul nsw i64 %36, 3600
store i64 %37, i64* @parsetime.t
%38 = load i8**, i8*** %4
%39 = load i8*, i8** %38
%40 = getelementptr inbounds i8, i8* %39, i32 1
store i8* %40, i8** %38
%41 = load i8**, i8*** %4
%42 = load i8*, i8** %41
%43 = load i8, i8* %42
%44 = zext i8 %43 to i32
%45 = call i32 @isdigit(i32 %44)
%46 = icmp ne i32 %45, 0
br i1 %46, label %47, label %79
47: ; preds = %35
%48 = load i8**, i8*** %4
%49 = load i8*, i8** %48
%50 = load i8**, i8*** %4
%51 = call i64 @strtol(i8* %49, i8** %50, i32 10)
%52 = mul nsw i64 %51, 60
%53 = load i64, i64* @parsetime.t
%54 = add nsw i64 %53, %52
store i64 %54, i64* @parsetime.t
%55 = load i8**, i8*** %4
%56 = load i8*, i8** %55
%57 = load i8, i8* %56
%58 = sext i8 %57 to i32
%59 = icmp eq i32 %58, 58
br i1 %59, label %60, label %78
60: ; preds = %47
%61 = load i8**, i8*** %4
%62 = load i8*, i8** %61
%63 = getelementptr inbounds i8, i8* %62, i32 1
store i8* %63, i8** %61
%64 = load i8**, i8*** %4
%65 = load i8*, i8** %64
%66 = load i8, i8* %65
%67 = zext i8 %66 to i32
%68 = call i32 @isdigit(i32 %67)
%69 = icmp ne i32 %68, 0
br i1 %69, label %70, label %77
70: ; preds = %60
%71 = load i8**, i8*** %4
%72 = load i8*, i8** %71
%73 = load i8**, i8*** %4
%74 = call i64 @strtol(i8* %72, i8** %73, i32 10)
%75 = load i64, i64* @parsetime.t
%76 = add nsw i64 %75, %74
store i64 %76, i64* @parsetime.t
br label %77
77: ; preds = %70, %60
br label %78
78: ; preds = %77, %47
br label %79
79: ; preds = %78, %35
br label %86
80: ; preds = %20
%81 = load i32*, i32** %5
%82 = icmp ne i32* %81, null
br i1 %82, label %83, label %85
83: ; preds = %80
%84 = load i32*, i32** %5
store i32 0, i32* %84
br label %85
85: ; preds = %83, %80
br label %86
86: ; preds = %85, %79
%87 = load i64, i64* @parsetime.t
store i64 %87, i64* %3
br label %88
88: ; preds = %86, %18
%89 = load i64, i64* %3
ret i64 %89
}

LLVM IR (-O2):
@parsetime.t = internal unnamed_addr global i64 0
@.str = [41 x i8] c"invalid or missing integer or time value\00"
define i64 @parsetime(i8** nocapture %0, i32* writeonly %1) {
%3 = load i8*, i8** %0
%4 = load i8, i8* %3
%5 = zext i8 %4 to i32
%6 = add nsw i32 %5, -48
%7 = icmp ult i32 %6, 10
%8 = icmp eq i8 %4, 58
%9 = select i1 %7, i1 true, i1 %8
br i1 %9, label %12, label %10
10: ; preds = %2
%11 = tail call i32 (i8*, ...) bitcast (i32 (...)* @eprintf to i32 (i8*, ...)*)(i8* getelementptr inbounds ([41 x i8], [41 x i8]* @.str, i64 0, i64 0))
br label %47
12: ; preds = %2
%13 = tail call i64 @strtol(i8* %3, i8** %0, i32 10)
store i64 %13, i64* @parsetime.t
%14 = load i8*, i8** %0
%15 = load i8, i8* %14
%16 = icmp eq i8 %15, 58
%17 = icmp eq i32* %1, null
br i1 %16, label %18, label %45
18: ; preds = %12
br i1 %17, label %20, label %19
19: ; preds = %18
store i32 1, i32* %1
br label %20
20: ; preds = %19, %18
%21 = mul nsw i64 %13, 3600
store i64 %21, i64* @parsetime.t
%22 = getelementptr inbounds i8, i8* %14, i64 1
store i8* %22, i8** %0
%23 = load i8, i8* %22
%24 = zext i8 %23 to i32
%25 = add nsw i32 %24, -48
%26 = icmp ult i32 %25, 10
br i1 %26, label %27, label %47
27: ; preds = %20
%28 = tail call i64 @strtol(i8* %22, i8** %0, i32 10)
%29 = mul nsw i64 %28, 60
%30 = load i64, i64* @parsetime.t
%31 = add nsw i64 %30, %29
store i64 %31, i64* @parsetime.t
%32 = load i8*, i8** %0
%33 = load i8, i8* %32
%34 = icmp eq i8 %33, 58
br i1 %34, label %35, label %47
35: ; preds = %27
%36 = getelementptr inbounds i8, i8* %32, i64 1
store i8* %36, i8** %0
%37 = load i8, i8* %36
%38 = zext i8 %37 to i32
%39 = add nsw i32 %38, -48
%40 = icmp ult i32 %39, 10
br i1 %40, label %41, label %47
41: ; preds = %35
%42 = tail call i64 @strtol(i8* %36, i8** %0, i32 10)
%43 = load i64, i64* @parsetime.t
%44 = add nsw i64 %43, %42
store i64 %44, i64* @parsetime.t
br label %47
45: ; preds = %12
br i1 %17, label %47, label %46
46: ; preds = %45
store i32 0, i32* %1
br label %47
47: ; preds = %27, %41, %35, %20, %46, %45, %10
%48 = phi i64 [ -1, %10 ], [ %13, %45 ], [ %13, %46 ], [ %21, %20 ], [ %31, %35 ], [ %44, %41 ], [ %31, %27 ]
ret i64 %48
}