[Ada] Clean up Uint fields (continued)

gcc/ada/

	* gen_il-internals.ads (Invalid_Val): Remove, unused and
	generates warnings.

diff --git a/gcc/ada/gen_il-internals.ads b/gcc/ada/gen_il-internals.ads
index ae448de0e7c6a17fc6ed456fba0509a97cdb1129..53c23a278518f84f95830df5f7ed193ebcb7f22d 100644 (file)
--- a/gcc/ada/gen_il-internals.ads
+++ b/gcc/ada/gen_il-internals.ads
@@ -190,11 +190,6 @@ package Gen_IL.Internals is
      (Field_Type : Type_Enum) return String is
       (if Field_Type = Elist_Id then "No_Elist" else "Uint_0");
 
-   function Invalid_Val
-     (Field_Type : Uint_Subtype) return String is
-      ("No_Uint");
-   --  We could generalize this to other than Uint at some point
-
    ----------------
 
    subtype Node_Field is