diff options
Diffstat (limited to 'src/vhdl/translate/trans-chap7.ads')
-rw-r--r-- | src/vhdl/translate/trans-chap7.ads | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/src/vhdl/translate/trans-chap7.ads b/src/vhdl/translate/trans-chap7.ads index 2434c3b54..c2817ab9d 100644 --- a/src/vhdl/translate/trans-chap7.ads +++ b/src/vhdl/translate/trans-chap7.ads @@ -24,17 +24,10 @@ package Trans.Chap7 is function Translate_Signal_Value (Sig : O_Enode; Sig_Type : Iir) return O_Enode; - -- Extract the effective value of SIG. - function Translate_Signal_Effective_Value (Sig : O_Enode; Sig_Type : Iir) - return O_Enode; function Translate_Signal_Driving_Value (Sig : O_Enode; Sig_Type : Iir) return O_Enode; - -- Directly set the effective value of SIG with VAL. - -- Used only by conversion. - procedure Set_Effective_Value - (Sig : Mnode; Sig_Type : Iir; Val : Mnode); - + -- For conversions. procedure Set_Driving_Value (Sig : Mnode; Sig_Type : Iir; Val : Mnode); @@ -85,6 +78,10 @@ package Trans.Chap7 is (Expr : O_Enode; Expr_Type : Iir; Res_Type : Iir; Loc : Iir) return O_Enode; + -- Convert bounds SRC (of type SRC_TYPE) to RES (of type RES_TYPE). + procedure Translate_Type_Conversion_Bounds + (Res : Mnode; Src : Mnode; Res_Type : Iir; Src_Type : Iir; Loc : Iir); + -- Convert range EXPR into ortho tree. -- If RANGE_TYPE /= NULL_IIR, convert bounds to RANGE_TYPE. --function Translate_Range (Expr : Iir; Range_Type : Iir) return O_Enode; |