Mercurial > hg > octave-nkf > gnulib-hg
view lib/bcopy.c @ 17605:23cb5b2fd95b
relocatable-perl: like relocatable-script, but for Perl scripts
* build-aux/relocatable.pl.in: Add.
* doc/relocatable-maint.texi: Add documentation.
* modules/relocatable-perl: Add.
author | Reuben Thomas <rrt@sc3d.org> |
---|---|
date | Thu, 09 Jan 2014 22:31:42 +0000 |
parents | f914ec364e88 |
children |
line wrap: on
line source
/* bcopy.c -- copy memory. Copy LENGTH bytes from SOURCE to DEST. Does not null-terminate. In the public domain. By David MacKenzie <djm@gnu.ai.mit.edu>. */ #include <config.h> #include <stddef.h> void bcopy (void const *source0, void *dest0, size_t length) { char const *source = source0; char *dest = dest0; if (source < dest) /* Moving from low mem to hi mem; start at end. */ for (source += length, dest += length; length; --length) *--dest = *--source; else if (source != dest) /* Moving from hi mem to low mem; start at beginning. */ for (; length; --length) *dest++ = *source++; }