[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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index fa4fbdb6c4a00967175084ef438dd9817cf6e28b..66df48b0c9a8782d6145dd28fcf2ed3b79bbc2f4 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,18 @@
+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>
 
        * par_sco.adb, prj-proc.adb, make.adb, bindgen.adb, prj.adb, prj.ads,

diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb
index 53abc17c04c08e242ce69719a5ace8d3edafb890..1eab63c5de3ddace9b6f20c8e2b7fe81f5996c53 100644 (file)
--- a/gcc/ada/bindgen.adb
+++ b/gcc/ada/bindgen.adb
@@ -1241,9 +1241,9 @@ package body Bindgen is
 
                case VM_Target is
                   when No_VM | JVM_Target =>
-                     Set_String (" : Integer; pragma Import (Ada, ");
+                     Set_String (" : Short_Integer; pragma Import (Ada, ");
                   when CLI_Target =>
-                     Set_String (" : Integer; pragma Import (CIL, ");
+                     Set_String (" : Short_Integer; pragma Import (CIL, ");
                end case;
 
                Set_String ("E");
@@ -1320,7 +1320,7 @@ package body Bindgen is
                 (No_Run_Time_Mode
                   and then Is_Predefined_File_Name (U.Sfile))
             then
-               Set_String ("extern int ");
+               Set_String ("extern short int ");
                Get_Name_String (U.Uname);
                Set_Unit_Name;
                Set_String ("_E;");

diff --git a/gcc/ada/sem_elab.adb b/gcc/ada/sem_elab.adb
index d5d4ac3256d200ae9af69490bcd233aca63621e7..f96fbb950a17ee734ae575f307fb8fc318b8f3b1 100644 (file)
--- a/gcc/ada/sem_elab.adb
+++ b/gcc/ada/sem_elab.adb
@@ -2158,7 +2158,7 @@ package body Sem_Elab is
                     Make_Object_Declaration (Loce,
                       Defining_Identifier => Ent,
                       Object_Definition   =>
-                        New_Occurrence_Of (Standard_Integer, Loce),
+                        New_Occurrence_Of (Standard_Short_Integer, Loce),
                       Expression          =>
                         Make_Integer_Literal (Loc, Uint_0)));
 

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index 9948a61c3d23ff211ee95c8449f4fc47c7d23e10..07ada79096e4e4e9d79fb5132dcc69d77d1f0124 100644 (file)
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -954,7 +954,7 @@ package body Sem_Util is
       Name_Buffer (Name_Len + 2) := 'E';
       Name_Len := Name_Len + 2;
 
-      --  Create elaboration flag
+      --  Create elaboration counter
 
       Elab_Ent := Make_Defining_Identifier (Loc, Chars => Name_Find);
       Set_Elaboration_Entity (Spec_Id, Elab_Ent);
@@ -962,8 +962,10 @@ package body Sem_Util is
       Decl :=
         Make_Object_Declaration (Loc,
           Defining_Identifier => Elab_Ent,
-          Object_Definition   => New_Occurrence_Of (Standard_Integer, Loc),
-          Expression          => Make_Integer_Literal (Loc, Uint_0));
+          Object_Definition   =>
+            New_Occurrence_Of (Standard_Short_Integer, Loc),
+          Expression          =>
+            Make_Integer_Literal (Loc, Uint_0));
 
       Push_Scope (Standard_Standard);
       Add_Global_Declaration (Decl);

diff --git a/gcc/ada/system-vxworks-arm.ads b/gcc/ada/system-vxworks-arm.ads
index 2c144afb6cd05bc615bbfbff29f65c911ad132d1..7990959199d1c4b3c820f1688f124a7e27129f99 100644 (file)
--- a/gcc/ada/system-vxworks-arm.ads
+++ b/gcc/ada/system-vxworks-arm.ads
@@ -7,7 +7,7 @@
 --                                 S p e c                                  --
 --                          (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 --
 -- GNAT. The copyright notice above, and the license provisions that follow --
@@ -149,7 +149,7 @@ private
    Support_Composite_Assign  : constant Boolean := True;
    Support_Composite_Compare : 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;
    Use_Ada_Main_Program_Name : constant Boolean := True;
    ZCX_By_Default            : constant Boolean := False;

diff --git a/gcc/ada/system-vxworks-m68k.ads b/gcc/ada/system-vxworks-m68k.ads
index 83bb9656b946edd7bbbc61eccd8814716e2552ed..2e3cb20e009da5bcf8fc85e46e0e24eeb65ce3bd 100644 (file)
--- a/gcc/ada/system-vxworks-m68k.ads
+++ b/gcc/ada/system-vxworks-m68k.ads
@@ -7,7 +7,7 @@
 --                                 S p e c                                  --
 --                          (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 --
 -- GNAT. The copyright notice above, and the license provisions that follow --
@@ -149,7 +149,7 @@ private
    Support_Composite_Assign  : constant Boolean := True;
    Support_Composite_Compare : 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;
    Use_Ada_Main_Program_Name : constant Boolean := True;
    ZCX_By_Default            : constant Boolean := False;

diff --git a/gcc/ada/system-vxworks-mips.ads b/gcc/ada/system-vxworks-mips.ads
index 035e542cbaff856f7c8fa90df927581b2533e050..2741068361d3e7150ed72e5a97d6601ae6d966dc 100644 (file)
--- a/gcc/ada/system-vxworks-mips.ads
+++ b/gcc/ada/system-vxworks-mips.ads
@@ -7,7 +7,7 @@
 --                                 S p e c                                  --
 --                         (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 --
 -- GNAT. The copyright notice above, and the license provisions that follow --
@@ -149,7 +149,7 @@ private
    Support_Composite_Assign  : constant Boolean := True;
    Support_Composite_Compare : 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;
    Use_Ada_Main_Program_Name : constant Boolean := True;
    ZCX_By_Default            : constant Boolean := False;

diff --git a/gcc/ada/system-vxworks-ppc.ads b/gcc/ada/system-vxworks-ppc.ads
index 38a9def0f6ef9a7f3009b23d24e793fe314a18b1..c5c55145661e77aa5e7f4abdc2fdc74020f543c7 100644 (file)
--- a/gcc/ada/system-vxworks-ppc.ads
+++ b/gcc/ada/system-vxworks-ppc.ads
@@ -7,7 +7,7 @@
 --                                 S p e c                                  --
 --                    (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 --
 -- GNAT. The copyright notice above, and the license provisions that follow --
@@ -149,7 +149,7 @@ private
    Support_Composite_Assign  : constant Boolean := True;
    Support_Composite_Compare : 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;
    Use_Ada_Main_Program_Name : constant Boolean := True;
    ZCX_By_Default            : constant Boolean := False;

diff --git a/gcc/ada/system-vxworks-sparcv9.ads b/gcc/ada/system-vxworks-sparcv9.ads
index 5d15daa50a0cfbed43c9900e50626397f4f95dfa..c7207118fde8097eccb54696a5ecbdcff628111a 100644 (file)
--- a/gcc/ada/system-vxworks-sparcv9.ads
+++ b/gcc/ada/system-vxworks-sparcv9.ads
@@ -7,7 +7,7 @@
 --                                 S p e c                                  --
 --                       (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 --
 -- GNAT. The copyright notice above, and the license provisions that follow --
@@ -151,7 +151,7 @@ private
    Support_Composite_Assign  : constant Boolean := True;
    Support_Composite_Compare : 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;
    Use_Ada_Main_Program_Name : constant Boolean := True;
    ZCX_By_Default            : constant Boolean := False;

diff --git a/gcc/ada/system-vxworks-x86.ads b/gcc/ada/system-vxworks-x86.ads
index d028ca9103bf7a99a5e79dc7d020bdf71751c1d2..7780b4dd8164bed6a59bc967a5e53ebd36f6c526 100644 (file)
--- a/gcc/ada/system-vxworks-x86.ads
+++ b/gcc/ada/system-vxworks-x86.ads
@@ -7,7 +7,7 @@
 --                                 S p e c                                  --
 --                         (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 --
 -- GNAT. The copyright notice above, and the license provisions that follow --
@@ -149,7 +149,7 @@ private
    Support_Composite_Assign  : constant Boolean := True;
    Support_Composite_Compare : 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;
    Use_Ada_Main_Program_Name : constant Boolean := True;
    ZCX_By_Default            : constant Boolean := False;