diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-09-15 12:22:54 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-09-15 12:22:54 +0200 |
| commit | 0b5b2bbc71dfb621df534b9cc16536eb083046ce (patch) | |
| tree | 02b448f73c0093fbfe3345e763787607a8a726b8 /gcc/ada/a-suezst.adb | |
| parent | 21f1e8ce7288b853f431202fa3b61e12f823ae7d (diff) | |
| download | gcc-0b5b2bbc71dfb621df534b9cc16536eb083046ce.zip gcc-0b5b2bbc71dfb621df534b9cc16536eb083046ce.tar.gz gcc-0b5b2bbc71dfb621df534b9cc16536eb083046ce.tar.bz2 | |
[multiple changes]
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.
From-SVN: r178877
Diffstat (limited to 'gcc/ada/a-suezst.adb')
| -rwxr-xr-x | gcc/ada/a-suezst.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/ada/a-suezst.adb b/gcc/ada/a-suezst.adb index 40266fb..4bfd717 100755 --- a/gcc/ada/a-suezst.adb +++ b/gcc/ada/a-suezst.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- -- @@ -66,10 +66,10 @@ package body Ada.Strings.UTF_Encoding.Wide_Wide_Strings is R : Unsigned_32; 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 -- |