Return to Memcpy.c CVS log

Up to [Research Unix] / researchv10no / cmd / cfront / libstring

Annotation of researchv10no/cmd/cfront/libstring/Memcpy.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * Copy s2 to s1, always copy n bytes
                      3:  * return s1
                      4:  *
                      5:  * JES 7Aug81 Allow overlapping moves in either direction.
                      6:  */
                      7: 
                      8: /* eventually do this in machine language */
                      9: extern char *
                     10: Memcpy(register char *s1, register const char *s2, int n)
                     11: {
                     12:        char *  os1 = s1;
                     13:        register char * ns;
                     14: 
                     15:        if (s1 <= s2) {
                     16:                ns = s1 + n;  /* stopper for s1 */
                     17:                while ( s1 < ns )
                     18:                        *s1++ = *s2++;
                     19:        } else {
                     20:                ns = s1;
                     21:                s1 += n;
                     22:                s2 += n;
                     23:                while ( ns < s1 )
                     24:                        *--s1 = *--s2;
                     25:        }
                     26:        return(os1);
                     27: }
                     28: 

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