FIX: correct fix of regression when creating 64 bit vectors

resolves: Oldes/Rebol-issues#2590

Author: Oldes

src/core/t-vector.c

@@ -446,7 +446,7 @@ void Set_Vector_Row(REBSER *ser, REBVAL *blk)
 	ser->tail = len;  // !!! another way to do it?
 
 	// Store info about the vector (could be moved to flags if necessary):
-	ser->size = (dims << 8) | (type << 3) | (sign << 2) | (bits >> 4)-1; // bits are zero based value!
+	ser->size = (dims << 8) | (type << 3) | (sign << 2) | (bits == 64 ? 3 : bits >> 4); // there are only 2 bits to store the info
 
 	return ser;
 }

src/tests/units/vector-test.r3

@@ -67,6 +67,7 @@ Rebol [
 	--assert [1 2] = to block! #[u16! [1 2]]
 
 --test-- "to-binary vector!"
+	;@@ https://github.com/Oldes/Rebol-issues/issues/2590
 	--assert #{01000200} = to binary! #[u16! [1 2]]
 	--assert #{0100000002000000} = to binary! #[i32! [1 2]]
 	--assert #{0000803F00000040} = to binary! #[f32! [1 2]]