* adadecode.h, atree.h, elists.h, namet.h, nlists.h, raise.h,

	stringt.h: Convert to ISO C90 declarations and definitions.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@72877 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 14 insertions, 16 deletions

diff --git a/gcc/ada/namet.h b/gcc/ada/namet.h
index 97c72cf0eb0..7fd1a1141b9 100644
--- a/gcc/ada/namet.h
+++ b/gcc/ada/namet.h
@@ -59,11 +59,10 @@ extern Int namet__name_len;
    strings we want are sitting in the name strings table in exactly the form
    we need them (null terminated), we just point to the name directly. */
 
-static char *Get_Name_String PARAMS ((Name_Id));
+static char *Get_Name_String (Name_Id);
 
 INLINE char *
-Get_Name_String (Id)
-     Name_Id Id;
+Get_Name_String (Name_Id Id)
 {
   return Name_Chars_Ptr + Names_Ptr[Id - First_Name_Id].Name_Chars_Index + 1;
 }
@@ -73,13 +72,12 @@ Get_Name_String (Id)
    wide characters are put back in their external form, and character literals
    are also returned in their external form (with surrounding apostrophes) */
 
-extern void namet__get_decoded_name_string PARAMS ((Name_Id));
+extern void namet__get_decoded_name_string (Name_Id);
 
-static char *Get_Decoded_Name_String PARAMS ((Name_Id));
+static char *Get_Decoded_Name_String (Name_Id);
 
 INLINE char *
-Get_Decoded_Name_String (Id)
-     Name_Id Id;
+Get_Decoded_Name_String (Name_Id Id)
 {
   namet__get_decoded_name_string (Id);
   Name_Buffer[Name_Len] = 0;
@@ -90,15 +88,15 @@ Get_Decoded_Name_String (Id)
    package body entity suffixes stripped, and also all letters are upper
    cased.  This is used fo rbuilding the enumeration literal table. */
 
-extern void casing__set_all_upper_case PARAMS ((void));
+extern void casing__set_all_upper_case (void);
 
 /* The following routines and variables are not part of Namet, but we
    include the header here since it seems the best place for it.  */
 
 #define Get_Encoded_Type_Name exp_dbug__get_encoded_type_name
-extern Boolean Get_Encoded_Type_Name PARAMS ((Entity_Id));
+extern Boolean Get_Encoded_Type_Name (Entity_Id);
 #define Get_Variant_Encoding exp_dbug__get_variant_encoding
-extern void Get_Variant_Encoding PARAMS ((Entity_Id));
+extern void Get_Variant_Encoding (Entity_Id);
 
 #define Spec_Context_List exp_dbug__spec_context_list
 #define Body_Context_List exp_dbug__body_context_list
@@ -108,7 +106,7 @@ extern char *Spec_Context_List, *Body_Context_List;
 extern char *Spec_Filename, *Body_Filename;
 
 #define Is_Non_Ada_Error exp_ch11__is_non_ada_error
-extern Boolean Is_Non_Ada_Error PARAMS ((Entity_Id));
+extern Boolean Is_Non_Ada_Error (Entity_Id);
 
 /* Here are some functions in sinput.adb we call from a-trans.c.  */
 typedef Nat Source_File_Index;
@@ -120,8 +118,8 @@ typedef Int Logical_Line_Number;
 #define Get_Source_File_Index sinput__get_source_file_index
 #define Get_Logical_Line_Number sinput__get_logical_line_number
 
-extern File_Name_Type Debug_Source_Name	PARAMS ((Source_File_Index));
-extern File_Name_Type Full_Debug_Name	PARAMS ((Source_File_Index));
-extern File_Name_Type Reference_Name	PARAMS ((Source_File_Index));
-extern Source_File_Index Get_Source_File_Index PARAMS ((Source_Ptr));
-extern Logical_Line_Number Get_Logical_Line_Number PARAMS ((Source_Ptr));
+extern File_Name_Type Debug_Source_Name	(Source_File_Index);
+extern File_Name_Type Full_Debug_Name	(Source_File_Index);
+extern File_Name_Type Reference_Name	(Source_File_Index);
+extern Source_File_Index Get_Source_File_Index (Source_Ptr);
+extern Logical_Line_Number Get_Logical_Line_Number (Source_Ptr);