diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2018-05-25 09:03:24 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-05-25 09:03:24 +0000 |
| commit | 28e3372094a60b1d7fb9d076a29b050761e5692a (patch) | |
| tree | 3b291928fec587dd9d6b9a512dd088f8229e9882 /gcc | |
| parent | 5a7aacd18052583ef1ed9620c20e25cc77c35938 (diff) | |
| download | gcc-28e3372094a60b1d7fb9d076a29b050761e5692a.zip gcc-28e3372094a60b1d7fb9d076a29b050761e5692a.tar.gz gcc-28e3372094a60b1d7fb9d076a29b050761e5692a.tar.bz2 | |
[Ada] Do not print non ASCII characters in debug routines
2018-05-25 Arnaud Charlet <charlet@adacore.com>
gcc/ada/
* pprint.adb (Expression_Name): Do not print non ASCII characters.
From-SVN: r260720
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/pprint.adb | 12 |
2 files changed, 14 insertions, 2 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 1b95eb5..3f183c3 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2018-05-25 Arnaud Charlet <charlet@adacore.com> + + * pprint.adb (Expression_Name): Do not print non ASCII characters. + 2018-05-25 Bob Duff <duff@adacore.com> * libgnat/a-strunb__shared.ads, libgnat/a-stwiun__shared.ads, diff --git a/gcc/ada/pprint.adb b/gcc/ada/pprint.adb index aa793d8..53354ae 100644 --- a/gcc/ada/pprint.adb +++ b/gcc/ada/pprint.adb @@ -213,8 +213,7 @@ package body Pprint is when N_Character_Literal => declare - Char : constant Int := - UI_To_Int (Char_Literal_Value (Expr)); + Char : constant Int := UI_To_Int (Char_Literal_Value (Expr)); begin if Char in 32 .. 127 then return "'" & Character'Val (Char) & "'"; @@ -890,6 +889,15 @@ package body Pprint is if Right /= Expr then while Scn < End_Sloc loop case Src (Scn) is + + -- Give up on non ASCII characters + + when Character'Val (128) .. Character'Last => + Append_Paren := 0; + Index := 0; + Right := Expr; + exit; + when ' ' | ASCII.HT => |