diff options
Diffstat (limited to 'gcc/cobol/structs.cc')
| -rw-r--r-- | gcc/cobol/structs.cc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/cobol/structs.cc b/gcc/cobol/structs.cc index e6f38e6..134edbd 100644 --- a/gcc/cobol/structs.cc +++ b/gcc/cobol/structs.cc @@ -176,7 +176,7 @@ create_cblc_field_t() struct cblc_field_t *parent;// This field's immediate parent field size_t occurs_lower; // non-zero for a table size_t occurs_upper; // non-zero for a table - size_t attr; // See cbl_field_attr_t + uint64_t attr; // See cbl_field_attr_t signed char type; // A one-byte copy of cbl_field_type_t signed char level; // This variable's level in the naming heirarchy signed char digits; // Digits specified in PIC string; e.g. 5 for 99v999 @@ -196,7 +196,7 @@ create_cblc_field_t() CHAR_P, "parent", SIZE_T, "occurs_lower", SIZE_T, "occurs_upper", - SIZE_T, "attr", + ULONGLONG, "attr", SCHAR, "type", SCHAR, "level", SCHAR, "digits", |