Resolving some of compiler's warnings

Author: Oldes

src/core/a-lib.c

@@ -478,9 +478,9 @@ extern int Do_Callback(REBSER *obj, u32 name, RXIARG *args, RXIARG *result);
 //			}
 		} else {
 			if (VAL_ERR_NUM(top) != RE_HALT) {
-				Put_Str(b_cast("\x1B[1;35m"));
+				Out_Str(cb_cast("\x1B[1;35m"), 0);
 				Out_Value(top, 640, FALSE, 0); // error FORMed
-				Put_Str(b_cast("\x1B[0m"));
+				Out_Str(cb_cast("\x1B[0m"), 0);
 //				if (VAL_ERR_NUM(top) > RE_THROW_MAX) {
 //					Out_Str("** Note: use WHY? for more about this error", 1);
 //				}

src/core/n-loop.c

@@ -172,9 +172,9 @@
 ***********************************************************************/
 {
 	REBVAL *result;
-	REBDEC s;
-	REBDEC e;
-	REBDEC i;
+	REBDEC s=0;
+	REBDEC e=0;
+	REBDEC i=0;
 
 	if (IS_INTEGER(start)) s = (REBDEC)VAL_INT64(start);
 	else if (IS_DECIMAL(start) || IS_PERCENT(start)) s = VAL_DECIMAL(start);

src/core/t-date.c

@@ -787,11 +787,11 @@
 /*
 ***********************************************************************/
 {
-	REBI64	secs;
-	REBDAT	date;
+	REBI64	secs = 0;
+	REBDAT	date = {0};
 	REBINT	day = 0, month = 0, year = 0, tz = 0;
 	REBVAL	*val;
-	REBVAL	*arg = NULL;
+	REBVAL	*arg = D_RET; // using D_RET to silent compiler's warnings (it's redefined if needed)
 	REBINT	num;
 	REBVAL *spec;
 

src/core/t-gob.c

@@ -324,8 +324,10 @@ const REBCNT Gob_Flag_Words[] = {
 /*
 ***********************************************************************/
 {
+#ifdef HAS_WIDGET_GOB
 	REBVAL *spec;
 	REBVAL *hndl;
+#endif
 
 	switch (VAL_WORD_CANON(word)) {
 	case SYM_OFFSET:
@@ -643,7 +645,7 @@ const REBCNT Gob_Flag_Words[] = {
 	REBSER *ser = Make_Block(10);
 	REBVAL *val;
 	REBVAL *val1;
-	REBCNT sym;
+	REBCNT sym = 0;
 
 	val = Append_Value(ser);
 	Init_Word(val, SYM_OFFSET);
@@ -693,9 +695,11 @@ const REBCNT Gob_Flag_Words[] = {
 			sym = SYM_EFFECT;
 			break;
 		}
-		Init_Word(val1, sym);
-		VAL_SET(val1, REB_SET_WORD);
-		Get_GOB_Var(gob, val1, val);
+		if (sym) {
+			Init_Word(val1, sym);
+			VAL_SET(val1, REB_SET_WORD);
+			Get_GOB_Var(gob, val1, val);
+		}
 	}
 
 	return ser;
@@ -781,14 +785,14 @@ const REBCNT Gob_Flag_Words[] = {
 	arg = D_ARG(2);
 	val = D_RET;
 	*val = *D_ARG(1);
-	gob = 0;
-
+	
 	if (IS_GOB(val)) {
 		gob = VAL_GOB(val);
 		index = VAL_GOB_INDEX(val);
 		tail = GOB_PANE(gob) ? GOB_TAIL(gob) : 0;
 	} else if (!(IS_DATATYPE(val) && action == A_MAKE)){
 		Trap_Arg(val);
+		return R_FALSE; // shut-up compiler's warnings
 	}
 
 	// unary actions

src/core/u-compress.c

@@ -181,7 +181,7 @@ void Trap_ZStream_Error(z_stream *stream, int err, REBOOL while_compression)
 		// Get the uncompressed size from last 4 source data bytes.
 		if (len < 4) Trap0(RE_PAST_END); // !!! better msg needed
 		size = cast(REBU64, Bytes_To_REBCNT(BIN_SKIP(input, len) - sizeof(REBCNT)));
-		if (size > len * 14) Trap_Num(RE_SIZE_LIMIT, size); // check for a realistic limit
+		if (size > (uLongf)len * 14) Trap_Num(RE_SIZE_LIMIT, size); // check for a realistic limit
 	}
 
 	output = Make_Binary(size);

src/core/u-iconv.c

@@ -542,7 +542,6 @@ static REBINT get_codepage_id(REBVAL *cp)
 static REBYTE* get_codepage_name(REBVAL *cp)
 {
 	REBINT id, i;
-	REBYTE *name;
 
 	if (IS_WORD(cp)) {
 		return VAL_WORD_NAME(cp);
@@ -571,7 +570,7 @@ static REBYTE* get_codepage_name(REBVAL *cp)
 ***********************************************************************/
 {
 	//printf("Swap_Endianess_U16 len: %d\n", len);
-	int i;
+	REBCNT i;
 	for (i = 0; i < len; ++i) {
 		u16 num = data[i];
 		data[i] = (num>>8) | (num<<8);

src/os/host-main.c

@@ -104,10 +104,10 @@ void Host_Repl() {
 
 #define MAX_CONT_LEVEL 1024
 	REBYTE cont_str[] = "\x1B[1;31;49m  \x1B[1;33;49m ";
-	int cont_level = 0;
+	REBCNT cont_level = 0;
 	REBYTE cont_stack[MAX_CONT_LEVEL] = { 0 };
 
-	int input_max = 32768;
+	REBCNT input_max = 32768;
 	int input_len = 0;
 	REBYTE *input = OS_Make(input_max);