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

Reply via email to