From 19db894c481e5c3fca89862ef244803c63a54ed7 Mon Sep 17 00:00:00 2001 From: gingold Date: Sun, 22 Apr 2007 06:16:11 +0000 Subject: synchronized to ghdl 0.26 --- evaluation.ads | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'evaluation.ads') diff --git a/evaluation.ads b/evaluation.ads index a36286372..a9ae748f0 100644 --- a/evaluation.ads +++ b/evaluation.ads @@ -47,11 +47,13 @@ package Evaluation is procedure Eval_Check_Bound (Expr : Iir; Sub_Type : Iir); -- Return TRUE if range expression A_RANGE is not included in SUB_TYPE. - function Eval_Is_Range_In_Bound (A_Range : Iir; Sub_Type : Iir) + function Eval_Is_Range_In_Bound + (A_Range : Iir; Sub_Type : Iir; Any_Dir : Boolean) return Boolean; -- Emit an error if A_RANGE is not included in SUB_TYPE. - procedure Eval_Check_Range (A_Range : Iir; Sub_Type : Iir); + procedure Eval_Check_Range (A_Range : Iir; Sub_Type : Iir; + Any_Dir : Boolean); -- Same as Eval_Expr, but a range check with SUB_TYPE is performed after -- computation. -- cgit v1.2.3