From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Thu, 16 Apr 2009 10:17:14 +0000 (+0200)
Subject: * exp_ch4.adb, opt.ads: Minor editing.
X-Git-Tag: releases/gcc-4.5.0~6558
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=fa702fbdb573639fa7b5011e2d1e20e94d25aa7a;p=thirdparty%2Fgcc.git

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

From-SVN: r146162
---

diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb
index bf6b3a60f860..489e5a998cb1 100644
--- 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 04e22cd71d9b..57ddd06ce286 100644
--- 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