FIX: added initialization of local pointers to prevent Visual Studio errors C4703: potentially uninitialized local pointer variable

Author: Oldes

src/core/c-error.c

@@ -737,7 +737,7 @@ static REBOL_STATE Top_State; // Boot var: holds error state during boot
 ***********************************************************************/
 {
 	REBVAL *policy = Get_System(SYS_STATE, STATE_POLICIES);
-	REBYTE *flags;
+	REBYTE *flags = NULL;
 	REBCNT len;
 	REBCNT errcode = RE_SECURITY_ERROR;
 

src/core/f-dtoa.c

@@ -2504,7 +2504,7 @@ strtod
 	U aadj2, adj, rv, rv0;
 	ULong y, z;
 	BCinfo bc;
-	Bigint *bb, *bb1, *bd, *bd0, *bs, *delta;
+	Bigint *bb = 0, *bb1, *bd = 0, *bd0, *bs = 0, *delta = 0;
 #ifdef Avoid_Underflow
 	ULong Lsb, Lsb1;
 #endif
@@ -3711,7 +3711,7 @@ dtoa
 	int denorm;
 	ULong x;
 #endif
-	Bigint *b, *b1, *delta, *mlo, *mhi, *S;
+	Bigint *b, *b1, *delta, *mlo = 0, *mhi, *S;
 	U d2, eps, u;
 	double ds;
 	char *s, *s0;

src/core/f-stubs.c

@@ -731,7 +731,7 @@
 **
 ***********************************************************************/
 {
-	REBVAL *val;
+	REBVAL *val = NULL;
 	REBINT len;
 	REBINT maxlen;
 

src/core/n-data.c

@@ -183,7 +183,7 @@ static int Check_Char_Range(REBVAL *val, REBINT limit)
 	}
 	else {
 		// /types [var1 integer!  var2 [integer! decimal!]]
-		REBVAL *val;
+		REBVAL *val = NULL;
 		REBVAL *type;
 
 		for (value = VAL_BLK_DATA(value); NOT_END(value); value += 2) {

src/core/n-loop.c

@@ -261,7 +261,7 @@
 	REBSER *frame;
 	REBVAL *value;
 	REBSER *series;
-	REBSER *out;	// output block (for MAP, mode = 2)
+	REBSER *out = NULL;	// output block (for MAP, mode = 2)
 
 	REBINT index;	// !!!! should these be REBCNT?
 	REBINT tail;

src/core/n-strings.c

@@ -372,7 +372,7 @@ static struct digest {
 ***********************************************************************/
 {
 	REBINT base = 64;
-	REBSER *ser;
+	REBSER *ser = NULL;
 	REBCNT index;
 	REBVAL *arg = D_ARG(1);
 

src/core/s-file.c

@@ -129,7 +129,7 @@
 	REBCNT i = 0;
 	REBCNT n = 0;
 	REBUNI *out;
-	REBCHR *lpath;
+	REBCHR *lpath = NULL;
 	REBCNT l = 0;
 
 	if (len == 0)

src/core/s-mold.c

@@ -371,8 +371,8 @@ STOID Mold_String_Series(REBVAL *value, REB_MOLD *mold)
 	REBSER *ser = VAL_SERIES(value);
 	REBCNT idx = VAL_INDEX(value);
 	REB_STRF sf = {0};
-	REBYTE *bp;
-	REBUNI *up;
+	REBYTE *bp = NULL;
+	REBUNI *up = NULL;
 	REBUNI *dp;
 	REBOOL uni = !BYTE_SIZE(ser);
 	REBCNT n;
@@ -639,7 +639,7 @@ STOID Mold_Block_Series(REB_MOLD *mold, REBSER *series, REBCNT index, REBYTE *se
 
 STOID Mold_Block(REBVAL *value, REB_MOLD *mold)
 {
-	REBYTE *sep;
+	REBYTE *sep = NULL;
 	REBOOL all = GET_MOPT(mold, MOPT_MOLD_ALL);
 	REBSER *series = mold->series;
 	REBFLG over = FALSE;

src/core/s-trim.c

@@ -50,7 +50,7 @@ static REBFLG find_in_uni(REBUNI *up, REBINT len, REBUNI c)
 	REBCNT wlen;
 	REBUNI with_chars[MAX_WITH];	// chars to be trimmed
 	REBUNI *up = with_chars;
-	REBYTE *bp;
+	REBYTE *bp = NULL;
 	REBCNT n;
 	REBUNI uc;
 

src/core/t-date.c

@@ -692,7 +692,7 @@
 	REBDAT	date;
 	REBINT	day, month, year;
 	REBVAL	*val;
-	REBVAL	*arg;
+	REBVAL	*arg = NULL;
 	REBINT	num;
 
 	val = D_ARG(1);

src/core/t-image.c

@@ -703,7 +703,7 @@ INLINE REBCNT ARGB_To_BGR(REBCNT i)
 	REBCNT  tail = VAL_TAIL(value);
 	REBCNT	len;
 	REBCNT	*ip = (REBCNT *)VAL_IMAGE_DATA(value); // NOTE ints not bytes
-	REBCNT  *p;
+	REBCNT  *p = NULL;
 	REBINT  n;
 	REBOOL  only = FALSE;
 	REBYTE  no_refs[10] = {5, 6, 7, 8, 9, 10, 13, 14}; // ref - 1 (invalid refinements)

src/core/t-object.c

@@ -279,7 +279,7 @@ static REBSER *Trim_Object(REBSER *obj)
 	REBVAL *arg = D_ARG(2);
 	REBINT n;
 	REBVAL *val;
-	REBSER *obj, *src_obj;
+	REBSER *obj = NULL, *src_obj;
 	REBCNT type = 0;
 
 	switch (action) {

src/core/t-pair.c

@@ -177,7 +177,7 @@
 ***********************************************************************/
 {
 	REBVAL *val;
-	REBVAL *arg;
+	REBVAL *arg = NULL;
 	REBINT n;
 	REBD32 x1, x2;
 	REBD32 y1, y2;

src/core/t-time.c

@@ -364,7 +364,7 @@
 {
 	REBI64	secs;
 	REBVAL	*val;
-	REBVAL	*arg;
+	REBVAL	*arg = NULL;
 	REBI64	num;
 
 	val = D_ARG(1);

src/core/t-tuple.c

@@ -186,8 +186,8 @@
 {
 	REBVAL	*value;
 	REBVAL	*arg;
-	REBYTE	*vp;
-	REBYTE	*ap;
+	REBYTE	*vp = NULL;
+	REBYTE	*ap = NULL;
 	REBINT	len;
 	REBINT	alen;
 	REBINT	v;

src/core/t-vector.c

@@ -203,7 +203,7 @@ void Set_Vector_Row(REBSER *ser, REBVAL *blk)
 	REBCNT type = VECT_TYPE(VAL_SERIES(vect));
 	REBSER *ser = Make_Block(len);
 	REBCNT n;
-	REBVAL *val;
+	REBVAL *val = NULL;
 
 	if (len > 0) {
 		val = BLK_HEAD(ser);