xref: /inferno-os/libmp/port/mpveccmp.c (revision 7ef44d652ae9e5e1f5b3465d73684e4a54de73c0)
1 #include "os.h"
2 #include <mp.h>
3 #include "dat.h"
4 
5 int
6 mpveccmp(mpdigit *a, int alen, mpdigit *b, int blen)
7 {
8 	mpdigit x;
9 
10 	while(alen > blen)
11 		if(a[--alen] != 0)
12 			return 1;
13 	while(blen > alen)
14 		if(b[--blen] != 0)
15 			return -1;
16 	while(alen > 0){
17 		--alen;
18 		x = a[alen] - b[alen];
19 		if(x == 0)
20 			continue;
21 		if(x > a[alen])
22 			return -1;
23 		else
24 			return 1;
25 	}
26 	return 0;
27 }
28