diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-17 07:00:19 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-07-17 07:00:19 +0000 |
| commit | d192225edfa2d362df9c66c6494b8988286d8ede (patch) | |
| tree | b1ea51c19595d75cd006001f64414a341d309875 /gcc/ada/s-imguns.ads | |
| parent | 956ffaf4636afced44f997b8539784365963a648 (diff) | |
| download | gcc-d192225edfa2d362df9c66c6494b8988286d8ede.tar.gz | |
2014-07-17 Robert Dewar <dewar@adacore.com>
* s-imguns.ads: Minor reformatting.
2014-07-17 Hristian Kirtchev <kirtchev@adacore.com>
* exp_ch7.adb (Build_Finalization_Master): Move all local
variables to the proper code section. When looking for an existing
finalization master, inspect the ultimate ancestor type of the
full view.
* sem_util.ads, sem_util.adb (Root_Type_Of_Full_View): New routine.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@212733 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-imguns.ads')
| -rw-r--r-- | gcc/ada/s-imguns.ads | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/s-imguns.ads b/gcc/ada/s-imguns.ads index c6f733a739d..134f916e368 100644 --- a/gcc/ada/s-imguns.ads +++ b/gcc/ada/s-imguns.ads @@ -30,7 +30,7 @@ ------------------------------------------------------------------------------ -- This package contains the routines for supporting the Image attribute for --- modular integer types up to Size Unsigned'Size, and also for conversion +-- modular integer types up to size Unsigned'Size, and also for conversion -- operations required in Text_IO.Modular_IO for such types. with System.Unsigned_Types; @@ -43,9 +43,9 @@ package System.Img_Uns is S : in out String; P : out Natural); pragma Inline (Image_Unsigned); - -- Computes Unsigned'Image (V) and stores the result in S (1 .. P) - -- setting the resulting value of P. The caller guarantees that S - -- is long enough to hold the result, and that S'First is 1. + -- Computes Unsigned'Image (V) and stores the result in S (1 .. P) setting + -- the resulting value of P. The caller guarantees that S is long enough to + -- hold the result, and that S'First is 1. procedure Set_Image_Unsigned (V : System.Unsigned_Types.Unsigned; |