diff options
| author | mmitchel <mmitchel@138bc75d-0d04-0410-961f-82ee72b054a4> | 2000-06-09 16:45:22 +0000 |
|---|---|---|
| committer | mmitchel <mmitchel@138bc75d-0d04-0410-961f-82ee72b054a4> | 2000-06-09 16:45:22 +0000 |
| commit | 84ea6a1d7bdaf1bd064d138778e4c55f835d4330 (patch) | |
| tree | a7878064b86490342a42feec445bf7c14735f6aa /gcc/cp/mangle.c | |
| parent | 5b66ee2b7f8493d3e3e822682432df216a42e099 (diff) | |
| download | ppe42-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.c | 62 |
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); |

