Message ID | 20110829125404.GA28438@adacore.com |
---|---|
State | New |
Headers | show |
Index: exp_ch4.adb =================================================================== --- exp_ch4.adb (revision 178205) +++ exp_ch4.adb (working copy) @@ -1165,7 +1165,8 @@ Insert_Action (Exp, Make_Subtype_Declaration (Loc, Defining_Identifier => ConstrT, - Subtype_Indication => Make_Subtype_From_Expr (Exp, T))); + Subtype_Indication => + Make_Subtype_From_Expr (Internal_Exp, T))); Freeze_Itype (ConstrT, Exp); Rewrite (Exp, OK_Convert_To (ConstrT, Internal_Exp)); end;