Skip to content

R
riscv-gcc-1
Commit 01f0729a by Arnaud Charlet
Options

[multiple changes] 

2011-08-04  Eric Botcazou  <ebotcazou@adacore.com>

	* sem_elab.adb (Check_Internal_Call_Continue): Change the type of the
	elaboration counter to Standard_Short_Integer.
	* sem_util.adb (Build_Elaboration_Entity): Likewise.
	* bindgen.adb (Gen_Elab_Externals_Ada): Adjust to above change.
	(Gen_Elab_Externals_C): Likewise.

2011-08-04  Ed Falis  <falis@adacore.com>

	* system-vxworks-arm.ads, system-vxworks-sparcv9.ads,
	system-vxworks-ppc.ads, system-vxworks-m68k.ads,
	system-vxworks-mips.ads, system-vxworks-x86.ads
	(Always_Compatible_Rep): set to False for all VxWorks targets.

From-SVN: r177321
parent 2c1b72d7
Showing with 36 additions and 19 deletions
gcc/ada/ChangeLog
2011-08-04 Eric Botcazou <ebotcazou@adacore.com>
* sem_elab.adb (Check_Internal_Call_Continue): Change the type of the
elaboration counter to Standard_Short_Integer.
* sem_util.adb (Build_Elaboration_Entity): Likewise.
* bindgen.adb (Gen_Elab_Externals_Ada): Adjust to above change.
(Gen_Elab_Externals_C): Likewise.
2011-08-04 Ed Falis <falis@adacore.com>
* system-vxworks-arm.ads, system-vxworks-sparcv9.ads,
system-vxworks-ppc.ads, system-vxworks-m68k.ads,
system-vxworks-mips.ads, system-vxworks-x86.ads
(Always_Compatible_Rep): set to False for all VxWorks targets.
2011-08-04 Robert Dewar <dewar@adacore.com> 2011-08-04 Robert Dewar <dewar@adacore.com>
* par_sco.adb, prj-proc.adb, make.adb, bindgen.adb, prj.adb, prj.ads, * par_sco.adb, prj-proc.adb, make.adb, bindgen.adb, prj.adb, prj.ads,
......
gcc/ada/bindgen.adb
...@@ -1241,9 +1241,9 @@ package body Bindgen is ...@@ -1241,9 +1241,9 @@ package body Bindgen is
case VM_Target is case VM_Target is
when No_VM | JVM_Target => when No_VM | JVM_Target =>
Set_String (" : Integer; pragma Import (Ada, "); Set_String (" : Short_Integer; pragma Import (Ada, ");
when CLI_Target => when CLI_Target =>
Set_String (" : Integer; pragma Import (CIL, "); Set_String (" : Short_Integer; pragma Import (CIL, ");
end case; end case;
Set_String ("E"); Set_String ("E");
...@@ -1320,7 +1320,7 @@ package body Bindgen is ...@@ -1320,7 +1320,7 @@ package body Bindgen is
(No_Run_Time_Mode (No_Run_Time_Mode
and then Is_Predefined_File_Name (U.Sfile)) and then Is_Predefined_File_Name (U.Sfile))
then then
Set_String ("extern int "); Set_String ("extern short int ");
Get_Name_String (U.Uname); Get_Name_String (U.Uname);
Set_Unit_Name; Set_Unit_Name;
Set_String ("_E;"); Set_String ("_E;");
......
gcc/ada/sem_elab.adb
...@@ -2158,7 +2158,7 @@ package body Sem_Elab is ...@@ -2158,7 +2158,7 @@ package body Sem_Elab is
Make_Object_Declaration (Loce, Make_Object_Declaration (Loce,
Defining_Identifier => Ent, Defining_Identifier => Ent,
Object_Definition => Object_Definition =>
New_Occurrence_Of (Standard_Integer, Loce), New_Occurrence_Of (Standard_Short_Integer, Loce),
Expression => Expression =>
Make_Integer_Literal (Loc, Uint_0))); Make_Integer_Literal (Loc, Uint_0)));
......
gcc/ada/sem_util.adb
...@@ -954,7 +954,7 @@ package body Sem_Util is ...@@ -954,7 +954,7 @@ package body Sem_Util is
Name_Buffer (Name_Len + 2) := 'E'; Name_Buffer (Name_Len + 2) := 'E';
Name_Len := Name_Len + 2; Name_Len := Name_Len + 2;
-- Create elaboration flag -- Create elaboration counter
Elab_Ent := Make_Defining_Identifier (Loc, Chars => Name_Find); Elab_Ent := Make_Defining_Identifier (Loc, Chars => Name_Find);
Set_Elaboration_Entity (Spec_Id, Elab_Ent); Set_Elaboration_Entity (Spec_Id, Elab_Ent);
...@@ -962,8 +962,10 @@ package body Sem_Util is ...@@ -962,8 +962,10 @@ package body Sem_Util is
Decl := Decl :=
Make_Object_Declaration (Loc, Make_Object_Declaration (Loc,
Defining_Identifier => Elab_Ent, Defining_Identifier => Elab_Ent,
Object_Definition => New_Occurrence_Of (Standard_Integer, Loc), Object_Definition =>
Expression => Make_Integer_Literal (Loc, Uint_0)); New_Occurrence_Of (Standard_Short_Integer, Loc),
Expression =>
Make_Integer_Literal (Loc, Uint_0));
Push_Scope (Standard_Standard); Push_Scope (Standard_Standard);
Add_Global_Declaration (Decl); Add_Global_Declaration (Decl);
......
gcc/ada/system-vxworks-arm.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (VxWorks Version ARM) -- -- (VxWorks Version ARM) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, Free Software Foundation, Inc. --
-- -- -- --
-- This specification is derived from the Ada Reference Manual for use with -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
...@@ -149,7 +149,7 @@ private ...@@ -149,7 +149,7 @@ private
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;
Support_Long_Shifts : constant Boolean := True; Support_Long_Shifts : constant Boolean := True;
Always_Compatible_Rep : constant Boolean := True; Always_Compatible_Rep : constant Boolean := False;
Suppress_Standard_Library : constant Boolean := False; Suppress_Standard_Library : constant Boolean := False;
Use_Ada_Main_Program_Name : constant Boolean := True; Use_Ada_Main_Program_Name : constant Boolean := True;
ZCX_By_Default : constant Boolean := False; ZCX_By_Default : constant Boolean := False;
......
gcc/ada/system-vxworks-m68k.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (VxWorks version M68K) -- -- (VxWorks version M68K) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, Free Software Foundation, Inc. --
-- -- -- --
-- This specification is derived from the Ada Reference Manual for use with -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
...@@ -149,7 +149,7 @@ private ...@@ -149,7 +149,7 @@ private
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;
Support_Long_Shifts : constant Boolean := True; Support_Long_Shifts : constant Boolean := True;
Always_Compatible_Rep : constant Boolean := True; Always_Compatible_Rep : constant Boolean := False;
Suppress_Standard_Library : constant Boolean := False; Suppress_Standard_Library : constant Boolean := False;
Use_Ada_Main_Program_Name : constant Boolean := True; Use_Ada_Main_Program_Name : constant Boolean := True;
ZCX_By_Default : constant Boolean := False; ZCX_By_Default : constant Boolean := False;
......
gcc/ada/system-vxworks-mips.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (VxWorks Version Mips) -- -- (VxWorks Version Mips) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, Free Software Foundation, Inc. --
-- -- -- --
-- This specification is derived from the Ada Reference Manual for use with -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
...@@ -149,7 +149,7 @@ private ...@@ -149,7 +149,7 @@ private
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;
Support_Long_Shifts : constant Boolean := True; Support_Long_Shifts : constant Boolean := True;
Always_Compatible_Rep : constant Boolean := True; Always_Compatible_Rep : constant Boolean := False;
Suppress_Standard_Library : constant Boolean := False; Suppress_Standard_Library : constant Boolean := False;
Use_Ada_Main_Program_Name : constant Boolean := True; Use_Ada_Main_Program_Name : constant Boolean := True;
ZCX_By_Default : constant Boolean := False; ZCX_By_Default : constant Boolean := False;
......
gcc/ada/system-vxworks-ppc.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (VxWorks 5 and MILS Version PPC) -- -- (VxWorks 5 and MILS Version PPC) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, Free Software Foundation, Inc. --
-- -- -- --
-- This specification is derived from the Ada Reference Manual for use with -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
...@@ -149,7 +149,7 @@ private ...@@ -149,7 +149,7 @@ private
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;
Support_Long_Shifts : constant Boolean := True; Support_Long_Shifts : constant Boolean := True;
Always_Compatible_Rep : constant Boolean := True; Always_Compatible_Rep : constant Boolean := False;
Suppress_Standard_Library : constant Boolean := False; Suppress_Standard_Library : constant Boolean := False;
Use_Ada_Main_Program_Name : constant Boolean := True; Use_Ada_Main_Program_Name : constant Boolean := True;
ZCX_By_Default : constant Boolean := False; ZCX_By_Default : constant Boolean := False;
......
gcc/ada/system-vxworks-sparcv9.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (VxWorks Version Sparc/64) -- -- (VxWorks Version Sparc/64) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, Free Software Foundation, Inc. --
-- -- -- --
-- This specification is derived from the Ada Reference Manual for use with -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
...@@ -151,7 +151,7 @@ private ...@@ -151,7 +151,7 @@ private
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;
Support_Long_Shifts : constant Boolean := True; Support_Long_Shifts : constant Boolean := True;
Always_Compatible_Rep : constant Boolean := True; Always_Compatible_Rep : constant Boolean := False;
Suppress_Standard_Library : constant Boolean := False; Suppress_Standard_Library : constant Boolean := False;
Use_Ada_Main_Program_Name : constant Boolean := True; Use_Ada_Main_Program_Name : constant Boolean := True;
ZCX_By_Default : constant Boolean := False; ZCX_By_Default : constant Boolean := False;
......
gcc/ada/system-vxworks-x86.ads
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
-- S p e c -- -- S p e c --
-- (VxWorks 5 Version x86) -- -- (VxWorks 5 Version x86) --
-- -- -- --
-- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- -- Copyright (C) 1992-2011, Free Software Foundation, Inc. --
-- -- -- --
-- This specification is derived from the Ada Reference Manual for use with -- -- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow -- -- GNAT. The copyright notice above, and the license provisions that follow --
...@@ -149,7 +149,7 @@ private ...@@ -149,7 +149,7 @@ private
Support_Composite_Assign : constant Boolean := True; Support_Composite_Assign : constant Boolean := True;
Support_Composite_Compare : constant Boolean := True; Support_Composite_Compare : constant Boolean := True;
Support_Long_Shifts : constant Boolean := True; Support_Long_Shifts : constant Boolean := True;
Always_Compatible_Rep : constant Boolean := True; Always_Compatible_Rep : constant Boolean := False;
Suppress_Standard_Library : constant Boolean := False; Suppress_Standard_Library : constant Boolean := False;
Use_Ada_Main_Program_Name : constant Boolean := True; Use_Ada_Main_Program_Name : constant Boolean := True;
ZCX_By_Default : constant Boolean := False; ZCX_By_Default : constant Boolean := False;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment