|
|
1.1 root 1: #include "mprec.h"
2:
3:
4: /*
5: * Ispos returns true iff the mint pointed to by "a" is positive
6: * (ie. greater than or equal to zero).
7: */
8:
9: ispos(a)
10: register mint *a;
11: {
12: return (a->val[a->len - 1] != NEFL);
13: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.