diff options
| -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; |