diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-05-21 21:18:16 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-05-21 21:18:16 +0200 |
commit | d6420ea77718e86a9ebceb5432bea63f8f41a049 (patch) | |
tree | 4d1e43ed6f570daa75cd76e8a9169e66301ba860 /src/dyn_interning.adb | |
parent | 6796aca2963dbdf9b48331ad46014bcf6382fb73 (diff) | |
download | ghdl-d6420ea77718e86a9ebceb5432bea63f8f41a049.tar.gz ghdl-d6420ea77718e86a9ebceb5432bea63f8f41a049.tar.bz2 ghdl-d6420ea77718e86a9ebceb5432bea63f8f41a049.zip |
dyn_interning: add a Modify method.
Diffstat (limited to 'src/dyn_interning.adb')
-rw-r--r-- | src/dyn_interning.adb | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/dyn_interning.adb b/src/dyn_interning.adb index 0550194f6..3388e184c 100644 --- a/src/dyn_interning.adb +++ b/src/dyn_interning.adb @@ -136,4 +136,11 @@ package body Dyn_Interning is pragma Assert (Index <= Wrapper_Tables.Last (Inst.Els)); return Inst.Els.Table (Index).Obj; end Get_By_Index; + + procedure Modify + (Inst : in out Instance; Index : Index_Type; Obj : Object_Type) is + begin + pragma Assert (Index <= Wrapper_Tables.Last (Inst.Els)); + Inst.Els.Table (Index).Obj := Obj; + end Modify; end Dyn_Interning; |