From: Thomas Quinot <quinot@adacore.com>
Date: Tue, 27 May 2008 10:13:25 +0000 (+0200)
Subject: makeutl.adb: Minor code reorganization
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=a573518c6f4f3cab16b5b8d2d97442b137f33e3c;p=gcc.git

makeutl.adb: Minor code reorganization

2008-05-27  Thomas Quinot  <quinot@adacore.com>

	* makeutl.adb: Minor code reorganization

From-SVN: r135996
---

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;