diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-05 12:07:35 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-05 12:07:35 +0200 |
| commit | 96d2756f41a4a5f90fa8c302e38be5e35761d14b (patch) | |
| tree | 0fa2829f8d8a8f4fb45ed1d55d449fa99eaed70b /gcc/ada/a-direct.adb | |
| parent | 610ef7c0f9b816601f89d3483ef9824da717c0e3 (diff) | |
| download | gcc-96d2756f41a4a5f90fa8c302e38be5e35761d14b.zip gcc-96d2756f41a4a5f90fa8c302e38be5e35761d14b.tar.gz gcc-96d2756f41a4a5f90fa8c302e38be5e35761d14b.tar.bz2 | |
[multiple changes]
2010-10-05 Ed Schonberg <schonberg@adacore.com>
* sem_res.adb (Check_Parameterless_Call): If the prefix of 'Address is
an explicit dereference of an access to function, the prefix is not
interpreted as a parameterless call.
2010-10-05 Ed Schonberg <schonberg@adacore.com>
* exp_attr.adb: For 'Read and 'Write, use full view of base type if
private.
2010-10-05 Vincent Celier <celier@adacore.com>
* make.adb (Switches_Of): Allow wild cards in index of attributes
Switches.
* prj-util.adb (Value_Of): When Allow_Wildcards is True, use the index
of the associative array as a glob regular expression.
* prj-util.ads (Value_Of (Index, In_Array)): New Boolean parameter
Allow_Wildcards, defaulted to False.
(Value_Of (Name, Attribute_Or_Array_Name)): Ditto
* projects.texi: Document that attribute Switches (<file name>) may
use wild cards in the index.
2010-10-05 Robert Dewar <dewar@adacore.com>
* a-direct.adb, a-direct.ads, back_end.adb, checks.adb,
einfo.adb: Minor reformatting.
* debug.adb: Remove obsolete documentation for d.Z flag.
From-SVN: r164978
Diffstat (limited to 'gcc/ada/a-direct.adb')
| -rw-r--r-- | gcc/ada/a-direct.adb | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/gcc/ada/a-direct.adb b/gcc/ada/a-direct.adb index c2c19d9..e4a2697 100644 --- a/gcc/ada/a-direct.adb +++ b/gcc/ada/a-direct.adb @@ -39,11 +39,10 @@ with Ada.Unchecked_Conversion; with Ada.Unchecked_Deallocation; with Ada.Characters.Handling; use Ada.Characters.Handling; -with System.CRTL; use System.CRTL; -with System.OS_Lib; use System.OS_Lib; -with System.Regexp; use System.Regexp; -with System.File_IO; use System.File_IO; - +with System.CRTL; use System.CRTL; +with System.OS_Lib; use System.OS_Lib; +with System.Regexp; use System.Regexp; +with System.File_IO; use System.File_IO; with System; package body Ada.Directories is @@ -302,8 +301,7 @@ package body Ada.Directories is Target_Name : String; Form : String := "") is - Success : Boolean; - + Success : Boolean; Mode : Copy_Mode := Overwrite; Preserve : Attribute := None; @@ -331,7 +329,6 @@ package body Ada.Directories is V1, V2 : Natural; begin - -- Acquire form string, setting required NUL terminator Formstr (1 .. Form'Length) := Form; |