* exp_ch4.adb, opt.ads: Minor editing.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146162 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb
index bf6b3a6..489e5a9 100644 (file)
--- a/gcc/ada/exp_ch4.adb
+++ b/gcc/ada/exp_ch4.adb
@@ -2836,7 +2836,7 @@ package body Exp_Ch4 is
       if Atyp = Standard_String
         and then NN in 2 .. 9
         and then (Opt.Optimization_Level = 0
-                   or else Opt.Optimize_Size = 1
+                   or else Opt.Optimize_Size /= 0
                    or else Debug_Flag_Dot_CC)
         and then not Debug_Flag_Dot_C
       then

diff --git a/gcc/ada/opt.ads b/gcc/ada/opt.ads
index 04e22cd..57ddd06 100644 (file)
--- a/gcc/ada/opt.ads
+++ b/gcc/ada/opt.ads
@@ -913,9 +913,9 @@ package Opt is
 
    Optimize_Size : Int;
    pragma Import (C, Optimize_Size, "optimize_size");
-   --  Constant reflecting setting of -Os (optimize for size). Set to 1 in
-   --  -Os mode and set to 0 otherwise. See jmissing.c and aamissing.c for
-   --  definitions for dotnet/jgnat and GNAAMP backends
+   --  Constant reflecting setting of -Os (optimize for size). Set to nonzero
+   --  in -Os mode and set to zero otherwise. See jmissing.c and aamissing.c
+   --  for definitions of "optimize_size" for dotnet/jgnat and GNAAMP backends
 
    Output_File_Name_Present : Boolean := False;
    --  GNATBIND, GNAT, GNATMAKE, GPRMAKE