diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-03-09 14:50:48 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-03-09 14:50:48 +0000 |
| commit | 385d80fe4f23caffacc9afe220b7d1d233396bb5 (patch) | |
| tree | d1aedbd66af9c99b39741e1a46c7919ec53f4090 /gcc/ada/a-strsup.ads | |
| parent | 2608e82472b97b6e7b8d13b875987af859d2c1da (diff) | |
| download | gcc-385d80fe4f23caffacc9afe220b7d1d233396bb5.tar.gz | |
2012-03-09 Robert Dewar <dewar@adacore.com>
* s-osinte-linux.ads, sem_util.adb, s-taprop-linux.adb, exp_ch4.adb,
a-strsup.ads, sem_ch6.adb, a-stwisu.ads, exp_ch3.adb,
a-stzsup.ads: Minor reformatting.
2012-03-09 Thomas Quinot <quinot@adacore.com>
* s-ransee-vms.adb: Minor reformatting.
2012-03-09 Arnaud Charlet <charlet@adacore.com>
* comperr.adb (Delete_SCIL_Files): Fix handling of
N_Package_Renaming_Declaration and N_Generic_Package_Declaration.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@185141 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-strsup.ads')
| -rw-r--r-- | gcc/ada/a-strsup.ads | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/gcc/ada/a-strsup.ads b/gcc/ada/a-strsup.ads index 185f88879c6..d43a560a543 100644 --- a/gcc/ada/a-strsup.ads +++ b/gcc/ada/a-strsup.ads @@ -41,16 +41,17 @@ with Ada.Strings.Maps; package Ada.Strings.Superbounded is pragma Preelaborate; + -- Type Bounded_String in Ada.Strings.Bounded.Generic_Bounded_Length is + -- derived from Super_String, with the constraint of the maximum length. + type Super_String (Max_Length : Positive) is record Current_Length : Natural := 0; Data : String (1 .. Max_Length); - -- A previous version had a default initial value for Data, which is no - -- longer necessary, because we now special-case this type in the - -- compiler, so "=" composes properly for descendants of this - -- type. Leaving it out is more efficient. + -- A previous version had a default initial value for Data, which is + -- no longer necessary, because we now special-case this type in the + -- compiler, so "=" composes properly for descendants of this type. + -- Leaving it out is more efficient. end record; - -- Type Bounded_String in Ada.Strings.Bounded.Generic_Bounded_Length is - -- derived from this type, with the constraint of the maximum length. -- The subprograms defined for Super_String are similar to those -- defined for Bounded_String, except that they have different names, so |