diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-07-16 12:07:34 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-07-18 19:19:58 +0200 |
commit | a889a32c0eb359bbb8b3d941226b1129106e5510 (patch) | |
tree | f01ea0f157b499391fa3bf1adee3f6ab646462c5 /src/vhdl/translate/trans.ads | |
parent | 1850acf59aa47419c79736ab77e17918b4677faf (diff) | |
download | ghdl-a889a32c0eb359bbb8b3d941226b1129106e5510.tar.gz ghdl-a889a32c0eb359bbb8b3d941226b1129106e5510.tar.bz2 ghdl-a889a32c0eb359bbb8b3d941226b1129106e5510.zip |
vhdl/translate: clarify meaning of Mstate_E for Mnode.
Split into Mstate_Ev (for values) and Mstate_Ep (for pointers).
Also fix stabilize calls for Ev.
Diffstat (limited to 'src/vhdl/translate/trans.ads')
-rw-r--r-- | src/vhdl/translate/trans.ads | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/src/vhdl/translate/trans.ads b/src/vhdl/translate/trans.ads index 7f66809be..9546521e4 100644 --- a/src/vhdl/translate/trans.ads +++ b/src/vhdl/translate/trans.ads @@ -1466,10 +1466,13 @@ package Trans is -- State of an Mmode. type Mstate is ( - -- The Mnode contains an Enode, which can be either a value or a - -- pointer. + -- The Mnode contains an Enode for a value. -- This Mnode can be used only once. - Mstate_E, + Mstate_Ev, + + -- The Mnode contains an Enode for a pointer. + -- This Mnode can be used only once. + Mstate_Ep, -- The Mnode contains an Lnode representing a value. -- This Lnode can be used only once. @@ -1505,8 +1508,10 @@ package Trans is Ptype : O_Tnode; case State is - when Mstate_E => - E : O_Enode; + when Mstate_Ev => + Ev : O_Enode; + when Mstate_Ep => + Ep : O_Enode; when Mstate_Lv => Lv : O_Lnode; when Mstate_Lp => |