Lines Matching refs:buffer
43 do { int i; for (i = 0; i<SPACE; i++) pp_space (buffer); } while (0)
121 dump_number (unsigned char *number, unsigned char *buffer, bool float_p) in dump_number() argument
128 *buffer++ = *number++; in dump_number()
130 return buffer; in dump_number()
138 handle_escape_character (unsigned char *buffer, char c) in handle_escape_character() argument
143 *buffer++ = '"'; in handle_escape_character()
144 *buffer++ = '"'; in handle_escape_character()
148 strcpy ((char *) buffer, "\" & ASCII.LF & \""); in handle_escape_character()
149 buffer += 16; in handle_escape_character()
153 strcpy ((char *) buffer, "\" & ASCII.CR & \""); in handle_escape_character()
154 buffer += 16; in handle_escape_character()
158 strcpy ((char *) buffer, "\" & ASCII.HT & \""); in handle_escape_character()
159 buffer += 16; in handle_escape_character()
166 return buffer; in handle_escape_character()
245 unsigned char *s, *params, *buffer, *buf_param, *char_one = NULL, *tmp; in dump_ada_macros() local
248 s = buffer = XALLOCAVEC (unsigned char, buffer_len); in dump_ada_macros()
284 *buffer++ = ' '; in dump_ada_macros()
298 memcpy (buffer, NODE_NAME (param), NODE_LEN (param)); in dump_ada_macros()
299 buffer += NODE_LEN (param); in dump_ada_macros()
303 case CPP_EQ_EQ: *buffer++ = '='; break; in dump_ada_macros()
304 case CPP_GREATER: *buffer++ = '>'; break; in dump_ada_macros()
305 case CPP_LESS: *buffer++ = '<'; break; in dump_ada_macros()
306 case CPP_PLUS: *buffer++ = '+'; break; in dump_ada_macros()
307 case CPP_MINUS: *buffer++ = '-'; break; in dump_ada_macros()
308 case CPP_MULT: *buffer++ = '*'; break; in dump_ada_macros()
309 case CPP_DIV: *buffer++ = '/'; break; in dump_ada_macros()
310 case CPP_COMMA: *buffer++ = ','; break; in dump_ada_macros()
312 case CPP_OPEN_PAREN: *buffer++ = '('; break; in dump_ada_macros()
314 case CPP_CLOSE_PAREN: *buffer++ = ')'; break; in dump_ada_macros()
317 case CPP_DOT: *buffer++ = '.'; break; in dump_ada_macros()
319 case CPP_EQ: *buffer++ = ':'; *buffer++ = '='; break; in dump_ada_macros()
320 case CPP_NOT_EQ: *buffer++ = '/'; *buffer++ = '='; break; in dump_ada_macros()
321 case CPP_GREATER_EQ: *buffer++ = '>'; *buffer++ = '='; break; in dump_ada_macros()
322 case CPP_LESS_EQ: *buffer++ = '<'; *buffer++ = '='; break; in dump_ada_macros()
325 *buffer++ = 'n'; *buffer++ = 'o'; *buffer++ = 't'; break; in dump_ada_macros()
327 *buffer++ = 'm'; *buffer++ = 'o'; *buffer++ = 'd'; break; in dump_ada_macros()
329 *buffer++ = 'a'; *buffer++ = 'n'; *buffer++ = 'd'; break; in dump_ada_macros()
331 *buffer++ = 'o'; *buffer++ = 'r'; break; in dump_ada_macros()
333 *buffer++ = 'x'; *buffer++ = 'o'; *buffer++ = 'r'; break; in dump_ada_macros()
335 strcpy ((char *) buffer, " and then "); in dump_ada_macros()
336 buffer += 10; in dump_ada_macros()
339 strcpy ((char *) buffer, " or else "); in dump_ada_macros()
340 buffer += 9; in dump_ada_macros()
344 *buffer++ = ' '; in dump_ada_macros()
363 buffer in dump_ada_macros()
364 = cpp_spell_token (parse_in, token, buffer, false); in dump_ada_macros()
370 *buffer++ = '&'; in dump_ada_macros()
371 *buffer++ = ' '; in dump_ada_macros()
382 buffer = handle_escape_character (buffer, *s); in dump_ada_macros()
383 if (buffer == NULL) in dump_ada_macros()
390 *buffer++ = *s; in dump_ada_macros()
405 *buffer++ = '\''; in dump_ada_macros()
406 *buffer++ = (char) c; in dump_ada_macros()
407 *buffer++ = '\''; in dump_ada_macros()
412 ((char *) buffer, "Character'Val (%d)", (int) c); in dump_ada_macros()
413 buffer += chars_seen; in dump_ada_macros()
431 *buffer++ = '0'; in dump_ada_macros()
436 *buffer++ = '1'; in dump_ada_macros()
437 *buffer++ = '6'; in dump_ada_macros()
438 *buffer++ = '#'; in dump_ada_macros()
439 buffer = dump_number (tmp + 2, buffer, false); in dump_ada_macros()
440 *buffer++ = '#'; in dump_ada_macros()
445 *buffer++ = '2'; in dump_ada_macros()
446 *buffer++ = '#'; in dump_ada_macros()
447 buffer = dump_number (tmp + 2, buffer, false); in dump_ada_macros()
448 *buffer++ = '#'; in dump_ada_macros()
454 buffer = dump_number (tmp, buffer, true); in dump_ada_macros()
457 *buffer++ = '8'; in dump_ada_macros()
458 *buffer++ = '#'; in dump_ada_macros()
459 buffer in dump_ada_macros()
460 = dump_number (tmp + 1, buffer, false); in dump_ada_macros()
461 *buffer++ = '#'; in dump_ada_macros()
475 char_one = buffer; in dump_ada_macros()
476 *buffer++ = '1'; in dump_ada_macros()
482 buffer in dump_ada_macros()
483 = dump_number (tmp, buffer, in dump_ada_macros()
494 *buffer++ = '*'; in dump_ada_macros()
495 *buffer++ = '*'; in dump_ada_macros()
535 buffer = cpp_spell_token (parse_in, token, buffer, false); in dump_ada_macros()
543 *buffer = '\0'; in dump_ada_macros()
553 if (*start == '(' && buffer[-1] == ')') in dump_ada_macros()
556 buffer[-1] = '\0'; in dump_ada_macros()
859 newline_and_indent (pretty_printer *buffer, int spc) in newline_and_indent() argument
861 pp_newline (buffer); in newline_and_indent()
1336 pp_ada_tree_identifier (pretty_printer *buffer, tree node, tree type, in pp_ada_tree_identifier() argument
1370 pp_string (buffer, s1); in pp_ada_tree_identifier()
1371 pp_dot (buffer); in pp_ada_tree_identifier()
1382 pp_string (buffer, "Class_"); in pp_ada_tree_identifier()
1383 pp_string (buffer, s); in pp_ada_tree_identifier()
1384 pp_dot (buffer); in pp_ada_tree_identifier()
1392 pp_string (buffer, "short"); in pp_ada_tree_identifier()
1394 pp_string (buffer, "unsigned_short"); in pp_ada_tree_identifier()
1396 pp_string (buffer, "unsigned"); in pp_ada_tree_identifier()
1398 pp_string (buffer, "long"); in pp_ada_tree_identifier()
1400 pp_string (buffer, "unsigned_long"); in pp_ada_tree_identifier()
1402 pp_string (buffer, "Long_Long_Integer"); in pp_ada_tree_identifier()
1408 pp_string (buffer, "Extensions.unsigned_long_long"); in pp_ada_tree_identifier()
1411 pp_string (buffer, "unsigned_long_long"); in pp_ada_tree_identifier()
1414 pp_string(buffer, s); in pp_ada_tree_identifier()
1421 pp_string (buffer, "Extensions.bool"); in pp_ada_tree_identifier()
1424 pp_string (buffer, "bool"); in pp_ada_tree_identifier()
1427 pp_string(buffer, s); in pp_ada_tree_identifier()
1435 pp_asm_name (pretty_printer *buffer, tree t) in pp_asm_name() argument
1450 pp_string (buffer, ada_name); in pp_asm_name()
1458 dump_ada_decl_name (pretty_printer *buffer, tree decl, bool limited_access) in dump_ada_decl_name() argument
1461 pp_ada_tree_identifier (buffer, DECL_NAME (decl), decl, limited_access); in dump_ada_decl_name()
1468 pp_string (buffer, "anon"); in dump_ada_decl_name()
1470 pp_scalar (buffer, "%d", DECL_UID (decl)); in dump_ada_decl_name()
1472 pp_scalar (buffer, "%d", TYPE_UID (TREE_TYPE (decl))); in dump_ada_decl_name()
1475 pp_ada_tree_identifier (buffer, type_name, decl, limited_access); in dump_ada_decl_name()
1483 dump_anonymous_type_name (pretty_printer *buffer, tree t, tree parent) in dump_anonymous_type_name() argument
1486 pp_ada_tree_identifier (buffer, DECL_NAME (parent), parent, false); in dump_anonymous_type_name()
1489 pp_string (buffer, "anon"); in dump_anonymous_type_name()
1490 pp_scalar (buffer, "%d", TYPE_UID (TREE_TYPE (parent))); in dump_anonymous_type_name()
1496 pp_string (buffer, "_array"); in dump_anonymous_type_name()
1499 pp_string (buffer, "_enum"); in dump_anonymous_type_name()
1502 pp_string (buffer, "_struct"); in dump_anonymous_type_name()
1505 pp_string (buffer, "_union"); in dump_anonymous_type_name()
1508 pp_string (buffer, "_unknown"); in dump_anonymous_type_name()
1512 pp_scalar (buffer, "%d", TYPE_UID (t)); in dump_anonymous_type_name()
1519 dump_ada_import (pretty_printer *buffer, tree t, int spc) in dump_ada_import() argument
1526 pp_string (buffer, "with Import => True, "); in dump_ada_import()
1528 newline_and_indent (buffer, spc + 5); in dump_ada_import()
1531 pp_string (buffer, "Convention => Stdcall, "); in dump_ada_import()
1533 pp_string (buffer, "Convention => CPP, "); in dump_ada_import()
1535 pp_string (buffer, "Convention => C, "); in dump_ada_import()
1537 newline_and_indent (buffer, spc + 5); in dump_ada_import()
1539 pp_string (buffer, "External_Name => \""); in dump_ada_import()
1542 pp_string (buffer, IDENTIFIER_POINTER (DECL_NAME (t))); in dump_ada_import()
1544 pp_asm_name (buffer, t); in dump_ada_import()
1546 pp_string (buffer, "\";"); in dump_ada_import()
1553 check_name (pretty_printer *buffer, tree t) in check_name() argument
1573 pp_string (buffer, "the_"); in check_name()
1584 dump_ada_function_declaration (pretty_printer *buffer, tree func, in dump_ada_function_declaration() argument
1617 newline_and_indent (buffer, spc + 1); in dump_ada_function_declaration()
1621 pp_space (buffer); in dump_ada_function_declaration()
1622 pp_left_paren (buffer); in dump_ada_function_declaration()
1654 check_name (buffer, arg); in dump_ada_function_declaration()
1655 pp_ada_tree_identifier (buffer, DECL_NAME (arg), NULL_TREE, in dump_ada_function_declaration()
1657 pp_string (buffer, " : "); in dump_ada_function_declaration()
1662 pp_string (buffer, buf); in dump_ada_function_declaration()
1665 dump_ada_node (buffer, TREE_TYPE (arg), type, spc, false, true); in dump_ada_function_declaration()
1670 pp_string (buffer, buf); in dump_ada_function_declaration()
1671 dump_ada_node (buffer, TREE_VALUE (arg), type, spc, false, true); in dump_ada_function_declaration()
1685 pp_string (buffer, "'Class"); in dump_ada_function_declaration()
1691 pp_semicolon (buffer); in dump_ada_function_declaration()
1694 newline_and_indent (buffer, spc + INDENT_INCR); in dump_ada_function_declaration()
1696 pp_space (buffer); in dump_ada_function_declaration()
1702 pp_string (buffer, " -- , ..."); in dump_ada_function_declaration()
1703 newline_and_indent (buffer, spc + INDENT_INCR); in dump_ada_function_declaration()
1707 pp_right_paren (buffer); in dump_ada_function_declaration()
1711 pp_string (buffer, " return "); in dump_ada_function_declaration()
1713 dump_ada_node (buffer, rtype, rtype, spc, false, true); in dump_ada_function_declaration()
1721 dump_ada_array_domains (pretty_printer *buffer, tree node, int spc) in dump_ada_array_domains() argument
1724 pp_left_paren (buffer); in dump_ada_array_domains()
1736 pp_string (buffer, ", "); in dump_ada_array_domains()
1740 dump_ada_node (buffer, min, NULL_TREE, spc, false, true); in dump_ada_array_domains()
1741 pp_string (buffer, " .. "); in dump_ada_array_domains()
1746 dump_ada_node (buffer, max, NULL_TREE, spc, false, true); in dump_ada_array_domains()
1748 pp_string (buffer, "0"); in dump_ada_array_domains()
1751 pp_string (buffer, "size_t"); in dump_ada_array_domains()
1753 pp_right_paren (buffer); in dump_ada_array_domains()
1759 dump_sloc (pretty_printer *buffer, tree node) in dump_sloc() argument
1772 pp_string (buffer, xloc.file); in dump_sloc()
1773 pp_colon (buffer); in dump_sloc()
1774 pp_decimal_int (buffer, xloc.line); in dump_sloc()
1800 dump_ada_array_type (pretty_printer *buffer, tree node, tree type, int spc) in dump_ada_array_type() argument
1806 pp_string (buffer, "Interfaces.C.char_array "); in dump_ada_array_type()
1808 pp_string (buffer, "array "); in dump_ada_array_type()
1811 dump_ada_array_domains (buffer, node, spc); in dump_ada_array_type()
1820 pp_string (buffer, " of "); in dump_ada_array_type()
1823 pp_string (buffer, "aliased "); in dump_ada_array_type()
1828 dump_ada_node (buffer, tmp, node, spc, false, true); in dump_ada_array_type()
1830 dump_anonymous_type_name (buffer, tmp, type); in dump_ada_array_type()
1839 dump_template_types (pretty_printer *buffer, tree types, int spc) in dump_template_types() argument
1844 pp_underscore (buffer); in dump_template_types()
1846 if (!dump_ada_node (buffer, elem, NULL_TREE, spc, false, true)) in dump_template_types()
1848 pp_string (buffer, "unknown"); in dump_template_types()
1849 pp_scalar (buffer, "%lu", (unsigned long) TREE_HASH (elem)); in dump_template_types()
1858 dump_ada_template (pretty_printer *buffer, tree t, int spc) in dump_ada_template() argument
1897 pp_string (buffer, "package "); in dump_ada_template()
1899 dump_ada_node (buffer, instance, t, spc, false, true); in dump_ada_template()
1900 dump_template_types (buffer, types, spc); in dump_ada_template()
1901 pp_string (buffer, " is"); in dump_ada_template()
1903 newline_and_indent (buffer, spc); in dump_ada_template()
1906 pp_string (buffer, "type "); in dump_ada_template()
1907 dump_ada_node (buffer, instance, t, spc, false, true); in dump_ada_template()
1911 pp_string (buffer, " is tagged limited "); in dump_ada_template()
1913 pp_string (buffer, " is limited "); in dump_ada_template()
1915 dump_ada_node (buffer, instance, t, spc, false, false); in dump_ada_template()
1916 pp_newline (buffer); in dump_ada_template()
1918 newline_and_indent (buffer, spc); in dump_ada_template()
1920 pp_string (buffer, "end;"); in dump_ada_template()
1921 newline_and_indent (buffer, spc); in dump_ada_template()
1922 pp_string (buffer, "use "); in dump_ada_template()
1924 dump_ada_node (buffer, instance, t, spc, false, true); in dump_ada_template()
1925 dump_template_types (buffer, types, spc); in dump_ada_template()
1927 pp_semicolon (buffer); in dump_ada_template()
1928 pp_newline (buffer); in dump_ada_template()
1929 pp_newline (buffer); in dump_ada_template()
1965 dump_ada_enum_type (pretty_printer *buffer, tree node, int spc) in dump_ada_enum_type() argument
1971 newline_and_indent (buffer, spc - 1); in dump_ada_enum_type()
1972 pp_left_paren (buffer); in dump_ada_enum_type()
1979 pp_comma (buffer); in dump_ada_enum_type()
1980 newline_and_indent (buffer, spc); in dump_ada_enum_type()
1983 pp_ada_tree_identifier (buffer, TREE_PURPOSE (value), node, false); in dump_ada_enum_type()
1985 pp_string (buffer, ")"); in dump_ada_enum_type()
1987 newline_and_indent (buffer, spc); in dump_ada_enum_type()
1988 pp_string (buffer, "with Convention => C"); in dump_ada_enum_type()
1993 pp_string (buffer, "unsigned"); in dump_ada_enum_type()
1995 pp_string (buffer, "int"); in dump_ada_enum_type()
1998 pp_semicolon (buffer); in dump_ada_enum_type()
1999 newline_and_indent (buffer, spc); in dump_ada_enum_type()
2001 pp_ada_tree_identifier (buffer, TREE_PURPOSE (value), node, false); in dump_ada_enum_type()
2002 pp_string (buffer, " : constant "); in dump_ada_enum_type()
2005 pp_string (buffer, "unsigned"); in dump_ada_enum_type()
2007 pp_string (buffer, "int"); in dump_ada_enum_type()
2009 pp_string (buffer, " := "); in dump_ada_enum_type()
2010 dump_ada_node (buffer, in dump_ada_enum_type()
2043 dump_ada_node (pretty_printer *buffer, tree node, tree type, int spc, in dump_ada_node() argument
2052 pp_string (buffer, "<<< error >>>"); in dump_ada_node()
2056 pp_ada_tree_identifier (buffer, node, type, limited_access); in dump_ada_node()
2060 pp_string (buffer, "--- unexpected node: TREE_LIST"); in dump_ada_node()
2064 dump_ada_node (buffer, BINFO_TYPE (node), type, spc, limited_access, in dump_ada_node()
2069 pp_string (buffer, "--- unexpected node: TREE_VEC"); in dump_ada_node()
2077 pp_string (buffer, "System.Address"); in dump_ada_node()
2080 pp_string (buffer, "address"); in dump_ada_node()
2084 pp_string (buffer, "<vector>"); in dump_ada_node()
2091 pp_string (buffer, "Extensions.CFloat_128"); in dump_ada_node()
2094 pp_string (buffer, "<complex>"); in dump_ada_node()
2099 dump_ada_node (buffer, TYPE_NAME (node), node, spc, false, true); in dump_ada_node()
2101 dump_ada_enum_type (buffer, node, spc); in dump_ada_node()
2108 pp_string (buffer, "Extensions.Float_128"); in dump_ada_node()
2122 pp_ada_tree_identifier (buffer, TYPE_NAME (node), node, in dump_ada_node()
2126 dump_ada_decl_name (buffer, TYPE_NAME (node), limited_access); in dump_ada_node()
2128 pp_string (buffer, "<unnamed type>"); in dump_ada_node()
2136 pp_string (buffer, "Extensions.Unsigned_1"); in dump_ada_node()
2139 pp_string (buffer, TYPE_UNSIGNED (node) in dump_ada_node()
2142 pp_decimal_int (buffer, TYPE_PRECISION (node)); in dump_ada_node()
2146 pp_string (buffer, "<unnamed type>"); in dump_ada_node()
2152 dump_ada_node (buffer, TYPE_NAME (node), node, spc, limited_access, in dump_ada_node()
2158 pp_string (buffer, "access procedure"); in dump_ada_node()
2160 pp_string (buffer, "access function"); in dump_ada_node()
2162 dump_ada_function_declaration (buffer, node, false, false, false, in dump_ada_node()
2169 newline_and_indent (buffer, spc); in dump_ada_node()
2170 pp_string (buffer, "with Convention => C"); in dump_ada_node()
2181 pp_string (buffer, "new "); in dump_ada_node()
2185 pp_string (buffer, "System.Address"); in dump_ada_node()
2188 pp_string (buffer, "address"); in dump_ada_node()
2198 pp_string (buffer, "new "); in dump_ada_node()
2202 pp_string (buffer, "Interfaces.C.Strings.chars_ptr"); in dump_ada_node()
2206 pp_string (buffer, "chars_ptr"); in dump_ada_node()
2219 pp_string (buffer, "new "); in dump_ada_node()
2220 pp_string (buffer, "System.Address"); in dump_ada_node()
2223 pp_string (buffer, "address"); in dump_ada_node()
2228 pp_string (buffer, "access"); in dump_ada_node()
2233 pp_string (buffer, "access "); in dump_ada_node()
2237 pp_string (buffer, "constant "); in dump_ada_node()
2239 pp_string (buffer, "all "); in dump_ada_node()
2242 pp_string (buffer, "in "); in dump_ada_node()
2246 pp_string (buffer, "access "); in dump_ada_node()
2253 pp_string (buffer, "access "); in dump_ada_node()
2256 pp_string (buffer, "all "); in dump_ada_node()
2260 dump_ada_node (buffer, type_name, TREE_TYPE (node), spc, in dump_ada_node()
2263 dump_ada_node (buffer, TREE_TYPE (node), TREE_TYPE (node), in dump_ada_node()
2272 dump_ada_node (buffer, TYPE_NAME (node), node, spc, limited_access, in dump_ada_node()
2275 dump_ada_array_type (buffer, node, type, spc); in dump_ada_node()
2281 dump_ada_node (buffer, TYPE_NAME (node), node, spc, limited_access, in dump_ada_node()
2284 dump_ada_structure (buffer, node, type, false, spc); in dump_ada_node()
2294 pp_wide_integer (buffer, tree_to_shwi (node)); in dump_ada_node()
2296 pp_unsigned_wide_integer (buffer, tree_to_uhwi (node)); in dump_ada_node()
2303 pp_minus (buffer); in dump_ada_node()
2306 sprintf (pp_buffer (buffer)->digit_buffer, in dump_ada_node()
2310 sprintf (pp_buffer (buffer)->digit_buffer, in dump_ada_node()
2312 pp_string (buffer, pp_buffer (buffer)->digit_buffer); in dump_ada_node()
2334 pp_string (buffer, "System.Address"); in dump_ada_node()
2337 pp_string (buffer, "address"); in dump_ada_node()
2343 dump_ada_decl_name (buffer, node, limited_access); in dump_ada_node()
2359 pp_string (buffer, "limited new "); in dump_ada_node()
2363 pp_string (buffer, " and "); in dump_ada_node()
2365 dump_ada_decl_name (buffer, TYPE_NAME (TREE_TYPE (fld)), in dump_ada_node()
2370 pp_string (buffer, first ? "tagged limited " : " with "); in dump_ada_node()
2373 pp_string (buffer, "limited "); in dump_ada_node()
2375 dump_ada_node (buffer, TREE_TYPE (node), type, spc, false, false); in dump_ada_node()
2385 dump_ada_decl_name (buffer, node, false); in dump_ada_node()
2400 dump_ada_methods (pretty_printer *buffer, tree node, int spc) in dump_ada_methods() argument
2405 pp_semicolon (buffer); in dump_ada_methods()
2413 pp_newline (buffer); in dump_ada_methods()
2414 pp_newline (buffer); in dump_ada_methods()
2417 res = dump_ada_declaration (buffer, fld, node, spc); in dump_ada_methods()
2427 dump_forward_type (pretty_printer *buffer, tree type, tree t, int spc) in dump_forward_type() argument
2435 dump_forward_type (buffer, TREE_TYPE (type), t, spc); in dump_forward_type()
2440 dump_forward_type (buffer, TREE_TYPE (type), t, spc); in dump_forward_type()
2442 dump_forward_type (buffer, arg, t, spc); in dump_forward_type()
2458 pp_string (buffer, "type "); in dump_forward_type()
2459 dump_ada_node (buffer, decl, NULL_TREE, spc, false, true); in dump_forward_type()
2460 pp_semicolon (buffer); in dump_forward_type()
2461 newline_and_indent (buffer, spc); in dump_forward_type()
2483 dump_nested_types_1 (pretty_printer *buffer, tree t, tree parent, in dump_nested_types_1() argument
2498 dump_nested_type (buffer, field, t, parent, dumped_types, spc); in dump_nested_types_1()
2502 dump_nested_type (buffer, field, t, parent, dumped_types, spc); in dump_nested_types_1()
2510 dump_nested_types (pretty_printer *buffer, tree t, int spc) in dump_nested_types() argument
2513 dump_nested_types_1 (buffer, t, t, dumped_types, spc); in dump_nested_types()
2521 dump_nested_type (pretty_printer *buffer, tree field, tree t, tree parent, in dump_nested_type() argument
2531 dump_forward_type (buffer, tmp, t, spc); in dump_nested_type()
2550 dump_nested_type (buffer, decl, t, parent, dumped_types, spc); in dump_nested_type()
2554 dump_forward_type (buffer, TREE_TYPE (tmp), t, spc); in dump_nested_type()
2558 pp_string (buffer, "subtype "); in dump_nested_type()
2560 pp_string (buffer, "type "); in dump_nested_type()
2562 dump_anonymous_type_name (buffer, field_type, parent); in dump_nested_type()
2563 pp_string (buffer, " is "); in dump_nested_type()
2564 dump_ada_array_type (buffer, field_type, parent, spc); in dump_nested_type()
2565 pp_semicolon (buffer); in dump_nested_type()
2566 newline_and_indent (buffer, spc); in dump_nested_type()
2571 pp_string (buffer, "type "); in dump_nested_type()
2573 pp_string (buffer, "subtype "); in dump_nested_type()
2576 dump_ada_node (buffer, field_type, NULL_TREE, spc, false, true); in dump_nested_type()
2578 dump_anonymous_type_name (buffer, field_type, parent); in dump_nested_type()
2579 pp_string (buffer, " is "); in dump_nested_type()
2580 dump_ada_enum_type (buffer, field_type, spc); in dump_nested_type()
2581 pp_semicolon (buffer); in dump_nested_type()
2582 newline_and_indent (buffer, spc); in dump_nested_type()
2587 dump_nested_types_1 (buffer, field, parent, dumped_types, spc); in dump_nested_type()
2589 pp_string (buffer, "type "); in dump_nested_type()
2592 dump_ada_node (buffer, field_type, NULL_TREE, spc, false, true); in dump_nested_type()
2594 dump_anonymous_type_name (buffer, field_type, parent); in dump_nested_type()
2597 pp_string (buffer, " (discr : unsigned := 0)"); in dump_nested_type()
2599 pp_string (buffer, " is "); in dump_nested_type()
2600 dump_ada_structure (buffer, field_type, t, true, spc); in dump_nested_type()
2602 pp_string (buffer, "with Convention => C_Pass_By_Copy"); in dump_nested_type()
2606 pp_comma (buffer); in dump_nested_type()
2607 newline_and_indent (buffer, spc + 5); in dump_nested_type()
2608 pp_string (buffer, "Unchecked_Union => True"); in dump_nested_type()
2611 pp_semicolon (buffer); in dump_nested_type()
2612 newline_and_indent (buffer, spc); in dump_nested_type()
2690 print_constructor (pretty_printer *buffer, tree t, tree type) in print_constructor() argument
2694 pp_string (buffer, "New_"); in print_constructor()
2695 pp_ada_tree_identifier (buffer, decl_name, t, false); in print_constructor()
2701 print_destructor (pretty_printer *buffer, tree t, tree type) in print_destructor() argument
2705 pp_string (buffer, "Delete_"); in print_destructor()
2707 pp_string (buffer, "And_Free_"); in print_destructor()
2708 pp_ada_tree_identifier (buffer, decl_name, t, false); in print_destructor()
2714 print_assignment_operator (pretty_printer *buffer, tree t, tree type) in print_assignment_operator() argument
2718 pp_string (buffer, "Assign_"); in print_assignment_operator()
2719 pp_ada_tree_identifier (buffer, decl_name, t, false); in print_assignment_operator()
2740 dump_ada_declaration (pretty_printer *buffer, tree t, tree type, int spc) in dump_ada_declaration() argument
2750 return dump_ada_template (buffer, t, spc); in dump_ada_declaration()
2777 dump_forward_type (buffer, orig, t, 0); in dump_ada_declaration()
2787 dump_forward_type (buffer, orig, t, spc); in dump_ada_declaration()
2789 pp_string (buffer, "subtype "); in dump_ada_declaration()
2790 dump_ada_node (buffer, t, type, spc, false, true); in dump_ada_declaration()
2791 pp_string (buffer, " is "); in dump_ada_declaration()
2792 dump_ada_node (buffer, orig, type, spc, false, true); in dump_ada_declaration()
2793 pp_string (buffer, "; -- "); in dump_ada_declaration()
2794 dump_sloc (buffer, t); in dump_ada_declaration()
2829 pp_string (buffer, "type "); in dump_ada_declaration()
2830 dump_ada_node (buffer, t, type, spc, false, true); in dump_ada_declaration()
2831 pp_string (buffer, " is null record; -- incomplete struct"); in dump_ada_declaration()
2840 pp_string (buffer, "-- skipped anonymous struct "); in dump_ada_declaration()
2841 dump_ada_node (buffer, t, type, spc, false, true); in dump_ada_declaration()
2851 pp_string (buffer, "pragma Compile_Time_Warning (True, "); in dump_ada_declaration()
2852 pp_string (buffer, "\"probably incorrect record layout\");"); in dump_ada_declaration()
2853 newline_and_indent (buffer, spc); in dump_ada_declaration()
2857 pp_string (buffer, "subtype "); in dump_ada_declaration()
2860 dump_nested_types (buffer, t, spc); in dump_ada_declaration()
2865 pp_string (buffer, "package Class_"); in dump_ada_declaration()
2866 dump_ada_node (buffer, t, type, spc, false, true); in dump_ada_declaration()
2867 pp_string (buffer, " is"); in dump_ada_declaration()
2869 newline_and_indent (buffer, spc); in dump_ada_declaration()
2872 pp_string (buffer, "type "); in dump_ada_declaration()
2878 dump_forward_type (buffer, TREE_TYPE (TREE_TYPE (t)), t, spc); in dump_ada_declaration()
2883 pp_string (buffer, "subtype "); in dump_ada_declaration()
2885 pp_string (buffer, "type "); in dump_ada_declaration()
2889 pp_string (buffer, "-- skipped function type "); in dump_ada_declaration()
2890 dump_ada_node (buffer, t, type, spc, false, true); in dump_ada_declaration()
2896 pp_string (buffer, "subtype "); in dump_ada_declaration()
2898 pp_string (buffer, "type "); in dump_ada_declaration()
2902 pp_string (buffer, "subtype "); in dump_ada_declaration()
2924 dump_ada_node (buffer, t, type, spc, false, true); in dump_ada_declaration()
2928 pp_string (buffer, " is "); in dump_ada_declaration()
2931 dump_ada_node (buffer, TYPE_NAME (orig), type, spc, false, true); in dump_ada_declaration()
2933 dump_ada_array_type (buffer, TREE_TYPE (t), type, spc); in dump_ada_declaration()
2940 pp_string (buffer, " : "); in dump_ada_declaration()
2943 pp_string (buffer, "aliased "); in dump_ada_declaration()
2946 dump_ada_node (buffer, TREE_TYPE (t), type, spc, false, true); in dump_ada_declaration()
2948 dump_anonymous_type_name (buffer, TREE_TYPE (t), type); in dump_ada_declaration()
2950 dump_ada_array_type (buffer, TREE_TYPE (t), type, spc); in dump_ada_declaration()
3007 pp_string (buffer, "-- skipped func "); in dump_ada_declaration()
3008 pp_string (buffer, IDENTIFIER_POINTER (decl_name)); in dump_ada_declaration()
3014 dump_forward_type (buffer, TREE_TYPE (t), t, spc); in dump_ada_declaration()
3017 pp_string (buffer, "procedure "); in dump_ada_declaration()
3019 pp_string (buffer, "function "); in dump_ada_declaration()
3022 print_constructor (buffer, t, type); in dump_ada_declaration()
3024 print_destructor (buffer, t, type); in dump_ada_declaration()
3026 print_assignment_operator (buffer, t, type); in dump_ada_declaration()
3028 dump_ada_decl_name (buffer, t, false); in dump_ada_declaration()
3031 (buffer, t, is_method, is_constructor, is_destructor, spc); in dump_ada_declaration()
3042 pp_string (buffer, " is abstract"); in dump_ada_declaration()
3046 pp_semicolon (buffer); in dump_ada_declaration()
3047 pp_string (buffer, " -- "); in dump_ada_declaration()
3048 dump_sloc (buffer, t); in dump_ada_declaration()
3052 pp_semicolon (buffer); in dump_ada_declaration()
3053 pp_string (buffer, " -- "); in dump_ada_declaration()
3054 dump_sloc (buffer, t); in dump_ada_declaration()
3056 newline_and_indent (buffer, spc); in dump_ada_declaration()
3057 pp_string (buffer, "pragma CPP_Constructor ("); in dump_ada_declaration()
3058 print_constructor (buffer, t, type); in dump_ada_declaration()
3059 pp_string (buffer, ", \""); in dump_ada_declaration()
3060 pp_asm_name (buffer, t); in dump_ada_declaration()
3061 pp_string (buffer, "\");"); in dump_ada_declaration()
3065 pp_string (buffer, " -- "); in dump_ada_declaration()
3066 dump_sloc (buffer, t); in dump_ada_declaration()
3068 newline_and_indent (buffer, spc); in dump_ada_declaration()
3069 dump_ada_import (buffer, t, spc); in dump_ada_declaration()
3080 dump_ada_node (buffer, TREE_TYPE (t), t, spc, false, true); in dump_ada_declaration()
3083 pp_string (buffer, " (discr : unsigned := 0)"); in dump_ada_declaration()
3085 pp_string (buffer, " is "); in dump_ada_declaration()
3122 pp_string (buffer, "limited interface -- "); in dump_ada_declaration()
3123 dump_sloc (buffer, t); in dump_ada_declaration()
3124 newline_and_indent (buffer, spc); in dump_ada_declaration()
3125 pp_string (buffer, "with Import => True,"); in dump_ada_declaration()
3126 newline_and_indent (buffer, spc + 5); in dump_ada_declaration()
3127 pp_string (buffer, "Convention => CPP"); in dump_ada_declaration()
3129 dump_ada_methods (buffer, TREE_TYPE (t), spc); in dump_ada_declaration()
3134 pp_string (buffer, "abstract "); in dump_ada_declaration()
3135 dump_ada_node (buffer, t, t, spc, false, false); in dump_ada_declaration()
3144 check_name (buffer, t); in dump_ada_declaration()
3147 dump_ada_node (buffer, t, t, spc, false, true); in dump_ada_declaration()
3154 pp_string (buffer, " (discr : unsigned := 0)"); in dump_ada_declaration()
3156 pp_string (buffer, " is "); in dump_ada_declaration()
3158 dump_ada_node (buffer, orig, t, spc, false, is_subtype); in dump_ada_declaration()
3165 pp_string (buffer, " : "); in dump_ada_declaration()
3171 pp_string (buffer, "aliased "); in dump_ada_declaration()
3174 pp_string (buffer, "constant "); in dump_ada_declaration()
3179 dump_ada_node (buffer, TREE_TYPE (t), t, spc, false, true); in dump_ada_declaration()
3181 dump_anonymous_type_name (buffer, TREE_TYPE (t), type); in dump_ada_declaration()
3188 newline_and_indent (buffer, spc); in dump_ada_declaration()
3189 pp_string (buffer, "end;"); in dump_ada_declaration()
3190 newline_and_indent (buffer, spc); in dump_ada_declaration()
3191 pp_string (buffer, "use Class_"); in dump_ada_declaration()
3192 dump_ada_node (buffer, t, type, spc, false, true); in dump_ada_declaration()
3193 pp_semicolon (buffer); in dump_ada_declaration()
3194 pp_newline (buffer); in dump_ada_declaration()
3201 pp_string (buffer, " -- "); in dump_ada_declaration()
3202 dump_sloc (buffer, t); in dump_ada_declaration()
3203 newline_and_indent (buffer, spc); in dump_ada_declaration()
3204 dump_ada_import (buffer, t, spc); in dump_ada_declaration()
3209 pp_string (buffer, "; -- "); in dump_ada_declaration()
3210 dump_sloc (buffer, t); in dump_ada_declaration()
3220 dump_ada_structure (pretty_printer *buffer, tree node, tree type, bool nested, in dump_ada_structure() argument
3232 pp_string (buffer, "record"); in dump_ada_structure()
3236 newline_and_indent (buffer, spc + INDENT_INCR); in dump_ada_structure()
3237 pp_string (buffer, "case discr is"); in dump_ada_structure()
3241 pp_newline (buffer); in dump_ada_structure()
3252 dump_ada_declaration (buffer, tmp, type, field_spc); in dump_ada_structure()
3258 pp_string (buffer, "parent : aliased "); in dump_ada_structure()
3262 pp_string (buffer, buf); in dump_ada_structure()
3264 dump_ada_decl_name (buffer, TYPE_NAME (TREE_TYPE (tmp)), in dump_ada_structure()
3266 pp_semicolon (buffer); in dump_ada_structure()
3269 pp_newline (buffer); in dump_ada_structure()
3288 pp_string (buffer, buf); in dump_ada_structure()
3289 pp_newline (buffer); in dump_ada_structure()
3292 if (dump_ada_declaration (buffer, tmp, type, field_spc)) in dump_ada_structure()
3294 pp_newline (buffer); in dump_ada_structure()
3304 pp_string (buffer, "end case;"); in dump_ada_structure()
3305 pp_newline (buffer); in dump_ada_structure()
3311 pp_string (buffer, "null;"); in dump_ada_structure()
3312 pp_newline (buffer); in dump_ada_structure()
3316 pp_string (buffer, "end record"); in dump_ada_structure()
3318 newline_and_indent (buffer, spc); in dump_ada_structure()
3326 pp_string (buffer, "with Import => True,"); in dump_ada_structure()
3327 newline_and_indent (buffer, spc + 5); in dump_ada_structure()
3328 pp_string (buffer, "Convention => CPP"); in dump_ada_structure()
3331 pp_string (buffer, "with Convention => C_Pass_By_Copy"); in dump_ada_structure()
3335 pp_comma (buffer); in dump_ada_structure()
3336 newline_and_indent (buffer, spc + 5); in dump_ada_structure()
3337 pp_string (buffer, "Unchecked_Union => True"); in dump_ada_structure()
3342 pp_comma (buffer); in dump_ada_structure()
3343 newline_and_indent (buffer, spc + 5); in dump_ada_structure()
3344 pp_string (buffer, "Pack => True"); in dump_ada_structure()
3348 need_semicolon = !dump_ada_methods (buffer, node, spc); in dump_ada_structure()
3358 pp_semicolon (buffer); in dump_ada_structure()
3360 pp_newline (buffer); in dump_ada_structure()
3361 pp_newline (buffer); in dump_ada_structure()
3362 dump_ada_declaration (buffer, tmp, type, spc); in dump_ada_structure()
3401 pp.buffer->stream = f; in dump_ads()