From a889a32c0eb359bbb8b3d941226b1129106e5510 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Thu, 16 Jul 2020 12:07:34 +0200 Subject: 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. --- src/vhdl/translate/trans.ads | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) (limited to 'src/vhdl/translate/trans.ads') 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 => -- cgit v1.2.3