diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-08-10 13:43:01 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-08-10 13:43:01 +0000 |
| commit | 39a79c9e520ef9d791fb31ecd630550c43ebfdff (patch) | |
| tree | 89987857c21e2be46cc1d6b733a81793231ceba8 /gcc/ada/a-suenco.adb | |
| parent | 6cba2d6ac7e7e944b500ac16f01cd31fe641b37c (diff) | |
| download | gcc-39a79c9e520ef9d791fb31ecd630550c43ebfdff.tar.gz | |
2010-08-10 Robert Dewar <dewar@adacore.com>
* a-suenco.adb (Convert): Fix bug in UTF-16 to UTF-8 conversion for
codes in the range 16#80#..16#7FF#.
* sem_ch10.adb: Minor reformatting.
2010-08-10 Arnaud Charlet <charlet@adacore.com>
* gnat1drv.adb (Scan_Front_End_Switches): Always perform semantics and
generate ali files in CodePeer mode, so that a gnatmake -c -k will
proceed further when possible
* freeze.adb (Freeze_Static_Object): Fix thinko. Do not generate error
messages when ignoring representation clauses (-gnatI).
2010-08-10 Ed Schonberg <schonberg@adacore.com>
* exp_ch4.adb (Expand_N_Selected_Component): Do not attempt to
constant-fold discriminant reference if the constraint is an object
with non-static expression. Expression may contain volatile references
in the presence of renamings.
2010-08-10 Vincent Celier <celier@adacore.com>
* prj-proc.adb (Get_Attribute_Index): If Index is All_Other_Names,
returns Index.
* prj-strt.adb (Attribute_Reference): Recognize 'others' as a valid
index for an associative array where it is allowed.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@163060 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-suenco.adb')
| -rwxr-xr-x | gcc/ada/a-suenco.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/a-suenco.adb b/gcc/ada/a-suenco.adb index 42b7f719a5b..24c0231061d 100755 --- a/gcc/ada/a-suenco.adb +++ b/gcc/ada/a-suenco.adb @@ -34,7 +34,7 @@ package body Ada.Strings.UTF_Encoding.Conversions is use Interfaces; - -- Version convertion from UTF-8/UTF-16BE/LE to UTF-8/UTF-16BE/LE + -- Convert from UTF-8/UTF-16BE/LE to UTF-8/UTF-16BE/LE function Convert (Item : UTF_String; @@ -57,7 +57,7 @@ package body Ada.Strings.UTF_Encoding.Conversions is end if; end Convert; - -- Version converting UTF-8/UTF-16BE/LE to UTF-16 + -- Convert from UTF-8/UTF-16BE/LE to UTF-16 function Convert (Item : UTF_String; @@ -72,7 +72,7 @@ package body Ada.Strings.UTF_Encoding.Conversions is end if; end Convert; - -- Version converting UTF-8 to UTF-16 + -- Convert from UTF-8 to UTF-16 function Convert (Item : UTF_8_String; @@ -316,7 +316,7 @@ package body Ada.Strings.UTF_Encoding.Conversions is elsif C1 <= 16#07FF# then Result (Len + 1) := Character'Val - (2#110_000000# or Shift_Right (C1, 6)); + (2#110_00000# or Shift_Right (C1, 6)); Result (Len + 2) := Character'Val (2#10_000000# or (C1 and 2#00_111111#)); |