diff options
Diffstat (limited to 'src/vhdl/translate/trans-chap7.ads')
| -rw-r--r-- | src/vhdl/translate/trans-chap7.ads | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/src/vhdl/translate/trans-chap7.ads b/src/vhdl/translate/trans-chap7.ads index 5e52caebd..e4b316637 100644 --- a/src/vhdl/translate/trans-chap7.ads +++ b/src/vhdl/translate/trans-chap7.ads @@ -17,19 +17,22 @@ -- 02111-1307, USA. package Trans.Chap7 is + -- Allocate a value (with the same bounds) on the stack for SIG. + -- Note: SIG must be stable. + function Allocate_Value_From_Signal (Sig : Mnode; Sig_Type : Iir) + return Mnode; + -- Generic function to extract a value from a signal. generic with function Read_Value (Sig : O_Enode; Sig_Type : Iir) return O_Enode; - function Translate_Signal_Value (Sig : O_Enode; Sig_Type : Iir) - return O_Enode; + function Translate_Signal_Value (Sig : Mnode; Sig_Type : Iir) return Mnode; - function Translate_Signal_Driving_Value (Sig : O_Enode; Sig_Type : Iir) - return O_Enode; + function Translate_Signal_Driving_Value (Sig : Mnode; Sig_Type : Iir) + return Mnode; -- For conversions. - procedure Set_Driving_Value - (Sig : Mnode; Sig_Type : Iir; Val : Mnode); + procedure Set_Driving_Value (Sig : Mnode; Sig_Type : Iir; Val : Mnode); -- Translate expression EXPR into ortho tree. function Translate_Expression (Expr : Iir; Rtype : Iir := Null_Iir) |