From: Arnaud Charlet <charlet@adacore.com>
Date: Thu, 24 Jun 2021 08:00:35 +0000 (+0000)
Subject: [Ada] Clean up Uint fields (continued)
X-Git-Tag: basepoints/gcc-13~4614
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=535a706f7e6ee32aab2b6c667d4d1b807d7ef1e6;p=thirdparty%2Fgcc.git

[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 ae448de0e7c6..53c23a278518 100644
--- 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