diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-02-25 16:35:36 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-02-25 16:35:36 +0100 |
| commit | 80c2c20282aae97e232df885461b828d5d6573b0 (patch) | |
| tree | 80193eba32d9e6b7b50591ca71a891de016291d2 /gcc/ada/erroutc.ads | |
| parent | 7b27e18398d1feefb4d30dbc127258b703676a17 (diff) | |
| download | gcc-80c2c20282aae97e232df885461b828d5d6573b0.zip gcc-80c2c20282aae97e232df885461b828d5d6573b0.tar.gz gcc-80c2c20282aae97e232df885461b828d5d6573b0.tar.bz2 | |
[multiple changes]
2014-02-25 Robert Dewar <dewar@adacore.com>
* errout.adb: Various changes for better msgs for anonmous access
subprogram types.
* erroutc.ads, erroutc.adb (Buffer_Ends_With): Version with character
argument.
(Buffer_Remove): Version with character argument.
* sem_attr.adb (Resolve_Attribute, case Access): Better handling
of mismatching conventions for access-to-subprogram case.
* sem_prag.adb (Set_Convention_From_Pragma): Deal with anonymous
access types in record.
* sem_util.ads, sem_util.adb (Set_Convention): Handle anonymous access
types, including in records.
2014-02-25 Doug Rupp <rupp@adacore.com>
* sigtramp-ppcvxw.c, sigtramp.h, sigtramp-armvxw.c: Comment
enhancements and corrections.
2014-02-25 Robert Dewar <dewar@adacore.com>
* gnat_rm.texi: New section "Conventions and Anonymous Access Types"
From-SVN: r208143
Diffstat (limited to 'gcc/ada/erroutc.ads')
| -rw-r--r-- | gcc/ada/erroutc.ads | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/gcc/ada/erroutc.ads b/gcc/ada/erroutc.ads index f938e9b..75bc208 100644 --- a/gcc/ada/erroutc.ads +++ b/gcc/ada/erroutc.ads @@ -344,12 +344,18 @@ package Erroutc is procedure Add_Class; -- Add 'Class to buffer for class wide type case (Class_Flag set) + function Buffer_Ends_With (C : Character) return Boolean; + -- Tests if message buffer ends with given character + function Buffer_Ends_With (S : String) return Boolean; -- Tests if message buffer ends with given string preceded by a space + procedure Buffer_Remove (C : Character); + -- Remove given character fron end of buffer if it is present + procedure Buffer_Remove (S : String); - -- Removes given string from end of buffer if it is present - -- at end of buffer, and preceded by a space. + -- Removes given string from end of buffer if it is present at end of + -- buffer, and preceded by a space. function Compilation_Errors return Boolean; -- Returns true if errors have been detected, or warnings in -gnatwe |