FIX: possible fix of Valgrind's `Source and destination overlap in me…

…mcpy` error.
Oldes · Dec 8, 2020 · 10932d1 · 10932d1
1 parent 3e9ac3b
commit 10932d1
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/src/core/t-money.c b/src/core/t-money.c
@@ -69,7 +69,7 @@
 /*
 ***********************************************************************/
 {
-	REBCNT len;
+	REBCNT len=0;
 	REBYTE buf[MAX_HEX_LEN+4] = {0}; // binary to convert
 
 	if (IS_BINARY(val)) {
@@ -95,7 +95,7 @@
 		}
 	}
 #endif
-	memcpy(buf + 12 - len, buf, len); // shift to right side
+	memmove(buf + 12 - len, buf, len); // shift to right side
 	memset(buf, 0, 12 - len);
 	VAL_DECI(result) = binary_to_deci(buf);
 	return TRUE;

diff --git a/src/tests/units/money-test.r3 b/src/tests/units/money-test.r3
@@ -12,9 +12,9 @@ Rebol [
 ===start-group=== "make money!"
 	--test-- "make money! percent!"
 	;@@ https://github.com/Oldes/Rebol-issues/issues/971
-;		--assert $0   = try [make money! 0%]
-;		--assert $1   = try [make money! 100%]
-;		--assert $100 = try [make money! make percent! $100]
+		--assert $0   = try [make money! 0%]
+		--assert $1   = try [make money! 100%]
+		--assert $100 = try [make money! make percent! $100]
 
 	--test-- "make money! binary!"
 	;@@ https://github.com/Oldes/Rebol-issues/issues/1060