diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-02-08 16:25:52 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-02-08 16:26:34 +0100 |
| commit | b0bfbef2ef699e5b2823f9a4941b8690628b9b7a (patch) | |
| tree | c2100ef0c954ab91882dbaaa92bc9292584337a1 | |
| parent | 8190bc00f74dea581d410a26c4b884e15c07aa1b (diff) | |
| download | ghdl-b0bfbef2ef699e5b2823f9a4941b8690628b9b7a.tar.gz ghdl-b0bfbef2ef699e5b2823f9a4941b8690628b9b7a.tar.bz2 ghdl-b0bfbef2ef699e5b2823f9a4941b8690628b9b7a.zip | |
simul: improve handling of individual signal associations
| -rw-r--r-- | src/synth/synth-vhdl_expr.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/synth/synth-vhdl_expr.adb b/src/synth/synth-vhdl_expr.adb index 1531c3b7a..a3fce6be4 100644 --- a/src/synth/synth-vhdl_expr.adb +++ b/src/synth/synth-vhdl_expr.adb @@ -2309,9 +2309,9 @@ package body Synth.Vhdl_Expr is -- Propagate error. return No_Valtyp; end if; - if (Base.Val.Kind = Value_Signal - or else Base.Val.Kind = Value_Sig_Val) - and then Hook_Signal_Expr /= null + if Hook_Signal_Expr /= null + and then (Base.Val.Kind = Value_Signal + or else Base.Val.Kind = Value_Sig_Val) then Base := Hook_Signal_Expr (Base); end if; |