OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[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
This commit is contained in:
Arnaud Charlet 2009-04-16 12:58:48 +02:00
parent 7e8ed0a6e4
commit cbbdee52b8
5 changed files with 22 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
gcc/ada/ChangeLog
View File

@ -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,

1
gcc/ada/a-convec.ads
View File

@ -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);

2
gcc/ada/init.c
View File

@ -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. */

5
gcc/ada/prepcomp.adb
View File

@ -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

2
gcc/ada/sinput-p.adb
View File

@ -89,7 +89,7 @@ package body Sinput.P is
end loop;
Source_File.Free;
Source_File.Init;
Sinput.Initialize;
end Clear_Source_File_Table;
-----------------------