diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-01-08 21:15:07 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-01-08 21:15:07 +0100 |
| commit | d0a2d9ebd5dc8aceb21e5528721cfb31d55ecad1 (patch) | |
| tree | dc0c80d2ff0e00955a3a092fe32eeaaf6b6fdb5c | |
| parent | a25521be17765fd6d5169a5380f44da00de62823 (diff) | |
| download | ghdl-d0a2d9ebd5dc8aceb21e5528721cfb31d55ecad1.tar.gz ghdl-d0a2d9ebd5dc8aceb21e5528721cfb31d55ecad1.tar.bz2 ghdl-d0a2d9ebd5dc8aceb21e5528721cfb31d55ecad1.zip | |
Fix crash in translation while checking static bounds.
| -rw-r--r-- | translate/translation.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/translate/translation.adb b/translate/translation.adb index a4d77fb02..3a8d11eb1 100644 --- a/translate/translation.adb +++ b/translate/translation.adb @@ -8809,7 +8809,7 @@ package body Translation is and then Get_Expr_Staticness (Expr) = Locally and then Get_Type_Staticness (Atype) = Locally then - if not Eval_Is_In_Bound (Expr, Atype) then + if not Eval_Is_In_Bound (Eval_Static_Expr (Expr), Atype) then Chap6.Gen_Bound_Error (Expr); end if; else |