diff options
Diffstat (limited to 'src/vhdl/translate/trans-chap3.adb')
-rw-r--r-- | src/vhdl/translate/trans-chap3.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb index fd946d16e..9b67e467a 100644 --- a/src/vhdl/translate/trans-chap3.adb +++ b/src/vhdl/translate/trans-chap3.adb @@ -2706,8 +2706,7 @@ package body Trans.Chap3 is Val : Mnode; begin -- Compute parameter - Val := Chap6.Translate_Name (Param); - pragma Assert (Get_Object_Kind (Val) = Mode_Value); + Val := Chap6.Translate_Name (Param, Mode_Value); Stabilize (Val); -- Call deallocator. |