diff options
Diffstat (limited to 'byterun/compact.c')
| -rw-r--r-- | byterun/compact.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/byterun/compact.c b/byterun/compact.c index 68054d4af..66e88415e 100644 --- a/byterun/compact.c +++ b/byterun/compact.c @@ -329,8 +329,7 @@ void compact_heap (void) if (Color_hd (q) == Caml_white){ size_t sz = Bhsize_hd (q); char *newadr = compact_allocate (sz); Assert (newadr <= (char *)p); - /* bcopy (source, destination, length) */ - bcopy (p, newadr, sz); + memmove (newadr, p, sz); p += Wsize_bsize (sz); }else{ Assert (Color_hd (q) == Caml_blue); |