int is_hex(s)
char *s;
{
  char *x;
  if (*s == '0')
    s++;
  else
    return (0);
  if (*s == 'x' || *s == 'X')
    s++;
  else
    return (0);
  for (x = s;
       (isdigit(*s) || ('a' <= *s && *s <= 'f') || ('A' <= *s && *s <= 'F'));
       s++)
    continue;
  return (s > x && !*s);
}


x86 assembly (clang, -O0):
<is_hex>:
push   %rbp
mov    %rsp,%rbp
sub    $0x20,%rsp
mov    %rdi,-0x10(%rbp)
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x30,%eax
jne    113d <is_hex+0x2d>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    1149 <is_hex+0x39>
movl   $0x0,-0x4(%rbp)
jmp    1255 <is_hex+0x145>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x78,%eax
je     1169 <is_hex+0x59>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x58,%eax
jne    117a <is_hex+0x6a>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    1186 <is_hex+0x76>
movl   $0x0,-0x4(%rbp)
jmp    1255 <is_hex+0x145>
mov    -0x10(%rbp),%rax
mov    %rax,-0x18(%rbp)
mov    -0x10(%rbp),%rax
movsbl (%rax),%edi
call   1030 <isdigit@plt>
mov    %eax,%ecx
mov    $0x1,%al
cmp    $0x0,%ecx
mov    %al,-0x19(%rbp)
jne    1202 <is_hex+0xf2>
mov    -0x10(%rbp),%rax
movsbl (%rax),%ecx
mov    $0x61,%eax
cmp    %ecx,%eax
jg     11d3 <is_hex+0xc3>
mov    -0x10(%rbp),%rax
movsbl (%rax),%ecx
mov    $0x1,%al
cmp    $0x66,%ecx
mov    %al,-0x19(%rbp)
jle    1202 <is_hex+0xf2>
mov    -0x10(%rbp),%rax
movsbl (%rax),%edx
xor    %eax,%eax
mov    $0x41,%ecx
cmp    %edx,%ecx
mov    %al,-0x1a(%rbp)
jg     11fc <is_hex+0xec>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x46,%eax
setle  %al
mov    %al,-0x1a(%rbp)
mov    -0x1a(%rbp),%al
mov    %al,-0x19(%rbp)
mov    -0x19(%rbp),%al
test   $0x1,%al
jne    1212 <is_hex+0x102>
jmp    1228 <is_hex+0x118>
jmp    1217 <is_hex+0x107>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    118e <is_hex+0x7e>
mov    -0x10(%rbp),%rcx
xor    %eax,%eax
cmp    -0x18(%rbp),%rcx
mov    %al,-0x1b(%rbp)
jbe    124a <is_hex+0x13a>
mov    -0x10(%rbp),%rax
cmpb   $0x0,(%rax)
setne  %al
xor    $0xff,%al
mov    %al,-0x1b(%rbp)
mov    -0x1b(%rbp),%al
and    $0x1,%al
movzbl %al,%eax
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x20,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<is_hex>:
xor    %eax,%eax
cmpb   $0x30,(%rdi)
jne    1163 <is_hex+0x63>
mov    0x1(%rdi),%cl
or     $0x20,%cl
cmp    $0x78,%cl
jne    1163 <is_hex+0x63>
mov    $0x2,%ecx
movabs $0x3f0000003f,%r8
jmp    1134 <is_hex+0x34>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
add    $0x1,%rcx
movzbl (%rdi,%rcx,1),%esi
movsbl %sil,%edx
add    $0xffffffd0,%edx
cmp    $0xa,%edx
jb     1130 <is_hex+0x30>
lea    -0x41(%rsi),%edx
cmp    $0x25,%dl
ja     1155 <is_hex+0x55>
movzbl %dl,%edx
bt     %rdx,%r8
jb     1130 <is_hex+0x30>
cmp    $0x3,%rcx
jb     1163 <is_hex+0x63>
xor    %eax,%eax
test   %sil,%sil
sete   %al
ret

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

LLVM IR (-O2):
define i32 @is_hex(i8* nocapture %0) {
%2 = load i8, i8* %0
%3 = icmp eq i8 %2, 48
br i1 %3, label %4, label %25
4: ; preds = %1
%5 = getelementptr inbounds i8, i8* %0, i64 1
%6 = load i8, i8* %5
switch i8 %6, label %25 [
i8 120, label %7
i8 88, label %7
]
7: ; preds = %4, %4
br label %8
8: ; preds = %7, %17
%9 = phi i64 [ %18, %17 ], [ 2, %7 ]
%10 = getelementptr inbounds i8, i8* %0, i64 %9
%11 = load i8, i8* %10
%12 = freeze i8 %11
%13 = sext i8 %12 to i32
%14 = add nsw i32 %13, -48
%15 = icmp ult i32 %14, 10
br i1 %15, label %17, label %16
16: ; preds = %8
switch i8 %12, label %19 [
i8 102, label %17
i8 101, label %17
i8 100, label %17
i8 99, label %17
i8 98, label %17
i8 97, label %17
i8 70, label %17
i8 69, label %17
i8 68, label %17
i8 67, label %17
i8 66, label %17
i8 65, label %17
]
17: ; preds = %16, %16, %16, %16, %16, %16, %16, %16, %16, %16, %16, %16, %8
%18 = add nuw nsw i64 %9, 1
br label %8
19: ; preds = %16
%20 = freeze i8 %11
%21 = icmp ugt i64 %9, 2
br i1 %21, label %22, label %25
22: ; preds = %19
%23 = icmp eq i8 %20, 0
%24 = zext i1 %23 to i32
br label %25
25: ; preds = %19, %22, %4, %1
%26 = phi i32 [ 0, %1 ], [ 0, %4 ], [ 0, %19 ], [ %24, %22 ]
ret i32 %26
}