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

[Robert Dubner]

>From 87f354ca75361faa2f40b826d632fbc49a082553 Mon Sep 17 00:00:00 2001
From: Robert Dubner <rdub...@symas.com>
Date: Thu, 14 Aug 2025 09:49:46 -0400
Subject: [PATCH] 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.
---
 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 b41b906aa69..b86be8e9790 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 7a4db97ea48..2393dfbe5b9 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 1a16523dcb6..47a78b45e9a 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();
-- 
2.34.1