diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-09-15 10:22:54 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-09-15 10:22:54 +0000 |
| commit | b3df2c07b4b2123aa0a6d5a6efe7b21cd4e7fc55 (patch) | |
| tree | 02b448f73c0093fbfe3345e763787607a8a726b8 /gcc/ada/a-suenco.adb | |
| parent | 17e267032d97eef7cb78fcbe0fa68c86148f6fb7 (diff) | |
| download | gcc-b3df2c07b4b2123aa0a6d5a6efe7b21cd4e7fc55.tar.gz | |
2011-09-15 Robert Dewar <dewar@adacore.com>
* a-cdlili.adb, a-coinve.adb, a-stzunb-shared.ads, a-suezst.adb,
a-suenco.adb, a-stwiun-shared.ads, a-cobove.adb, a-convec.adb,
a-btgbso.adb, a-cbdlli.adb, a-suewst.adb: Minor reformatting.
2011-09-15 Ed Schonberg <schonberg@adacore.com>
* sem_ch6.adb (Analyze_Expression_Function): Code cleanup:
if the expression function is not a completion, create a
new specification for the generated declaration, and keep the
original specification in the generated body. Shorter code also
ensures that proper warnings are generated for unused formals
in all cases.
2011-09-15 Sergey Rybin <rybin@adacore.com>
* tree_io.ads: Update ASIS_Version_Number because of the changes
in the tree structures for expression functions.
2011-09-15 Arnaud Charlet <charlet@adacore.com>
* s-osinte-aix.ads, s-osinte-darwin.ads, s-osinte-freebsd.ads,
s-osinte-hpux.ads, s-osinte-lynxos.ads, s-osinte-solaris-posix.ads,
s-taprop-posix.adb (CLOCK_MONOTONIC): New constant.
(CLOCK_REALTIME): Fix wrong value on some OSes.
* s-taprop-posix.adb (Monotonic_Clock): Use CLOCK_MONOTONIC.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178877 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-suenco.adb')
| -rwxr-xr-x | gcc/ada/a-suenco.adb | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/ada/a-suenco.adb b/gcc/ada/a-suenco.adb index bdbd03a48c1..abf8677148c 100755 --- a/gcc/ada/a-suenco.adb +++ b/gcc/ada/a-suenco.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2010, Free Software Foundation, Inc. -- +-- Copyright (C) 2010-2011, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -92,10 +92,10 @@ package body Ada.Strings.UTF_Encoding.Conversions is -- Output UTF-16 code procedure Get_Continuation; - -- Reads a continuation byte of the form 10xxxxxx, shifts R left - -- by 6 bits, and or's in the xxxxxx to the low order 6 bits. On - -- return Ptr is incremented. Raises exception if continuation - -- byte does not exist or is invalid. + -- Reads a continuation byte of the form 10xxxxxx, shifts R left by 6 + -- bits, and or's in the xxxxxx to the low order 6 bits. On return Ptr + -- is incremented. Raises exception if continuation byte does not exist + -- or is invalid. ---------------------- -- Get_Continuation -- @@ -114,8 +114,8 @@ package body Ada.Strings.UTF_Encoding.Conversions is Raise_Encoding_Error (Iptr - 1); else - R := Shift_Left (R, 6) or - Unsigned_16 (C and 2#00_111111#); + R := + Shift_Left (R, 6) or Unsigned_16 (C and 2#00_111111#); end if; end if; end Get_Continuation; |