diff options
author | Robert Dubner <rdubner@symas.com> | 2025-09-05 10:41:08 -0400 |
---|---|---|
committer | Robert Dubner <rdubner@symas.com> | 2025-09-05 11:08:27 -0400 |
commit | dc20fa683d8cd46cc73407de1a24f1a2875102c5 (patch) | |
tree | 381b9bc9e7fde1095fd7714e29be04bbe22777f9 /libjava/java/awt/peer | |
parent | 39d7c4d42a764a86644198a517f58a94f467cdbd (diff) | |
download | gcc-dc20fa683d8cd46cc73407de1a24f1a2875102c5.zip gcc-dc20fa683d8cd46cc73407de1a24f1a2875102c5.tar.gz gcc-dc20fa683d8cd46cc73407de1a24f1a2875102c5.tar.bz2 |
cobol: Improved handling of COBOL Special Registers.
COBOL Special Registers (e.g., RETURN-CODE; DEBUG-ITEM) are implemented as
global variables. These changes define them with the prefix "__ggsr__" in
their variable names so that the GDB-COBOL debugger can identify them.
The creation and handling of such variables has been streamlined with the
introduction of the "register_e" cbl_field_t::attr bit.
gcc/cobol/ChangeLog:
* genapi.cc (trace1_init): Prepend two internal variables with
underscore.
(initialize_variable_internal): Use new register_e attribute.
(psa_global): Use "__ggsr__" prefix to identify special registers
(parser_symbol_add): Use new register_e attribute.
* symbols.cc (cbl_field_attr_str): Likewise.
(symbol_table_init): Likewise.
(is_register_field): Eliminated in favor of (attr & register_e).
* symbols.h (is_register_field): Likewise.
libgcobol/ChangeLog:
* common-defs.h (enum cbl_field_attr_t): Define register_e.
* constants.cc (struct cblc_field_t): Define special registers with
"__ggsr__" prefix.
Diffstat (limited to 'libjava/java/awt/peer')
0 files changed, 0 insertions, 0 deletions