From 435e79cbe51e8f7e587b9dc7da794e82fba55932 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Tue, 11 May 2021 16:53:36 +0200 Subject: [PATCH] [Ada] Simplify code by removing local constant gcc/ada/ * uname.adb (Add_Node_Name): Replace local constant whose initial expression was evaluated even when unnecessary with just that expression that is evaluated at most once and only when needed. --- gcc/ada/uname.adb | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/gcc/ada/uname.adb b/gcc/ada/uname.adb index 3192c3da6d2a..5dc8ac6d5f32 100644 --- a/gcc/ada/uname.adb +++ b/gcc/ada/uname.adb @@ -223,8 +223,6 @@ package body Uname is ------------------- procedure Add_Node_Name (Node : Node_Id) is - Kind : constant Node_Kind := Nkind (Node); - begin -- Just ignore an error node (someone else will give a message) @@ -234,7 +232,7 @@ package body Uname is -- Otherwise see what kind of node we have else - case Kind is + case Nkind (Node) is when N_Defining_Identifier | N_Defining_Operator_Symbol | N_Identifier -- 2.47.2