Fixes

.github/workflows/windows-msvc-bdb.yml

@@ -145,10 +145,14 @@ jobs:
         continue-on-error: true
         shell: cmd
         run: |
-          set COB_CFLAGS=/I "%cd%" /I "%VCPKG_ROOT%\installed\x64-windows\include"
+          set COB_CFLAGS=/I "%cd%" /I "%cd%\build_windows" /I "%VCPKG_ROOT%\installed\x64-windows\include"
           set COB_LIBS=libcob-5.lib /LIBPATH:"%cd%\build_windows\x64\Release"
+          set PATH="%cd%\build_windows\x64\Release";"%cd%\bin";%PATH%
+          set COB_CONFIG_DIR=%cd%\config
           call "%VCVARS%"
-          cd tests
+          cd bin
+          cobc -x gcdiff.c
+          cd ..\tests
           bash -c "./testsuite || ./testsuite --recheck --verbose"
 
       - name: Upload testsuite.log

libcob/common.h

@@ -1369,9 +1369,11 @@ typedef struct __cob_module {
 #define COB_DUMP_LS		0x20  		/* LINKAGE SECTION */
 #define COB_DUMP_LO		0x40  		/* LOCAL-STORAGE SECTION */
 #define COB_DUMP_ALL	(COB_DUMP_FD|COB_DUMP_WS|COB_DUMP_RD|COB_DUMP_SD|COB_DUMP_SC|COB_DUMP_LS|COB_DUMP_LO)
-#if 0
-	unsigned char		unused[1];		/* Use these flags up later, added for alignment */
-#endif
+
+	unsigned char		flag_dialect;	/* Module -std=  for status code choices */
+	unsigned char		flag_file_format;	/* Default file format: GC or MF */
+	unsigned char		flag_unused[6];	/* For future, use for new flags etc */
+
 	unsigned int		module_stmt;		/* Last statement executed as modulated source line
 											   and index to module_sources for source file */
 	const char		**module_sources;	/* Source module names compiled */
@@ -1395,6 +1397,14 @@ typedef struct __cob_module {
 
 	cob_field		*json_code;			/* JSON-CODE */
 	cob_field		*json_status;		/* JSON-STATUS */
+
+	const char	*gc_version;	/* module version */
+
+	unsigned char		xml_mode;		/* Mode to handle XML PARSE (may be extended) */
+#define COB_XML_XMLNSS		1			/* similar to XMLPARSE(XMLNSS) Micro Focus,
+											   IBM may be different (_very_ likely for error codes);
+											   but the main difference is to "COMPAT" */
+
 	cob_field		function_return;	/* Copy of RETURNING field */
 	unsigned int	num_symbols;		/* Number of symbols in table */
 	cob_symbol		*module_symbols;	/* Array of module symbols */
@@ -1405,19 +1415,8 @@ typedef struct __cob_module {
 	const char		*section_name;
 	const char		*paragraph_name;
 
-	unsigned char		flag_dialect;	/* Module -std=  for status code choices */
-	unsigned char		flag_file_format;	/* Default file format: GC or MF */
-	unsigned char		flag_unused[6];	/* For future, use for new flags etc */
-
 	unsigned char		unused[32];		/* For future use */
 
-	const char	*gc_version;	/* module version */
-
-	unsigned char		xml_mode;		/* Mode to handle XML PARSE (may be extended) */
-#define COB_XML_XMLNSS		1			/* similar to XMLPARSE(XMLNSS) Micro Focus,
-											   IBM may be different (_very_ likely for error codes);
-											   but the main difference is to "COMPAT" */
-
 } cob_module;
 
 /* For 'module_type'