From fa702fbdb573639fa7b5011e2d1e20e94d25aa7a Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 16 Apr 2009 12:17:14 +0200 Subject: * exp_ch4.adb, opt.ads: Minor editing. From-SVN: r146162 --- gcc/ada/exp_ch4.adb | 2 +- gcc/ada/opt.ads | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) (limited to 'gcc') 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 -- cgit v1.1