FIX: silent dereferencing NULL pointer warnings

Oldes · Jan 14, 2023 · 5eb72ed · 5eb72ed
1 parent 287398b
commit 5eb72ed
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/src/core/b-init.c b/src/core/b-init.c
@@ -390,7 +390,7 @@ extern const REBYTE Str_Banner[];
 		val = Append_Frame(Lib_Context, word, 0);
 		// Find the related function:
 		func = Find_Word_Value(Lib_Context, VAL_WORD_SYM(word+1));
-		if (!func) Crash(9912);
+		if (!func) { Crash(9912); return; }
 		*val = *func;
 		VAL_SET(val, REB_OP);
 		VAL_SET_EXT(val, VAL_TYPE(func));

diff --git a/src/core/f-stubs.c b/src/core/f-stubs.c
@@ -777,8 +777,10 @@
 			val = aval;
 		else if (bval && VAL_TYPE(bval) == VAL_TYPE(lval) && VAL_SERIES(bval) == VAL_SERIES(lval))
 			val = bval;
-		else
+		else {
 			Trap1(RE_INVALID_PART, lval);
+			return 0; // silent compiler's warning
+		}
 
 		len = (REBINT)VAL_INDEX(lval) - (REBINT)VAL_INDEX(val);
 	}