diff options
| author | Tristan Gingold <tgingold@free.fr> | 2019-08-02 13:35:19 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2019-08-02 13:35:19 +0200 |
| commit | 6c749349502bd3d156a6e87428a5152c2a12d374 (patch) | |
| tree | e4884113ea575244e9264cd4cdc1e619e9056782 /src/synth/synth-stmts.adb | |
| parent | d14ff3cbdfbffce71d0bfb6f648afa4fd97cea3e (diff) | |
| download | ghdl-6c749349502bd3d156a6e87428a5152c2a12d374.tar.gz ghdl-6c749349502bd3d156a6e87428a5152c2a12d374.tar.bz2 ghdl-6c749349502bd3d156a6e87428a5152c2a12d374.zip | |
synth: preliminary support of integer literals.
Diffstat (limited to 'src/synth/synth-stmts.adb')
| -rw-r--r-- | src/synth/synth-stmts.adb | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/src/synth/synth-stmts.adb b/src/synth/synth-stmts.adb index 888746ae7..8facedb95 100644 --- a/src/synth/synth-stmts.adb +++ b/src/synth/synth-stmts.adb @@ -71,12 +71,8 @@ package body Synth.Stmts is procedure Synth_Assign (Dest : Value_Acc; Val : Value_Acc) is begin - case Dest.Kind is - when Value_Wire => - Phi_Assign (Dest.W, Get_Net (Val)); - when others => - raise Internal_Error; - end case; + pragma Assert (Dest.Kind = Value_Wire); + Phi_Assign (Dest.W, Get_Net (Val)); end Synth_Assign; procedure Synth_Assignment_Aggregate (Syn_Inst : Synth_Instance_Acc; |