int cmpnumfld(num1, num2, fld)
char *num1, *num2;
int fld;
{
  register char *s1, *s2;
  register int n1, n2;
  s1 = num1;
  n1 = fld - 1;
  while (n1) {
    while (*s1 != '.')
      s1++;
    n1--;
    s1++;
  }
  s2 = num2;
  n2 = fld - 1;
  while (n2) {
    while (*s2 != '.')
      s2++;
    n2--;
    s2++;
  }
  n1 = 0;
  while (('0' <= *s1) && (*s1 <= '9')) {
    n1 = n1 * 10 + (*s1 - '0');
    s1++;
  }
  n2 = 0;
  while (('0' <= *s2) && (*s2 <= '9')) {
    n2 = n2 * 10 + (*s2 - '0');
    s2++;
  }
  return (n1 - n2);
}


x86 assembly (clang, -O0):
<cmpnumfld>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x8(%rbp)
mov    %rsi,-0x10(%rbp)
mov    %edx,-0x14(%rbp)
mov    -0x8(%rbp),%rax
mov    %rax,-0x20(%rbp)
mov    -0x14(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x2c(%rbp)
cmpl   $0x0,-0x2c(%rbp)
je     116a <cmpnumfld+0x6a>
jmp    112f <cmpnumfld+0x2f>
mov    -0x20(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2e,%eax
je     1150 <cmpnumfld+0x50>
mov    -0x20(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x20(%rbp)
jmp    112f <cmpnumfld+0x2f>
mov    -0x2c(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x2c(%rbp)
mov    -0x20(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x20(%rbp)
jmp    1120 <cmpnumfld+0x20>
mov    -0x10(%rbp),%rax
mov    %rax,-0x28(%rbp)
mov    -0x14(%rbp),%eax
sub    $0x1,%eax
mov    %eax,-0x30(%rbp)
cmpl   $0x0,-0x30(%rbp)
je     11c5 <cmpnumfld+0xc5>
jmp    118a <cmpnumfld+0x8a>
mov    -0x28(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2e,%eax
je     11ab <cmpnumfld+0xab>
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
jmp    118a <cmpnumfld+0x8a>
mov    -0x30(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x30(%rbp)
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
jmp    117b <cmpnumfld+0x7b>
movl   $0x0,-0x2c(%rbp)
mov    -0x20(%rbp),%rax
movsbl (%rax),%edx
xor    %eax,%eax
mov    $0x30,%ecx
cmp    %edx,%ecx
mov    %al,-0x31(%rbp)
jg     11f5 <cmpnumfld+0xf5>
mov    -0x20(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x39,%eax
setle  %al
mov    %al,-0x31(%rbp)
mov    -0x31(%rbp),%al
test   $0x1,%al
jne    1205 <cmpnumfld+0x105>
jmp    1229 <cmpnumfld+0x129>
imul   $0xa,-0x2c(%rbp),%eax
mov    -0x20(%rbp),%rcx
movsbl (%rcx),%ecx
sub    $0x30,%ecx
add    %ecx,%eax
mov    %eax,-0x2c(%rbp)
mov    -0x20(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x20(%rbp)
jmp    11cc <cmpnumfld+0xcc>
movl   $0x0,-0x30(%rbp)
mov    -0x28(%rbp),%rax
movsbl (%rax),%edx
xor    %eax,%eax
mov    $0x30,%ecx
cmp    %edx,%ecx
mov    %al,-0x32(%rbp)
jg     1259 <cmpnumfld+0x159>
mov    -0x28(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x39,%eax
setle  %al
mov    %al,-0x32(%rbp)
mov    -0x32(%rbp),%al
test   $0x1,%al
jne    1269 <cmpnumfld+0x169>
jmp    128d <cmpnumfld+0x18d>
imul   $0xa,-0x30(%rbp),%eax
mov    -0x28(%rbp),%rcx
movsbl (%rcx),%ecx
sub    $0x30,%ecx
add    %ecx,%eax
mov    %eax,-0x30(%rbp)
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
jmp    1230 <cmpnumfld+0x130>
mov    -0x2c(%rbp),%eax
sub    -0x30(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<cmpnumfld>:
mov    %edx,%r9d
add    $0xffffffff,%r9d
je     11ff <cmpnumfld+0xff>
add    $0xfffffffe,%edx
mov    %r9d,%r8d
and    $0x3,%r8d
je     113b <cmpnumfld+0x3b>
xor    %eax,%eax
mov    %r9d,%ecx
xchg   %ax,%ax
cmpb   $0x2e,(%rdi)
lea    0x1(%rdi),%rdi
jne    1120 <cmpnumfld+0x20>
add    $0xffffffff,%ecx
add    $0x1,%eax
cmp    %r8d,%eax
jne    1120 <cmpnumfld+0x20>
cmp    $0x3,%edx
jae    1150 <cmpnumfld+0x50>
jmp    118e <cmpnumfld+0x8e>
mov    %r9d,%ecx
cmp    $0x3,%edx
jb     118e <cmpnumfld+0x8e>
cs nopw 0x0(%rax,%rax,1)
nopl   (%rax)
cmpb   $0x2e,(%rdi)
lea    0x1(%rdi),%rdi
jne    1150 <cmpnumfld+0x50>
nopl   0x0(%rax)
cmpb   $0x2e,(%rdi)
lea    0x1(%rdi),%rdi
jne    1160 <cmpnumfld+0x60>
nopl   0x0(%rax)
cmpb   $0x2e,(%rdi)
lea    0x1(%rdi),%rdi
jne    1170 <cmpnumfld+0x70>
nopl   0x0(%rax)
cmpb   $0x2e,(%rdi)
lea    0x1(%rdi),%rdi
jne    1180 <cmpnumfld+0x80>
add    $0xfffffffc,%ecx
jne    1150 <cmpnumfld+0x50>
test   %r9d,%r9d
je     11ff <cmpnumfld+0xff>
mov    %r9d,%ecx
and    $0x3,%ecx
je     11b4 <cmpnumfld+0xb4>
xor    %eax,%eax
nopl   (%rax)
cmpb   $0x2e,(%rsi)
lea    0x1(%rsi),%rsi
jne    11a0 <cmpnumfld+0xa0>
add    $0xffffffff,%r9d
add    $0x1,%eax
cmp    %ecx,%eax
jne    11a0 <cmpnumfld+0xa0>
cmp    $0x3,%edx
jb     11ff <cmpnumfld+0xff>
nopl   0x0(%rax)
cmpb   $0x2e,(%rsi)
lea    0x1(%rsi),%rsi
jne    11c0 <cmpnumfld+0xc0>
nopl   0x0(%rax)
cmpb   $0x2e,(%rsi)
lea    0x1(%rsi),%rsi
jne    11d0 <cmpnumfld+0xd0>
nopl   0x0(%rax)
cmpb   $0x2e,(%rsi)
lea    0x1(%rsi),%rsi
jne    11e0 <cmpnumfld+0xe0>
nopl   0x0(%rax)
cmpb   $0x2e,(%rsi)
lea    0x1(%rsi),%rsi
jne    11f0 <cmpnumfld+0xf0>
add    $0xfffffffc,%r9d
jne    11c0 <cmpnumfld+0xc0>
mov    (%rdi),%dl
lea    -0x30(%rdx),%r8d
xor    %r9d,%r9d
mov    $0x0,%eax
cmp    $0x9,%r8b
ja     123b <cmpnumfld+0x13b>
add    $0x1,%rdi
xor    %eax,%eax
nopl   0x0(%rax)
movzbl %dl,%edx
lea    (%rax,%rax,4),%eax
lea    (%rdx,%rax,2),%eax
add    $0xffffffd0,%eax
movzbl (%rdi),%edx
lea    -0x30(%rdx),%ecx
add    $0x1,%rdi
cmp    $0xa,%cl
jb     1220 <cmpnumfld+0x120>
mov    (%rsi),%dl
lea    -0x30(%rdx),%edi
cmp    $0x9,%dil
ja     126e <cmpnumfld+0x16e>
add    $0x1,%rsi
xor    %r9d,%r9d
nopl   (%rax)
movzbl %dl,%ecx
lea    (%r9,%r9,4),%edx
lea    (%rcx,%rdx,2),%r9d
add    $0xffffffd0,%r9d
movzbl (%rsi),%edx
lea    -0x30(%rdx),%ecx
add    $0x1,%rsi
cmp    $0xa,%cl
jb     1250 <cmpnumfld+0x150>
sub    %r9d,%eax
ret

LLVM IR (-O0):
define i32 @cmpnumfld(i8* %0, i8* %1, i32 %2) {
%4 = alloca i8*
%5 = alloca i8*
%6 = alloca i32
%7 = alloca i8*
%8 = alloca i8*
%9 = alloca i32
%10 = alloca i32
store i8* %0, i8** %4
store i8* %1, i8** %5
store i32 %2, i32* %6
%11 = load i8*, i8** %4
store i8* %11, i8** %7
%12 = load i32, i32* %6
%13 = sub nsw i32 %12, 1
store i32 %13, i32* %9
br label %14
14: ; preds = %26, %3
%15 = load i32, i32* %9
%16 = icmp ne i32 %15, 0
br i1 %16, label %17, label %31
17: ; preds = %14
br label %18
18: ; preds = %23, %17
%19 = load i8*, i8** %7
%20 = load i8, i8* %19
%21 = sext i8 %20 to i32
%22 = icmp ne i32 %21, 46
br i1 %22, label %23, label %26
23: ; preds = %18
%24 = load i8*, i8** %7
%25 = getelementptr inbounds i8, i8* %24, i32 1
store i8* %25, i8** %7
br label %18
26: ; preds = %18
%27 = load i32, i32* %9
%28 = add nsw i32 %27, -1
store i32 %28, i32* %9
%29 = load i8*, i8** %7
%30 = getelementptr inbounds i8, i8* %29, i32 1
store i8* %30, i8** %7
br label %14
31: ; preds = %14
%32 = load i8*, i8** %5
store i8* %32, i8** %8
%33 = load i32, i32* %6
%34 = sub nsw i32 %33, 1
store i32 %34, i32* %10
br label %35
35: ; preds = %47, %31
%36 = load i32, i32* %10
%37 = icmp ne i32 %36, 0
br i1 %37, label %38, label %52
38: ; preds = %35
br label %39
39: ; preds = %44, %38
%40 = load i8*, i8** %8
%41 = load i8, i8* %40
%42 = sext i8 %41 to i32
%43 = icmp ne i32 %42, 46
br i1 %43, label %44, label %47
44: ; preds = %39
%45 = load i8*, i8** %8
%46 = getelementptr inbounds i8, i8* %45, i32 1
store i8* %46, i8** %8
br label %39
47: ; preds = %39
%48 = load i32, i32* %10
%49 = add nsw i32 %48, -1
store i32 %49, i32* %10
%50 = load i8*, i8** %8
%51 = getelementptr inbounds i8, i8* %50, i32 1
store i8* %51, i8** %8
br label %35
52: ; preds = %35
store i32 0, i32* %9
br label %53
53: ; preds = %65, %52
%54 = load i8*, i8** %7
%55 = load i8, i8* %54
%56 = sext i8 %55 to i32
%57 = icmp sle i32 48, %56
br i1 %57, label %58, label %63
58: ; preds = %53
%59 = load i8*, i8** %7
%60 = load i8, i8* %59
%61 = sext i8 %60 to i32
%62 = icmp sle i32 %61, 57
br label %63
63: ; preds = %58, %53
%64 = phi i1 [ false, %53 ], [ %62, %58 ]
br i1 %64, label %65, label %75
65: ; preds = %63
%66 = load i32, i32* %9
%67 = mul nsw i32 %66, 10
%68 = load i8*, i8** %7
%69 = load i8, i8* %68
%70 = sext i8 %69 to i32
%71 = sub nsw i32 %70, 48
%72 = add nsw i32 %67, %71
store i32 %72, i32* %9
%73 = load i8*, i8** %7
%74 = getelementptr inbounds i8, i8* %73, i32 1
store i8* %74, i8** %7
br label %53
75: ; preds = %63
store i32 0, i32* %10
br label %76
76: ; preds = %88, %75
%77 = load i8*, i8** %8
%78 = load i8, i8* %77
%79 = sext i8 %78 to i32
%80 = icmp sle i32 48, %79
br i1 %80, label %81, label %86
81: ; preds = %76
%82 = load i8*, i8** %8
%83 = load i8, i8* %82
%84 = sext i8 %83 to i32
%85 = icmp sle i32 %84, 57
br label %86
86: ; preds = %81, %76
%87 = phi i1 [ false, %76 ], [ %85, %81 ]
br i1 %87, label %88, label %98
88: ; preds = %86
%89 = load i32, i32* %10
%90 = mul nsw i32 %89, 10
%91 = load i8*, i8** %8
%92 = load i8, i8* %91
%93 = sext i8 %92 to i32
%94 = sub nsw i32 %93, 48
%95 = add nsw i32 %90, %94
store i32 %95, i32* %10
%96 = load i8*, i8** %8
%97 = getelementptr inbounds i8, i8* %96, i32 1
store i8* %97, i8** %8
br label %76
98: ; preds = %86
%99 = load i32, i32* %9
%100 = load i32, i32* %10
%101 = sub nsw i32 %99, %100
ret i32 %101
}

LLVM IR (-O2):
define i32 @cmpnumfld(i8* nocapture %0, i8* nocapture %1, i32 %2) {
%4 = add i32 %2, -1
%5 = icmp eq i32 %4, 0
br i1 %5, label %80, label %6
6: ; preds = %3
%7 = add i32 %2, -2
%8 = and i32 %4, 3
%9 = icmp eq i32 %8, 0
br i1 %9, label %23, label %10
10: ; preds = %6, %19
%11 = phi i32 [ %20, %19 ], [ %4, %6 ]
%12 = phi i8* [ %18, %19 ], [ %0, %6 ]
%13 = phi i32 [ %21, %19 ], [ 0, %6 ]
br label %14
14: ; preds = %14, %10
%15 = phi i8* [ %18, %14 ], [ %12, %10 ]
%16 = load i8, i8* %15
%17 = icmp eq i8 %16, 46
%18 = getelementptr inbounds i8, i8* %15, i64 1
br i1 %17, label %19, label %14
19: ; preds = %14
%20 = add nsw i32 %11, -1
%21 = add i32 %13, 1
%22 = icmp eq i32 %21, %8
br i1 %22, label %23, label %10
23: ; preds = %19, %6
%24 = phi i8* [ undef, %6 ], [ %18, %19 ]
%25 = phi i32 [ %4, %6 ], [ %20, %19 ]
%26 = phi i8* [ %0, %6 ], [ %18, %19 ]
%27 = icmp ult i32 %7, 3
br i1 %27, label %31, label %28
28: ; preds = %23, %74
%29 = phi i32 [ %75, %74 ], [ %25, %23 ]
%30 = phi i8* [ %73, %74 ], [ %26, %23 ]
br label %54
31: ; preds = %74, %23
%32 = phi i8* [ %24, %23 ], [ %73, %74 ]
br i1 %5, label %80, label %33
33: ; preds = %31
%34 = and i32 %4, 3
%35 = icmp eq i32 %34, 0
br i1 %35, label %49, label %36
36: ; preds = %33, %45
%37 = phi i32 [ %46, %45 ], [ %4, %33 ]
%38 = phi i8* [ %44, %45 ], [ %1, %33 ]
%39 = phi i32 [ %47, %45 ], [ 0, %33 ]
br label %40
40: ; preds = %40, %36
%41 = phi i8* [ %44, %40 ], [ %38, %36 ]
%42 = load i8, i8* %41
%43 = icmp eq i8 %42, 46
%44 = getelementptr inbounds i8, i8* %41, i64 1
br i1 %43, label %45, label %40
45: ; preds = %40
%46 = add nsw i32 %37, -1
%47 = add i32 %39, 1
%48 = icmp eq i32 %47, %34
br i1 %48, label %49, label %36
49: ; preds = %45, %33
%50 = phi i8* [ undef, %33 ], [ %44, %45 ]
%51 = phi i32 [ %4, %33 ], [ %46, %45 ]
%52 = phi i8* [ %1, %33 ], [ %44, %45 ]
%53 = icmp ult i32 %7, 3
br i1 %53, label %80, label %77
54: ; preds = %54, %28
%55 = phi i8* [ %58, %54 ], [ %30, %28 ]
%56 = load i8, i8* %55
%57 = icmp eq i8 %56, 46
%58 = getelementptr inbounds i8, i8* %55, i64 1
br i1 %57, label %59, label %54
59: ; preds = %54, %59
%60 = phi i8* [ %63, %59 ], [ %58, %54 ]
%61 = load i8, i8* %60
%62 = icmp eq i8 %61, 46
%63 = getelementptr inbounds i8, i8* %60, i64 1
br i1 %62, label %64, label %59
64: ; preds = %59, %64
%65 = phi i8* [ %68, %64 ], [ %63, %59 ]
%66 = load i8, i8* %65
%67 = icmp eq i8 %66, 46
%68 = getelementptr inbounds i8, i8* %65, i64 1
br i1 %67, label %69, label %64
69: ; preds = %64, %69
%70 = phi i8* [ %73, %69 ], [ %68, %64 ]
%71 = load i8, i8* %70
%72 = icmp eq i8 %71, 46
%73 = getelementptr inbounds i8, i8* %70, i64 1
br i1 %72, label %74, label %69
74: ; preds = %69
%75 = add nsw i32 %29, -4
%76 = icmp eq i32 %75, 0
br i1 %76, label %31, label %28
77: ; preds = %49, %106
%78 = phi i32 [ %107, %106 ], [ %51, %49 ]
%79 = phi i8* [ %105, %106 ], [ %52, %49 ]
br label %86
80: ; preds = %49, %106, %3, %31
%81 = phi i8* [ %32, %31 ], [ %0, %3 ], [ %32, %106 ], [ %32, %49 ]
%82 = phi i8* [ %1, %31 ], [ %1, %3 ], [ %50, %49 ], [ %105, %106 ]
%83 = load i8, i8* %81
%84 = add i8 %83, -48
%85 = icmp ult i8 %84, 10
br i1 %85, label %114, label %109
86: ; preds = %86, %77
%87 = phi i8* [ %90, %86 ], [ %79, %77 ]
%88 = load i8, i8* %87
%89 = icmp eq i8 %88, 46
%90 = getelementptr inbounds i8, i8* %87, i64 1
br i1 %89, label %91, label %86
91: ; preds = %86, %91
%92 = phi i8* [ %95, %91 ], [ %90, %86 ]
%93 = load i8, i8* %92
%94 = icmp eq i8 %93, 46
%95 = getelementptr inbounds i8, i8* %92, i64 1
br i1 %94, label %96, label %91
96: ; preds = %91, %96
%97 = phi i8* [ %100, %96 ], [ %95, %91 ]
%98 = load i8, i8* %97
%99 = icmp eq i8 %98, 46
%100 = getelementptr inbounds i8, i8* %97, i64 1
br i1 %99, label %101, label %96
101: ; preds = %96, %101
%102 = phi i8* [ %105, %101 ], [ %100, %96 ]
%103 = load i8, i8* %102
%104 = icmp eq i8 %103, 46
%105 = getelementptr inbounds i8, i8* %102, i64 1
br i1 %104, label %106, label %101
106: ; preds = %101
%107 = add nsw i32 %78, -4
%108 = icmp eq i32 %107, 0
br i1 %108, label %80, label %77
109: ; preds = %114, %80
%110 = phi i32 [ 0, %80 ], [ %121, %114 ]
%111 = load i8, i8* %82
%112 = add i8 %111, -48
%113 = icmp ult i8 %112, 10
br i1 %113, label %126, label %138
114: ; preds = %80, %114
%115 = phi i8 [ %123, %114 ], [ %83, %80 ]
%116 = phi i32 [ %121, %114 ], [ 0, %80 ]
%117 = phi i8* [ %122, %114 ], [ %81, %80 ]
%118 = zext i8 %115 to i32
%119 = mul nsw i32 %116, 10
%120 = add i32 %119, -48
%121 = add i32 %120, %118
%122 = getelementptr inbounds i8, i8* %117, i64 1
%123 = load i8, i8* %122
%124 = add i8 %123, -48
%125 = icmp ult i8 %124, 10
br i1 %125, label %114, label %109
126: ; preds = %109, %126
%127 = phi i8 [ %135, %126 ], [ %111, %109 ]
%128 = phi i32 [ %133, %126 ], [ 0, %109 ]
%129 = phi i8* [ %134, %126 ], [ %82, %109 ]
%130 = zext i8 %127 to i32
%131 = mul nsw i32 %128, 10
%132 = add i32 %131, -48
%133 = add i32 %132, %130
%134 = getelementptr inbounds i8, i8* %129, i64 1
%135 = load i8, i8* %134
%136 = add i8 %135, -48
%137 = icmp ult i8 %136, 10
br i1 %137, label %126, label %138
138: ; preds = %126, %109
%139 = phi i32 [ 0, %109 ], [ %133, %126 ]
%140 = sub nsw i32 %110, %139
ret i32 %140
}