diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-01-30 10:29:35 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-01-30 10:29:35 +0000 |
| commit | 04e29e1d6afb406798ec1727d695ea7b360beaf9 (patch) | |
| tree | d9201c492389a759dbc8f2701a43d5164ee35435 /gcc/ada/s-diinio.adb | |
| parent | c582492996f5b6d24593682aa18817dd5e78567c (diff) | |
| download | gcc-04e29e1d6afb406798ec1727d695ea7b360beaf9.tar.gz | |
2012-01-30 Thomas Quinot <quinot@adacore.com>
* exp_aggr.adb (Expand_Record_Aggregate): After creating the
_parent aggregate for an extension aggregate, check whether it
requires delayed (top-down) expansion.
2012-01-30 Vincent Pucci <pucci@adacore.com>
* sem_dim.adb (Expand_Put_Call_With_Dimension_Symbol): Rewritten.
* snames.ads-tmpl: Name_Item and Name_Symbols added.
* s-diflio.adb, s-diflio.ads, s-diinio.adb, s-diinio.ads: Rename
and change the position of parameter Symbols in every Put routine.
* s-dimmks.ads: Convert long float type Mks_Type into long
long float.
* s-llflex.ads: Modifications in comments.
2012-01-30 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch12.adb (Earlier): Do not use the
top level source locations of the two input nodes.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@183701 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-diinio.adb')
| -rw-r--r-- | gcc/ada/s-diinio.adb | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/gcc/ada/s-diinio.adb b/gcc/ada/s-diinio.adb index e8d8f5d7f95..c1de5265451 100644 --- a/gcc/ada/s-diinio.adb +++ b/gcc/ada/s-diinio.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2011, Free Software Foundation, Inc. -- +-- Copyright (C) 2011-2012, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -38,40 +38,40 @@ package body System.Dim_Integer_IO is --------- procedure Put - (File : File_Type; - Item : Num_Dim_Integer; - Unit : String := ""; - Width : Field := Default_Width; - Base : Number_Base := Default_Base) + (File : File_Type; + Item : Num_Dim_Integer; + Width : Field := Default_Width; + Base : Number_Base := Default_Base; + Symbols : String := "") is begin Num_Dim_Integer_IO.Put (File, Item, Width, Base); - Ada.Text_IO.Put (File, Unit); + Ada.Text_IO.Put (File, Symbols); end Put; procedure Put - (Item : Num_Dim_Integer; - Unit : String := ""; - Width : Field := Default_Width; - Base : Number_Base := Default_Base) + (Item : Num_Dim_Integer; + Width : Field := Default_Width; + Base : Number_Base := Default_Base; + Symbols : String := "") is begin Num_Dim_Integer_IO.Put (Item, Width, Base); - Ada.Text_IO.Put (Unit); + Ada.Text_IO.Put (Symbols); end Put; procedure Put - (To : out String; - Item : Num_Dim_Integer; - Unit : String := ""; - Base : Number_Base := Default_Base) + (To : out String; + Item : Num_Dim_Integer; + Base : Number_Base := Default_Base; + Symbols : String := "") is begin Num_Dim_Integer_IO.Put (To, Item, Base); - To := To & Unit; + To := To & Symbols; end Put; end System.Dim_Integer_IO; |