[gcc r16-3222] cobol: Eliminate a run-time structure type that is no longer used.

[Robert Dubner via Gcc-cvs]

https://gcc.gnu.org/g:87f354ca75361faa2f40b826d632fbc49a082553

commit r16-3222-g87f354ca75361faa2f40b826d632fbc49a082553
Author: Robert Dubner <rdub...@symas.com>
Date:   Thu Aug 14 09:49:46 2025 -0400

    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.

Diff:
---
 gcc/cobol/genapi.h   |  2 --
 gcc/cobol/structs.cc | 25 -------------------------
 gcc/cobol/structs.h  |  1 -
 3 files changed, 28 deletions(-)

diff --git a/gcc/cobol/genapi.h b/gcc/cobol/genapi.h
index b41b906aa697..b86be8e97909 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 7a4db97ea483..2393dfbe5b92 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 1a16523dcb6b..47a78b45e9a8 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();