diff options
| -rw-r--r-- | src/synth/synth-expr.adb | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/synth/synth-expr.adb b/src/synth/synth-expr.adb index 4d2dc7e95..8d48eb86c 100644 --- a/src/synth/synth-expr.adb +++ b/src/synth/synth-expr.adb @@ -107,8 +107,12 @@ package body Synth.Expr is when Value_Net => N := V.Val.N; when Value_Wire => - return Read_Discrete - (Synth.Environment.Get_Static_Wire (V.Val.W)) >= 0; + if Synth.Environment.Is_Static_Wire (V.Val.W) then + return Read_Discrete + (Synth.Environment.Get_Static_Wire (V.Val.W)) >= 0; + else + return False; + end if; when others => raise Internal_Error; end case; |