diff options
| author | Robert Dubner <rdubner@symas.com> | 2025-08-14 09:49:46 -0400 |
|---|---|---|
| committer | Robert Dubner <rdubner@symas.com> | 2025-08-15 15:41:07 -0400 |
| commit | 87f354ca75361faa2f40b826d632fbc49a082553 (patch) | |
| tree | e57ed547335b9cef3722d534660b345346b49983 | |
| parent | 810340f9fed56dc2a0e7e1db3f19b383f6e4cb95 (diff) | |
| download | gcc-87f354ca75361faa2f40b826d632fbc49a082553.zip gcc-87f354ca75361faa2f40b826d632fbc49a082553.tar.gz gcc-87f354ca75361faa2f40b826d632fbc49a082553.tar.bz2 | |
cobol: Eliminate a run-time structure type that is no longer used.
gcc/cobol/ChangeLog:
* genapi.h (parser_call_exception_end): Remove obsolete comment.
* structs.cc (create_cbl_enabled_exception_t):
Remove cbl_enabled_exception_type_node;
remove create_cbl_enabled_exception_t().
(create_our_type_nodes): Likewise.
* structs.h (GTY): Likewise.
| -rw-r--r-- | gcc/cobol/genapi.h | 2 | ||||
| -rw-r--r-- | gcc/cobol/structs.cc | 25 | ||||
| -rw-r--r-- | gcc/cobol/structs.h | 1 |
3 files changed, 0 insertions, 28 deletions
diff --git a/gcc/cobol/genapi.h b/gcc/cobol/genapi.h index b41b906..b86be8e 100644 --- a/gcc/cobol/genapi.h +++ b/gcc/cobol/genapi.h @@ -536,8 +536,6 @@ void parser_exception_raise(ec_type_t ec); void parser_call_exception( cbl_label_t *name ); void parser_call_exception_end( cbl_label_t *name ); -//void parser_stash_exceptions(const cbl_enabled_exceptions_array_t *enabled); - void parser_match_exception(cbl_field_t *index); void parser_check_fatal_exception(); void parser_clear_exception(); diff --git a/gcc/cobol/structs.cc b/gcc/cobol/structs.cc index 7a4db97..2393dfb 100644 --- a/gcc/cobol/structs.cc +++ b/gcc/cobol/structs.cc @@ -156,7 +156,6 @@ tree cblc_field_p_type_node; tree cblc_field_pp_type_node; tree cblc_file_type_node; tree cblc_file_p_type_node; -tree cbl_enabled_exception_type_node; tree cblc_goto_type_node; // The following functions return type_decl nodes for the various structures @@ -288,29 +287,6 @@ typedef struct cblc_file_t return retval; } -static tree -create_cbl_enabled_exception_t() - { - /* - struct cbl_enabled_exception_t - { - bool enabled, location; - ec_type_t ec; - size_t file; - }; - */ - tree retval = NULL_TREE; - retval = gg_get_filelevel_struct_type_decl( "cbl_enabled_exception_t", - 4, - BOOL, "enabled", - BOOL, "location", - UINT, "ec", - SIZE_T, "file"); - retval = TREE_TYPE(retval); - - return retval; - } - void create_our_type_nodes() { @@ -323,7 +299,6 @@ create_our_type_nodes() cblc_field_pp_type_node = build_pointer_type(cblc_field_p_type_node); cblc_file_type_node = create_cblc_file_t(); cblc_file_p_type_node = build_pointer_type(cblc_file_type_node); - cbl_enabled_exception_type_node = create_cbl_enabled_exception_t(); } } diff --git a/gcc/cobol/structs.h b/gcc/cobol/structs.h index 1a16523..47a78b4 100644 --- a/gcc/cobol/structs.h +++ b/gcc/cobol/structs.h @@ -54,7 +54,6 @@ extern GTY(()) tree cblc_field_p_type_node; extern GTY(()) tree cblc_field_pp_type_node; extern GTY(()) tree cblc_file_type_node; extern GTY(()) tree cblc_file_p_type_node; -extern GTY(()) tree cbl_enabled_exception_type_node; extern GTY(()) tree cblc_goto_type_node; extern void create_our_type_nodes(); |