home *** CD-ROM | disk | FTP | other *** search
/ Education Sampler 1992 [NeXTSTEP] / Education_1992_Sampler.iso / NeXT / GnuSource / cc-61.0.1 / cc / NeXT-OBJC-diffs < prev    next >
Text File  |  1991-06-04  |  1KB  |  51 lines
  1. *** /Net/nomad/comp/mself/fsf/c-lang.c    Sun Mar 17 15:20:48 1991
  2. --- ./c-lang.c    Sun Mar 17 15:54:30 1991
  3. ***************
  4. *** 60,65 ****
  5. --- 60,74 ----
  6.     return 0;
  7.   }
  8.   
  9. + #ifdef NeXT
  10. + tree
  11. + maybe_objc_method_name (decl)
  12. +       tree decl;
  13. + {
  14. +   return 0;
  15. + }
  16. + #endif /* NeXT */
  17. + 
  18.   tree
  19.   maybe_building_objc_message_expr ()
  20.   {
  21. *** toplev.c.orig    Fri Apr  5 09:55:37 1991
  22. --- toplev.c    Fri Apr  5 12:21:14 1991
  23. ***************
  24. *** 698,703 ****
  25. --- 698,708 ----
  26.     if (last_error_function != current_function_decl)
  27.       {
  28.         char *kind = "function";
  29. + #ifdef NeXT
  30. +       extern tree maybe_objc_method_name ();
  31. +       tree method_name = maybe_objc_method_name ();
  32. + #endif /* NeXT */
  33. + 
  34.         if (current_function_decl != 0
  35.         && TREE_CODE (TREE_TYPE (current_function_decl)) == METHOD_TYPE)
  36.       kind = "method";
  37. ***************
  38. *** 707,712 ****
  39. --- 712,722 ----
  40.   
  41.         if (current_function_decl == NULL)
  42.       fprintf (stderr, "At top level:\n");
  43. + #ifdef NeXT
  44. +       else if (method_name)
  45. +     fprintf (stderr, "In method `%s'\n",
  46. +          IDENTIFIER_POINTER (method_name));
  47. + #endif /* NeXT */
  48.         else
  49.       {
  50.         char *name = (*decl_printable_name) (current_function_decl, &kind);
  51.