diff options
| author | Tristan Gingold <tgingold@free.fr> | 2022-09-28 06:43:44 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2022-09-28 06:43:44 +0200 |
| commit | 5993986a91f3f41813b890e6b9d10cc5a3beea17 (patch) | |
| tree | abc04887c28d2784983f80d7ed161a7d1a19ea5b /src/synth/elab-vhdl_values.ads | |
| parent | e15f01013928d7023a1f6d4bc93aa59fef9bffcf (diff) | |
| download | ghdl-5993986a91f3f41813b890e6b9d10cc5a3beea17.tar.gz ghdl-5993986a91f3f41813b890e6b9d10cc5a3beea17.tar.bz2 ghdl-5993986a91f3f41813b890e6b9d10cc5a3beea17.zip | |
synth: handle null-range loops
Diffstat (limited to 'src/synth/elab-vhdl_values.ads')
| -rw-r--r-- | src/synth/elab-vhdl_values.ads | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/synth/elab-vhdl_values.ads b/src/synth/elab-vhdl_values.ads index de06d7941..4ed86da22 100644 --- a/src/synth/elab-vhdl_values.ads +++ b/src/synth/elab-vhdl_values.ads @@ -229,5 +229,7 @@ package Elab.Vhdl_Values is procedure Write_Value (Dest : Memory_Ptr; Vt : Valtyp); - procedure Update_Index (Rng : Discrete_Range_Type; V : in out Valtyp); + -- If V is at the right bound of RNG, VALID is set to False. + procedure Update_Index + (Rng : Discrete_Range_Type; Valid : out Boolean; V : in out Valtyp); end Elab.Vhdl_Values; |