diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-06-30 18:41:32 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-06-30 19:34:50 +0200 |
commit | aedbcc715e099335d28e1e06934e75263bd335e9 (patch) | |
tree | e360d3edab22d7fe2ab0ed8fe2bdef06bfe1e979 /src/synth | |
parent | e2d751d624eb1319e654d9504b36d43eff65c8fb (diff) | |
download | ghdl-aedbcc715e099335d28e1e06934e75263bd335e9.tar.gz ghdl-aedbcc715e099335d28e1e06934e75263bd335e9.tar.bz2 ghdl-aedbcc715e099335d28e1e06934e75263bd335e9.zip |
vhdl-nodes: make Subtype_Indication Maybe_Ref. For #641
Diffstat (limited to 'src/synth')
-rw-r--r-- | src/synth/synth-decls.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/synth/synth-decls.adb b/src/synth/synth-decls.adb index 784a3a9b1..6a1ede30c 100644 --- a/src/synth/synth-decls.adb +++ b/src/synth/synth-decls.adb @@ -479,8 +479,8 @@ package body Synth.Decls is Ind : constant Node := Get_Subtype_Indication (Decl); Atype : Node; begin - if Ind = Null_Node then - -- No subtype indication; use the same type. + if Get_Is_Ref (Decl) or else Ind = Null_Iir then + -- A secondary declaration in a list. return Null_Node; end if; Atype := Ind; |