Fix for segault in check_argument_conformance

ddeclerck · Sep 26, 2024 · c5e524c · c5e524c
1 parent f5989ba
commit c5e524c
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/cobc/ChangeLog b/cobc/ChangeLog
@@ -1,4 +1,9 @@
 
+2024-09-26  Fabrice Le Fessant <[email protected]>
+
+        * typeck.c (check_argument_conformance): check that param is well defined
+	  to prevent a segfault
+
 2024-09-25  Nicolas Berthier <[email protected]>
 
 	* typeck.c (cb_tree_is_numeric_ref_or_field)

diff --git a/cobc/typeck.c b/cobc/typeck.c
@@ -3603,6 +3603,9 @@ check_argument_conformance (struct cb_program *program, cb_tree argument_tripple
 	} else {
 		arg_field = NULL;
 	}
+	if (!CB_FIELD_P(param)) {
+		return;
+	}
 	param_field = CB_FIELD_PTR(CB_VALUE(param));
 
 	/*