int modnamchk(s)
register char *s;
{
  if ((isascii(*s) && isdigit(*s)))
    return (0);
  for (; *s; s++) {
    if (!(isascii(*s) && isalnum(*s))) {
      if (*s != '_') {
        return (0);
      }
    }
  }
  return (1);
}


x86 assembly (clang, -O0):
<modnamchk>:
push   %rbp
mov    %rsp,%rbp
sub    $0x10,%rsp
mov    %rdi,-0x10(%rbp)
mov    -0x10(%rbp),%rax
movsbl (%rax),%edi
mov    $0x0,%al
call   1050 <isascii@plt>
cmp    $0x0,%eax
je     1174 <modnamchk+0x44>
mov    -0x10(%rbp),%rax
movsbl (%rax),%edi
call   1030 <isdigit@plt>
cmp    $0x0,%eax
je     1174 <modnamchk+0x44>
movl   $0x0,-0x4(%rbp)
jmp    11f0 <modnamchk+0xc0>
jmp    1179 <modnamchk+0x49>
mov    -0x10(%rbp),%rax
cmpb   $0x0,(%rax)
je     11e9 <modnamchk+0xb9>
mov    -0x10(%rbp),%rax
movsbl (%rax),%edi
mov    $0x0,%al
call   1050 <isascii@plt>
cmp    $0x0,%eax
je     11b2 <modnamchk+0x82>
mov    -0x10(%rbp),%rax
movsbl (%rax),%edi
call   1040 <isalnum@plt>
cmp    $0x0,%eax
jne    11d3 <modnamchk+0xa3>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x5f,%eax
je     11ce <modnamchk+0x9e>
movl   $0x0,-0x4(%rbp)
jmp    11f0 <modnamchk+0xc0>
jmp    11d3 <modnamchk+0xa3>
jmp    11d8 <modnamchk+0xa8>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    1179 <modnamchk+0x49>
movl   $0x1,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x10,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<modnamchk>:
push   %rbp
push   %r14
push   %rbx
mov    %rdi,%rbx
movsbl (%rdi),%edi
xor    %r14d,%r14d
xor    %eax,%eax
call   1040 <isascii@plt>
movsbl (%rbx),%ecx
test   %eax,%eax
je     1143 <modnamchk+0x23>
lea    -0x30(%rcx),%eax
cmp    $0xa,%eax
jb     1193 <modnamchk+0x73>
mov    $0x1,%r14d
test   %cl,%cl
je     1193 <modnamchk+0x73>
add    $0x1,%rbx
jmp    1171 <modnamchk+0x51>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
cmp    $0x5f,%bpl
jne    1190 <modnamchk+0x70>
movzbl (%rbx),%ecx
add    $0x1,%rbx
test   %cl,%cl
je     1193 <modnamchk+0x73>
movsbl %cl,%edi
xor    %eax,%eax
call   1040 <isascii@plt>
movsbl -0x1(%rbx),%ebp
test   %eax,%eax
je     1160 <modnamchk+0x40>
mov    %ebp,%edi
call   1030 <isalnum@plt>
test   %eax,%eax
je     1160 <modnamchk+0x40>
jmp    1166 <modnamchk+0x46>
xor    %r14d,%r14d
mov    %r14d,%eax
pop    %rbx
pop    %r14
pop    %rbp
ret

LLVM IR (-O0):
define i32 @modnamchk(i8* %0) {
%2 = alloca i32
%3 = alloca i8*
store i8* %0, i8** %3
%4 = load i8*, i8** %3
%5 = load i8, i8* %4
%6 = sext i8 %5 to i32
%7 = call i32 (i32, ...) bitcast (i32 (...)* @isascii to i32 (i32, ...)*)(i32 %6)
%8 = icmp ne i32 %7, 0
br i1 %8, label %9, label %16
9: ; preds = %1
%10 = load i8*, i8** %3
%11 = load i8, i8* %10
%12 = sext i8 %11 to i32
%13 = call i32 @isdigit(i32 %12)
%14 = icmp ne i32 %13, 0
br i1 %14, label %15, label %16
15: ; preds = %9
store i32 0, i32* %2
br label %45
16: ; preds = %9, %1
br label %17
17: ; preds = %41, %16
%18 = load i8*, i8** %3
%19 = load i8, i8* %18
%20 = icmp ne i8 %19, 0
br i1 %20, label %21, label %44
21: ; preds = %17
%22 = load i8*, i8** %3
%23 = load i8, i8* %22
%24 = sext i8 %23 to i32
%25 = call i32 (i32, ...) bitcast (i32 (...)* @isascii to i32 (i32, ...)*)(i32 %24)
%26 = icmp ne i32 %25, 0
br i1 %26, label %27, label %33
27: ; preds = %21
%28 = load i8*, i8** %3
%29 = load i8, i8* %28
%30 = sext i8 %29 to i32
%31 = call i32 @isalnum(i32 %30)
%32 = icmp ne i32 %31, 0
br i1 %32, label %40, label %33
33: ; preds = %27, %21
%34 = load i8*, i8** %3
%35 = load i8, i8* %34
%36 = sext i8 %35 to i32
%37 = icmp ne i32 %36, 95
br i1 %37, label %38, label %39
38: ; preds = %33
store i32 0, i32* %2
br label %45
39: ; preds = %33
br label %40
40: ; preds = %39, %27
br label %41
41: ; preds = %40
%42 = load i8*, i8** %3
%43 = getelementptr inbounds i8, i8* %42, i32 1
store i8* %43, i8** %3
br label %17
44: ; preds = %17
store i32 1, i32* %2
br label %45
45: ; preds = %44, %38, %15
%46 = load i32, i32* %2
ret i32 %46
}

LLVM IR (-O2):
define i32 @modnamchk(i8* nocapture %0) {
%2 = load i8, i8* %0
%3 = sext i8 %2 to i32
%4 = tail call i32 (i32, ...) bitcast (i32 (...)* @isascii to i32 (i32, ...)*)(i32 %3)
%5 = icmp ne i32 %4, 0
%6 = load i8, i8* %0
%7 = sext i8 %6 to i32
%8 = add nsw i32 %7, -48
%9 = icmp ult i32 %8, 10
%10 = select i1 %5, i1 %9, i1 false
br i1 %10, label %32, label %11
11: ; preds = %1
%12 = icmp eq i8 %6, 0
br i1 %12, label %32, label %13
13: ; preds = %11, %28
%14 = phi i8 [ %30, %28 ], [ %6, %11 ]
%15 = phi i8* [ %29, %28 ], [ %0, %11 ]
%16 = sext i8 %14 to i32
%17 = tail call i32 (i32, ...) bitcast (i32 (...)* @isascii to i32 (i32, ...)*)(i32 %16)
%18 = icmp eq i32 %17, 0
%19 = load i8, i8* %15
br i1 %18, label %26, label %20
20: ; preds = %13
%21 = sext i8 %19 to i32
%22 = tail call i32 @isalnum(i32 %21)
%23 = icmp ne i32 %22, 0
%24 = icmp eq i8 %19, 95
%25 = select i1 %23, i1 true, i1 %24
br i1 %25, label %28, label %32
26: ; preds = %13
%27 = icmp eq i8 %19, 95
br i1 %27, label %28, label %32
28: ; preds = %20, %26
%29 = getelementptr inbounds i8, i8* %15, i64 1
%30 = load i8, i8* %29
%31 = icmp eq i8 %30, 0
br i1 %31, label %32, label %13
32: ; preds = %26, %28, %20, %1, %11
%33 = phi i32 [ 1, %11 ], [ 0, %1 ], [ 0, %20 ], [ 0, %26 ], [ 1, %28 ]
ret i32 %33
}