From f852ffee9a67e7a12fd8222de726df01e743b3f5 Mon Sep 17 00:00:00 2001
From: Robert Dewar <dewar@adacore.com>
Date: Wed, 11 Jun 2014 12:34:08 +0000
Subject: [PATCH] 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
---
gcc/ada/ChangeLog | 6 ++++++
gcc/ada/gnat_rm.texi | 13 +++++++++++++
gcc/ada/impunit.adb | 3 ++-
gcc/ada/s-unstyp.ads | 4 ++--
4 files changed, 23 insertions(+), 3 deletions(-)
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 5131a6a242c9..b59965cbeffd 100644
--- 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 3250a19d700e..c1ab2e9eb5c6 100644
--- 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 6b6b45febaaf..de0cb0b2d158 100644
--- 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 ee77af897acb..3b97599be873 100644
--- 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;
--
GitLab