Formerly ieee754/Dist.~5~
[kopensolaris-gnu/glibc.git] / sysdeps / i386 / memset.c
1 /* memset -- set a block of memory to some byte value.
2    For Intel 80x86, x>=3.
3    Copyright (C) 1991 Free Software Foundation, Inc.
4    Contributed by Torbjorn Granlund (tege@sics.se).
5
6 The GNU C Library is free software; you can redistribute it and/or
7 modify it under the terms of the GNU Library General Public License as
8 published by the Free Software Foundation; either version 2 of the
9 License, or (at your option) any later version.
10
11 The GNU C Library is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14 Library General Public License for more details.
15
16 You should have received a copy of the GNU Library General Public
17 License along with the GNU C Library; see the file COPYING.LIB.  If
18 not, write to the Free Software Foundation, Inc., 675 Mass Ave,
19 Cambridge, MA 02139, USA.  */
20
21 #include <ansidecl.h>
22 #include <string.h>
23 #include <memcopy.h>
24
25 PTR
26 DEFUN(memset, (dstpp, c, len),
27       PTR dstpp AND int c AND size_t len)
28 {
29   unsigned long int dstp = (unsigned long int) dstpp;
30
31   /* This explicit register allocation
32      improves code very much indeed.  */
33   register op_t x asm("ax");
34
35   /* Fill X with four copies of the char we want to fill with.  */
36   x = (unsigned char) c;
37   x |= (x << 8);
38   x |= (x << 16);
39
40   /* Clear the direction flag, so filling will move forward.  */
41   asm volatile("cld");
42
43   /* This threshold value is optimal.  */
44   if (len >= 12)
45     {
46       /* There are at least some bytes to set.
47          No need to test for LEN == 0 in this alignment loop.  */
48
49       /* Fill bytes until DSTP is aligned on a longword boundary.  */
50       asm volatile("rep\n"
51                    "stosb" /* %0, %2, %3 */ :
52                    "=D" (dstp) :
53                    "0" (dstp), "c" ((-dstp) % OPSIZ), "a" (x) :
54                    "cx");
55       len -= (-dstp) % OPSIZ;
56
57       /* Fill longwords.  */
58       asm volatile("rep\n"
59                    "stosl" /* %0, %2, %3 */ :
60                    "=D" (dstp) :
61                    "0" (dstp), "c" (len / OPSIZ), "a" (x) :
62                    "cx");
63       len %= OPSIZ;
64     }
65
66   /* Write the last few bytes.  */
67   asm volatile("rep\n"
68                "stosb" /* %0, %2, %3 */ :
69                "=D" (dstp) :
70                "0" (dstp), "c" (len), "a" (x) :
71                "cx");
72
73   return dstpp;
74 }