int compartial(num1, num2, length) const char *num1, *num2;
unsigned length;
{
  register const char *s1, *s2;
  register int n1, n2;
  s1 = num1;
  s2 = num2;
  if (s1 == 0 || *s1 == '\0')
    return 1;
  if (s2 == 0 || *s2 == '\0')
    return -1;
  for (;;) {
    n1 = 0;
    while (((unsigned)((*s1) - '0') <= 9))
      n1 = n1 * 10 + (*s1++ - '0');
    if (*s1 == '.')
      s1++;
    n2 = 0;
    while (((unsigned)((*s2) - '0') <= 9))
      n2 = n2 * 10 + (*s2++ - '0');
    if (*s2 == '.')
      s2++;
    if (n1 != n2)
      return n1 - n2;
    if (--length == 0)
      return 0;
    if (*s1 == '\0')
      return 1;
    if (*s2 == '\0')
      return -1;
  }
}


x86 assembly (clang, -O0):
<compartial>:
push   %rbp
mov    %rsp,%rbp
mov    %rdi,-0x10(%rbp)
mov    %rsi,-0x18(%rbp)
mov    %edx,-0x1c(%rbp)
mov    -0x10(%rbp),%rax
mov    %rax,-0x28(%rbp)
mov    -0x18(%rbp),%rax
mov    %rax,-0x30(%rbp)
cmpq   $0x0,-0x28(%rbp)
je     113a <compartial+0x3a>
mov    -0x28(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
jne    1146 <compartial+0x46>
movl   $0x1,-0x4(%rbp)
jmp    1299 <compartial+0x199>
cmpq   $0x0,-0x30(%rbp)
je     1161 <compartial+0x61>
mov    -0x30(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
jne    116d <compartial+0x6d>
movl   $0xffffffff,-0x4(%rbp)
jmp    1299 <compartial+0x199>
jmp    1172 <compartial+0x72>
movl   $0x0,-0x34(%rbp)
mov    -0x28(%rbp),%rax
movsbl (%rax),%eax
sub    $0x30,%eax
cmp    $0x9,%eax
ja     11af <compartial+0xaf>
imul   $0xa,-0x34(%rbp),%eax
mov    -0x28(%rbp),%rcx
mov    %rcx,%rdx
add    $0x1,%rdx
mov    %rdx,-0x28(%rbp)
movsbl (%rcx),%ecx
sub    $0x30,%ecx
add    %ecx,%eax
mov    %eax,-0x34(%rbp)
jmp    1179 <compartial+0x79>
mov    -0x28(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2e,%eax
jne    11cb <compartial+0xcb>
mov    -0x28(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x28(%rbp)
movl   $0x0,-0x38(%rbp)
mov    -0x30(%rbp),%rax
movsbl (%rax),%eax
sub    $0x30,%eax
cmp    $0x9,%eax
ja     1208 <compartial+0x108>
imul   $0xa,-0x38(%rbp),%eax
mov    -0x30(%rbp),%rcx
mov    %rcx,%rdx
add    $0x1,%rdx
mov    %rdx,-0x30(%rbp)
movsbl (%rcx),%ecx
sub    $0x30,%ecx
add    %ecx,%eax
mov    %eax,-0x38(%rbp)
jmp    11d2 <compartial+0xd2>
mov    -0x30(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x2e,%eax
jne    1224 <compartial+0x124>
mov    -0x30(%rbp),%rax
add    $0x1,%rax
mov    %rax,-0x30(%rbp)
mov    -0x34(%rbp),%eax
cmp    -0x38(%rbp),%eax
je     123e <compartial+0x13e>
mov    -0x34(%rbp),%eax
sub    -0x38(%rbp),%eax
mov    %eax,-0x4(%rbp)
jmp    1299 <compartial+0x199>
mov    -0x1c(%rbp),%eax
add    $0xffffffff,%eax
mov    %eax,-0x1c(%rbp)
cmp    $0x0,%eax
jne    125c <compartial+0x15c>
movl   $0x0,-0x4(%rbp)
jmp    1299 <compartial+0x199>
mov    -0x28(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
jne    1278 <compartial+0x178>
movl   $0x1,-0x4(%rbp)
jmp    1299 <compartial+0x199>
mov    -0x30(%rbp),%rax
movsbl (%rax),%eax
cmp    $0x0,%eax
jne    1294 <compartial+0x194>
movl   $0xffffffff,-0x4(%rbp)
jmp    1299 <compartial+0x199>
jmp    1172 <compartial+0x72>
mov    -0x4(%rbp),%eax
pop    %rbp
ret

x86 assembly (clang, -O2):
<compartial>:
push   %rbp
push   %rbx
test   %rdi,%rdi
je     11b5 <compartial+0xb5>
mov    (%rdi),%bl
test   %bl,%bl
je     11b5 <compartial+0xb5>
test   %rsi,%rsi
je     11bc <compartial+0xbc>
xchg   %ax,%ax
mov    (%rsi),%r8b
test   %r8b,%r8b
je     11bc <compartial+0xbc>
movsbl %bl,%ecx
add    $0xffffffd0,%ecx
xor    %r9d,%r9d
xor    %eax,%eax
cmp    $0x9,%ecx
ja     1156 <compartial+0x56>
nopl   0x0(%rax)
lea    (%rax,%rax,4),%eax
lea    (%rcx,%rax,2),%eax
movsbl 0x1(%rdi),%ebx
add    $0x1,%rdi
lea    -0x30(%rbx),%ecx
cmp    $0xa,%ecx
jb     1140 <compartial+0x40>
xor    %r10d,%r10d
cmp    $0x2e,%bl
sete   %bpl
movsbl %r8b,%ebx
add    $0xffffffd0,%ebx
cmp    $0x9,%ebx
ja     118a <compartial+0x8a>
xor    %r9d,%r9d
nop
lea    (%r9,%r9,4),%ecx
lea    (%rbx,%rcx,2),%r9d
movsbl 0x1(%rsi),%r8d
add    $0x1,%rsi
lea    -0x30(%r8),%ebx
cmp    $0xa,%ebx
jb     1170 <compartial+0x70>
xor    %r11d,%r11d
cmp    $0x2e,%r8b
sete   %cl
sub    %r9d,%eax
jne    11c1 <compartial+0xc1>
add    $0xffffffff,%edx
je     11c4 <compartial+0xc4>
mov    %bpl,%r10b
add    %r10,%rdi
mov    (%rdi),%bl
test   %bl,%bl
je     11b5 <compartial+0xb5>
mov    %cl,%r11b
add    %r11,%rsi
jmp    1120 <compartial+0x20>
mov    $0x1,%eax
jmp    11c1 <compartial+0xc1>
mov    $0xffffffff,%eax
pop    %rbx
pop    %rbp
ret
xor    %eax,%eax
jmp    11c1 <compartial+0xc1>

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

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