diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2021-01-11 08:51:16 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-05-05 04:19:00 -0400 |
| commit | 15de3bc0b494dae9bfdcc7af60974df0b31c3f0b (patch) | |
| tree | 9ce657c18680f7a54e7ea060db09e42a6d95f101 /gcc/ada/debug.adb | |
| parent | 3a46d0ed6e5b337bae638517ecbdfd84db750530 (diff) | |
| download | gcc-15de3bc0b494dae9bfdcc7af60974df0b31c3f0b.zip gcc-15de3bc0b494dae9bfdcc7af60974df0b31c3f0b.tar.gz gcc-15de3bc0b494dae9bfdcc7af60974df0b31c3f0b.tar.bz2 | |
[Ada] Use inline expansion of Image for enumeration types by default
gcc/ada/
* debug.adb (d_x): Document new usage.
* exp_imgv.adb (Expand_User_Defined_Enumeration_Image): Add Typ
parameter and use it throughout the processing.
(Expand_Image_Attribute): Retrieve the underlying type of the
prefix and use the inline expansion for user-defined enumeration
types with a literal string by default.
Diffstat (limited to 'gcc/ada/debug.adb')
| -rw-r--r-- | gcc/ada/debug.adb | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/ada/debug.adb b/gcc/ada/debug.adb index 784c7e0..3c8f054 100644 --- a/gcc/ada/debug.adb +++ b/gcc/ada/debug.adb @@ -162,7 +162,7 @@ package body Debug is -- d_u -- d_v -- d_w - -- d_x + -- d_x Disable inline expansion of Image attribute for enumeration types -- d_y -- d_z Enable Put_Image on tagged types @@ -990,6 +990,9 @@ package body Debug is -- a call to routine Ada.Synchronous_Task_Control.Suspend_Until_True -- or Ada.Synchronous_Barriers.Wait_For_Release. + -- d_x The compiler does not expand in line the Image attribute for user- + -- defined enumeration types. + -- d_z Enable the default Put_Image on tagged types that are not -- predefined. |