diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-07-25 05:12:24 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-07-25 05:12:24 +0200 |
| commit | 4030d67a73d4b5254912c586b6638ca3851855d6 (patch) | |
| tree | 4922d6f35cf9160291eba352ee5f0b2254d41342 /src/tables.adb | |
| parent | 88a4798285037a18cb7d27057474d52eca819520 (diff) | |
| download | ghdl-4030d67a73d4b5254912c586b6638ca3851855d6.tar.gz ghdl-4030d67a73d4b5254912c586b6638ca3851855d6.tar.bz2 ghdl-4030d67a73d4b5254912c586b6638ca3851855d6.zip | |
dyn_tables,tables: add Reserve. For #2139
Diffstat (limited to 'src/tables.adb')
| -rw-r--r-- | src/tables.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/tables.adb b/src/tables.adb index 3ed04af87..ffd071a9b 100644 --- a/src/tables.adb +++ b/src/tables.adb @@ -24,6 +24,11 @@ package body Tables is return Res; end Allocate; + procedure Reserve (Num : Natural := 1) is + begin + Dyn_Table.Reserve (T, Num); + end Reserve; + procedure Increment_Last is begin -- Increase by 1. |