diff options
| author | Tristan Gingold | 2014-01-28 04:22:17 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2014-01-28 04:22:17 +0100 |
| commit | 0bee23a463d143cbb140ac4f5978130b097af1f0 (patch) | |
| tree | 616ae004787249bdfba83a8d4bc0eebe6eaac452 /ortho | |
| parent | 50a6561f76a15ab2492e4c9afcfdc601f7140002 (diff) | |
| download | ghdl-0bee23a463d143cbb140ac4f5978130b097af1f0.tar.gz ghdl-0bee23a463d143cbb140ac4f5978130b097af1f0.tar.bz2 ghdl-0bee23a463d143cbb140ac4f5978130b097af1f0.zip | |
Derive type of when expression from the type of the case expression.
Diffstat (limited to 'ortho')
| -rw-r--r-- | ortho/oread/ortho_front.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ortho/oread/ortho_front.adb b/ortho/oread/ortho_front.adb index 626241a..cea43cd 100644 --- a/ortho/oread/ortho_front.adb +++ b/ortho/oread/ortho_front.adb @@ -2026,11 +2026,11 @@ package body Ortho_Front is New_Default_Choice (Case_Blk); Next_Token; else - L := Parse_Typed_Literal (null); + L := Parse_Typed_Literal (Choice_Type); if Tok = Tok_Elipsis then Next_Token; New_Range_Choice - (Case_Blk, L, Parse_Typed_Literal (null)); + (Case_Blk, L, Parse_Typed_Literal (Choice_Type)); else New_Expr_Choice (Case_Blk, L); end if; |