diff options
Diffstat (limited to 'src/synth/synth-vhdl_expr.adb')
| -rw-r--r-- | src/synth/synth-vhdl_expr.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/synth/synth-vhdl_expr.adb b/src/synth/synth-vhdl_expr.adb index 9f581a8ce..c2becbe6c 100644 --- a/src/synth/synth-vhdl_expr.adb +++ b/src/synth/synth-vhdl_expr.adb @@ -498,7 +498,8 @@ package body Synth.Vhdl_Expr is begin case Val.Val.Kind is when Value_Wire => - return Create_Value_Wire (Get_Value_Wire (Val.Val), Ntype); + return Create_Value_Wire + (Get_Value_Wire (Val.Val), Ntype, Current_Pool); when Value_Net => return Create_Value_Net (Get_Value_Net (Val.Val), Ntype); when Value_Alias => |