From e70325e83d97d6cef9bd38f6c5e4e0a7af5dd6fc Mon Sep 17 00:00:00 2001 From: "A. Wilcox" Date: Tue, 14 Jan 2020 10:08:19 +0000 Subject: user/*: Modernise / fix syntax / deps / code / tests --- user/gnucobol/big-endian.patch | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) (limited to 'user/gnucobol/big-endian.patch') diff --git a/user/gnucobol/big-endian.patch b/user/gnucobol/big-endian.patch index 848300e15..65e5243d2 100644 --- a/user/gnucobol/big-endian.patch +++ b/user/gnucobol/big-endian.patch @@ -14,7 +14,7 @@ diff --git a/tests/testsuite.src/run_misc.at b/tests/testsuite.src/run_misc.at index 2ef4a86..173ac48 100644 --- a/tests/testsuite.src/run_misc.at +++ b/tests/testsuite.src/run_misc.at -@@ -6185,6 +6185,10 @@ AT_CLEANUP +@@ -5918,6 +5918,10 @@ AT_CLEANUP AT_SETUP([MF FIGURATIVE to NUMERIC]) AT_KEYWORDS([MOVE]) @@ -25,7 +25,7 @@ index 2ef4a86..173ac48 100644 AT_DATA([prog.cob], [ IDENTIFICATION DIVISION. PROGRAM-ID. prog. -@@ -6230,12 +6234,16 @@ AT_DATA([prog.cob], [ +@@ -5963,12 +5967,16 @@ AT_DATA([prog.cob], [ DISPLAY "MOVE HIGH-VALUES TO BIGFLT" MOVE HIGH-VALUES TO BIGFLT. PERFORM SHOW-BIG. @@ -42,7 +42,7 @@ index 2ef4a86..173ac48 100644 DISPLAY "MOVE ALL '21' TO BIGFLT" MOVE ALL '21' TO BIGFLT. PERFORM SHOW-BIG. -@@ -6244,7 +6252,6 @@ AT_DATA([prog.cob], [ +@@ -5977,7 +5985,6 @@ AT_DATA([prog.cob], [ CALL "dump" USING MYFLD. SHOW-BIG. DISPLAY "BIGFLT is " BIGFLT. @@ -50,7 +50,7 @@ index 2ef4a86..173ac48 100644 ]) AT_DATA([cmod.c], [[ -@@ -6303,10 +6310,8 @@ BIGFLT is 2.1973164E-18 +@@ -6033,10 +6040,8 @@ BIGFLT is 2.1973164E-18 22222222 . MOVE ALL * TO BIGFLT BIGFLT is 5.4312347E+12 @@ -77,7 +77,7 @@ diff --git a/tests/testsuite.src/run_misc.at b/tests/testsuite.src/run_misc.at index 173ac48..51f4b84 100644 --- a/tests/testsuite.src/run_misc.at +++ b/tests/testsuite.src/run_misc.at -@@ -6275,7 +6275,7 @@ prog.cob:28: warning: numeric value is expected +@@ -6005,7 +6005,7 @@ prog.cob:28: warning: numeric value is expected prog.cob:6: warning: 'MYFLD' defined here as PIC 9(4) prog.cob:34: warning: numeric value is expected prog.cob:6: warning: 'MYFLD' defined here as PIC 9(4) @@ -105,7 +105,7 @@ diff --git a/libcob/common.c b/libcob/common.c index 5262282..d99c533 100644 --- a/libcob/common.c +++ b/libcob/common.c -@@ -5275,9 +5275,7 @@ cob_sys_getopt_long_long (void *so, void *lo, void *idx, const int long_only, vo +@@ -5138,9 +5138,7 @@ cob_sys_getopt_long_long (void *so, void *lo, void *idx, const int long_only, vo COB_CHK_PARMS (CBL_GC_GETOPT, 6); @@ -116,7 +116,7 @@ index 5262282..d99c533 100644 if (COB_MODULE_PTR->cob_procedure_params[1]) { lo_size = COB_MODULE_PTR->cob_procedure_params[1]->size; } -@@ -5288,9 +5286,7 @@ cob_sys_getopt_long_long (void *so, void *lo, void *idx, const int long_only, vo +@@ -5151,9 +5149,7 @@ cob_sys_getopt_long_long (void *so, void *lo, void *idx, const int long_only, vo opt_val_size = COB_MODULE_PTR->cob_procedure_params[5]->size; } @@ -127,7 +127,7 @@ index 5262282..d99c533 100644 if (lo_size % sizeof (longoption_def) == 0) { lo_amount = (int)lo_size / sizeof (longoption_def); longoptions_root = (struct option*) cob_malloc (sizeof (struct option) * (lo_amount + 1U)); -@@ -5305,9 +5301,7 @@ cob_sys_getopt_long_long (void *so, void *lo, void *idx, const int long_only, vo +@@ -5168,9 +5164,7 @@ cob_sys_getopt_long_long (void *so, void *lo, void *idx, const int long_only, vo } longind = cob_get_int (COB_MODULE_PTR->cob_procedure_params[2]); @@ -138,7 +138,7 @@ index 5262282..d99c533 100644 shortoptions = cob_malloc (so_size + 1U); if (COB_MODULE_PTR->cob_procedure_params[0]) { cob_field_to_string (COB_MODULE_PTR->cob_procedure_params[0], shortoptions, so_size); -@@ -5333,9 +5327,7 @@ cob_sys_getopt_long_long (void *so, void *lo, void *idx, const int long_only, vo +@@ -5196,9 +5190,7 @@ cob_sys_getopt_long_long (void *so, void *lo, void *idx, const int long_only, vo longoptions = longoptions + 1; } @@ -149,7 +149,7 @@ index 5262282..d99c533 100644 longoptions->name = NULL; longoptions->has_arg = 0; longoptions->flag = NULL; -@@ -5348,17 +5340,42 @@ cob_sys_getopt_long_long (void *so, void *lo, void *idx, const int long_only, vo +@@ -5211,17 +5203,42 @@ cob_sys_getopt_long_long (void *so, void *lo, void *idx, const int long_only, vo return_value = cob_getopt_long_long (cob_argc, cob_argv, shortoptions, longoptions, &longind, long_only); temp = (char *) &return_value; @@ -218,7 +218,7 @@ diff --git a/libcob/fileio.c b/libcob/fileio.c index 885cd48..521e245 100644 --- a/libcob/fileio.c +++ b/libcob/fileio.c -@@ -5633,6 +5633,22 @@ cob_sys_open_file (unsigned char *file_name, unsigned char *file_access, +@@ -5559,6 +5559,22 @@ cob_sys_open_file (unsigned char *file_name, unsigned char *file_access, COB_CHK_PARMS (CBL_OPEN_FILE, 5); @@ -241,7 +241,7 @@ index 885cd48..521e245 100644 return open_cbl_file (file_name, file_access, file_handle, 0); } -@@ -5647,6 +5663,24 @@ cob_sys_create_file (unsigned char *file_name, unsigned char *file_access, +@@ -5573,6 +5589,24 @@ cob_sys_create_file (unsigned char *file_name, unsigned char *file_access, * @param: file_dev : not implemented, set 0 */ @@ -266,7 +266,7 @@ index 885cd48..521e245 100644 if (*file_lock != 0) { cob_runtime_warning (_("call to CBL_CREATE_FILE with wrong file_lock: %d"), *file_lock); } -@@ -5654,8 +5688,6 @@ cob_sys_create_file (unsigned char *file_name, unsigned char *file_access, +@@ -5580,8 +5614,6 @@ cob_sys_create_file (unsigned char *file_name, unsigned char *file_access, cob_runtime_warning (_("call to CBL_CREATE_FILE with wrong file_dev: %d"), *file_dev); } @@ -300,7 +300,7 @@ index 7c3c660..5ddbd58 100644 ## Written by Keisuke Nishida, Roger While, Simon Sobisch, Edward Hart ## ## This file is part of GnuCOBOL. -@@ -4254,7 +4254,7 @@ AT_CLEANUP +@@ -4145,7 +4145,7 @@ AT_CLEANUP AT_SETUP([UDF with recursion]) AT_KEYWORDS([functions LOCAL-STORAGE]) -- cgit v1.2.3-60-g2f50