[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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index b98108741243b0c0b72e176394ee081538c5d7af..58642f6f87dae77574f4578057da0ebaf36dde9f 100644 (file)
--- 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 5c79d875601bb644bda58638eb56aa429b07d4d4..4b709659978c5c26937c32ea9b0e087114ca46a9 100644 (file)
--- 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 8476daca115dc2e69a9da4aadca60f309dc8b4e1..5b97d56be99a0a55513026d3da5e6c1aa79edcfc 100644 (file)
--- 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 981da86eac2bccdf7f9405cbbae1b0c920f22922..fc5acb6eddf4dc63488bc46ab3938db47bfda7b7 100644 (file)
--- 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 04a4eea8fb37268b0df5b3083ffebb58d3a4e3a3..2c9dc0636fc97fea62733d6590f2852a1e37fa0b 100644 (file)
--- 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;
 
    -----------------------