summaryrefslogtreecommitdiffstats
path: root/gcc/cp/mangle.c
diff options
context:
space:
mode:
authormmitchel <mmitchel@138bc75d-0d04-0410-961f-82ee72b054a4>2000-06-09 16:45:22 +0000
committermmitchel <mmitchel@138bc75d-0d04-0410-961f-82ee72b054a4>2000-06-09 16:45:22 +0000
commit84ea6a1d7bdaf1bd064d138778e4c55f835d4330 (patch)
treea7878064b86490342a42feec445bf7c14735f6aa /gcc/cp/mangle.c
parent5b66ee2b7f8493d3e3e822682432df216a42e099 (diff)
downloadppe42-gcc-84ea6a1d7bdaf1bd064d138778e4c55f835d4330.tar.gz
ppe42-gcc-84ea6a1d7bdaf1bd064d138778e4c55f835d4330.zip
Revert last patch
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@34474 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/cp/mangle.c')
-rw-r--r--gcc/cp/mangle.c62
1 files changed, 8 insertions, 54 deletions
diff --git a/gcc/cp/mangle.c b/gcc/cp/mangle.c
index ff94433c4c7..2bba09f518b 100644
--- a/gcc/cp/mangle.c
+++ b/gcc/cp/mangle.c
@@ -120,7 +120,7 @@ static tree subst_identifiers[SUBID_MAX];
/* Single-letter codes for builtin integer types, defined in
<builtin-type>. These are indexed by integer_type_kind values. */
-static const char
+static char
integer_type_codes[itk_none] =
{
'c', /* itk_char */
@@ -136,21 +136,6 @@ integer_type_codes[itk_none] =
'y' /* itk_unsigned_long_long */
};
-/* Manglings for the various builtin Java types. */
-
-static const char *
-java_fundamental_type_codes[jtk_last] =
-{
- "jb", /* jtk_byte */
- "js", /* jtk_short */
- "ji", /* jtk_int */
- "jl", /* jtk_long */
- "jf", /* jtk_float */
- "jd", /* jtk_double */
- "jc", /* jtk_char */
- "jt" /* jtk_boolean */
-};
-
/* Functions for handling substitutions. */
static inline tree canonicalize_for_substitution PARAMS ((tree));
@@ -171,11 +156,10 @@ static void write_prefix PARAMS ((tree));
static void write_template_prefix PARAMS ((tree));
static void write_component PARAMS ((tree));
static void write_unqualified_name PARAMS ((tree));
-static void write_source_name_from_string PARAMS ((const char *));
static void write_source_name PARAMS ((tree));
static void write_number PARAMS ((int, int));
static void write_integer_cst PARAMS ((tree));
-static void write_identifier PARAMS ((const char *));
+static void write_identifier PARAMS ((char *));
static void write_special_name_constructor PARAMS ((tree));
static void write_special_name_destructor PARAMS ((tree));
static void write_type PARAMS ((tree));
@@ -914,18 +898,6 @@ write_unqualified_name (decl)
write_source_name (DECL_NAME (decl));
}
-/* Non-termial <source-name>. NAME is a NTBS.
-
- <source-name> ::= </length/ number> <identifier> */
-
-static void
-write_source_name_from_string (name)
- const char *name;
-{
- write_number (strlen (name), 10);
- write_identifier (name);
-}
-
/* Non-termial <source-name>. IDENTIFIER is an IDENTIFIER_NODE.
<source-name> ::= </length/ number> <identifier> */
@@ -997,7 +969,7 @@ write_integer_cst (cst)
static void
write_identifier (identifier)
- const char *identifier;
+ char *identifier;
{
MANGLE_TRACE ("identifier", identifier);
write_string (identifier);
@@ -1335,24 +1307,6 @@ static void
write_builtin_type (type)
tree type;
{
- /* If this is a Java type, mangle it specially, as a vendor
- extension. */
- if (TYPE_FOR_JAVA (type))
- {
- java_fundamental_type_kind jtk;
-
- for (jtk = jtk_first; jtk < jtk_last; ++jtk)
- if (same_type_p (type, java_fundamental_types[jtk]))
- {
- /* The `u' indicates a vendor extension. */
- write_char ('u');
- write_source_name_from_string (java_fundamental_type_codes[jtk]);
- return;
- }
-
- my_friendly_abort (20000609);
- }
-
switch (TREE_CODE (type))
{
case VOID_TYPE:
@@ -1370,7 +1324,7 @@ write_builtin_type (type)
/* TYPE may still be wchar_t, since that isn't in
integer_type_nodes. */
- if (same_type_p (type, wchar_type_node))
+ if (type == wchar_type_node)
write_char ('w');
else
{
@@ -1378,7 +1332,7 @@ write_builtin_type (type)
/* Assume TYPE is one of the shared integer type nodes. Find
it in the array of these nodes. */
for (itk = 0; itk < itk_none; ++itk)
- if (same_type_p (type, integer_types[itk]))
+ if (type == integer_types[itk])
{
/* Print the corresponding single-letter code. */
write_char (integer_type_codes[itk]);
@@ -1392,11 +1346,11 @@ write_builtin_type (type)
break;
case REAL_TYPE:
- if (same_type_p (type, float_type_node))
+ if (type == float_type_node)
write_char ('f');
- else if (same_type_p (type, double_type_node))
+ else if (type == double_type_node)
write_char ('d');
- else if (same_type_p (type, long_double_type_node))
+ else if (type == long_double_type_node)
write_char ('e');
else
my_friendly_abort (20000409);
OpenPOWER on IntegriCloud