From 0bee23a463d143cbb140ac4f5978130b097af1f0 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Tue, 28 Jan 2014 04:22:17 +0100 Subject: Derive type of when expression from the type of the case expression. --- ortho/oread/ortho_front.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'ortho/oread') diff --git a/ortho/oread/ortho_front.adb b/ortho/oread/ortho_front.adb index 626241a70..cea43cdd1 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; -- cgit v1.2.3