From 535a706f7e6ee32aab2b6c667d4d1b807d7ef1e6 Mon Sep 17 00:00:00 2001
From: Arnaud Charlet <charlet@adacore.com>
Date: Thu, 24 Jun 2021 08:00:35 +0000
Subject: [PATCH] [Ada] Clean up Uint fields (continued)

gcc/ada/

	* gen_il-internals.ads (Invalid_Val): Remove, unused and
	generates warnings.
---
 gcc/ada/gen_il-internals.ads | 5 -----
 1 file changed, 5 deletions(-)

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
-- 
2.47.2