Message ID | 20131010125238.GA749@adacore.com |
---|---|
State | New |
Headers | show |
Index: einfo.adb =================================================================== --- einfo.adb (revision 203368) +++ einfo.adb (working copy) @@ -8741,7 +8741,7 @@ Write_Str ("Corresponding_Discriminant"); when Scalar_Kind => - Write_Str ("Default_Value"); + Write_Str ("Default_Aspect_Value"); when E_Array_Type => Write_Str ("Default_Component_Value");