From: Hristian Kirtchev <kirtchev@adacore.com>
Date: Mon, 2 May 2016 10:06:45 +0000 (+0000)
Subject: sem_ch13.adb (Alignment_Error): Removed.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=51122913ce1b40087fecc4ae4b21a8ece12ed612;p=gcc.git

sem_ch13.adb (Alignment_Error): Removed.

2016-05-02  Hristian Kirtchev  <kirtchev@adacore.com>

	* sem_ch13.adb (Alignment_Error): Removed.
	(Get_Alignment_Value): Code cleanup.

From-SVN: r235733
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 7627ad335a9..8d6e8ef9191 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2016-05-02  Hristian Kirtchev  <kirtchev@adacore.com>
+
+	* sem_ch13.adb (Alignment_Error): Removed.
+	(Get_Alignment_Value): Code cleanup.
+
 2016-05-02  Tristan Gingold  <gingold@adacore.com>
 
 	* sem_ch3.adb (Analyze_Object_Declaration): Use Has_Protected
diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb
index 8f078fd561a..73fecfcbf3b 100644
--- a/gcc/ada/sem_ch13.adb
+++ b/gcc/ada/sem_ch13.adb
@@ -11551,36 +11551,21 @@ package body Sem_Ch13 is
    -------------------------
 
    function Get_Alignment_Value (Expr : Node_Id) return Uint is
-      procedure Alignment_Error;
-      --  Issue an error concerning a negatize or zero alignment represented by
-      --  expression Expr.
+      Align : constant Uint := Static_Integer (Expr);
 
-      ---------------------
-      -- Alignment_Error --
-      ---------------------
+   begin
+      if Align = No_Uint then
+         return No_Uint;
+
+      elsif Align <= 0 then
 
-      procedure Alignment_Error is
-      begin
          --  This error is suppressed in ASIS mode to allow for different ASIS
          --  back-ends or ASIS-based tools to query the illegal clause.
 
          if not ASIS_Mode then
             Error_Msg_N ("alignment value must be positive", Expr);
          end if;
-      end Alignment_Error;
 
-      --  Local variables
-
-      Align : constant Uint := Static_Integer (Expr);
-
-   --  Start of processing for Get_Alignment_Value
-
-   begin
-      if Align = No_Uint then
-         return No_Uint;
-
-      elsif Align <= 0 then
-         Alignment_Error;
          return No_Uint;
 
       else
@@ -11592,7 +11577,15 @@ package body Sem_Ch13 is
                exit when M = Align;
 
                if M > Align then
-                  Alignment_Error;
+
+                  --  This error is suppressed in ASIS mode to allow for
+                  --  different ASIS back-ends or ASIS-based tools to query the
+                  --  illegal clause.
+
+                  if not ASIS_Mode then
+                     Error_Msg_N ("alignment value must be power of 2", Expr);
+                  end if;
+
                   return No_Uint;
                end if;
             end;