summaryrefslogtreecommitdiffstats
path: root/gcc/ada/a-ztinio.adb
diff options
context:
space:
mode:
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2009-11-30 16:08:37 +0000
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2009-11-30 16:08:37 +0000
commitd36a3269d0e6c5b34a0cf85c75e416186176b01d (patch)
tree9fe7bb7e1792a568a310d0ca746ddff32e9cb8b8 /gcc/ada/a-ztinio.adb
parentf648ee3f0265eb917e18fca4383aff5c08207c72 (diff)
downloadppe42-gcc-d36a3269d0e6c5b34a0cf85c75e416186176b01d.tar.gz
ppe42-gcc-d36a3269d0e6c5b34a0cf85c75e416186176b01d.zip
2009-11-30 Matthew Heaney <heaney@adacore.com>
* a-coinve.adb (Insert): Move exception handler closer to point where exception can occur. Minor reformatting & comment additions. 2009-11-30 Arnaud Charlet <charlet@adacore.com> * freeze.adb (Freeze_Entity): Disable warning on 'Foreign caller must pass bounds' for VM targets, not relevant. 2009-11-30 Robert Dewar <dewar@adacore.com> * sem_util.adb (Wrong_Type): Diagnose additional case of modular missing parens. * a-tiinio.adb, a-wtinio.adb, a-ztinio.adb: Minor reformatting * exp_util.adb (Kill_Dead_Code): Suppress warning for some additional cases. * sem_warn.adb (Set_Warning_Flag): Clean up gnatwA list and ensure completeness. (Set_Dot_Warning_Flag): Ditto for -gnatw.e (Set_Dot_Warning_Flag): Implement -gnbatw.v/w.V * usage.adb: Add lines for -gnatw.v/w.V 2009-11-30 Emmanuel Briot <briot@adacore.com> * make.adb (Check_Standard_Library): use Full_Source_Name instead of direct call to Find_File. The former provides caching of the results, so might be more efficient (Start_Compile_If_Necessary): Add comment on possible optimization, not done for now. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@154825 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-ztinio.adb')
-rw-r--r--gcc/ada/a-ztinio.adb9
1 files changed, 4 insertions, 5 deletions
diff --git a/gcc/ada/a-ztinio.adb b/gcc/ada/a-ztinio.adb
index ff36c4fd1a5..93e4d280960 100644
--- a/gcc/ada/a-ztinio.adb
+++ b/gcc/ada/a-ztinio.adb
@@ -36,11 +36,10 @@ with System.WCh_WtS; use System.WCh_WtS;
package body Ada.Wide_Wide_Text_IO.Integer_IO is
Need_LLI : constant Boolean := Num'Base'Size > Integer'Size;
- -- Throughout this generic body, we distinguish between the case
- -- where type Integer is acceptable, and where a Long_Long_Integer
- -- is needed. This constant Boolean is used to test for these cases
- -- and since it is a constant, only the code for the relevant case
- -- will be included in the instance.
+ -- Throughout this generic body, we distinguish between the case where type
+ -- Integer is acceptable, and where a Long_Long_Integer is needed. This
+ -- Boolean is used to test for these cases and since it is a constant, only
+ -- code for the relevant case will be included in the instance.
subtype TFT is Ada.Wide_Wide_Text_IO.File_Type;
-- File type required for calls to routines in Aux
OpenPOWER on IntegriCloud