diff options
Diffstat (limited to 'gcc/ada/sinput-l.adb')
| -rw-r--r-- | gcc/ada/sinput-l.adb | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gcc/ada/sinput-l.adb b/gcc/ada/sinput-l.adb index fe38b75..5159186 100644 --- a/gcc/ada/sinput-l.adb +++ b/gcc/ada/sinput-l.adb @@ -364,9 +364,15 @@ package body Sinput.L is procedure Wchar (C : Character); -- Writes character or ? for control character + ----------- + -- Wchar -- + ----------- + procedure Wchar (C : Character) is begin - if C < ' ' or C in ASCII.DEL .. Character'Val (16#9F#) then + if C < ' ' + or else C in ASCII.DEL .. Character'Val (16#9F#) + then Write_Char ('?'); else Write_Char (C); |