Return to cleanalign.c CVS log

Up to [gforth] / gforth / engine

Annotation of gforth/engine/cleanalign.c, revision 1.7

1.1       jwilke      1: /* alignment-clean replacements for library functions
                      2: 
1.7     ! anton       3:   Copyright (C) 1995,1997,2000,2003,2007 Free Software Foundation, Inc.
1.1       jwilke      4: 
                      5:   This file is part of Gforth.
                      6: 
                      7:   Gforth is free software; you can redistribute it and/or
                      8:   modify it under the terms of the GNU General Public License
1.6       anton       9:   as published by the Free Software Foundation, either version 3
1.1       jwilke     10:   of the License, or (at your option) any later version.
                     11: 
                     12:   This program is distributed in the hope that it will be useful,
                     13:   but WITHOUT ANY WARRANTY; without even the implied warranty of
                     14:   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
                     15:   GNU General Public License for more details.
                     16: 
                     17:   You should have received a copy of the GNU General Public License
1.6       anton      18:   along with this program; if not, see http://www.gnu.org/licenses/.
1.1       jwilke     19: */
                     20: 
                     21: void *memcpy(void *dest, const void *src, int n)
                     22: {
                     23:   int i;
                     24:   char *s, *t;
                     25:   for (s=dest, t=src, i=0; i<n; i++)
                     26:     *s++=*t++;
                     27:   return dest;
                     28: }
                     29: 
                     30: char *memmove(char *dest, const char *src, long n)
                     31: {
                     32:   int i;
                     33: 
                     34:   if (dest<src)
                     35:     for (i=0; i<n; i++)
                     36:       dest[i]=src[i];
                     37:   else
                     38:     for(i=n-1; i>=0; i--)
                     39:       dest[i]=src[i];
                     40:   return dest;
                     41: }