diff options
Diffstat (limited to 'gcc/ada/exp_imgv.adb')
| -rw-r--r-- | gcc/ada/exp_imgv.adb | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/gcc/ada/exp_imgv.adb b/gcc/ada/exp_imgv.adb index 9c0be21634e..25bce023c17 100644 --- a/gcc/ada/exp_imgv.adb +++ b/gcc/ada/exp_imgv.adb @@ -306,8 +306,16 @@ package body Exp_Imgv is Imid := RE_Image_Boolean; Tent := Rtyp; + -- For standard character, we have to select the version which handles + -- soft hyphen correctly, based on the version of Ada in use (ugly!) + elsif Rtyp = Standard_Character then - Imid := RE_Image_Character; + if Ada_Version < Ada_05 then + Imid := RE_Image_Character; + else + Imid := RE_Image_Character_05; + end if; + Tent := Rtyp; elsif Rtyp = Standard_Wide_Character then |