Merged revision 5523 from branches/gnucobol-3.x:

........
Limit sed usage in testsuite, remove listing-sed
cobc:
* cobc.c (set_compile_date): fix SOURCE_DATE_EPOCH being ignored on subsequent invocations
libcob:
* common.c (cob_set_date_from_epoch): fix incorrect conversion of epoch (was off by one day)
tests:
* testsuite.src/run_misc.at, testsuite.src/syn_misc.at: reduce the use of sed by using SOURCE_DATE_EPOCH when possible and using @&t@ quadrigraphs in expected output with trailing spaces
* listing-sed.sh: removed as no longer needed
* atlocal.in, atlocal_win: remove the no longer needed UNIFY_LISTING variable
........

Author: ddeclerck

cobc/ChangeLog

@@ -1,4 +1,9 @@
 
+2025-05-19  David Declerck <[email protected]>
+
+	* cobc.c (set_compile_date): fix SOURCE_DATE_EPOCH being
+	  ignored on subsequent invocations
+
 2025-04-18  David Declerck <[email protected]>
 
 	* codegen.c (output_funcall_typed): add an integer cast

cobc/cobc.c

@@ -2271,9 +2271,12 @@ set_compile_date (void)
 				cobc_abort_terminate (0);
 			}
 		}
+		sde_todo = 2;
+	}
+	if (sde_todo == 2) {
+		current_compile_time = cob_get_current_date_and_time ();
+		set_compile_date_tm ();
 	}
-	current_compile_time = cob_get_current_date_and_time ();
-	set_compile_date_tm ();
 }
 
 static void

libcob/ChangeLog

@@ -1,4 +1,9 @@
 
+2025-05-19  David Declerck <[email protected]>
+
+	* common.c (cob_set_date_from_epoch): fix incorrect conversion
+	  of epoch (was off by one day)
+
 2025-04-07  David Declerck <[email protected]>
 
 	* move.c (cob_move_display_to_packed), fileio.c (cob_file_set_key):

libcob/common.c

@@ -5266,7 +5266,7 @@ cob_set_date_from_epoch (struct cob_time *cb_time, const unsigned char *p)
 	seconds /= 60;
 	tmptr->tm_hour = seconds % 24;
 	seconds /= 24;
-	tmptr->tm_mday = (int)seconds;
+	tmptr->tm_mday = (int)seconds + 1; /* +1 because mday should be >= 1 */
 	tmptr->tm_isdst = -1;
 
 	/* normalize if needed (definitely for epoch, but also for example 30 Feb

tests/ChangeLog

@@ -1,4 +1,12 @@
 
+2025-05-19  David Declerck <[email protected]>
+
+	* testsuite.src/run_misc.at, testsuite.src/syn_misc.at:
+	  reduce the use of sed by using SOURCE_DATE_EPOCH when possible
+	  and using @&t@ quadrigraphs in expected output with trailing spaces
+	* listing-sed.sh: removed as no longer needed
+	* atlocal.in, atlocal_win: remove the no longer needed UNIFY_LISTING variable
+
 2025-05-13  David Declerck <[email protected]>
 
 	* atlocal.in, atlocal_win, cobol85/Makefile.am,

tests/atlocal.in

@@ -180,9 +180,6 @@ elif test "x${VGSUFFIX}" != "x"; then
   COBCRUN_DIRECT="${VG_RUNTIME} ${COBCRUN_DIRECT}"
 fi
 
-# Helper script to unify listings (replace version, date, time)
-UNIFY_LISTING="@abs_srcdir@/listings-sed.sh"
-
 # test runner for manual tests, content may be adjusted by the user
 RUN_PROG_MANUAL="@abs_builddir@/run_prog_manual.sh"
 

tests/testsuite.src/listings.at

@@ -19,7 +19,10 @@
 ### GnuCOBOL Test Suite
 
 AT_SETUP([Minimal lines per listing pages])
-AT_KEYWORDS([listing symbols options])
+AT_KEYWORDS([listing symbols options SOURCE_DATE_EPOCH])
+
+# Note: we use SOURCE_DATE_EPOCH to have a predictable output in listings;
+# this also allows to test this feature at the same time
 
 # note: 2.2 did not use a minimal length,
 # a typo like -tlines=2 loops forever
@@ -45,7 +48,7 @@ AT_DATA([prog.cob], [
 ])
 
 AT_DATA([expected.lst],
-[GnuCOBOL V.R.P          prog.cob             DDD MMM dd HH:MM:SS YYYY  Page 0001
+[GnuCOBOL V.R.P          prog.cob             Sat Jan 25 2002 12:00:00  Page 0001
 
 LINE    PG/LN  A...B............................................................
 
@@ -66,17 +69,17 @@ LINE    PG/LN  A...B............................................................
 000015             END-DISPLAY.
 000016             STOP RUN.
 
-GnuCOBOL V.R.P          prog.cob             DDD MMM dd HH:MM:SS YYYY  Page 0002
+GnuCOBOL V.R.P          prog.cob             Sat Jan 25 2002 12:00:00  Page 0002
 
 0 warnings in compilation group
 0 errors in compilation group
 ])
 
-AT_CHECK([$COMPILE_ONLY -t prog.lst -tlines=2 prog.cob], [0], [],
+AT_CHECK([SOURCE_DATE_EPOCH=1011960000 $COMPILE_ONLY -fttitle=GnuCOBOL_V.R.P -t prog.lst -tlines=2 prog.cob], [0], [],
 [cobc: warning: 2 lines per listing page specified, using 20
 ])
 
-AT_CHECK([gcdiff expected.lst prog.lst], [0], [], [])
+AT_CHECK([$DIFF expected.lst prog.lst], [0], [], [])
 
 AT_CLEANUP