Remove several unecessary use type clauses (reported by GNAT 2018)

stcarrez · Jun 10, 2018 · d2a2212 · d2a2212
1 parent b9c8270
commit d2a2212
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 11 deletions.
diff --git a/src/el-expressions-nodes.adb b/src/el-expressions-nodes.adb
@@ -1,6 +1,6 @@
 -----------------------------------------------------------------------
 --  EL.Expressions -- Expression Nodes
---  Copyright (C) 2009, 2010, 2011, 2012, 2013, 2017 Stephane Carrez
+--  Copyright (C) 2009, 2010, 2011, 2012, 2013, 2017, 2018 Stephane Carrez
 --  Written by Stephane Carrez (Stephane.Carrez@gmail.com)
 --
 --  Licensed under the Apache License, Version 2.0 (the "License");
@@ -517,7 +517,6 @@ package body EL.Expressions.Nodes is
                         Context : in ELContext'Class;
                         Value   : in Objects.Object) is
       use Util.Beans;
-      use type Util.Strings.Name_Access;
 
       Var  : constant Object := Node.Variable.Get_Value (Context);
       Bean : constant access Basic.Readonly_Bean'Class := To_Bean (Var);

diff --git a/src/el-expressions-parser.adb b/src/el-expressions-parser.adb
@@ -1,6 +1,6 @@
 -----------------------------------------------------------------------
 --  Parser -- Parser for Expression Language
---  Copyright (C) 2009, 2010, 2011, 2012, 2013 Stephane Carrez
+--  Copyright (C) 2009, 2010, 2011, 2012, 2013, 2018 Stephane Carrez
 --  Written by Stephane Carrez (Stephane.Carrez@gmail.com)
 --
 --  Licensed under the Apache License, Version 2.0 (the "License");
@@ -22,7 +22,6 @@ with EL.Functions;
 package body EL.Expressions.Parser is
 
    use Ada.Characters.Conversions;
-   use Ada.Strings.Unbounded;
 
    use EL.Expressions.Nodes;
    use EL.Functions;

diff --git a/src/el-expressions.adb b/src/el-expressions.adb
@@ -1,6 +1,6 @@
 -----------------------------------------------------------------------
 --  EL.Expressions -- Expression Language
---  Copyright (C) 2009, 2010, 2011 Stephane Carrez
+--  Copyright (C) 2009, 2010, 2011, 2018 Stephane Carrez
 --  Written by Stephane Carrez (Stephane.Carrez@gmail.com)
 --
 --  Licensed under the Apache License, Version 2.0 (the "License");
@@ -172,8 +172,6 @@ package body EL.Expressions is
    --  ------------------------------
    function Create_Expression (Expr : in Expression'Class)
                                return Value_Expression is
-      use type EL.Expressions.Nodes.ELNode_Access;
-
       Result : Value_Expression;
       Node   : constant access EL.Expressions.Nodes.ELNode'Class := Expr.Node;
    begin
@@ -295,8 +293,6 @@ package body EL.Expressions is
    --  ------------------------------
    function Create_Expression (Expr    : in Expression'Class)
                                return Method_Expression is
-      use type EL.Expressions.Nodes.ELNode_Access;
-
       Result : Method_Expression;
       Node   : constant access EL.Expressions.Nodes.ELNode'Class := Expr.Node;
    begin

diff --git a/src/el-variables-default.ads b/src/el-variables-default.ads
@@ -1,6 +1,6 @@
 -----------------------------------------------------------------------
 --  EL.Variables -- Default Variable Mapper
---  Copyright (C) 2009, 2010, 2011 Stephane Carrez
+--  Copyright (C) 2009, 2010, 2011, 2018 Stephane Carrez
 --  Written by Stephane Carrez (Stephane.Carrez@gmail.com)
 --
 --  Licensed under the Apache License, Version 2.0 (the "License");
@@ -46,7 +46,6 @@ package EL.Variables.Default is
 
 private
 
-   use type EL.Objects.Object;
    use type EL.Expressions.Expression;
 
    package Variable_Maps is new