Merge SVN 5004

libcob/ChangeLog

@@ -78,6 +78,16 @@
 	* fileio.c (cob_file_sort_options), common.h: new function to pass more
 	  options, so far only used to set flag_merge
 
+2023-02-24  Simon Sobisch <[email protected]>
+
+	* common.c (cob_check_beyond_exit), common.h: fix prototype to match strings
+	* numeric.c (cob_decimal_get_packed): removed code for "huge packed" fields
+	  as we don't have packed fields with more than 38 digits
+
+2023-02-24  Ron Norman <[email protected]>
+
+	* move.c (cob_get_s64_pic9) [COB_EBCDIC_MACHINE]: fix negative sign lookup
+
 2023-02-23  Simon Sobisch <[email protected]>
 
 	* numeric.c: Changes to speed up COMP-3 handling

libcob/common.c

@@ -4374,7 +4374,7 @@ cob_table_sort (cob_field *f, const int n)
 /* Run-time error checking */
 
 void
-cob_check_beyond_exit (const unsigned char *name)
+cob_check_beyond_exit (const char *name)
 {
 	/* possibly allow to lower this to a runtime warning later */
 	cob_runtime_error (_("code execution leaving %s"), name);

libcob/common.h

@@ -2110,7 +2110,7 @@ COB_EXPIMP void	cob_check_ref_mod	(const char *, const int, const int,
 					 const int, const int, const int);
 COB_EXPIMP void	cob_check_ref_mod_minimal	(const char *,
 					 const int, const int);
-COB_EXPIMP void	cob_check_beyond_exit (const unsigned char *);
+COB_EXPIMP void	cob_check_beyond_exit (const char *);
 
 
 /* Comparison functions */

libcob/numeric.c

@@ -1077,7 +1077,7 @@ cob_decimal_set_packed (cob_decimal *d, cob_field *f)
 			if ( (endp - p) > 2) {
 				mpz_mul_ui (d->value, d->value, 10000UL);
 				mpz_add_ui (d->value, d->value,
-							pack_to_bin [*p] * 100 + pack_to_bin [*(p + 1)]);
+					    pack_to_bin [*p] * 100 + pack_to_bin [*(p + 1)]);
 				p++;
 				nonzero = 1;
 				continue;