Return to l3tol.c CVS log

Up to [Research Unix] / researchv9 / libc / gen

Annotation of researchv9/libc/gen/l3tol.c, revision 1.1.1.1

1.1       root        1: /* @(#)l3tol.c 4.1 (Berkeley) 12/21/80 */
                      2: l3tol(lp, cp, n)
                      3: long   *lp;
                      4: char   *cp;
                      5: int    n;
                      6: {
                      7:        register i;
                      8:        register char *a, *b;
                      9: 
                     10:        a = (char *)lp;
                     11:        b = cp;
                     12:        for(i=0;i<n;i++) {
                     13: #ifdef pdp11
                     14:                *a++ = *b++;
                     15:                *a++ = 0;
                     16:                *a++ = *b++;
                     17:                *a++ = *b++;
                     18: #else
                     19: #ifdef vax
                     20:                *a++ = *b++;
                     21:                *a++ = *b++;
                     22:                *a++ = *b++;
                     23:                *a++ = 0;
                     24: #else
                     25: #if defined(interdata) || defined(mc68000)
                     26:                *a++ = 0;
                     27:                *a++ = *b++;
                     28:                *a++ = *b++;
                     29:                *a++ = *b++;
                     30: #else
                     31:        Unknown machine!
                     32: #endif
                     33: #endif
                     34: #endif
                     35:        }
                     36: }

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