From 38c1b9c7cc68f0403c4c36aa1121622f9711daaf Mon Sep 17 00:00:00 2001 From: charlet Date: Thu, 16 Apr 2009 10:58:48 +0000 Subject: [PATCH] 2009-04-16 Quentin Ochem * sinput-p.adb (Clear_Source_File_Table): Use Sinput.Initialize instead of Source.Init. 2009-04-16 Eric Botcazou * a-convec.ads (Is_Empty): Mark inline. 2009-04-16 Nicolas Roche * init.c (__gnat_init_float): Initialize FPU on x86_64 windows 2009-04-16 Thomas Quinot * prepcomp.adb: Minor reformatting git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146170 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/ChangeLog | 17 +++++++++++++++++ gcc/ada/a-convec.ads | 1 + gcc/ada/init.c | 2 +- gcc/ada/prepcomp.adb | 5 ++--- 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 + + * sinput-p.adb (Clear_Source_File_Table): Use Sinput.Initialize instead + of Source.Init. + +2009-04-16 Eric Botcazou + + * a-convec.ads (Is_Empty): Mark inline. + +2009-04-16 Nicolas Roche + + * init.c (__gnat_init_float): Initialize FPU on x86_64 windows + +2009-04-16 Thomas Quinot + + * prepcomp.adb: Minor reformatting + 2009-04-16 Jerome Lambourg * 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; ----------------------- -- 2.7.4