41 lines
1.1 KiB
Text
41 lines
1.1 KiB
Text
--- exp_inter.c.orig Tue Aug 31 15:20:27 2010
|
|
+++ exp_inter.c Tue Nov 17 10:45:17 2015
|
|
@@ -1564,7 +1564,7 @@ Exp_InteractObjCmd(
|
|
ustring = u->input.buffer;
|
|
if (skip) {
|
|
size -= skip;
|
|
- memcpy(ustring, ustring + skip, size * sizeof(Tcl_UniChar));
|
|
+ memmove(ustring, ustring + skip, size * sizeof(Tcl_UniChar));
|
|
}
|
|
}
|
|
u->input.use = size;
|
|
@@ -1824,12 +1824,12 @@ got_action:
|
|
skip += matchLen;
|
|
size -= skip;
|
|
if (size) {
|
|
- memcpy(u->buffer, u->buffer + skip, size);
|
|
+ memmove(u->buffer, u->buffer + skip, size);
|
|
}
|
|
} else {
|
|
if (skip) {
|
|
size -= skip;
|
|
- memcpy(u->buffer, u->buffer + skip, size);
|
|
+ memmove(u->buffer, u->buffer + skip, size);
|
|
}
|
|
}
|
|
Tcl_SetObjLength(size);
|
|
@@ -2070,12 +2070,12 @@ got_action:
|
|
skip += matchLen;
|
|
size -= skip;
|
|
if (size) {
|
|
- memcpy(u->buffer, u->buffer + skip, size);
|
|
+ memmove(u->buffer, u->buffer + skip, size);
|
|
}
|
|
} else {
|
|
if (skip) {
|
|
size -= skip;
|
|
- memcpy(u->buffer, u->buffer + skip, size);
|
|
+ memmove(u->buffer, u->buffer + skip, size);
|
|
}
|
|
}
|
|
Tcl_SetObjLength(size);
|