diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-11-30 11:07:32 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-11-30 11:07:32 +0100 |
| commit | 1dfddbb4d341548f0b196873f0d2b9c9b058b8a4 (patch) | |
| tree | 7bec3cf8139da8c3fc9ab89202f6b0894c50fe0e /gcc/ada/g-dyntab.adb | |
| parent | 3a3173c9d664cdcb9e2f5f6aeb6cb699bbf9392b (diff) | |
| download | gcc-1dfddbb4d341548f0b196873f0d2b9c9b058b8a4.zip gcc-1dfddbb4d341548f0b196873f0d2b9c9b058b8a4.tar.gz gcc-1dfddbb4d341548f0b196873f0d2b9c9b058b8a4.tar.bz2 | |
[multiple changes]
2009-11-30 Thomas Quinot <quinot@adacore.com>
* s-crtl.ads, g-stseme.adb, s-fileio.adb (System.CRTL.strerror): Change
return type to Interfaces.C.Strings.chars_ptr to eliminate need for
dubious unchecked conversion at call sites.
* s-errrep.adb, s-errrep.ads, Makefile.rtl (System.Error_Reporting):
Remove obsolete, unused runtime unit.
* gcc-interface/Make-lang.in: Update dependencies.
* gcc-interface/Makefile.in: Remove VMS specialization of s-crtl, not
required anymore.
2009-11-30 Vincent Celier <celier@adacore.com>
* gnatlink.adb: Delete an eventual existing executable file, in case it
is a symbolic link, to avoid modifying the target of the symbolic link.
2009-11-30 Bob Duff <duff@adacore.com>
* socket.c: Add accessor functions for struct servent.
* g-sothco.ads (Servent): Declare interfaces to C accessor functions
for struct servent.
* g-socket.adb (To_Service_Entry): Use accessor functions for struct
servent.
2009-11-30 Robert Dewar <dewar@adacore.com>
* g-arrspl.adb: Minor reformatting
* g-dyntab.adb: Add missing pragma Compiler_Unit
From-SVN: r154769
Diffstat (limited to 'gcc/ada/g-dyntab.adb')
| -rw-r--r-- | gcc/ada/g-dyntab.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/g-dyntab.adb b/gcc/ada/g-dyntab.adb index 1ebebe4..2c3ae4f 100644 --- a/gcc/ada/g-dyntab.adb +++ b/gcc/ada/g-dyntab.adb @@ -31,6 +31,8 @@ -- -- ------------------------------------------------------------------------------ +pragma Compiler_Unit; + with GNAT.Heap_Sort_G; with System; use System; with System.Memory; use System.Memory; @@ -64,10 +66,7 @@ package body GNAT.Dynamic_Tables is -- Allocate -- -------------- - procedure Allocate - (T : in out Instance; - Num : Integer := 1) - is + procedure Allocate (T : in out Instance; Num : Integer := 1) is begin T.P.Last_Val := T.P.Last_Val + Num; |