diff options
| author | Tristan Gingold <tgingold@free.fr> | 2016-09-30 20:27:01 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2016-09-30 20:27:01 +0200 |
| commit | 128c4a0f7d52116b4377aa6218f91066f1b20109 (patch) | |
| tree | 6c087a445bdeb55069b23b4d3cbf7f8269f0a83f /src/vhdl/std_package.adb | |
| parent | 0ecff214b82f61da149e51075254c3ecc4904d75 (diff) | |
| download | ghdl-128c4a0f7d52116b4377aa6218f91066f1b20109.tar.gz ghdl-128c4a0f7d52116b4377aa6218f91066f1b20109.tar.bz2 ghdl-128c4a0f7d52116b4377aa6218f91066f1b20109.zip | |
Rework range_expression and incomplete type for instantiation.
Diffstat (limited to 'src/vhdl/std_package.adb')
| -rw-r--r-- | src/vhdl/std_package.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/vhdl/std_package.adb b/src/vhdl/std_package.adb index a52c2be8c..8143d9c63 100644 --- a/src/vhdl/std_package.adb +++ b/src/vhdl/std_package.adb @@ -143,8 +143,10 @@ package body Std_Package is begin Res := Create_Std_Iir (Iir_Kind_Range_Expression); Set_Left_Limit (Res, Left); + Set_Left_Limit_Expr (Res, Left); Set_Direction (Res, Iir_To); Set_Right_Limit (Res, Right); + Set_Right_Limit_Expr (Res, Right); Set_Expr_Staticness (Res, Locally); Set_Type (Res, Rtype); return Res; |