* 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

8 files changed, 73 insertions, 88 deletions

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 82bfc681a07..b7dccce0520 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2003-10-23  Nathanael Nerode  <neroden@gcc.gnu.org>
+
+	* adadecode.h, atree.h, elists.h, namet.h, nlists.h, raise.h,
+	stringt.h: Convert to ISO C90 declarations and definitions.
+
 2003-10-23  Thomas Quinot  <quinot@act-europe.fr>
 
 	PR ada/11978:
diff --git a/gcc/ada/adadecode.h b/gcc/ada/adadecode.h
index 9ba49fa8ee6..73d8f3e8137 100644
--- a/gcc/ada/adadecode.h
+++ b/gcc/ada/adadecode.h
@@ -42,9 +42,9 @@
    verbose information).
    VERBOSE is nonzero if more information about the entity is to be
    added at the end of the Ada name and surrounded by ( and ).  */
-extern void __gnat_decode PARAMS ((const char *, char *, int));
+extern void __gnat_decode (const char *, char *, int);
 
 /* ada_demangle is added for COMPATIBILITY ONLY. It has the name of the
    function used in the binutils and GDB. Always consider using __gnat_decode
    instead of ada_demangle. Caller must free the pointer returned.  */
-extern char *ada_demangle PARAMS ((const char *));
+extern char *ada_demangle (const char *);
diff --git a/gcc/ada/atree.h b/gcc/ada/atree.h
index c13ffbd5173..7397f4e816f 100644
--- a/gcc/ada/atree.h
+++ b/gcc/ada/atree.h
@@ -274,7 +274,7 @@ extern struct Node *Nodes_Ptr;
 
 
 #define Parent atree__parent
-extern Node_Id Parent PARAMS((Node_Id));
+extern Node_Id Parent (Node_Id);
 
 /* Overloaded Functions:
 
@@ -287,24 +287,22 @@ typedef Int Tree_Id;
 /* These two functions can only be used for Node_Id and List_Id values and
    they work in the C version because Empty = No_List = 0.  */
 
-static Boolean No	PARAMS ((Tree_Id));
-static Boolean Present	PARAMS ((Tree_Id));
+static Boolean No	(Tree_Id);
+static Boolean Present	(Tree_Id);
 
 INLINE Boolean
-No (N)
-     Tree_Id N;
+No (Tree_Id N)
 {
   return N == Empty;
 }
 
 INLINE Boolean
-Present (N)
-     Tree_Id N;
+Present (Tree_Id N)
 {
   return N != Empty;
 }
 
-extern Node_Id Parent		PARAMS((Tree_Id));
+extern Node_Id Parent		(Tree_Id);
 
 #define Current_Error_Node atree__current_error_node
 extern Node_Id Current_Error_Node;
diff --git a/gcc/ada/elists.h b/gcc/ada/elists.h
index 0a1ad06b1ee..9869f553f4f 100644
--- a/gcc/ada/elists.h
+++ b/gcc/ada/elists.h
@@ -56,36 +56,32 @@ extern struct Elmt_Item *Elmts_Ptr;
 
 /* Element List Access Functions:  */
 
-static Node_Id Node		PARAMS ((Elmt_Id));
-static Elmt_Id First_Elmt	PARAMS ((Elist_Id));
-static Elmt_Id Last_Elmt	PARAMS ((Elist_Id));
-static Elmt_Id Next_Elmt	PARAMS ((Elmt_Id));
-static Boolean Is_Empty_Elmt_List PARAMS ((Elist_Id));
+static Node_Id Node		(Elmt_Id);
+static Elmt_Id First_Elmt	(Elist_Id);
+static Elmt_Id Last_Elmt	(Elist_Id);
+static Elmt_Id Next_Elmt	(Elmt_Id);
+static Boolean Is_Empty_Elmt_List (Elist_Id);
 
 INLINE Node_Id
-Node (Elmt)
-     Elmt_Id Elmt;
+Node (Elmt_Id Elmt)
 {
   return Elmts_Ptr[Elmt - First_Elmt_Id].node;
 }
 
 INLINE Elmt_Id
-First_Elmt (List)
-     Elist_Id List;
+First_Elmt (Elist_Id List)
 {
   return Elists_Ptr[List - First_Elist_Id].first;
 }
 
 INLINE Elmt_Id
-Last_Elmt (List)
-     Elist_Id List;
+Last_Elmt (Elist_Id List)
 {
   return Elists_Ptr[List - First_Elist_Id].last;
 }
 
 INLINE Elmt_Id
-Next_Elmt (Node)
-     Elmt_Id Node;
+Next_Elmt (Elmt_Id Node)
 {
   Int N = Elmts_Ptr[Node - First_Elmt_Id].next;
 
@@ -96,8 +92,7 @@ Next_Elmt (Node)
 }
 
 INLINE Boolean
-Is_Empty_Elmt_List (Id)
-     Elist_Id Id;
+Is_Empty_Elmt_List (Elist_Id Id)
 {
   return Elists_Ptr[Id - First_Elist_Id].first == No_Elmt;
 }
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);
diff --git a/gcc/ada/nlists.h b/gcc/ada/nlists.h
index 7477d7445fe..72f462fae8d 100644
--- a/gcc/ada/nlists.h
+++ b/gcc/ada/nlists.h
@@ -56,84 +56,76 @@ extern Node_Id *Prev_Node_Ptr;
 
 /* Node List Access Functions */
 
-static Node_Id First PARAMS ((List_Id));
+static Node_Id First (List_Id);
 
 INLINE Node_Id
-First (List)
-     List_Id List;
+First (List_Id List)
 {
   return List_Headers_Ptr[List - First_List_Id].first;
 }
 
 #define First_Non_Pragma nlists__first_non_pragma
-extern Node_Id First_Non_Pragma PARAMS ((Node_Id));
+extern Node_Id First_Non_Pragma (Node_Id);
 
-static Node_Id Last PARAMS ((List_Id));
+static Node_Id Last (List_Id);
 
 INLINE Node_Id
-Last (List)
-     List_Id List;
+Last (List_Id List)
 {
   return List_Headers_Ptr[List - First_List_Id].last;
 }
 
 #define First_Non_Pragma nlists__first_non_pragma
-extern Node_Id First_Non_Pragma PARAMS ((List_Id));
+extern Node_Id First_Non_Pragma (List_Id);
 
-static Node_Id Next PARAMS ((Node_Id));
+static Node_Id Next (Node_Id);
 
 INLINE Node_Id
-Next (Node)
-     Node_Id Node;
+Next (Node_Id Node)
 {
   return Next_Node_Ptr[Node - First_Node_Id];
 }
 
 #define Next_Non_Pragma nlists__next_non_pragma
-extern Node_Id Next_Non_Pragma PARAMS ((List_Id));
+extern Node_Id Next_Non_Pragma (List_Id);
 
-static Node_Id Prev PARAMS ((Node_Id));
+static Node_Id Prev (Node_Id);
 
 INLINE Node_Id
-Prev (Node)
-     Node_Id Node;
+Prev (Node_Id Node)
 {
   return Prev_Node_Ptr[Node - First_Node_Id];
 }
 
 
 #define Prev_Non_Pragma nlists__prev_non_pragma
-extern Node_Id Prev_Non_Pragma		PARAMS ((Node_Id));
+extern Node_Id Prev_Non_Pragma		(Node_Id);
 
-static Boolean Is_Empty_List		PARAMS ((List_Id));
-static Boolean Is_Non_Empty_List	PARAMS ((List_Id));
-static Boolean Is_List_Member		PARAMS ((Node_Id));
-static List_Id List_Containing		PARAMS ((Node_Id));
+static Boolean Is_Empty_List		(List_Id);
+static Boolean Is_Non_Empty_List	(List_Id);
+static Boolean Is_List_Member		(Node_Id);
+static List_Id List_Containing		(Node_Id);
 
 INLINE Boolean
-Is_Empty_List (Id)
-     List_Id Id;
+Is_Empty_List (List_Id Id)
 {
   return (First (Id) == Empty);
 }
 
 INLINE Boolean
-Is_Non_Empty_List (Id)
-     List_Id Id;
+Is_Non_Empty_List (List_Id Id)
 {
   return (Present (Id) && First (Id) != Empty);
 }
 
 INLINE Boolean
-Is_List_Member (Node)
-     Node_Id Node;
+Is_List_Member (Node_Id Node)
 {
   return Nodes_Ptr[Node - First_Node_Id].U.K.in_list;
 }
 
 INLINE List_Id
-List_Containing (Node)
-     Node_Id Node;
+List_Containing (Node_Id Node)
 {
   return Nodes_Ptr[Node - First_Node_Id].V.NX.link;
 }
diff --git a/gcc/ada/raise.h b/gcc/ada/raise.h
index 8628ecbee0f..97df69aeac7 100644
--- a/gcc/ada/raise.h
+++ b/gcc/ada/raise.h
@@ -51,19 +51,19 @@ struct Exception_Occurrence
 
 typedef struct Exception_Occurrence *Exception_Occurrence_Access;
 
-extern void _gnat_builtin_longjmp	PARAMS ((void *, int));
-extern void __gnat_unhandled_terminate	PARAMS ((void));
-extern void *__gnat_malloc		PARAMS ((__SIZE_TYPE__));
-extern void __gnat_free			PARAMS ((void *));
-extern void *__gnat_realloc		PARAMS ((void *, __SIZE_TYPE__));
-extern void __gnat_finalize		PARAMS ((void));
-extern void set_gnat_exit_status	PARAMS ((int));
-extern void __gnat_set_globals		PARAMS ((int, int,
+extern void _gnat_builtin_longjmp	(void *, int);
+extern void __gnat_unhandled_terminate	(void);
+extern void *__gnat_malloc		(__SIZE_TYPE__);
+extern void __gnat_free			(void *);
+extern void *__gnat_realloc		(void *, __SIZE_TYPE__);
+extern void __gnat_finalize		(void);
+extern void set_gnat_exit_status	(int);
+extern void __gnat_set_globals		(int, int,
 						 char, char, char, char,
 						 char *, char *,
-						 int, int, int, int));
-extern void __gnat_initialize		PARAMS ((void));
-extern void __gnat_init_float		PARAMS ((void));
-extern void __gnat_install_handler	PARAMS ((void));
+						 int, int, int, int);
+extern void __gnat_initialize		(void);
+extern void __gnat_init_float		(void);
+extern void __gnat_install_handler	(void);
 
 extern int gnat_exit_status;
diff --git a/gcc/ada/stringt.h b/gcc/ada/stringt.h
index 68b02bdaebc..1260909ac30 100644
--- a/gcc/ada/stringt.h
+++ b/gcc/ada/stringt.h
@@ -64,11 +64,10 @@ extern Char_Code *String_Chars_Ptr;
 
 
 /* String_Length returns the length of the specified string.  */
-INLINE Int String_Length PARAMS ((String_Id));
+INLINE Int String_Length (String_Id);
 
 INLINE Int
-String_Length (Id)
-     String_Id Id;
+String_Length (String_Id Id)
 {
   return Strings_Ptr[Id - First_String_Id].Length;
 }
@@ -77,12 +76,10 @@ String_Length (Id)
 /* Get_String_Char obtains the specified character from a stored string.  The
    lower bound of stored strings is always 1, so the range of values is 1 to
    String_Length (Id).  */
-INLINE Char_Code Get_String_Char PARAMS ((String_Id, Int));
+INLINE Char_Code Get_String_Char (String_Id, Int);
 
 INLINE Char_Code
-Get_String_Char (Id, Index)
-     String_Id Id;
-     Int Index;
+Get_String_Char (String_Id Id, Int Index)
 {
   return
     String_Chars_Ptr