diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-16 12:58:48 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-16 12:58:48 +0200 |
commit | cbbdee52b817759ae074f31b1d6d863c52d48850 (patch) | |
tree | 0c3c43977175fca3a97d05a64d66b0186271513c /gcc/ada | |
parent | 7e8ed0a6e48698fd6c8eaf189f4b771c6ed2e08b (diff) | |
download | gcc-cbbdee52b817759ae074f31b1d6d863c52d48850.zip gcc-cbbdee52b817759ae074f31b1d6d863c52d48850.tar.gz gcc-cbbdee52b817759ae074f31b1d6d863c52d48850.tar.bz2 |
[multiple changes]
2009-04-16 Quentin Ochem <ochem@adacore.com>
* sinput-p.adb (Clear_Source_File_Table): Use Sinput.Initialize instead
of Source.Init.
2009-04-16 Eric Botcazou <ebotcazou@adacore.com>
* a-convec.ads (Is_Empty): Mark inline.
2009-04-16 Nicolas Roche <roche@adacore.com>
* init.c (__gnat_init_float): Initialize FPU on x86_64 windows
2009-04-16 Thomas Quinot <quinot@adacore.com>
* prepcomp.adb: Minor reformatting
From-SVN: r146170
Diffstat (limited to 'gcc/ada')
-rw-r--r-- | gcc/ada/ChangeLog | 17 | ||||
-rw-r--r-- | gcc/ada/a-convec.ads | 1 | ||||
-rw-r--r-- | gcc/ada/init.c | 2 | ||||
-rw-r--r-- | gcc/ada/prepcomp.adb | 5 | ||||
-rw-r--r-- | gcc/ada/sinput-p.adb | 2 |
5 files changed, 22 insertions, 5 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index b981087..58642f6 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,20 @@ +2009-04-16 Quentin Ochem <ochem@adacore.com> + + * sinput-p.adb (Clear_Source_File_Table): Use Sinput.Initialize instead + of Source.Init. + +2009-04-16 Eric Botcazou <ebotcazou@adacore.com> + + * a-convec.ads (Is_Empty): Mark inline. + +2009-04-16 Nicolas Roche <roche@adacore.com> + + * init.c (__gnat_init_float): Initialize FPU on x86_64 windows + +2009-04-16 Thomas Quinot <quinot@adacore.com> + + * prepcomp.adb: Minor reformatting + 2009-04-16 Jerome Lambourg <lambourg@adacore.com> * sem_prag.adb (Process_Import_Or_Interface): With .NET, diff --git a/gcc/ada/a-convec.ads b/gcc/ada/a-convec.ads index 5c79d87..4b70965 100644 --- a/gcc/ada/a-convec.ads +++ b/gcc/ada/a-convec.ads @@ -310,6 +310,7 @@ private pragma Inline (Query_Element); pragma Inline (Update_Element); pragma Inline (Replace_Element); + pragma Inline (Is_Empty); pragma Inline (Contains); pragma Inline (Next); pragma Inline (Previous); diff --git a/gcc/ada/init.c b/gcc/ada/init.c index 8476dac..5b97d56 100644 --- a/gcc/ada/init.c +++ b/gcc/ada/init.c @@ -2194,7 +2194,7 @@ __gnat_install_handler (void) void __gnat_init_float (void) { -#if defined (__i386__) || defined (i386) +#if defined (__i386__) || defined (i386) || defined (__x86_64) /* This is used to properly initialize the FPU on an x86 for each process thread. */ diff --git a/gcc/ada/prepcomp.adb b/gcc/ada/prepcomp.adb index 981da86..fc5acb6 100644 --- a/gcc/ada/prepcomp.adb +++ b/gcc/ada/prepcomp.adb @@ -122,8 +122,7 @@ package body Prepcomp is -- Table to store the dependencies on preprocessing files procedure Add_Command_Line_Symbols; - -- Add the command line symbol definitions, if any, to the - -- Prep.Mapping table. + -- Add the command line symbol definitions, if any, to Prep.Mapping table procedure Skip_To_End_Of_Line; -- Ignore errors and scan up to the next end of line or the end of file @@ -742,7 +741,7 @@ package body Prepcomp is Check_Command_Line_Symbol_Definition (Definition => Symbol_Definitions (Index).all, - Data => Symbol_Data); + Data => Symbol_Data); Found := False; -- If there is already a definition for this symbol, replace the old diff --git a/gcc/ada/sinput-p.adb b/gcc/ada/sinput-p.adb index 04a4eea..2c9dc06 100644 --- a/gcc/ada/sinput-p.adb +++ b/gcc/ada/sinput-p.adb @@ -89,7 +89,7 @@ package body Sinput.P is end loop; Source_File.Free; - Source_File.Init; + Sinput.Initialize; end Clear_Source_File_Table; ----------------------- |