Merge SVN 4057

cobc/ChangeLog

@@ -956,6 +956,13 @@
 	* codegen.c (output_dump_code): emit code for BASED/LINKAGE fields
 	  to catch SIGSEGV/SIGBUS/SIGFPE and then skip the dump of that record
 
+2020-12-07  Simon Sobisch <[email protected]>
+
+	* codegen.c (output_display_fields): prevent bad integer promotion in
+	  libcob (typeck within va_arg) by forcing the unsigned long type for
+	  the varargs argument
+	* typeck.c (cb_build_generic_register): favor memcpy over strncpy
+
 2020-12-06  Simon Sobisch <[email protected]>
 
 	* Makefile.am (cobc_LDADD): fixed ordering, in-tree libraries

cobc/typeck.c

@@ -1658,7 +1658,6 @@ cb_build_generic_register (const char *name, const char *external_definition,
 {
 	cb_tree field_tree;
 	char	definition[COB_MINI_BUFF];
-	char	temp[COB_MINI_BUFF] = { 0 };
 	char *p, *r;
 	struct cb_field *field;
 	enum cb_usage	usage;
@@ -1707,9 +1706,10 @@ cb_build_generic_register (const char *name, const char *external_definition,
 		if (strncmp (p, "DISPLAY", (size_t)7) == 0) {
 			memset (p, ' ', 7);
 		} else {
+			char	temp[COB_MINI_BUFF];
 			r = p;
 			while (*r != 0 && *r != ' ') r++;
-			strncpy (temp, p, r - p);
+			memcpy (temp, p, r - p);
 			temp [r - p] = 0;
 			memset (p, ' ', r - p);
 			COB_UNUSED (temp);	/* FIXME: parse actual USAGE from temp */
@@ -1731,10 +1731,11 @@ cb_build_generic_register (const char *name, const char *external_definition,
 		}
 	}
 	if (p) {
+		char	temp[COB_MINI_BUFF];
 		while (*p == ' ') p++;
 		r = p;
 		while (*r != 0 && *r != ' ') r++;
-		strncpy (temp, p, r - p);
+		memcpy (temp, p, r - p);
 		temp [r - p] = 0;
 		memset (p, ' ', r - p);
 		picture = cb_build_picture (temp);

libcob/common.c

@@ -571,7 +571,7 @@ static int		set_config_val	(char *value, int pos);
 static char		*get_config_val	(char *value, int pos, char *orgvalue);
 
 static void		cob_dump_module (char *reason);
-static char		abort_reason[COB_MINI_BUFF] = { 0 };
+static char		abort_reason[COB_MINI_BUFF] = "";
 static unsigned int 	dump_trace_started;	/* ensures that we dump/stacktrace only once */
 #define 		DUMP_TRACE_DONE_DUMP 		(1U << 0)
 #define 		DUMP_TRACE_DONE_TRACE		(1U << 1)