unsigned long lib$cvt_dtb(int byte_count, const char *source_string,
                          long *result) {
  int Loop;
  long answer = 0;
  unsigned long status = 1;
  for (Loop = 0; Loop < byte_count; Loop++) {
    if (isdigit(source_string[Loop])) {
      answer = answer * 10 + source_string[Loop] - '0';
    } else {
      status = 0;
    }
  }
  *result = answer;
  return status;
}


x86 assembly (clang, -O0):
<lib$cvt_dtb>:
push   %rbp
mov    %rsp,%rbp
sub    $0x30,%rsp
mov    %edi,-0x4(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %rdx,-0x18(%rbp)
movq   $0x0,-0x28(%rbp)
movq   $0x1,-0x30(%rbp)
movl   $0x0,-0x1c(%rbp)
mov    -0x1c(%rbp),%eax
cmp    -0x4(%rbp),%eax
jge    119d <lib$cvt_dtb+0x8d>
mov    -0x10(%rbp),%rax
movslq -0x1c(%rbp),%rcx
movsbl (%rax,%rcx,1),%edi
call   1030 <isdigit@plt>
cmp    $0x0,%eax
je     1182 <lib$cvt_dtb+0x72>
imul   $0xa,-0x28(%rbp),%rax
mov    -0x10(%rbp),%rcx
movslq -0x1c(%rbp),%rdx
movsbq (%rcx,%rdx,1),%rcx
add    %rcx,%rax
sub    $0x30,%rax
mov    %rax,-0x28(%rbp)
jmp    118a <lib$cvt_dtb+0x7a>
movq   $0x0,-0x30(%rbp)
jmp    118f <lib$cvt_dtb+0x7f>
mov    -0x1c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    113a <lib$cvt_dtb+0x2a>
mov    -0x28(%rbp),%rcx
mov    -0x18(%rbp),%rax
mov    %rcx,(%rax)
mov    -0x30(%rbp),%rax
add    $0x30,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<lib$cvt_dtb>:
push   %rbp
push   %rbx
test   %edi,%edi
jle    1119 <lib$cvt_dtb+0x19>
mov    %edi,%r8d
cmp    $0x1,%edi
jne    1125 <lib$cvt_dtb+0x25>
mov    $0x1,%eax
xor    %edi,%edi
xor    %ecx,%ecx
jmp    1184 <lib$cvt_dtb+0x84>
mov    $0x1,%eax
xor    %ecx,%ecx
jmp    11a8 <lib$cvt_dtb+0xa8>
mov    %r8d,%r9d
and    $0xfffffffe,%r9d
mov    $0x1,%eax
xor    %r10d,%r10d
xor    %edi,%edi
xor    %ecx,%ecx
nopl   0x0(%rax,%rax,1)
movsbq (%rsi,%rdi,1),%r11
lea    -0x30(%r11),%ebp
movsbq 0x1(%rsi,%rdi,1),%rbx
cmp    $0xa,%ebp
lea    (%rcx,%rcx,4),%rbp
lea    -0x30(%r11,%rbp,2),%rbp
cmovae %rcx,%rbp
lea    -0x30(%rbx),%ecx
cmovae %r10,%rax
cmp    $0xa,%ecx
lea    0x0(%rbp,%rbp,4),%rcx
lea    -0x30(%rbx,%rcx,2),%rcx
cmovae %rbp,%rcx
cmovae %r10,%rax
add    $0x2,%rdi
cmp    %rdi,%r9
jne    1140 <lib$cvt_dtb+0x40>
test   $0x1,%r8b
je     11a8 <lib$cvt_dtb+0xa8>
movsbq (%rsi,%rdi,1),%rsi
lea    -0x30(%rsi),%edi
xor    %ebp,%ebp
cmp    $0xa,%edi
lea    (%rcx,%rcx,4),%rdi
lea    -0x30(%rsi,%rdi,2),%rsi
cmovb  %rsi,%rcx
cmovae %rbp,%rax
mov    %rcx,(%rdx)
pop    %rbx
pop    %rbp
ret

LLVM IR (-O0):
define i64 @"lib$cvt_dtb"(i32 %0, i8* %1, i64* %2) {
%4 = alloca i32
%5 = alloca i8*
%6 = alloca i64*
%7 = alloca i32
%8 = alloca i64
%9 = alloca i64
store i32 %0, i32* %4
store i8* %1, i8** %5
store i64* %2, i64** %6
store i64 0, i64* %8
store i64 1, i64* %9
store i32 0, i32* %7
br label %10
10: ; preds = %36, %3
%11 = load i32, i32* %7
%12 = load i32, i32* %4
%13 = icmp slt i32 %11, %12
br i1 %13, label %14, label %39
14: ; preds = %10
%15 = load i8*, i8** %5
%16 = load i32, i32* %7
%17 = sext i32 %16 to i64
%18 = getelementptr inbounds i8, i8* %15, i64 %17
%19 = load i8, i8* %18
%20 = sext i8 %19 to i32
%21 = call i32 @isdigit(i32 %20)
%22 = icmp ne i32 %21, 0
br i1 %22, label %23, label %34
23: ; preds = %14
%24 = load i64, i64* %8
%25 = mul nsw i64 %24, 10
%26 = load i8*, i8** %5
%27 = load i32, i32* %7
%28 = sext i32 %27 to i64
%29 = getelementptr inbounds i8, i8* %26, i64 %28
%30 = load i8, i8* %29
%31 = sext i8 %30 to i64
%32 = add nsw i64 %25, %31
%33 = sub nsw i64 %32, 48
store i64 %33, i64* %8
br label %35
34: ; preds = %14
store i64 0, i64* %9
br label %35
35: ; preds = %34, %23
br label %36
36: ; preds = %35
%37 = load i32, i32* %7
%38 = add nsw i32 %37, 1
store i32 %38, i32* %7
br label %10
39: ; preds = %10
%40 = load i64, i64* %8
%41 = load i64*, i64** %6
store i64 %40, i64* %41
%42 = load i64, i64* %9
ret i64 %42
}

LLVM IR (-O2):
define i64 @"lib$cvt_dtb"(i32 %0, i8* nocapture %1, i64* nocapture writeonly %2) {
%4 = icmp sgt i32 %0, 0
br i1 %4, label %5, label %61
5: ; preds = %3
%6 = zext i32 %0 to i64
%7 = and i64 %6, 1
%8 = icmp eq i32 %0, 1
br i1 %8, label %42, label %9
9: ; preds = %5
%10 = and i64 %6, 4294967294
br label %11
11: ; preds = %11, %9
%12 = phi i64 [ 0, %9 ], [ %39, %11 ]
%13 = phi i64 [ 1, %9 ], [ %38, %11 ]
%14 = phi i64 [ 0, %9 ], [ %36, %11 ]
%15 = phi i64 [ 0, %9 ], [ %40, %11 ]
%16 = getelementptr inbounds i8, i8* %1, i64 %12
%17 = load i8, i8* %16
%18 = sext i8 %17 to i32
%19 = add nsw i32 %18, -48
%20 = icmp ult i32 %19, 10
%21 = mul nsw i64 %14, 10
%22 = sext i8 %17 to i64
%23 = add i64 %21, -48
%24 = add i64 %23, %22
%25 = select i1 %20, i64 %24, i64 %14
%26 = or i64 %12, 1
%27 = getelementptr inbounds i8, i8* %1, i64 %26
%28 = load i8, i8* %27
%29 = sext i8 %28 to i32
%30 = add nsw i32 %29, -48
%31 = icmp ult i32 %30, 10
%32 = mul nsw i64 %25, 10
%33 = sext i8 %28 to i64
%34 = add i64 %32, -48
%35 = add i64 %34, %33
%36 = select i1 %31, i64 %35, i64 %25
%37 = select i1 %31, i1 %20, i1 false
%38 = select i1 %37, i64 %13, i64 0
%39 = add nuw nsw i64 %12, 2
%40 = add i64 %15, 2
%41 = icmp eq i64 %40, %10
br i1 %41, label %42, label %11
42: ; preds = %11, %5
%43 = phi i64 [ undef, %5 ], [ %36, %11 ]
%44 = phi i64 [ undef, %5 ], [ %38, %11 ]
%45 = phi i64 [ 0, %5 ], [ %39, %11 ]
%46 = phi i64 [ 1, %5 ], [ %38, %11 ]
%47 = phi i64 [ 0, %5 ], [ %36, %11 ]
%48 = icmp eq i64 %7, 0
br i1 %48, label %61, label %49
49: ; preds = %42
%50 = getelementptr inbounds i8, i8* %1, i64 %45
%51 = load i8, i8* %50
%52 = sext i8 %51 to i32
%53 = add nsw i32 %52, -48
%54 = icmp ult i32 %53, 10
%55 = mul nsw i64 %47, 10
%56 = sext i8 %51 to i64
%57 = add i64 %55, -48
%58 = add i64 %57, %56
%59 = select i1 %54, i64 %58, i64 %47
%60 = select i1 %54, i64 %46, i64 0
br label %61
61: ; preds = %49, %42, %3
%62 = phi i64 [ 0, %3 ], [ %43, %42 ], [ %59, %49 ]
%63 = phi i64 [ 1, %3 ], [ %44, %42 ], [ %60, %49 ]
store i64 %62, i64* %2
ret i64 %63
}