int basm_strisreal(char *str) {
  char *s;
  s = str;
  if ((s[0] == '0') && (s[1] == 'x'))
    return (0);
  while (*s) {
    if (*s == '.')
      break;
    if (*s == 'e')
      break;
    if (*s == 'E')
      break;
    s++;
  }
  if (*s)
    return (1);
  return (0);
}


x86 assembly (clang, -O0):
<basm_strisreal>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,-0x18(%rbp)
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x30,%eax
jne    113d <basm_strisreal+0x3d>
mov    -0x18(%rbp),%rax
movsbl 0x1(%rax),%eax
cmp    $0x78,%eax
jne    113d <basm_strisreal+0x3d>
movl   $0x0,-0x4(%rbp)
jmp    11bf <basm_strisreal+0xbf>
jmp    1142 <basm_strisreal+0x42>
mov    -0x18(%rbp),%rax
cmpb   $0x0,(%rax)
je     119f <basm_strisreal+0x9f>
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2e,%eax
jne    1164 <basm_strisreal+0x64>
jmp    119f <basm_strisreal+0x9f>
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x65,%eax
jne    1179 <basm_strisreal+0x79>
jmp    119f <basm_strisreal+0x9f>
mov    -0x18(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x45,%eax
jne    118e <basm_strisreal+0x8e>
jmp    119f <basm_strisreal+0x9f>
mov    -0x18(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x18(%rbp)
jmp    1142 <basm_strisreal+0x42>
mov    -0x18(%rbp),%rax
cmpb   $0x0,(%rax)
je     11b8 <basm_strisreal+0xb8>
movl   $0x1,-0x4(%rbp)
jmp    11bf <basm_strisreal+0xbf>
movl   $0x0,-0x4(%rbp)
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<basm_strisreal>:
mov    (%rdi),%cl
cmp    $0x30,%cl
jne    110f <basm_strisreal+0xf>
xor    %eax,%eax
cmpb   $0x78,0x1(%rdi)
je     1145 <basm_strisreal+0x45>
add    $0x1,%rdi
movabs $0x80000000800001,%rax
nopl   (%rax)
lea    -0x2e(%rcx),%edx
cmp    $0x37,%dl
ja     1131 <basm_strisreal+0x31>
movzbl %dl,%edx
bt     %rdx,%rax
jb     113e <basm_strisreal+0x3e>
test   %cl,%cl
je     113e <basm_strisreal+0x3e>
movzbl (%rdi),%ecx
add    $0x1,%rdi
jmp    1120 <basm_strisreal+0x20>
xor    %eax,%eax
test   %cl,%cl
setne  %al
ret

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

LLVM IR (-O2):
define i32 @basm_strisreal(i8* nocapture %0) {
%2 = load i8, i8* %0
%3 = icmp eq i8 %2, 48
br i1 %3, label %4, label %8
4: ; preds = %1
%5 = getelementptr inbounds i8, i8* %0, i64 1
%6 = load i8, i8* %5
%7 = icmp eq i8 %6, 120
br i1 %7, label %18, label %8
8: ; preds = %4, %1
br label %9
9: ; preds = %8, %12
%10 = phi i8 [ %14, %12 ], [ %2, %8 ]
%11 = phi i8* [ %13, %12 ], [ %0, %8 ]
switch i8 %10, label %12 [
i8 0, label %15
i8 46, label %15
i8 101, label %15
i8 69, label %15
]
12: ; preds = %9
%13 = getelementptr inbounds i8, i8* %11, i64 1
%14 = load i8, i8* %13
br label %9
15: ; preds = %9, %9, %9, %9
%16 = icmp ne i8 %10, 0
%17 = zext i1 %16 to i32
br label %18
18: ; preds = %15, %4
%19 = phi i32 [ 0, %4 ], [ %17, %15 ]
ret i32 %19
}