[multiple changes]

2013-04-11  Robert Dewar  <dewar@adacore.com>

	* back_end.adb (Register_Back_End_Types): Moved to Get_Targ
	* back_end.ads (C_String): Moved to Get_Targ
	(Register_Type_Proc): Moved to Get_Targ (Register_Back_End_Types):
	Moved to Get_Targ.
	* cstand.adb (Register_Float_Type): New interface
	(Create_Back_End_Float_Types): Use entries in FPT_Mode_Table.
	* get_targ.adb (Register_Back_End_Types): Moved here from
	Back_End.
	* get_targ.ads (C_String): Moved here from Back_End
	(Register_Type_Proc): Moved here from Back_End
	(Register_Back_End_Types): here from Back_End.
	* gnat1drv.adb (GGnat11drv): Add call to
	Write_Target_Dependent_Values;
	* lib-writ.ads, lib-writ.adb (Write_ALI): Remove section writing
	obsolete target dependent info.
	* opt.ads (Generate_Target_Dependent_Info):
	Removed (Target_Dependent_Info_Read): New flag
	(Target_Dependent_Info_Write): New flag
	* output.adb: Minor comment change
	* s-os_lib.ads: Minor reformatting
	* set_targ.ads, set_targ.adb: Minor reformatting.
	* switch-c.adb (Scan_Switches.First_Ptr): New variable
	(Scan_Front_End_Switches): Check -gnatd.b, -gnateT come first
	(Scan_Front_End_Switches): Handle -gnatet, -gnateT
	* ttypes.ads: Remove documentation section on target dependent
	info in ali file Remove four letter codes, no longer used Instead
	of using Get_Targ.Get_xxx, we use Set_Targ.xxx
	* usage.adb: Add usage lines for -gnatet/-gnateT
	* gcc-interface/Make-lang.in: Update dependencies.

2013-04-11  Thomas Quinot  <quinot@adacore.com>

	* sem_ch4.adb: Update documentation.
	* sinfo.ads (N_Expression_With_Actions): Ditto.

2013-04-11  Hristian Kirtchev  <kirtchev@adacore.com>

	* sem_ch13.adb (Analyze_Aspect_Specifications):
	Add a guard to prevent the double insertion of the same aspect
	into a rep item list. This previously led to a circularity.

2013-04-11  Ed Schonberg  <schonberg@adacore.com>

	* sem_attr.adb (Eval_Attribute, case 'Access): Reject attribute
	reference if the prefix is the dereference of an anonymous access
	to subprogram type.
	* exp_attr.adb (Expand_N_Attribute_Reference, Access_Cases): Handle
	properly a reference to the current instance of a protected type
	from within a protected subprogram.
	* sem_res.adb (Find_Unique_Access_Type): Treat
	Attribute_Access_Type like Allocator_Type when resolving an
	equality operator.

From-SVN: r197791

1 files changed, 1 insertions, 89 deletions

diff --git a/gcc/ada/lib-writ.adb b/gcc/ada/lib-writ.adb
index 7f743e2..12664ee 100644
--- a/gcc/ada/lib-writ.adb
+++ b/gcc/ada/lib-writ.adb
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---          Copyright (C) 1992-2012, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2013, Free Software Foundation, Inc.         --
 --                                                                          --
 -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -49,7 +49,6 @@ with Sinput;   use Sinput;
 with Snames;   use Snames;
 with Stringt;  use Stringt;
 with Tbuild;   use Tbuild;
-with Ttypes;   use Ttypes;
 with Uname;    use Uname;
 
 with System.Case_Util; use System.Case_Util;
@@ -1441,93 +1440,6 @@ package body Lib.Writ is
          Output_Alfa;
       end if;
 
-      --  Output target dependent information if needed
-
-      if Generate_Target_Dependent_Info then
-         Gen_TDI : declare
-            subtype Str4 is String (1 .. 4);
-
-            procedure Gen_TDI_Bool (Code : Str4; Val : Boolean);
-            --  Generate T line for Bool value
-
-            procedure Gen_TDI_Nat (Code : Str4; Val : Int);
-            --  Generate T line for Pos or Nat value
-
-            ------------------
-            -- Gen_TDI_Bool --
-            ------------------
-
-            procedure Gen_TDI_Bool (Code : Str4; Val : Boolean) is
-            begin
-               Write_Info_Initiate ('T');
-               Write_Info_Char (' ');
-               Write_Info_Str (Code);
-
-               if Val then
-                  Write_Info_Str (" TRUE");
-               else
-                  Write_Info_Str (" FALSE");
-               end if;
-
-               Write_Info_EOL;
-            end Gen_TDI_Bool;
-
-            -----------------
-            -- Gen_TDI_Nat --
-            -----------------
-
-            procedure Gen_TDI_Nat (Code : Str4; Val : Int) is
-            begin
-               Write_Info_Initiate ('T');
-               Write_Info_Char (' ');
-               Write_Info_Str (Code);
-               Write_Info_Char (' ');
-               Write_Info_Nat (Val);
-
-               Write_Info_EOL;
-            end Gen_TDI_Nat;
-
-         --  Start of processing for Gen_TDI
-
-         begin
-            Gen_TDI_Nat  ("SINS", Standard_Short_Short_Integer_Size);
-            Gen_TDI_Nat  ("SINW", Standard_Short_Short_Integer_Width);
-            Gen_TDI_Nat  ("SHIS", Standard_Short_Integer_Size);
-            Gen_TDI_Nat  ("SHIW", Standard_Short_Integer_Width);
-            Gen_TDI_Nat  ("INTS", Standard_Integer_Size);
-            Gen_TDI_Nat  ("INTW", Standard_Integer_Width);
-            Gen_TDI_Nat  ("LINS", Standard_Long_Integer_Size);
-            Gen_TDI_Nat  ("LINW", Standard_Long_Integer_Width);
-            Gen_TDI_Nat  ("LLIS", Standard_Long_Long_Integer_Size);
-            Gen_TDI_Nat  ("LLIW", Standard_Long_Long_Integer_Width);
-            Gen_TDI_Nat  ("SFLS", Standard_Short_Float_Size);
-            Gen_TDI_Nat  ("SFLD", Standard_Short_Float_Digits);
-            Gen_TDI_Nat  ("FLTS", Standard_Float_Size);
-            Gen_TDI_Nat  ("FLTD", Standard_Float_Digits);
-            Gen_TDI_Nat  ("LFLS", Standard_Long_Float_Size);
-            Gen_TDI_Nat  ("LFLD", Standard_Long_Float_Digits);
-            Gen_TDI_Nat  ("LLFS", Standard_Long_Long_Float_Size);
-            Gen_TDI_Nat  ("LLFD", Standard_Long_Long_Float_Digits);
-            Gen_TDI_Nat  ("CHAS", Standard_Character_Size);
-            Gen_TDI_Nat  ("WCHS", Standard_Wide_Character_Size);
-            Gen_TDI_Nat  ("WWCS", Standard_Wide_Wide_Character_Size);
-            Gen_TDI_Nat  ("ADRS", System_Address_Size);
-            Gen_TDI_Nat  ("MBMP", System_Max_Binary_Modulus_Power);
-            Gen_TDI_Nat  ("MNMP", System_Max_Nonbinary_Modulus_Power);
-            Gen_TDI_Nat  ("SUNI", System_Storage_Unit);
-            Gen_TDI_Nat  ("WRDS", System_Word_Size);
-            Gen_TDI_Nat  ("TICK", System_Tick_Nanoseconds);
-            Gen_TDI_Nat  ("WCTS", Interfaces_Wchar_T_Size);
-            Gen_TDI_Nat  ("MAXA", Maximum_Alignment);
-            Gen_TDI_Nat  ("ALLA", System_Allocator_Alignment);
-            Gen_TDI_Nat  ("MUNF", Max_Unaligned_Field);
-            Gen_TDI_Bool ("BEND", Bytes_Big_Endian);
-            Gen_TDI_Bool ("STRA", Target_Strict_Alignment);
-            Gen_TDI_Nat  ("DFLA", Target_Double_Float_Alignment);
-            Gen_TDI_Nat  ("DSCA", Target_Double_Scalar_Alignment);
-         end Gen_TDI;
-      end if;
-
       --  Output final blank line and we are done. This final blank line is
       --  probably junk, but we don't feel like making an incompatible change!