FIX: Bincode - the output buffer position was not updated

Author: Oldes

src/core/u-bincode.c

@@ -111,10 +111,6 @@ float float16to32(float16_s f16) {
 	return f32.v;
 }
 
-//float float64to16(float16_s f16) {
-//	half s;
-//}
-
 #pragma pack(4) 
 typedef union {
 	u16 num;
@@ -799,12 +795,12 @@ static REBCNT EncodedU32_Size(u32 value) {
 					case SYM_FLOAT:
 						f32.v = (float)(IS_INTEGER(next) ? VAL_INT64(next) : VAL_DECIMAL(next));
 						memcpy(cp, (REBYTE*)&f32, 4);
-						cp += 4;
+						n = 4;
 						break;
 					case SYM_DOUBLE:
 						dbl = (REBDEC)(IS_INTEGER(next) ? VAL_INT64(next) : VAL_DECIMAL(next));
 						memcpy(cp, (REBYTE*)&dbl, 8);
-						cp += 8;
+						n = 8;
 						break;
 					case SYM_FLOAT16:
 						d32 = (REBDEC)(IS_INTEGER(next) ? VAL_INT64(next) : VAL_DECIMAL(next));
@@ -827,7 +823,7 @@ static REBCNT EncodedU32_Size(u32 value) {
 							ushort = (u16)t1;
 						}
 						memcpy(cp, (REBYTE*)&ushort, 2);
-						cp += 2;
+						n = 2;
 						break;
 
 					case SYM_AT:

src/tests/units/bincode-test.r3

@@ -337,6 +337,7 @@ is-protected-error?: func[code][
 	--test-- "BinCode - FLOAT16, FLOAT, DOUBLE (write/read NAN)"
 		b: binary/write #{} [float16 1.#NaN float 1.#NaN double 1.#NaN]
 		--assert b/buffer = #{007E0000C07F000000000000F87F}
+		--assert tail? b/buffer-write
 		;@@ using MOLD as: 1.#nan <> 1.#nan 
 		--assert "[1.#NaN 1.#NaN 1.#NaN]" = mold binary/read b [float16 float double]