1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
/* Copyright (c) 1992, 1999, 2001 John E. Davis
* This file is part of the S-Lang library.
*
* You may distribute under the terms of either the GNU General Public
* License or the Perl Artistic License.
*/
/* These routines are fast memcpy, memset routines. When available, I
use system rouines. For msdos, I use inline assembly. */
/* The current versions only work in the forward direction only!! */
#include "slinclud.h"
#include "slang.h"
#include "_slang.h"
char *SLmemcpy(char *s1, char *s2, int n)
{
#if defined(__BORLANDC__) && defined(__MSDOS__)
asm mov ax, ds
asm mov bx, si
asm mov dx, di
asm mov cx, n
asm les di, s1
asm lds si, s2
asm cld
asm rep movsb
asm mov ds, ax
asm mov si, bx
asm mov di, dx
return(s1);
#else
register char *smax, *s = s1;
int n2;
n2 = n % 4;
smax = s + (n - 4);
while (s <= smax)
{
*s = *s2; *(s + 1) = *(s2 + 1); *(s + 2) = *(s2 + 2); *(s + 3) = *(s2 + 3);
s += 4;
s2 += 4;
}
while (n2--) *s++ = *s2++;
return(s1);
#endif
}
|
