diff options
| author | Tristan Gingold | 2015-01-20 15:20:13 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2015-01-20 15:20:13 +0100 |
| commit | 68379e7e41aa07de23978535e1f1dc82986e0bfc (patch) | |
| tree | 4ee52f2d32cc83e4ed7bc7995e11819e99658989 /src/vhdl/translate | |
| parent | adc13ed3c08140e48d977d4295d59a1a005cab1a (diff) | |
| download | ghdl-68379e7e41aa07de23978535e1f1dc82986e0bfc.tar.gz ghdl-68379e7e41aa07de23978535e1f1dc82986e0bfc.tar.bz2 ghdl-68379e7e41aa07de23978535e1f1dc82986e0bfc.zip | |
sem_names: extract Free_Old_Entity_Name (from Finish_Sem_Name). Add comments.
Diffstat (limited to 'src/vhdl/translate')
| -rw-r--r-- | src/vhdl/translate/trans-chap7.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/vhdl/translate/trans-chap7.adb b/src/vhdl/translate/trans-chap7.adb index 06d5e6a..f65d020 100644 --- a/src/vhdl/translate/trans-chap7.adb +++ b/src/vhdl/translate/trans-chap7.adb @@ -3774,6 +3774,7 @@ package body Trans.Chap7 is Get_Ortho_Type (Expr_Type, Mode_Value); Val : Iir_Int64; begin + -- Get the value now, as it may generate a constraint_error. Val := Get_Physical_Value (Expr); return New_Lit (New_Signed_Literal (Otype, Integer_64 (Val))); exception |