diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/synth/synth-vhdl_stmts.adb | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/synth/synth-vhdl_stmts.adb b/src/synth/synth-vhdl_stmts.adb index 75080125f..8a71cc5db 100644 --- a/src/synth/synth-vhdl_stmts.adb +++ b/src/synth/synth-vhdl_stmts.adb @@ -481,7 +481,10 @@ package body Synth.Vhdl_Stmts is return; end if; - if Target.Obj.Val.Kind = Value_Wire then + if Target.Obj = No_Valtyp then + -- There was an error. + null; + elsif Target.Obj.Val.Kind = Value_Wire then W := Get_Value_Wire (Target.Obj.Val); if Is_Static (V.Val) and then V.Typ.Sz = Target.Obj.Typ.Sz |