// These should match the definitions in libgcobol/constants.cc
static cbl_field_t constants[] = {
- { FldAlphanumeric, space_value_e | constq | register_e,
+ { FldAlphanumeric, space_value_e | int(constq) | register_e,
{1,1,0,0, " \0\xFF"}, 0, "SPACE" },
- { FldAlphanumeric, space_value_e | constq | register_e,
+ { FldAlphanumeric, space_value_e | int(constq) | register_e,
{1,1,0,0, " \0\xFF"}, 0, "SPACES" },
- { FldAlphanumeric, low_value_e | constq | register_e,
+ { FldAlphanumeric, low_value_e | int(constq) | register_e,
{1,1,0,0, "L\0\xFF"}, 0, "LOW_VALUES" },
- { FldAlphanumeric, zero_value_e | constq | register_e,
+ { FldAlphanumeric, zero_value_e | int(constq) | register_e,
{1,1,0,0, "0"}, 0, "ZEROS" },
- { FldAlphanumeric, high_value_e | constq | register_e,
+ { FldAlphanumeric, high_value_e | int(constq) | register_e,
{1,1,0,0, "H\0\xFF"}, 0, "HIGH_VALUES" },
// IBM standard: QUOTE is a double-quote unless APOST compiler option
- { FldAlphanumeric, quote_value_e | constq | register_e ,
+ { FldAlphanumeric, quote_value_e | int(constq) | register_e ,
{1,1,0,0, "\"\0\xFF"}, 0, "QUOTES" },
- { FldPointer, constq | register_e ,
+ { FldPointer, int(constq) | register_e ,
{8,8,0,0, zeroes_for_null_pointer}, 0, "NULLS" },
// IBM defines TALLY
// 01 TALLY GLOBAL PICTURE 9(5) USAGE BINARY VALUE ZERO.
{ FldNumericBin5, signable_e|register_e, {2,2,4,0, NULL}, 0, "RETURN-CODE" },
{ FldNumericBin5, register_e, {2,2,4,0, NULL}, 0, "LINAGE-COUNTER" },
{ FldLiteralA, register_e, {0,0,0,0, "/dev/stdin"}, 0, "_dev_stdin" },
- { FldLiteralA, constq|register_e, {0,0,0,0, "/dev/stdout"}, 0, "_dev_stdout" },
- { FldLiteralA, constq|register_e, {0,0,0,0, "/dev/stderr"}, 0, "_dev_stderr" },
- { FldLiteralA, constq|register_e, {0,0,0,0, "/dev/null"}, 0, "_dev_null" },
+ { FldLiteralA, int(constq)|register_e, {0,0,0,0, "/dev/stdout"}, 0, "_dev_stdout" },
+ { FldLiteralA, int(constq)|register_e, {0,0,0,0, "/dev/stderr"}, 0, "_dev_stderr" },
+ { FldLiteralA, int(constq)|register_e, {0,0,0,0, "/dev/null"}, 0, "_dev_null" },
};
assert(table.nelem + COUNT_OF(special_registers) < table.capacity);
{
case OMP_REQ_ATOMIC_MEM_ORDER_SEQ_CST:
omp_requires_mask
- = (enum omp_requires) (omp_requires_mask | OMP_MEMORY_ORDER_SEQ_CST);
+ = (enum omp_requires) (omp_requires_mask
+ | int (OMP_MEMORY_ORDER_SEQ_CST));
break;
case OMP_REQ_ATOMIC_MEM_ORDER_ACQ_REL:
omp_requires_mask
- = (enum omp_requires) (omp_requires_mask | OMP_MEMORY_ORDER_ACQ_REL);
+ = (enum omp_requires) (omp_requires_mask
+ | int (OMP_MEMORY_ORDER_ACQ_REL));
break;
case OMP_REQ_ATOMIC_MEM_ORDER_ACQUIRE:
omp_requires_mask
- = (enum omp_requires) (omp_requires_mask | OMP_MEMORY_ORDER_ACQUIRE);
+ = (enum omp_requires) (omp_requires_mask
+ | int (OMP_MEMORY_ORDER_ACQUIRE));
break;
case OMP_REQ_ATOMIC_MEM_ORDER_RELAXED:
omp_requires_mask
- = (enum omp_requires) (omp_requires_mask | OMP_MEMORY_ORDER_RELAXED);
+ = (enum omp_requires) (omp_requires_mask
+ | int (OMP_MEMORY_ORDER_RELAXED));
break;
case OMP_REQ_ATOMIC_MEM_ORDER_RELEASE:
omp_requires_mask
- = (enum omp_requires) (omp_requires_mask | OMP_MEMORY_ORDER_RELEASE);
+ = (enum omp_requires) (omp_requires_mask
+ | int (OMP_MEMORY_ORDER_RELEASE));
break;
}
if (omp_target_seen)
omp_requires_mask = (enum omp_requires) (omp_requires_mask
- | OMP_REQUIRES_TARGET_USED);
+ | int (OMP_REQUIRES_TARGET_USED));
if (omp_requires & OMP_REQ_REVERSE_OFFLOAD)
- omp_requires_mask = (enum omp_requires) (omp_requires_mask
- | OMP_REQUIRES_REVERSE_OFFLOAD);
+ omp_requires_mask
+ = (enum omp_requires) (omp_requires_mask
+ | int (OMP_REQUIRES_REVERSE_OFFLOAD));
if (omp_requires & OMP_REQ_UNIFIED_ADDRESS)
- omp_requires_mask = (enum omp_requires) (omp_requires_mask
- | OMP_REQUIRES_UNIFIED_ADDRESS);
+ omp_requires_mask
+ = (enum omp_requires) (omp_requires_mask
+ | int (OMP_REQUIRES_UNIFIED_ADDRESS));
if (omp_requires & OMP_REQ_UNIFIED_SHARED_MEMORY)
omp_requires_mask
- = (enum omp_requires) (omp_requires_mask
- | OMP_REQUIRES_UNIFIED_SHARED_MEMORY);
+ = (enum omp_requires) (omp_requires_mask
+ | int (OMP_REQUIRES_UNIFIED_SHARED_MEMORY));
if (omp_requires & OMP_REQ_SELF_MAPS)
omp_requires_mask
- = (enum omp_requires) (omp_requires_mask | OMP_REQUIRES_SELF_MAPS);
+ = (enum omp_requires) (omp_requires_mask | int (OMP_REQUIRES_SELF_MAPS));
if (omp_requires & OMP_REQ_DYNAMIC_ALLOCATORS)
- omp_requires_mask = (enum omp_requires) (omp_requires_mask
- | OMP_REQUIRES_DYNAMIC_ALLOCATORS);
+ omp_requires_mask
+ = (enum omp_requires) (omp_requires_mask
+ | int (OMP_REQUIRES_DYNAMIC_ALLOCATORS));
/* Do the parse tree dump. */
gfc_current_ns = flag_dump_fortran_original ? gfc_global_ns_list : NULL;