diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-10-30 14:58:19 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-10-30 14:58:19 +0100 |
| commit | 6528a7ede69259e73a6a560cec80d4278b89007e (patch) | |
| tree | c558e86b253a79fb4eef0c8ec6e7c54be0810742 /gcc/ada/osint.adb | |
| parent | cafdbd2e9d68402e124f8c345d2524f2b0bb0051 (diff) | |
| download | gcc-6528a7ede69259e73a6a560cec80d4278b89007e.zip gcc-6528a7ede69259e73a6a560cec80d4278b89007e.tar.gz gcc-6528a7ede69259e73a6a560cec80d4278b89007e.tar.bz2 | |
[multiple changes]
2009-10-30 Emmanuel Briot <briot@adacore.com>
* make.adb (Start_Compile_If_Possible): Compute location of resulting
ALI file in this procedure instead of after the compilation itself,
since the current directory might have changed in between when using
-j<n>.
* osint.ads: Addded missing alignment clause.
* adaint.c, adaint.h, osint.adb (__gnat_reset_attributes,
__gnat_size_of_file_attributes): Rename reset_attributes and
size_of_file_attributes.
2009-10-30 Javier Miranda <miranda@adacore.com>
* sem_scil.adb (Adjust_SCIL_Node): Add missing management of sequences
of statements when searching for SCIL nodes.
2009-10-30 Tristan Gingold <gingold@adacore.com>
* gnatlink.adb, link.c: By default use shared libgcc on darwin.
From-SVN: r153749
Diffstat (limited to 'gcc/ada/osint.adb')
| -rw-r--r-- | gcc/ada/osint.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/osint.adb b/gcc/ada/osint.adb index 0c95ff1..1b1f508 100644 --- a/gcc/ada/osint.adb +++ b/gcc/ada/osint.adb @@ -3197,7 +3197,7 @@ package body Osint is ---------------------------- procedure Reset_File_Attributes (Attr : System.Address); - pragma Import (C, Reset_File_Attributes, "reset_attributes"); + pragma Import (C, Reset_File_Attributes, "__gnat_reset_attributes"); begin Initialization : declare @@ -3216,7 +3216,7 @@ begin Sizeof_File_Attributes : Integer; pragma Import (C, Sizeof_File_Attributes, - "size_of_file_attributes"); + "__gnat_size_of_file_attributes"); begin pragma Assert (Sizeof_File_Attributes <= File_Attributes_Size); |