Return to ltol3.c CVS log

Up to [Research Unix] / researchv9 / sys / construct / host

Annotation of researchv9/sys/construct/host/ltol3.c, revision 1.1

1.1     ! root        1: ltol3(cp, lp, n)
        !             2: char   *cp;
        !             3: long   *lp;
        !             4: int    n;
        !             5: {
        !             6:        register i;
        !             7:        register char *a, *b;
        !             8: 
        !             9:        a = cp;
        !            10:        b = (char *)lp;
        !            11:        for(i=0;i<n;i++) {
        !            12:                b++;
        !            13:                *a++ = *b++;
        !            14:                *a++ = *b++;
        !            15:                *a++ = *b++;
        !            16:        }
        !            17: }
        !            18: 
        !            19: l3tol(lp, cp, n)
        !            20: long   *lp;
        !            21: char   *cp;
        !            22: int    n;
        !            23: {
        !            24:        register i;
        !            25:        register char *a, *b;
        !            26: 
        !            27:        a = cp;
        !            28:        b = (char *)lp;
        !            29:        for(i=0;i<n;i++) {
        !            30:                *b++ = 0;
        !            31:                *b++ = *a++;
        !            32:                *b++ = *a++;
        !            33:                *b++ = *a++;
        !            34:        }
        !            35: }

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