And there are remaining references of Pascal:
1) dbxout.c:
1661 {
1662 stabstr_C ('r');
1663 if (TREE_TYPE (type))
1664 dbxout_type (TREE_TYPE (type), 0);
1665 else if (TREE_CODE (type) != INTEGER_TYPE)
1666 dbxout_type (type, 0); /* E.g. Pascal's ARRAY [BOOLEAN] of INTEGER
*/
1667 else
1668 {
Can we remove that Jason? It's dead according to LCOV output.
2) dwarf2out.c:
23295
23296 #if 0
23297 /* Don't generate either pointer_type DIEs or reference_type DIEs here.
23298 Use modified_type_die instead.
23299 We keep this code here just in case these types of DIEs may be
needed to
23300 represent certain things in other languages (e.g. Pascal) someday.
*/
23301
23302 static void
23303 gen_pointer_type_die (tree type, dw_die_ref context_die)
23304 {
23305 dw_die_ref ptr_die
--
23312 }
23313
23314 /* Don't generate either pointer_type DIEs or reference_type DIEs here.
23315 Use modified_type_die instead.
23316 We keep this code here just in case these types of DIEs may be
needed to
23317 represent certain things in other languages (e.g. Pascal) someday.
*/
23318
23319 static void
23320 gen_reference_type_die (tree type, dw_die_ref context_die)
23321 {
23322 dw_die_ref ref_die, scope_die = scope_die_for (type, context_die);
The piece of code is guarded in #if 0, is it candidate for removal?
3) stor-layout.c:
2648 /* Set the extreme values of TYPE based on its precision in bits,
2649 then lay it out. Used when make_signed_type won't do
2650 because the tree code is not INTEGER_TYPE.
2651 E.g. for Pascal, when the -fsigned-char option is given. */
2652
2653 void
2654 fixup_signed_type (tree type)
2655 {
2656 int precision = TYPE_PRECISION (type);
2657
2658 set_min_and_max_values_for_integral_type (type, precision, SIGNED);
2659
2660 /* Lay out the type: set its alignment, size, etc. */
2661 layout_type (type);
This is probably useful not just for Pascal?
Thanks,
Martin
