int is_integer_part_float(s)
char *s;
{
  char *x;
  if (*s == '-')
    s++;
  for (x = s; isdigit(*s); s++)
    continue;
  if (x == s || *s != '.')
    return (0);
  for (s++; isdigit(*s); s++)
    continue;
  return (*s ? is_exponent(s) : 1);
}


x86 assembly (clang, -O0):
<is_integer_part_float>:
push   %rbp
mov    %rsp,%rbp
sub    $0x20,%rsp
mov    %rdi,-0x10(%rbp)
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2d,%eax
jne    1148 <is_integer_part_float+0x28>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,-0x18(%rbp)
mov    -0x10(%rbp),%rax
movsbl (%rax),%edi
call   1030 <isdigit@plt>
cmp    $0x0,%eax
je     117b <is_integer_part_float+0x5b>
jmp    116a <is_integer_part_float+0x4a>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    1150 <is_integer_part_float+0x30>
mov    -0x18(%rbp),%rax
cmp    -0x10(%rbp),%rax
je     1199 <is_integer_part_float+0x79>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2e,%eax
je     11a5 <is_integer_part_float+0x85>
movl   $0x0,-0x4(%rbp)
jmp    1212 <is_integer_part_float+0xf2>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
mov    -0x10(%rbp),%rax
movsbl (%rax),%edi
call   1030 <isdigit@plt>
cmp    $0x0,%eax
je     11dc <is_integer_part_float+0xbc>
jmp    11cb <is_integer_part_float+0xab>
mov    -0x10(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x10(%rbp)
jmp    11b1 <is_integer_part_float+0x91>
mov    -0x10(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
je     11ff <is_integer_part_float+0xdf>
mov    -0x10(%rbp),%rdi
mov    $0x0,%al
call   1040 <is_exponent@plt>
mov    %eax,-0x1c(%rbp)
jmp    120c <is_integer_part_float+0xec>
mov    $0x1,%eax
mov    %eax,-0x1c(%rbp)
jmp    120c <is_integer_part_float+0xec>
mov    -0x1c(%rbp),%eax
mov    %eax,-0x4(%rbp)
mov    -0x4(%rbp),%eax
add    $0x20,%rsp
pop    %rbp
ret

x86 assembly (clang, -O2):
<is_integer_part_float>:
xor    %eax,%eax
cmpb   $0x2d,(%rdi)
sete   %al
add    %rax,%rdi
add    $0xffffffffffffffff,%rdi
mov    $0x1,%ecx
cs nopw 0x0(%rax,%rax,1)
xchg   %ax,%ax
movsbl 0x1(%rdi),%edx
add    $0x1,%rdi
lea    -0x30(%rdx),%eax
add    $0xffffffffffffffff,%rcx
cmp    $0xa,%eax
jb     1130 <is_integer_part_float+0x20>
xor    %eax,%eax
test   %rcx,%rcx
je     1170 <is_integer_part_float+0x60>
cmp    $0x2e,%dl
jne    1170 <is_integer_part_float+0x60>
movsbl 0x1(%rdi),%eax
add    $0x1,%rdi
lea    -0x30(%rax),%ecx
cmp    $0xa,%ecx
jb     1150 <is_integer_part_float+0x40>
test   %al,%al
je     116b <is_integer_part_float+0x5b>
xor    %eax,%eax
jmp    1030 <is_exponent@plt>
mov    $0x1,%eax
ret

LLVM IR (-O0):
define i32 @is_integer_part_float(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, 45
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 %12
12: ; preds = %9, %1
%13 = load i8*, i8** %3
store i8* %13, i8** %4
br label %14
14: ; preds = %21, %12
%15 = load i8*, i8** %3
%16 = load i8, i8* %15
%17 = sext i8 %16 to i32
%18 = call i32 @isdigit(i32 %17)
%19 = icmp ne i32 %18, 0
br i1 %19, label %20, label %24
20: ; preds = %14
br label %21
21: ; preds = %20
%22 = load i8*, i8** %3
%23 = getelementptr inbounds i8, i8* %22, i32 1
store i8* %23, i8** %3
br label %14
24: ; preds = %14
%25 = load i8*, i8** %4
%26 = load i8*, i8** %3
%27 = icmp eq i8* %25, %26
br i1 %27, label %33, label %28
28: ; preds = %24
%29 = load i8*, i8** %3
%30 = load i8, i8* %29
%31 = sext i8 %30 to i32
%32 = icmp ne i32 %31, 46
br i1 %32, label %33, label %34
33: ; preds = %28, %24
store i32 0, i32* %2
br label %58
34: ; preds = %28
%35 = load i8*, i8** %3
%36 = getelementptr inbounds i8, i8* %35, i32 1
store i8* %36, i8** %3
br label %37
37: ; preds = %44, %34
%38 = load i8*, i8** %3
%39 = load i8, i8* %38
%40 = sext i8 %39 to i32
%41 = call i32 @isdigit(i32 %40)
%42 = icmp ne i32 %41, 0
br i1 %42, label %43, label %47
43: ; preds = %37
br label %44
44: ; preds = %43
%45 = load i8*, i8** %3
%46 = getelementptr inbounds i8, i8* %45, i32 1
store i8* %46, i8** %3
br label %37
47: ; preds = %37
%48 = load i8*, i8** %3
%49 = load i8, i8* %48
%50 = sext i8 %49 to i32
%51 = icmp ne i32 %50, 0
br i1 %51, label %52, label %55
52: ; preds = %47
%53 = load i8*, i8** %3
%54 = call i32 (i8*, ...) bitcast (i32 (...)* @is_exponent to i32 (i8*, ...)*)(i8* %53)
br label %56
55: ; preds = %47
br label %56
56: ; preds = %55, %52
%57 = phi i32 [ %54, %52 ], [ 1, %55 ]
store i32 %57, i32* %2
br label %58
58: ; preds = %56, %33
%59 = load i32, i32* %2
ret i32 %59
}

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