diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2021-06-24 08:00:35 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-09-20 12:31:32 +0000 |
| commit | 535a706f7e6ee32aab2b6c667d4d1b807d7ef1e6 (patch) | |
| tree | 28570b17d3c7c85f05b62f9f4ea4b52f2f9db544 | |
| parent | 0c5c46a9576daa60e6104cb6457b487484133b3d (diff) | |
| download | gcc-535a706f7e6ee32aab2b6c667d4d1b807d7ef1e6.zip gcc-535a706f7e6ee32aab2b6c667d4d1b807d7ef1e6.tar.gz gcc-535a706f7e6ee32aab2b6c667d4d1b807d7ef1e6.tar.bz2 | |
[Ada] Clean up Uint fields (continued)
gcc/ada/
* gen_il-internals.ads (Invalid_Val): Remove, unused and
generates warnings.
| -rw-r--r-- | gcc/ada/gen_il-internals.ads | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/gcc/ada/gen_il-internals.ads b/gcc/ada/gen_il-internals.ads index ae448de..53c23a2 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 |