From a573518c6f4f3cab16b5b8d2d97442b137f33e3c Mon Sep 17 00:00:00 2001 From: Thomas Quinot Date: Tue, 27 May 2008 12:13:25 +0200 Subject: [PATCH] makeutl.adb: Minor code reorganization 2008-05-27 Thomas Quinot * makeutl.adb: Minor code reorganization From-SVN: r135996 --- gcc/ada/makeutl.adb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/gcc/ada/makeutl.adb b/gcc/ada/makeutl.adb index 71e207a55f8..ad63cc3e95e 100644 --- a/gcc/ada/makeutl.adb +++ b/gcc/ada/makeutl.adb @@ -526,11 +526,11 @@ package body Makeutl is function Get_Location return Source_Ptr is begin - if Current < Names.First or else Current > Names.Last then - return No_Location; + if Current in Names.First .. Names.Last then + return Names.Table (Current).Location; else - return Names.Table (Current).Location; + return No_Location; end if; end Get_Location; @@ -584,7 +584,7 @@ package body Makeutl is procedure Update_Main (Name : String) is begin - if Current >= Names.First and then Current <= Names.Last then + if Current in Names.First .. Names.Last then Name_Len := 0; Add_Str_To_Name_Buffer (Name); Names.Table (Current).File_Name := Name_Find; -- 2.30.2