X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=gcc%2Fada%2Fopt.ads;h=29acc92567dd869ce05e5143dc2d61d438ba374b;hb=912a710685cb83a63c4b927f56d1a8c002dcbc01;hp=1627831ab1732e2dfa37161b758b224f729a06cb;hpb=7189d17fd684291638652f906a2c14487fe77419;p=pf3gnuchains%2Fgcc-fork.git

diff --git a/gcc/ada/opt.ads b/gcc/ada/opt.ads
index 1627831ab17..29acc92567d 100644
--- a/gcc/ada/opt.ads
+++ b/gcc/ada/opt.ads
@@ -104,6 +104,10 @@ package Opt is
    --  GNAT
    --  Set False to disable address clause warnings
 
+   Address_Is_Private : Boolean := False;
+   --  GNAT, GNATBIND
+   --  Set True if package System has the line "type Address is private;"
+
    All_Errors_Mode : Boolean := False;
    --  GNAT
    --  Flag set to force display of multiple errors on a single line and
@@ -1021,6 +1025,11 @@ package Opt is
    --  Set to True to get verbose mode (full error message text and location
    --  information sent to standard output, also header, copyright and summary)
 
+   Warn_On_Bad_Fixed_Value : Boolean := False;
+   --  GNAT
+   --  Set to True to generate warnings for static fixed-point expression
+   --  values that are not an exact multiple of the small value of the type.
+
    Warn_On_Constant : Boolean := False;
    --  GNAT
    --  Set to True to generate warnings for variables that could be declared