int in_numeric(const unsigned int jisdata[], const int length,
               const int in_posn, unsigned int *p_end, unsigned int *p_cost) {
  int i, digit_cnt;
  if (in_posn < (int)*p_end) {
    return 1;
  }
  for (i = in_posn;
       i < length && i < in_posn + 4 && jisdata[i] >= '0' && jisdata[i] <= '9';
       i++)
    ;
  digit_cnt = i - in_posn;
  if (digit_cnt == 0) {
    *p_end = 0;
    return 0;
  }
  *p_end = i;
  *p_cost = digit_cnt == 1 ? 24 : digit_cnt == 2 ? 21 : 20;
  return 1;
}


x86 assembly (clang, -O0):
<in_numeric>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
mov    %esi,-0x14(%rbp)
mov    %edx,-0x18(%rbp)
mov    %rcx,-0x20(%rbp)
mov    %r8,-0x28(%rbp)
mov    -0x18(%rbp),%eax
mov    -0x20(%rbp),%rcx
cmp    (%rcx),%eax
jge    1131 <in_numeric+0x31>
movl   $0x1,-0x4(%rbp)
jmp    1219 <in_numeric+0x119>
mov    -0x18(%rbp),%eax
mov    %eax,-0x2c(%rbp)
mov    -0x2c(%rbp),%ecx
xor    %eax,%eax
cmp    -0x14(%rbp),%ecx
mov    %al,-0x31(%rbp)
jge    1187 <in_numeric+0x87>
mov    -0x2c(%rbp),%ecx
mov    -0x18(%rbp),%edx
add    $0x4,%edx
xor    %eax,%eax
cmp    %edx,%ecx
mov    %al,-0x31(%rbp)
jge    1187 <in_numeric+0x87>
mov    -0x10(%rbp),%rcx
movslq -0x2c(%rbp),%rdx
xor    %eax,%eax
cmpl   $0x30,(%rcx,%rdx,4)
mov    %al,-0x31(%rbp)
jb     1187 <in_numeric+0x87>
mov    -0x10(%rbp),%rax
movslq -0x2c(%rbp),%rcx
cmpl   $0x39,(%rax,%rcx,4)
setbe  %al
mov    %al,-0x31(%rbp)
mov    -0x31(%rbp),%al
test   $0x1,%al
jne    1197 <in_numeric+0x97>
jmp    11aa <in_numeric+0xaa>
jmp    119c <in_numeric+0x9c>
mov    -0x2c(%rbp),%eax
add    $0x1,%eax
mov    %eax,-0x2c(%rbp)
jmp    1137 <in_numeric+0x37>
mov    -0x2c(%rbp),%eax
sub    -0x18(%rbp),%eax
mov    %eax,-0x30(%rbp)
cmpl   $0x0,-0x30(%rbp)
jne    11d3 <in_numeric+0xd3>
mov    -0x20(%rbp),%rax
movl   $0x0,(%rax)
movl   $0x0,-0x4(%rbp)
jmp    1219 <in_numeric+0x119>
mov    -0x2c(%rbp),%ecx
mov    -0x20(%rbp),%rax
mov    %ecx,(%rax)
cmpl   $0x1,-0x30(%rbp)
jne    11f3 <in_numeric+0xf3>
mov    $0x18,%eax
mov    %eax,-0x38(%rbp)
jmp    1209 <in_numeric+0x109>
mov    -0x30(%rbp),%edx
mov    $0x14,%eax
mov    $0x15,%ecx
cmp    $0x2,%edx
cmove  %ecx,%eax
mov    %eax,-0x38(%rbp)
mov    -0x38(%rbp),%ecx
mov    -0x28(%rbp),%rax
mov    %ecx,(%rax)
movl   $0x1,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<in_numeric>:
push   %rbx
mov    $0x1,%eax
cmp    %edx,(%rcx)
jg     1165 <in_numeric+0x65>
mov    %edx,%r9d
cmp    %esi,%edx
jge    1142 <in_numeric+0x42>
movslq %edx,%r10
movslq %esi,%r11
lea    0x3(%rdx),%esi
movslq %esi,%rbx
nopl   (%rax)
mov    (%rdi,%r10,4),%esi
add    $0xffffffd0,%esi
cmp    $0x9,%esi
ja     113f <in_numeric+0x3f>
lea    0x1(%r10),%r9
cmp    %r11,%r9
jge    1142 <in_numeric+0x42>
cmp    %rbx,%r10
mov    %r9,%r10
jl     1120 <in_numeric+0x20>
jmp    1142 <in_numeric+0x42>
mov    %r10,%r9
mov    %r9d,%esi
sub    %edx,%esi
je     1167 <in_numeric+0x67>
mov    %r9d,(%rcx)
xor    %ecx,%ecx
cmp    $0x2,%esi
sete   %cl
or     $0x14,%ecx
cmp    $0x1,%esi
mov    $0x18,%edx
cmovne %ecx,%edx
mov    %edx,(%r8)
pop    %rbx
ret
movl   $0x0,(%rcx)
xor    %eax,%eax
pop    %rbx
ret

LLVM IR (-O0):
define i32 @in_numeric(i32* %0, i32 %1, i32 %2, i32* %3, i32* %4) {
%6 = alloca i32
%7 = alloca i32*
%8 = alloca i32
%9 = alloca i32
%10 = alloca i32*
%11 = alloca i32*
%12 = alloca i32
%13 = alloca i32
store i32* %0, i32** %7
store i32 %1, i32* %8
store i32 %2, i32* %9
store i32* %3, i32** %10
store i32* %4, i32** %11
%14 = load i32, i32* %9
%15 = load i32*, i32** %10
%16 = load i32, i32* %15
%17 = icmp slt i32 %14, %16
br i1 %17, label %18, label %19
18: ; preds = %5
store i32 1, i32* %6
br label %72
19: ; preds = %5
%20 = load i32, i32* %9
store i32 %20, i32* %12
br label %21
21: ; preds = %47, %19
%22 = load i32, i32* %12
%23 = load i32, i32* %8
%24 = icmp slt i32 %22, %23
br i1 %24, label %25, label %44
25: ; preds = %21
%26 = load i32, i32* %12
%27 = load i32, i32* %9
%28 = add nsw i32 %27, 4
%29 = icmp slt i32 %26, %28
br i1 %29, label %30, label %44
30: ; preds = %25
%31 = load i32*, i32** %7
%32 = load i32, i32* %12
%33 = sext i32 %32 to i64
%34 = getelementptr inbounds i32, i32* %31, i64 %33
%35 = load i32, i32* %34
%36 = icmp uge i32 %35, 48
br i1 %36, label %37, label %44
37: ; preds = %30
%38 = load i32*, i32** %7
%39 = load i32, i32* %12
%40 = sext i32 %39 to i64
%41 = getelementptr inbounds i32, i32* %38, i64 %40
%42 = load i32, i32* %41
%43 = icmp ule i32 %42, 57
br label %44
44: ; preds = %37, %30, %25, %21
%45 = phi i1 [ false, %30 ], [ false, %25 ], [ false, %21 ], [ %43, %37 ]
br i1 %45, label %46, label %50
46: ; preds = %44
br label %47
47: ; preds = %46
%48 = load i32, i32* %12
%49 = add nsw i32 %48, 1
store i32 %49, i32* %12
br label %21
50: ; preds = %44
%51 = load i32, i32* %12
%52 = load i32, i32* %9
%53 = sub nsw i32 %51, %52
store i32 %53, i32* %13
%54 = load i32, i32* %13
%55 = icmp eq i32 %54, 0
br i1 %55, label %56, label %58
56: ; preds = %50
%57 = load i32*, i32** %10
store i32 0, i32* %57
store i32 0, i32* %6
br label %72
58: ; preds = %50
%59 = load i32, i32* %12
%60 = load i32*, i32** %10
store i32 %59, i32* %60
%61 = load i32, i32* %13
%62 = icmp eq i32 %61, 1
br i1 %62, label %63, label %64
63: ; preds = %58
br label %69
64: ; preds = %58
%65 = load i32, i32* %13
%66 = icmp eq i32 %65, 2
%67 = zext i1 %66 to i64
%68 = select i1 %66, i32 21, i32 20
br label %69
69: ; preds = %64, %63
%70 = phi i32 [ 24, %63 ], [ %68, %64 ]
%71 = load i32*, i32** %11
store i32 %70, i32* %71
store i32 1, i32* %6
br label %72
72: ; preds = %69, %56, %18
%73 = load i32, i32* %6
ret i32 %73
}

LLVM IR (-O2):
define i32 @in_numeric(i32* nocapture %0, i32 %1, i32 %2, i32* nocapture %3, i32* nocapture writeonly %4) {
%6 = load i32, i32* %3
%7 = icmp sgt i32 %6, %2
br i1 %7, label %39, label %8
8: ; preds = %5
%9 = icmp slt i32 %2, %1
br i1 %9, label %10, label %29
10: ; preds = %8
%11 = sext i32 %2 to i64
%12 = sext i32 %1 to i64
%13 = add nsw i32 %2, 3
%14 = sext i32 %13 to i64
br label %15
15: ; preds = %10, %21
%16 = phi i64 [ %11, %10 ], [ %22, %21 ]
%17 = getelementptr inbounds i32, i32* %0, i64 %16
%18 = load i32, i32* %17
%19 = add i32 %18, -48
%20 = icmp ult i32 %19, 10
br i1 %20, label %21, label %26
21: ; preds = %15
%22 = add nsw i64 %16, 1
%23 = icmp slt i64 %22, %12
%24 = icmp slt i64 %16, %14
%25 = select i1 %23, i1 %24, i1 false
br i1 %25, label %15, label %26
26: ; preds = %21, %15
%27 = phi i64 [ %16, %15 ], [ %22, %21 ]
%28 = trunc i64 %27 to i32
br label %29
29: ; preds = %26, %8
%30 = phi i32 [ %2, %8 ], [ %28, %26 ]
%31 = sub nsw i32 %30, %2
%32 = icmp eq i32 %31, 0
br i1 %32, label %33, label %34
33: ; preds = %29
store i32 0, i32* %3
br label %39
34: ; preds = %29
store i32 %30, i32* %3
%35 = icmp eq i32 %31, 1
%36 = icmp eq i32 %31, 2
%37 = select i1 %36, i32 21, i32 20
%38 = select i1 %35, i32 24, i32 %37
store i32 %38, i32* %4
br label %39
39: ; preds = %5, %34, %33
%40 = phi i32 [ 0, %33 ], [ 1, %34 ], [ 1, %5 ]
ret i32 %40
}