s-stchop.adb, [...]: Make sure sources obey short-circuit style rule.

[gcc.git] / gcc / ada / s-scaval.adb

diff --git a/gcc/ada/s-scaval.adb b/gcc/ada/s-scaval.adb
index f1742a72a380a3ee3e87b1f02e57d97c8d723c86..632e30e4b01bd7d514899f9083fbbd9af35ffd49 100644 (file)
--- a/gcc/ada/s-scaval.adb
+++ b/gcc/ada/s-scaval.adb
@@ -59,7 +59,7 @@ package body System.Scalar_Values is
       --  Set True if we are on an x86 with 96-bit floats for extended
 
       AFloat : constant Boolean :=
-                 Long_Float'Size = 48 and Long_Long_Float'Size = 48;
+                 Long_Float'Size = 48 and then Long_Long_Float'Size = 48;
       --  Set True if we are on an AAMP with 48-bit extended floating point
 
       type ByteLF is array (0 .. 7 - 2 * Boolean'Pos (AFloat)) of Byte1;