Mercurial > ecos
diff packages/infra/current/src/memcpy.c @ 0:3111d98ba7b3 ecos-v1_1-release
Initial commit of eCos version 1.1
| author | jlarmour |
|---|---|
| date | Tue, 11 May 1999 11:16:07 +0000 |
| parents | |
| children | 443894e2e912 |
line wrap: on
line diff
new file mode 100644 --- /dev/null +++ b/packages/infra/current/src/memcpy.c @@ -0,0 +1,182 @@ +/*=========================================================================== +// +// memcpy.c +// +// ANSI standard memcpy() routine +// +//========================================================================== +//####COPYRIGHTBEGIN#### +// +// ------------------------------------------- +// The contents of this file are subject to the Cygnus eCos Public License +// Version 1.0 (the "License"); you may not use this file except in +// compliance with the License. You may obtain a copy of the License at +// http://sourceware.cygnus.com/ecos +// +// Software distributed under the License is distributed on an "AS IS" +// basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the +// License for the specific language governing rights and limitations under +// the License. +// +// The Original Code is eCos - Embedded Cygnus Operating System, released +// September 30, 1998. +// +// The Initial Developer of the Original Code is Cygnus. Portions created +// by Cygnus are Copyright (C) 1998 Cygnus Solutions. All Rights Reserved. +// ------------------------------------------- +// +//####COPYRIGHTEND#### +//========================================================================== +//#####DESCRIPTIONBEGIN#### +// +// Author(s): jlarmour@cygnus.co.uk +// Contributors: jlarmour@cygnus.co.uk +// Date: 1998-06-04 +// Purpose: This file implements the ANSI memcpy() function +// Description: This file implements the memcpy() function defined in ANSI para +// 7.11.2.1. This is implemented in the kernel rather than the +// C library due to it being required by gcc whether or not the +// C library has been configured in. +// +//####DESCRIPTIONEND#### +// +//==========================================================================*/ + + +/* INCLUDES */ + +#include <pkgconf/infra.h> /* Configuration of infra package */ + +#include <cyg/infra/cyg_type.h> /* Common type definitions */ +#include <cyg/infra/cyg_trac.h> /* Tracing support */ +#include <cyg/infra/cyg_ass.h> /* Assertion support */ +#include <stddef.h> /* Compiler defns such as size_t, NULL etc. */ + +/* MACROS */ + +/* Nonzero if either X or Y is not aligned on a word boundary. */ +#define CYG_STR_UNALIGNED(X, Y) \ + (((CYG_WORD)(X) & (sizeof (CYG_WORD) - 1)) | \ + ((CYG_WORD)(Y) & (sizeof (CYG_WORD) - 1))) + +/* How many bytes are copied each iteration of the 4X unrolled loop in the + * optimised string implementation + */ +#define CYG_STR_OPT_BIGBLOCKSIZE (sizeof(CYG_WORD) << 2) + + +/* How many bytes are copied each iteration of the word copy loop in the + * optimised string implementation + */ +#define CYG_STR_OPT_LITTLEBLOCKSIZE (sizeof (CYG_WORD)) + +/* EXPORTED SYMBOLS */ + +externC void * +memcpy( void *s1, const void *s2, size_t n ) __attribute__((weak, + alias("_memcpy"))); + +/* FUNCTIONS */ + +void * +_memcpy( void *s1, const void *s2, size_t n ) +{ +#if defined(CYGIMP_INFRA_PREFER_SMALL_TO_FAST_MEMCPY) || defined(__OPTIMIZE_SIZE__) + char *dst = (char *) s1; + const char *src = (const char *) s2; + +#ifdef CYG_TRACING_FIXED + CYG_REPORT_FUNCNAMETYPE( "_memcpy", "returning %08x" ); + CYG_REPORT_FUNCARG3( "dst=%08x, src=%08x, n=%d", dst, src, n ); + + if (n != 0) + { + CYG_CHECK_DATA_PTR( dst, "dst is not a valid pointer!" ); + CYG_CHECK_DATA_PTR( src, "src is not a valid pointer!" ); + CYG_CHECK_DATA_PTR( dst+n-1, "dst+n-1 is not a valid address!" ); + CYG_CHECK_DATA_PTR( src+n-1, "src+n-1 is not a valid address!" ); + } +#endif + + while (n--) + { + *dst++ = *src++; + } /* while */ + +#ifdef CYG_TRACING_FIXED + CYG_REPORT_RETVAL( s1 ); +#endif + return s1; +#else + char *dst; + const char *src; + CYG_WORD *aligned_dst; + const CYG_WORD *aligned_src; + +#ifdef CYG_TRACING_FIXED + CYG_REPORT_FUNCNAMETYPE( "_memcpy", "returning %08x" ); +#endif + + dst = (char *)s1; + src = (const char *)s2; + +#ifdef CYG_TRACING_FIXED + CYG_REPORT_FUNCARG3( "dst=%08x, src=%08x, n=%d", dst, src, n ); + + if (n != 0) + { + CYG_CHECK_DATA_PTR( dst, "dst is not a valid pointer!" ); + CYG_CHECK_DATA_PTR( src, "src is not a valid pointer!" ); + CYG_CHECK_DATA_PTR( dst+n-1, "dst+n-1 is not a valid address!" ); + CYG_CHECK_DATA_PTR( src+n-1, "src+n-1 is not a valid address!" ); + } +#endif + + /* If the size is small, or either SRC or DST is unaligned, + * then punt into the byte copy loop. This should be rare. + */ + if (n < sizeof(CYG_WORD) || CYG_STR_UNALIGNED (src, dst)) + { + while (n--) + *dst++ = *src++; +#ifdef CYG_TRACING_FIXED + CYG_REPORT_RETVAL( s1 ); +#endif + return s1; + } /* if */ + + aligned_dst = (CYG_WORD *)dst; + aligned_src = (const CYG_WORD *)src; + + /* Copy 4X long words at a time if possible. */ + while (n >= CYG_STR_OPT_BIGBLOCKSIZE) + { + *aligned_dst++ = *aligned_src++; + *aligned_dst++ = *aligned_src++; + *aligned_dst++ = *aligned_src++; + *aligned_dst++ = *aligned_src++; + n -= CYG_STR_OPT_BIGBLOCKSIZE; + } /* while */ + + /* Copy one long word at a time if possible. */ + while (n >= CYG_STR_OPT_LITTLEBLOCKSIZE) + { + *aligned_dst++ = *aligned_src++; + n -= CYG_STR_OPT_LITTLEBLOCKSIZE; + } /* while */ + + /* Pick up any residual with a byte copier. */ + dst = (char*)aligned_dst; + src = (const char*)aligned_src; + while (n--) + *dst++ = *src++; + +#ifdef CYG_TRACING_FIXED + CYG_REPORT_RETVAL( s1 ); +#endif + return s1; +#endif /* not defined(CYGIMP_PREFER_SMALL_TO_FAST_MEMCPY) || + * defined(__OPTIMIZE_SIZE__) */ +} /* _memcpy() */ + +/* EOF memcpy.c */
