int datum_c(const unsigned char source[], const int position,
            const int length) {
  int retval = 0;
  if (position + 1 < length) {
    if (((source[position] >= '0') && (source[position] <= '9')) &&
        ((source[position + 1] >= '0') && (source[position + 1] <= '9')))
      retval = 1;
  }
  return retval;
}


x86 assembly (clang, -O0):
<datum_c>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %esi,-0xc(%rbp)
mov    %edx,-0x10(%rbp)
movl   $0x0,-0x14(%rbp)
mov    -0xc(%rbp),%eax
add    $0x1,%eax
cmp    -0x10(%rbp),%eax
jge    118e <datum_c+0x8e>
mov    -0x8(%rbp),%rax
movslq -0xc(%rbp),%rcx
movzbl (%rax,%rcx,1),%eax
cmp    $0x30,%eax
jl     1189 <datum_c+0x89>
mov    -0x8(%rbp),%rax
movslq -0xc(%rbp),%rcx
movzbl (%rax,%rcx,1),%eax
cmp    $0x39,%eax
jg     1189 <datum_c+0x89>
mov    -0x8(%rbp),%rax
mov    -0xc(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movzbl (%rax,%rcx,1),%eax
cmp    $0x30,%eax
jl     1189 <datum_c+0x89>
mov    -0x8(%rbp),%rax
mov    -0xc(%rbp),%ecx
add    $0x1,%ecx
movslq %ecx,%rcx
movzbl (%rax,%rcx,1),%eax
cmp    $0x39,%eax
jg     1189 <datum_c+0x89>
movl   $0x1,-0x14(%rbp)
jmp    118e <datum_c+0x8e>
mov    -0x14(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<datum_c>:
movslq %esi,%rsi
lea    0x1(%rsi),%rcx
xor    %eax,%eax
cmp    %edx,%ecx
jge    1126 <datum_c+0x26>
mov    (%rdi,%rsi,1),%dl
add    $0xd0,%dl
cmp    $0x9,%dl
ja     1126 <datum_c+0x26>
mov    (%rdi,%rcx,1),%cl
add    $0xd0,%cl
xor    %eax,%eax
cmp    $0xa,%cl
setb   %al
ret

LLVM IR (-O0):
define i32 @datum_c(i8* %0, i32 %1, i32 %2) {
%4 = alloca i8*
%5 = alloca i32
%6 = alloca i32
%7 = alloca i32
store i8* %0, i8** %4
store i32 %1, i32* %5
store i32 %2, i32* %6
store i32 0, i32* %7
%8 = load i32, i32* %5
%9 = add nsw i32 %8, 1
%10 = load i32, i32* %6
%11 = icmp slt i32 %9, %10
br i1 %11, label %12, label %48
12: ; preds = %3
%13 = load i8*, i8** %4
%14 = load i32, i32* %5
%15 = sext i32 %14 to i64
%16 = getelementptr inbounds i8, i8* %13, i64 %15
%17 = load i8, i8* %16
%18 = zext i8 %17 to i32
%19 = icmp sge i32 %18, 48
br i1 %19, label %20, label %47
20: ; preds = %12
%21 = load i8*, i8** %4
%22 = load i32, i32* %5
%23 = sext i32 %22 to i64
%24 = getelementptr inbounds i8, i8* %21, i64 %23
%25 = load i8, i8* %24
%26 = zext i8 %25 to i32
%27 = icmp sle i32 %26, 57
br i1 %27, label %28, label %47
28: ; preds = %20
%29 = load i8*, i8** %4
%30 = load i32, i32* %5
%31 = add nsw i32 %30, 1
%32 = sext i32 %31 to i64
%33 = getelementptr inbounds i8, i8* %29, i64 %32
%34 = load i8, i8* %33
%35 = zext i8 %34 to i32
%36 = icmp sge i32 %35, 48
br i1 %36, label %37, label %47
37: ; preds = %28
%38 = load i8*, i8** %4
%39 = load i32, i32* %5
%40 = add nsw i32 %39, 1
%41 = sext i32 %40 to i64
%42 = getelementptr inbounds i8, i8* %38, i64 %41
%43 = load i8, i8* %42
%44 = zext i8 %43 to i32
%45 = icmp sle i32 %44, 57
br i1 %45, label %46, label %47
46: ; preds = %37
store i32 1, i32* %7
br label %47
47: ; preds = %46, %37, %28, %20, %12
br label %48
48: ; preds = %47, %3
%49 = load i32, i32* %7
ret i32 %49
}

LLVM IR (-O2):
define i32 @datum_c(i8* nocapture %0, i32 %1, i32 %2) {
%4 = add nsw i32 %1, 1
%5 = icmp slt i32 %4, %2
br i1 %5, label %6, label %19
6: ; preds = %3
%7 = sext i32 %1 to i64
%8 = getelementptr inbounds i8, i8* %0, i64 %7
%9 = load i8, i8* %8
%10 = add i8 %9, -48
%11 = icmp ult i8 %10, 10
br i1 %11, label %12, label %19
12: ; preds = %6
%13 = sext i32 %4 to i64
%14 = getelementptr inbounds i8, i8* %0, i64 %13
%15 = load i8, i8* %14
%16 = add i8 %15, -48
%17 = icmp ult i8 %16, 10
%18 = zext i1 %17 to i32
br label %19
19: ; preds = %12, %6, %3
%20 = phi i32 [ 0, %6 ], [ 0, %3 ], [ %18, %12 ]
ret i32 %20
}