gnat_rm.texi: Document System.Unsigned_Types.

2014-06-11  Robert Dewar  <dewar@adacore.com>

	* gnat_rm.texi: Document System.Unsigned_Types.
	* impunit.adb: System.Unsigned_Types (s-unstyp.ads) is user accessible.
	* s-unstyp.ads: Update comments (this is now user available unit).

From-SVN: r211458

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 5131a6a242c97579939a5bf167c9a2c3cc5b9847..b59965cbeffddc7f7d79f254b6155cd32b54c05b 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,9 @@
+2014-06-11  Robert Dewar  <dewar@adacore.com>
+
+       * gnat_rm.texi: Document System.Unsigned_Types.
+       * impunit.adb: System.Unsigned_Types (s-unstyp.ads) is user accessible.
+       * s-unstyp.ads: Update comments (this is now user available unit).
+
 2014-06-11  Robert Dewar  <dewar@adacore.com>
 
        * make.adb, sem_res.adb: Minor reformatting.

diff --git a/gcc/ada/gnat_rm.texi b/gcc/ada/gnat_rm.texi
index 3250a19d700efef17403edbf02ae8514c5d47983..c1ab2e9eb5c6bbe91456012a2ecc3d759f9e3b21 100644 (file)
--- a/gcc/ada/gnat_rm.texi
+++ b/gcc/ada/gnat_rm.texi
@@ -636,6 +636,7 @@ The GNAT Library
 * System.Rident (s-rident.ads)::
 * System.Strings.Stream_Ops (s-ststop.ads)::
 * System.Task_Info (s-tasinf.ads)::
+* System.Unsigned_Types (s-unstyp.ads)::
 * System.Wch_Cnv (s-wchcnv.ads)::
 * System.Wch_Con (s-wchcon.ads)::
 
@@ -18254,6 +18255,7 @@ of GNAT, and will generate a warning message.
 * System.Rident (s-rident.ads)::
 * System.Strings.Stream_Ops (s-ststop.ads)::
 * System.Task_Info (s-tasinf.ads)::
+* System.Unsigned_Types (s-unstyp.ads)::
 * System.Wch_Cnv (s-wchcnv.ads)::
 * System.Wch_Con (s-wchcon.ads)::
 @end menu
@@ -19842,6 +19844,17 @@ package can be used directly by application programs.
 This package provides target dependent functionality that is used
 to support the @code{Task_Info} pragma
 
+@node System.Unsigned_Types (s-unstyp.ads)
+@section @code{System.Unsigned_Types} (@file{s-unstyp.ads})
+@cindex @code{System.Unsigned_Types} (@file{s-unstyp.ads})
+
+@noindent
+This package contains definitions of standard unsigned types that
+correspond in size to the standard signed types declared in Standard,
+and (unlike the types in Interfaces) have corresponding names. It
+also contains some related definitions for other specialized types
+used by the compiler in connection with packed array types.
+
 @node System.Wch_Cnv (s-wchcnv.ads)
 @section @code{System.Wch_Cnv} (@file{s-wchcnv.ads})
 @cindex @code{System.Wch_Cnv} (@file{s-wchcnv.ads})

diff --git a/gcc/ada/impunit.adb b/gcc/ada/impunit.adb
index 6b6b45febaaf4d737be68795554d431de1828493..de0cb0b2d158e36a35b03fae459b27546d4eca1b 100644 (file)
--- a/gcc/ada/impunit.adb
+++ b/gcc/ada/impunit.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---           Copyright (C) 2000-2013, Free Software Foundation, Inc.        --
+--           Copyright (C) 2000-2014, 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- --
@@ -380,6 +380,7 @@ package body Impunit is
     ("s-rident", F),  -- System.Rident
     ("s-ststop", F),  -- System.Strings.Stream_Ops
     ("s-tasinf", F),  -- System.Task_Info
+    ("s-unstyp", F),  -- System.Unsigned_Types
     ("s-wchcnv", F),  -- System.Wch_Cnv
     ("s-wchcon", F),  -- System.Wch_Con
 

diff --git a/gcc/ada/s-unstyp.ads b/gcc/ada/s-unstyp.ads
index ee77af897acb261b88b132d3fb8633f149386cb3..3b97599be873ba8d3e8454f28042ee420a21e9ba 100644 (file)
--- a/gcc/ada/s-unstyp.ads
+++ b/gcc/ada/s-unstyp.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---          Copyright (C) 1992-2013, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2014, 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- --
@@ -200,7 +200,7 @@ package System.Unsigned_Types is
    --  previous version of the compiler and runtime, but are not needed
    --  by the current version. We retain them to help with bootstrap path
    --  problems. Also they seem harmless, and if any user programs have
-   --  been (rather improperly) using these types, why discombobulate them?
+   --  been using these types, why discombobulate them?
 
    subtype Packed_Bytes           is Packed_Bytes4;
    subtype Packed_Bytes_Unaligned is Packed_Bytes1;