From: Eric Botcazou <ebotcazou@adacore.com>
Date: Sun, 22 Nov 2020 11:00:02 +0000 (+0100)
Subject: [Ada] Fix alignment warning in System.Fat_Gen unit
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=90b2d3fafb965f1f557966b5842c324d19f5c131;p=gcc.git

[Ada] Fix alignment warning in System.Fat_Gen unit

gcc/ada/

	* libgnat/s-fatgen.adb (Tiny80): Add alignment clause.
---

diff --git a/gcc/ada/libgnat/s-fatgen.adb b/gcc/ada/libgnat/s-fatgen.adb
index 512b7b21ecd..950b377bb38 100644
--- a/gcc/ada/libgnat/s-fatgen.adb
+++ b/gcc/ada/libgnat/s-fatgen.adb
@@ -68,6 +68,7 @@ package body System.Fat_Gen is
    Tiny80 : constant array (1 .. 2) of Interfaces.Unsigned_64 :=
               (1 * Standard'Default_Bit_Order,
                2**48 * (1 - Standard'Default_Bit_Order));
+   for Tiny80'Alignment use Standard'Maximum_Alignment;
    --  We cannot use the direct declaration because it cannot be translated
    --  into C90, as the hexadecimal floating constants were introduced in C99.
    --  So we work around this by using an overlay of the integer constant.