[Ada] Clean up error handling of 'Image

[Ada] Clean up error handling of 'Image

2020-06-15  Bob Duff  <duff@adacore.com>

gcc/ada/

	* sem_attr.adb (Check_Image_Type): New procedure for checking
	the type, depending on language version. Disable the Ada 2020
	support until the corresponding expander work is done.
	(Analyze_Image_Attribute): Call Check_Image_Type.  Rearrange the
	code to be simplier and more logical.  When P_Type is modified,
	modify P_Base_Type accordingly.
	* sem_util.adb (Is_Object_Image): Do not return False if the
	prefix is a type. X'Image should be considered an image of an
	object iff X is an object (albeit illegal pre-2020 if
	nonscalar).