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 --git a/gcc/cobol/genapi.h b/gcc/cobol/genapi.h
index b41b906aa69775c5777dec702312545d4b7b0292..b86be8e97909837db29943a214420911256cf8c5 100644 (file)
--- 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 7a4db97ea4836a5aed0416fad7b9a58ed38ce8ce..2393dfbe5b92bfa8d0c8903adc7d8a20cebe5036 100644 (file)
--- 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 1a16523dcb6be570e2fdf20aad02e6362e37940a..47a78b45e9a81f78451797e98f5e54c8826fc382 100644 (file)
--- 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();