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

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.