Return to mcmp.c CVS log

Up to [MW Coherent from dump] / coherent / d / usr / lib / libmp

Annotation of coherent/d/usr/lib/libmp/mcmp.c, revision 1.1

1.1     ! root        1: #include "mprec.h"
        !             2: 
        !             3: 
        !             4: /*
        !             5:  *     Mcmp compares the mint's pointed to by "a" and "b".  It returns an
        !             6:  *     int which is :
        !             7:  *             greater than zero iff "a" > "b"
        !             8:  *             less than zero ii "a" < "b"
        !             9:  *             equal to zero iff "a" == "b".
        !            10:  */
        !            11: 
        !            12: mcmp(a, b)
        !            13: register mint *a, *b;
        !            14: {
        !            15:        register char *ap, *bp;
        !            16:        register unsigned count;
        !            17:        int sign;
        !            18: 
        !            19:        ap = a->val + a->len;
        !            20:        bp = b->val + b->len;
        !            21: 
        !            22:        /* first see if signs are different */
        !            23:        sign = *(ap - 1) == NEFL;
        !            24:        if (sign != (*(bp - 1) == NEFL))
        !            25:                return (sign ? -1 : 1);
        !            26: 
        !            27:        /* next see if lengths different */
        !            28:        if (a->len != b->len)
        !            29:                return (sign ? b->len - a->len : a->len - b->len);
        !            30: 
        !            31:        /* finally see if any of the bytes are different */
        !            32:        count = a->len;
        !            33:        while (count-- != 0)
        !            34:                if (*--ap != *--bp)
        !            35:                        return (*ap - *bp);
        !            36:        return (0);
        !            37: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.