Lines Matching refs:pp_string
347 pp_string (pp, " -- arg-macro: "); in print_ada_macros()
354 pp_string (pp, "function "); in print_ada_macros()
358 pp_string (pp, "procedure "); in print_ada_macros()
361 pp_string (pp, (const char *) NODE_NAME (node)); in print_ada_macros()
363 pp_string (pp, (char *) params); in print_ada_macros()
365 pp_string (pp, " -- "); in print_ada_macros()
369 pp_string (pp, "return "); in print_ada_macros()
370 pp_string (pp, start); in print_ada_macros()
374 pp_string (pp, start); in print_ada_macros()
388 pp_string (pp, " "); in print_ada_macros()
390 pp_string (pp, ada_name); in print_ada_macros()
392 pp_string (pp, " : "); in print_ada_macros()
395 pp_string (pp, "aliased constant String"); in print_ada_macros()
397 pp_string (pp, "aliased constant Character"); in print_ada_macros()
399 pp_string (pp, "constant"); in print_ada_macros()
401 pp_string (pp, " := "); in print_ada_macros()
402 pp_string (pp, (char *) s); in print_ada_macros()
405 pp_string (pp, " & ASCII.NUL"); in print_ada_macros()
407 pp_string (pp, "; -- "); in print_ada_macros()
408 pp_string (pp, sloc.file); in print_ada_macros()
415 pp_string (pp, " -- unsupported macro: "); in print_ada_macros()
416 pp_string (pp, (const char *) cpp_macro_definition (parse_in, node)); in print_ada_macros()
703 pp_string (pp, " --"); in print_comment()
704 pp_string (pp, tok); in print_comment()
1222 pp_string (buffer, s1); in pp_ada_tree_identifier()
1234 pp_string (buffer, "Class_"); in pp_ada_tree_identifier()
1235 pp_string (buffer, s); in pp_ada_tree_identifier()
1236 pp_string (buffer, "."); in pp_ada_tree_identifier()
1245 pp_string (buffer, "short"); in pp_ada_tree_identifier()
1247 pp_string (buffer, "unsigned_short"); in pp_ada_tree_identifier()
1249 pp_string (buffer, "unsigned"); in pp_ada_tree_identifier()
1251 pp_string (buffer, "long"); in pp_ada_tree_identifier()
1253 pp_string (buffer, "unsigned_long"); in pp_ada_tree_identifier()
1255 pp_string (buffer, "Long_Long_Integer"); in pp_ada_tree_identifier()
1261 pp_string (buffer, "Extensions.unsigned_long_long"); in pp_ada_tree_identifier()
1264 pp_string (buffer, "unsigned_long_long"); in pp_ada_tree_identifier()
1267 pp_string(buffer, s); in pp_ada_tree_identifier()
1274 pp_string (buffer, "Extensions.bool"); in pp_ada_tree_identifier()
1277 pp_string (buffer, "bool"); in pp_ada_tree_identifier()
1280 pp_string(buffer, s); in pp_ada_tree_identifier()
1303 pp_string (buffer, ada_name); in pp_asm_name()
1321 pp_string (buffer, "anon"); in dump_ada_decl_name()
1341 pp_string (buffer, "anon"); in dump_ada_double_name()
1351 pp_string (buffer, "anon"); in dump_ada_double_name()
1355 pp_string (buffer, s); in dump_ada_double_name()
1368 pp_string (buffer, "pragma Import (Stdcall, "); in dump_ada_import()
1370 pp_string (buffer, "pragma Import (CPP, "); in dump_ada_import()
1372 pp_string (buffer, "pragma Import (C, "); in dump_ada_import()
1375 pp_string (buffer, ", \""); in dump_ada_import()
1378 pp_string (buffer, IDENTIFIER_POINTER (DECL_NAME (t))); in dump_ada_import()
1382 pp_string (buffer, "\");"); in dump_ada_import()
1409 pp_string (buffer, "the_"); in check_name()
1489 pp_string (buffer, " : "); in dump_ada_function_declaration()
1494 pp_string (buffer, buf); in dump_ada_function_declaration()
1503 pp_string (buffer, buf); in dump_ada_function_declaration()
1513 pp_string (buffer, "'Class"); in dump_ada_function_declaration()
1531 pp_string (buffer, " -- , ..."); in dump_ada_function_declaration()
1559 pp_string (buffer, ", "); in dump_ada_array_domains()
1564 pp_string (buffer, " .. "); in dump_ada_array_domains()
1571 pp_string (buffer, "0"); in dump_ada_array_domains()
1574 pp_string (buffer, "size_t"); in dump_ada_array_domains()
1595 pp_string (buffer, xloc.file); in dump_sloc()
1596 pp_string (buffer, ":"); in dump_sloc()
1635 pp_string (buffer, "Interfaces.C.char_array "); in dump_ada_array_type()
1638 pp_string (buffer, "array "); in dump_ada_array_type()
1651 pp_string (buffer, " of "); in dump_ada_array_type()
1654 pp_string (buffer, "aliased "); in dump_ada_array_type()
1679 pp_string (buffer, "unknown"); in dump_template_types()
1710 pp_string (buffer, "package "); in dump_ada_template()
1714 pp_string (buffer, " is"); in dump_ada_template()
1719 pp_string (buffer, "type "); in dump_ada_template()
1724 pp_string (buffer, " is tagged limited "); in dump_ada_template()
1726 pp_string (buffer, " is limited "); in dump_ada_template()
1733 pp_string (buffer, "end;"); in dump_ada_template()
1735 pp_string (buffer, "use "); in dump_ada_template()
1797 pp_string (buffer, "<<< error >>>"); in dump_generic_ada_node()
1805 pp_string (buffer, "--- unexpected node: TREE_LIST"); in dump_generic_ada_node()
1814 pp_string (buffer, "--- unexpected node: TREE_VEC"); in dump_generic_ada_node()
1821 pp_string (buffer, "System.Address"); in dump_generic_ada_node()
1824 pp_string (buffer, "address"); in dump_generic_ada_node()
1828 pp_string (buffer, "<vector>"); in dump_generic_ada_node()
1832 pp_string (buffer, "<complex>"); in dump_generic_ada_node()
1848 pp_string (buffer, "("); in dump_generic_ada_node()
1855 pp_string (buffer, ","); in dump_generic_ada_node()
1862 pp_string (buffer, ");"); in dump_generic_ada_node()
1865 pp_string (buffer, "pragma Convention (C, "); in dump_generic_ada_node()
1869 pp_string (buffer, ")"); in dump_generic_ada_node()
1873 pp_string (buffer, "unsigned"); in dump_generic_ada_node()
1881 pp_string (buffer, " : constant "); in dump_generic_ada_node()
1887 pp_string (buffer, " := "); in dump_generic_ada_node()
1913 pp_string (buffer, "<unnamed type decl>"); in dump_generic_ada_node()
1926 pp_string (buffer, "<unnamed type>"); in dump_generic_ada_node()
1934 pp_string (buffer, "Extensions.Unsigned_1"); in dump_generic_ada_node()
1937 pp_string (buffer, (TYPE_UNSIGNED (node) in dump_generic_ada_node()
1944 pp_string (buffer, "<unnamed type>"); in dump_generic_ada_node()
1960 pp_string (buffer, "access procedure"); in dump_generic_ada_node()
1965 pp_string (buffer, "access function"); in dump_generic_ada_node()
1975 pp_string (buffer, " return "); in dump_generic_ada_node()
1992 pp_string (buffer, "new "); in dump_generic_ada_node()
1996 pp_string (buffer, "System.Address"); in dump_generic_ada_node()
1999 pp_string (buffer, "address"); in dump_generic_ada_node()
2010 pp_string (buffer, "new "); in dump_generic_ada_node()
2014 pp_string (buffer, "Interfaces.C.Strings.chars_ptr"); in dump_generic_ada_node()
2018 pp_string (buffer, "chars_ptr"); in dump_generic_ada_node()
2058 pp_string (buffer, "new "); in dump_generic_ada_node()
2059 pp_string (buffer, "System.Address"); in dump_generic_ada_node()
2062 pp_string (buffer, "address"); in dump_generic_ada_node()
2067 pp_string (buffer, "access"); in dump_generic_ada_node()
2072 pp_string (buffer, "access "); in dump_generic_ada_node()
2076 pp_string (buffer, "constant "); in dump_generic_ada_node()
2078 pp_string (buffer, "all "); in dump_generic_ada_node()
2081 pp_string (buffer, "in "); in dump_generic_ada_node()
2085 pp_string (buffer, "access "); in dump_generic_ada_node()
2090 pp_string (buffer, "access "); in dump_generic_ada_node()
2097 pp_string (buffer, "access "); in dump_generic_ada_node()
2100 pp_string (buffer, "all "); in dump_generic_ada_node()
2137 pp_string (buffer, "anon_"); in dump_generic_ada_node()
2150 pp_string (buffer, "B"); /* pseudo-unit */ in dump_generic_ada_node()
2167 pp_string (buffer, pp_buffer (buffer)->digit_buffer); in dump_generic_ada_node()
2197 pp_string (buffer, "System.Address"); in dump_generic_ada_node()
2200 pp_string (buffer, "address"); in dump_generic_ada_node()
2221 pp_string (buffer, "limited new "); in dump_generic_ada_node()
2225 pp_string (buffer, " and "); in dump_generic_ada_node()
2232 pp_string (buffer, first ? "tagged limited " : " with "); in dump_generic_ada_node()
2236 pp_string (buffer, "limited "); in dump_generic_ada_node()
2309 pp_string (buffer, "type "); in dump_nested_types()
2352 pp_string (buffer, "type "); in dump_nested_types()
2367 pp_string (buffer, "sub"); in dump_nested_types()
2369 pp_string (buffer, "type "); in dump_nested_types()
2380 pp_string (buffer, "type "); in dump_nested_types()
2387 pp_string (buffer, " (discr : unsigned := 0) is "); in dump_nested_types()
2391 pp_string (buffer, "pragma Convention (C_Pass_By_Copy, "); in dump_nested_types()
2395 pp_string (buffer, ");"); in dump_nested_types()
2398 pp_string (buffer, "pragma Unchecked_Union ("); in dump_nested_types()
2402 pp_string (buffer, ");"); in dump_nested_types()
2411 pp_string (buffer, "pragma Convention (C_Pass_By_Copy, "); in dump_nested_types()
2415 pp_string (buffer, "pragma Unchecked_Union ("); in dump_nested_types()
2425 pp_string (buffer, "type "); in dump_nested_types()
2434 pp_string (buffer, "type "); in dump_nested_types()
2441 pp_string (buffer, " is "); in dump_nested_types()
2444 pp_string (buffer, "pragma Convention (C_Pass_By_Copy, "); in dump_nested_types()
2448 pp_string (buffer, ");"); in dump_nested_types()
2456 pp_string (buffer, "pragma Convention (C_Pass_By_Copy, "); in dump_nested_types()
2485 pp_string (buffer, "Delete_"); in print_destructor()
2546 pp_string (buffer, "-- skipped empty struct "); in print_ada_declaration()
2556 pp_string (buffer, "subtype "); in print_ada_declaration()
2558 pp_string (buffer, " is "); in print_ada_declaration()
2618 pp_string (buffer, "-- skipped empty struct "); in print_ada_declaration()
2627 pp_string (buffer, "-- skipped anonymous struct "); in print_ada_declaration()
2634 pp_string (buffer, "subtype "); in print_ada_declaration()
2642 pp_string (buffer, "package Class_"); in print_ada_declaration()
2645 pp_string (buffer, " is"); in print_ada_declaration()
2650 pp_string (buffer, "type "); in print_ada_declaration()
2659 pp_string (buffer, "subtype "); in print_ada_declaration()
2661 pp_string (buffer, "type "); in print_ada_declaration()
2665 pp_string (buffer, "-- skipped function type "); in print_ada_declaration()
2673 pp_string (buffer, "subtype "); in print_ada_declaration()
2675 pp_string (buffer, "type "); in print_ada_declaration()
2679 pp_string (buffer, "subtype "); in print_ada_declaration()
2705 pp_string (buffer, " is "); in print_ada_declaration()
2721 pp_string (buffer, " : "); in print_ada_declaration()
2727 pp_string (buffer, "aliased "); in print_ada_declaration()
2733 pp_string (buffer, "aliased "); in print_ada_declaration()
2783 pp_string (buffer, "-- skipped func "); in print_ada_declaration()
2784 pp_string (buffer, IDENTIFIER_POINTER (decl_name)); in print_ada_declaration()
2792 pp_string (buffer, "function New_"); in print_ada_declaration()
2796 pp_string (buffer, "procedure "); in print_ada_declaration()
2799 pp_string (buffer, "function "); in print_ada_declaration()
2815 pp_string (buffer, " return "); in print_ada_declaration()
2844 pp_string (buffer, " is abstract"); in print_ada_declaration()
2847 pp_string (buffer, " -- "); in print_ada_declaration()
2857 pp_string (buffer, "pragma CPP_Constructor (New_"); in print_ada_declaration()
2859 pp_string (buffer, ", \""); in print_ada_declaration()
2861 pp_string (buffer, "\");"); in print_ada_declaration()
2865 pp_string (buffer, "pragma Import (CPP, "); in print_ada_declaration()
2867 pp_string (buffer, ", \""); in print_ada_declaration()
2869 pp_string (buffer, "\");"); in print_ada_declaration()
2893 pp_string (buffer, " (discr : unsigned := 0)"); in print_ada_declaration()
2896 pp_string (buffer, " is "); in print_ada_declaration()
2929 pp_string (buffer, "limited interface; -- "); in print_ada_declaration()
2932 pp_string (buffer, "pragma Import (CPP, "); in print_ada_declaration()
2943 pp_string (buffer, "abstract "); in print_ada_declaration()
2966 pp_string (buffer, " (discr : unsigned := 0)"); in print_ada_declaration()
2968 pp_string (buffer, " is "); in print_ada_declaration()
2978 pp_string (buffer, " : "); in print_ada_declaration()
2990 pp_string (buffer, "aliased "); in print_ada_declaration()
3000 pp_string (buffer, "aliased "); in print_ada_declaration()
3013 pp_string (buffer, "end;"); in print_ada_declaration()
3015 pp_string (buffer, "use Class_"); in print_ada_declaration()
3025 pp_string (buffer, "; -- "); in print_ada_declaration()
3059 pp_string (buffer, "null record;"); in print_ada_struct_decl()
3062 pp_string (buffer, "record"); in print_ada_struct_decl()
3069 pp_string (buffer, "case discr is"); in print_ada_struct_decl()
3091 pp_string (buffer, "parent : "); in print_ada_struct_decl()
3095 pp_string (buffer, buf); in print_ada_struct_decl()
3125 pp_string (buffer, buf); in print_ada_struct_decl()
3142 pp_string (buffer, "end case;"); in print_ada_struct_decl()
3149 pp_string (buffer, "null;"); in print_ada_struct_decl()
3154 pp_string (buffer, "end record;"); in print_ada_struct_decl()
3165 pp_string (buffer, "pragma Import (CPP, "); in print_ada_struct_decl()
3167 pp_string (buffer, "pragma Convention (C_Pass_By_Copy, "); in print_ada_struct_decl()
3170 pp_string (buffer, "pragma Convention (C, "); in print_ada_struct_decl()
3182 pp_string (buffer, "pragma Unchecked_Union ("); in print_ada_struct_decl()
3193 pp_string (buffer, "pragma Pack ("); in print_ada_struct_decl()