diff options
| author | Tristan Gingold | 2014-11-22 07:42:55 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2014-11-22 07:42:55 +0100 |
| commit | 7dbd44f5cd38d9e24c2d3caba0dbc43a6508dfe1 (patch) | |
| tree | 3314ec82bf729698117e65b72885141c388ff202 /src/vhdl/translate/trans-chap7.adb | |
| parent | 5bab691723bdaa58917b3c30d63cbe65ed1fcdc5 (diff) | |
| download | ghdl-7dbd44f5cd38d9e24c2d3caba0dbc43a6508dfe1.tar.gz ghdl-7dbd44f5cd38d9e24c2d3caba0dbc43a6508dfe1.tar.bz2 ghdl-7dbd44f5cd38d9e24c2d3caba0dbc43a6508dfe1.zip | |
Gen_Call_Type_Builder: use Mnode.
Diffstat (limited to 'src/vhdl/translate/trans-chap7.adb')
| -rw-r--r-- | src/vhdl/translate/trans-chap7.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-chap7.adb b/src/vhdl/translate/trans-chap7.adb index b3dfced..6c0ec50 100644 --- a/src/vhdl/translate/trans-chap7.adb +++ b/src/vhdl/translate/trans-chap7.adb @@ -4294,8 +4294,7 @@ package body Trans.Chap7 is begin Open_Temp; Arange1 := Stabilize (Lv2M (Arange, Rinfo, Mode_Value, - Rinfo.T.Range_Type, - Rinfo.T.Range_Ptr_Type)); + Rinfo.T.Range_Type, Rinfo.T.Range_Ptr_Type)); Res1 := Stabilize (Res); New_Assign_Stmt (M2Lv (Chap3.Range_To_Left (Res1)), M2E (Chap3.Range_To_Right (Arange1))); |