diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-09-25 07:38:09 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-09-25 07:38:09 +0200 |
| commit | 68d26922e31aad3cb34dd3b7689bcec75ad70fcb (patch) | |
| tree | ed7d40115bd74b0c4216a94bfc21d5af0837ce4f /simulate/annotations.adb | |
| parent | 5edf93b87e8f3528d9063df08bf70bf538d72545 (diff) | |
| download | ghdl-68d26922e31aad3cb34dd3b7689bcec75ad70fcb.tar.gz ghdl-68d26922e31aad3cb34dd3b7689bcec75ad70fcb.tar.bz2 ghdl-68d26922e31aad3cb34dd3b7689bcec75ad70fcb.zip | |
Add a python script to automatically generate disp_tree.
Diffstat (limited to 'simulate/annotations.adb')
| -rw-r--r-- | simulate/annotations.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/simulate/annotations.adb b/simulate/annotations.adb index 4377ffd1f..d07a99818 100644 --- a/simulate/annotations.adb +++ b/simulate/annotations.adb @@ -761,7 +761,7 @@ package body Annotations is Assoc := Get_Case_Statement_Alternative_Chain (El); loop Annotate_Sequential_Statement_Chain - (Block_Info, Get_Associated (Assoc)); + (Block_Info, Get_Associated_Chain (Assoc)); Assoc := Get_Chain (Assoc); exit when Assoc = Null_Iir; Save_Nbr_Objects; |