Skip to content

Commit

Permalink
Fixes
Browse files Browse the repository at this point in the history
  • Loading branch information
ddeclerck committed Jul 5, 2024
1 parent 5f79e1b commit 4ed00a3
Show file tree
Hide file tree
Showing 2 changed files with 19 additions and 16 deletions.
8 changes: 6 additions & 2 deletions .github/workflows/windows-msvc-bdb.yml
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down
27 changes: 13 additions & 14 deletions libcob/common.h
Original file line number Diff line number Diff line change
Expand Up @@ -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 */
Expand All @@ -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 */
Expand All @@ -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'
Expand Down

0 comments on commit 4ed00a3

Please sign in to comment.