diff options
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 1ebebe4d95d..2c3ae4fcd56 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; |