From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1914) id 739D3385843B; Wed, 5 Jan 2022 11:35:19 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 739D3385843B MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset="utf-8" From: Pierre-Marie de Rodat To: gcc-cvs@gcc.gnu.org Subject: [gcc r12-6247] [Ada] Simplify calls to Name_Find with known string parameter X-Act-Checkin: gcc X-Git-Author: Piotr Trojanek X-Git-Refname: refs/heads/master X-Git-Oldrev: f3799ac534385c72f72d97aa142aa4f9c0d72849 X-Git-Newrev: ad2fd234e7087b2a7bb7e3554736663d3ea5d6be Message-Id: <20220105113519.739D3385843B@sourceware.org> Date: Wed, 5 Jan 2022 11:35:19 +0000 (GMT) X-BeenThere: gcc-cvs@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-cvs mailing list List-Unsubscribe: , List-Archive: List-Help: List-Subscribe: , X-List-Received-Date: Wed, 05 Jan 2022 11:35:19 -0000 https://gcc.gnu.org/g:ad2fd234e7087b2a7bb7e3554736663d3ea5d6be commit r12-6247-gad2fd234e7087b2a7bb7e3554736663d3ea5d6be Author: Piotr Trojanek Date: Wed Dec 1 16:54:43 2021 +0100 [Ada] Simplify calls to Name_Find with known string parameter gcc/ada/ * gnatls.adb (Gnatls): Use Name_Find function. * targparm.adb (Get_Target_Parameters): Likewise. Diff: --- gcc/ada/gnatls.adb | 5 +---- gcc/ada/targparm.adb | 5 +---- 2 files changed, 2 insertions(+), 8 deletions(-) diff --git a/gcc/ada/gnatls.adb b/gcc/ada/gnatls.adb index b20cda4fdd6..4c69b727aaf 100644 --- a/gcc/ada/gnatls.adb +++ b/gcc/ada/gnatls.adb @@ -2092,10 +2092,7 @@ begin Hi : Source_Ptr; begin - Name_Buffer (1 .. 10) := "system.ads"; - Name_Len := 10; - - Read_Source_File (Name_Find, 0, Hi, Text, FD); + Read_Source_File (Name_Find ("system.ads"), 0, Hi, Text, FD); if Null_Source_Buffer_Ptr (Text) then No_Runtime := True; diff --git a/gcc/ada/targparm.adb b/gcc/ada/targparm.adb index ade05c25795..d5755e1ee08 100644 --- a/gcc/ada/targparm.adb +++ b/gcc/ada/targparm.adb @@ -157,10 +157,7 @@ package body Targparm is return; end if; - Name_Buffer (1 .. 10) := "system.ads"; - Name_Len := 10; - - Read_Source_File (Name_Find, 0, Hi, Text, FD); + Read_Source_File (Name_Find ("system.ads"), 0, Hi, Text, FD); if Null_Source_Buffer_Ptr (Text) then Write_Line ("fatal error, run-time library not installed correctly");