diff options
| author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2007-04-22 06:16:11 +0000 |
|---|---|---|
| committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2007-04-22 06:16:11 +0000 |
| commit | 19db894c481e5c3fca89862ef244803c63a54ed7 (patch) | |
| tree | d04ed7d0707a74fb072fb57f88948a8416c00375 /evaluation.ads | |
| parent | 301584eaf540c982676f520d662b473e59890584 (diff) | |
| download | ghdl-19db894c481e5c3fca89862ef244803c63a54ed7.tar.gz ghdl-19db894c481e5c3fca89862ef244803c63a54ed7.tar.bz2 ghdl-19db894c481e5c3fca89862ef244803c63a54ed7.zip | |
synchronized to ghdl 0.26
Diffstat (limited to 'evaluation.ads')
| -rw-r--r-- | evaluation.ads | 6 |
1 files changed, 4 insertions, 2 deletions
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. |