diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-12-21 18:56:21 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-12-21 18:56:21 +0100 |
| commit | 5fa2ef4740596fdacfc3370541548759df2ab98b (patch) | |
| tree | a4ae0fed0fecc81eab7cb3404fac7aa19028e3c5 /src/vhdl/simulate/simul-environments.ads | |
| parent | 0077cb6ed63946940700bbfd60518b0d28bc3ce2 (diff) | |
| download | ghdl-5fa2ef4740596fdacfc3370541548759df2ab98b.tar.gz ghdl-5fa2ef4740596fdacfc3370541548759df2ab98b.tar.bz2 ghdl-5fa2ef4740596fdacfc3370541548759df2ab98b.zip | |
simul: Add ref in info to ease debugging.
Diffstat (limited to 'src/vhdl/simulate/simul-environments.ads')
| -rw-r--r-- | src/vhdl/simulate/simul-environments.ads | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/vhdl/simulate/simul-environments.ads b/src/vhdl/simulate/simul-environments.ads index bc2414be0..d5c20e104 100644 --- a/src/vhdl/simulate/simul-environments.ads +++ b/src/vhdl/simulate/simul-environments.ads @@ -245,6 +245,9 @@ package Simul.Environments is -- Annotation for an iir node in order to be able to simulate it. type Sim_Info_Type (Kind: Sim_Info_Kind) is record + -- Redundant, to be used only for debugging. + Ref : Iir; + case Kind is when Kind_Block | Kind_Frame |