* *
* C Header File *
* *
- * $Revision: 1.1 $
- * *
- * Copyright (C) 1992-2001 Free Software Foundation, Inc. *
+ * Copyright (C) 1992-2008, 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- *
- * ware Foundation; either version 2, or (at your option) any later ver- *
+ * ware Foundation; either version 3, or (at your option) any later ver- *
* sion. GNAT is distributed in the hope that it will be useful, but WITH- *
* OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY *
* or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License *
* for more details. You should have received a copy of the GNU General *
- * Public License distributed with GNAT; see file COPYING. If not, write *
- * to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, *
- * MA 02111-1307, USA. *
+ * Public License distributed with GNAT; see file COPYING3. If not, go to *
+ * http://www.gnu.org/licenses for a complete copy of the license. *
* *
* GNAT was originally developed by the GNAT team at New York University. *
- * It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). *
+ * Extensive contributions were provided by Ada Core Technologies Inc. *
* *
****************************************************************************/
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;
+ return Name_Chars_Ptr + Names_Ptr[Id - First_Name_Id].Name_Chars_Index + 1;
}
/* Get_Decoded_Name_String returns a null terminated C string in the same
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;
+ Name_Buffer[Name_Len] = 0;
return Name_Buffer;
}
/* Like Get_Decoded_Name_String, but the result has all qualification and
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 namet__get_unqualified_decoded_name_string PARAMS ((Name_Id));
+ cased. This is used for building the enumeration literal table. */
-static char *Get_Upper_Decoded_Name_String PARAMS ((Name_Id));
-
-INLINE char *
-Get_Upper_Decoded_Name_String (Id)
- Name_Id Id;
-{
- namet__get_unqualified_decoded_name_string (Id);
- if (Name_Buffer [0] != '\'')
- casing__set_all_upper_case ();
- Name_Buffer [Name_Len] = 0;
- return Name_Buffer;
-}
+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
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;
typedef Int Logical_Line_Number;
+typedef Int Column_Number;
#define Debug_Source_Name sinput__debug_source_name
+#define Full_Debug_Name sinput__full_debug_name
#define Reference_Name sinput__reference_name
#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 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));
+#define Get_Column_Number sinput__get_column_number
+#define Instantiation sinput__instantiation
+
+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);
+extern Column_Number Get_Column_Number (Source_Ptr);
+extern Source_Ptr Instantiation (Source_File_Index);