110 lines
		
	
	
		
			2.2 KiB
		
	
	
	
		
			C
		
	
	
	
			
		
		
	
	
			110 lines
		
	
	
		
			2.2 KiB
		
	
	
	
		
			C
		
	
	
	
| /*
 | |
| FUNCTION
 | |
| 	<<memset>>---set an area of memory
 | |
| 
 | |
| INDEX
 | |
| 	memset
 | |
| 
 | |
| ANSI_SYNOPSIS
 | |
| 	#include <string.h>
 | |
| 	void *memset(const void *<[dst]>, int <[c]>, size_t <[length]>);
 | |
| 
 | |
| TRAD_SYNOPSIS
 | |
| 	#include <string.h>
 | |
| 	void *memset(<[dst]>, <[c]>, <[length]>)
 | |
| 	void *<[dst]>;
 | |
| 	int <[c]>;
 | |
| 	size_t <[length]>;
 | |
| 
 | |
| DESCRIPTION
 | |
| 	This function converts the argument <[c]> into an unsigned
 | |
| 	char and fills the first <[length]> characters of the array
 | |
| 	pointed to by <[dst]> to the value.
 | |
| 
 | |
| RETURNS
 | |
| 	<<memset>> returns the value of <[m]>.
 | |
| 
 | |
| PORTABILITY
 | |
| <<memset>> is ANSI C.
 | |
| 
 | |
|     <<memset>> requires no supporting OS subroutines.
 | |
| 
 | |
| QUICKREF
 | |
| 	memset ansi pure
 | |
| */
 | |
| 
 | |
| #include <string.h>
 | |
| 
 | |
| #define LBLOCKSIZE (sizeof(long))
 | |
| #define UNALIGNED(X)   ((long)X & (LBLOCKSIZE - 1))
 | |
| #define TOO_SMALL(LEN) ((LEN) < LBLOCKSIZE)
 | |
| 
 | |
| _PTR 
 | |
| _DEFUN (memset, (m, c, n),
 | |
| 	_PTR m _AND
 | |
| 	int c _AND
 | |
| 	size_t n)
 | |
| {
 | |
| #if defined(PREFER_SIZE_OVER_SPEED) || defined(__OPTIMIZE_SIZE__)
 | |
|   char *s = (char *) m;
 | |
| 
 | |
|   while (n-- != 0)
 | |
|     {
 | |
|       *s++ = (char) c;
 | |
|     }
 | |
| 
 | |
|   return m;
 | |
| #else
 | |
|   char *s = (char *) m;
 | |
|   int i;
 | |
|   unsigned long buffer;
 | |
|   unsigned long *aligned_addr;
 | |
|   unsigned int d = c & 0xff;	/* To avoid sign extension, copy C to an
 | |
| 				   unsigned variable.  */
 | |
| 
 | |
|   if (!TOO_SMALL (n) && !UNALIGNED (m))
 | |
|     {
 | |
|       /* If we get this far, we know that n is large and m is word-aligned. */
 | |
|       aligned_addr = (unsigned long*)m;
 | |
| 
 | |
|       /* Store D into each char sized location in BUFFER so that
 | |
|          we can set large blocks quickly.  */
 | |
|       if (LBLOCKSIZE == 4)
 | |
|         {
 | |
|           buffer = (d << 8) | d;
 | |
|           buffer |= (buffer << 16);
 | |
|         }
 | |
|       else
 | |
|         {
 | |
|           buffer = 0;
 | |
|           for (i = 0; i < LBLOCKSIZE; i++)
 | |
| 	    buffer = (buffer << 8) | d;
 | |
|         }
 | |
| 
 | |
|       while (n >= LBLOCKSIZE*4)
 | |
|         {
 | |
|           *aligned_addr++ = buffer;
 | |
|           *aligned_addr++ = buffer;
 | |
|           *aligned_addr++ = buffer;
 | |
|           *aligned_addr++ = buffer;
 | |
|           n -= 4*LBLOCKSIZE;
 | |
|         }
 | |
| 
 | |
|       while (n >= LBLOCKSIZE)
 | |
|         {
 | |
|           *aligned_addr++ = buffer;
 | |
|           n -= LBLOCKSIZE;
 | |
|         }
 | |
|       /* Pick up the remainder with a bytewise loop.  */
 | |
|       s = (char*)aligned_addr;
 | |
|     }
 | |
| 
 | |
|   while (n--)
 | |
|     {
 | |
|       *s++ = (char)d;
 | |
|     }
 | |
| 
 | |
|   return m;
 | |
| #endif /* not PREFER_SIZE_OVER_SPEED */
 | |
| }
 |