diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-16 12:17:14 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-16 12:17:14 +0200 |
| commit | fa702fbdb573639fa7b5011e2d1e20e94d25aa7a (patch) | |
| tree | 6c69dcf4b6c593de82f462d89ba732af75b47af4 | |
| parent | bded454f79118e8b5b6627355d34bb29c795949d (diff) | |
| download | gcc-fa702fbdb573639fa7b5011e2d1e20e94d25aa7a.zip gcc-fa702fbdb573639fa7b5011e2d1e20e94d25aa7a.tar.gz gcc-fa702fbdb573639fa7b5011e2d1e20e94d25aa7a.tar.bz2 | |
* exp_ch4.adb, opt.ads: Minor editing.
From-SVN: r146162
| -rw-r--r-- | gcc/ada/exp_ch4.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/opt.ads | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/exp_ch4.adb b/gcc/ada/exp_ch4.adb index bf6b3a6..489e5a9 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 04e22cd..57ddd06 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 |