diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-05-06 11:29:35 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-05-06 11:29:35 +0200 |
| commit | 69a0c1741e5727e98cb037dffbc98d82e60dc474 (patch) | |
| tree | 1030629a237c775cfc1245c850a629994e35ccdd /gcc/ada/g-dyntab.adb | |
| parent | 4e0d20ca84575c7e202a444e24291b888b86920e (diff) | |
| download | gcc-69a0c1741e5727e98cb037dffbc98d82e60dc474.zip gcc-69a0c1741e5727e98cb037dffbc98d82e60dc474.tar.gz gcc-69a0c1741e5727e98cb037dffbc98d82e60dc474.tar.bz2 | |
[multiple changes]
2009-05-06 Gary Dismukes <dismukes@adacore.com>
* gnat_ugn.texi: Fix typo.
2009-05-06 Thomas Quinot <quinot@adacore.com>
* g-debuti.adb: Minor reformatting
* exp_attr.adb: Minor reformatting
2009-05-06 Robert Dewar <dewar@adacore.com>
* sem_aggr.adb: Minor reformatting.
* g-socthi-vms.adb: Minor reformatting
2009-05-06 Bob Duff <duff@adacore.com>
* g-table.ads, g-table.adb, g-dyntab.ads, g-dyntab.adb:
(Append_All): Add Append_All to g-table and g-dyntab, similar to table.
From-SVN: r147162
Diffstat (limited to 'gcc/ada/g-dyntab.adb')
| -rw-r--r-- | gcc/ada/g-dyntab.adb | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/gcc/ada/g-dyntab.adb b/gcc/ada/g-dyntab.adb index 216ff5b..1ebebe4 100644 --- a/gcc/ada/g-dyntab.adb +++ b/gcc/ada/g-dyntab.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2000-2008, AdaCore -- +-- Copyright (C) 2000-2009, AdaCore -- -- -- -- 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- -- @@ -85,6 +85,17 @@ package body GNAT.Dynamic_Tables is Set_Item (T, Table_Index_Type (T.P.Last_Val + 1), New_Val); end Append; + ---------------- + -- Append_All -- + ---------------- + + procedure Append_All (T : in out Instance; New_Vals : Table_Type) is + begin + for J in New_Vals'Range loop + Append (T, New_Vals (J)); + end loop; + end Append_All; + -------------------- -- Decrement_Last -- -------------------- |