home *** CD-ROM | disk | FTP | other *** search
/ Education Sampler 1992 [NeXTSTEP] / Education_1992_Sampler.iso / NeXT / GnuSource / cc-61.0.1 / cc / event-diffs < prev    next >
Text File  |  1991-07-19  |  9KB  |  338 lines
  1. *** ../../fsf2/toplev.c    Thu May 23 13:29:19 1991
  2. --- ./toplev.c    Thu Jul 18 16:05:35 1991
  3. ***************
  4. *** 600,605 ****
  5. --- 600,636 ----
  6.     return 1;
  7.   }
  8.   
  9. + #ifdef REPORT_EVENT
  10. + static void
  11. + report_event (type, decl, file, line, msg, arg1, arg2, arg3)
  12. +       int type;
  13. +       tree decl;
  14. +       char *file;
  15. +       char *line;
  16. +       char *msg;
  17. +       int arg1;
  18. +       int arg2;
  19. +       int arg3;
  20. + {
  21. +   char *name, *kind;
  22. + #ifdef NeXT
  23. +   extern tree maybe_objc_method_name ();
  24. +   tree method_name = maybe_objc_method_name ();
  25. + #endif /* NeXT */
  26. + 
  27. +   if (decl == NULL)
  28. +     name = "top level";
  29. + #ifdef NeXT
  30. +   else if (method_name)
  31. +     name = IDENTIFIER_POINTER (method_name);
  32. + #endif /* NeXT */
  33. +   else
  34. +     name = (*decl_printable_name) (decl, &kind);
  35. + 
  36. +   REPORT_EVENT (type, name, file, line, msg, arg1, arg2, arg3);
  37. + }
  38. + #endif
  39. + 
  40.   /* Print a fatal error message.  NAME is the text.
  41.      Also include a system error message based on `errno'.  */
  42.   
  43. ***************
  44. *** 607,612 ****
  45. --- 638,647 ----
  46.   pfatal_with_name (name)
  47.        char *name;
  48.   {
  49. + #ifdef REPORT_EVENT
  50. +   report_event (0, current_function_decl, input_filename, lineno,
  51. +          "%s: ", name, strerror (errno), 0);
  52. + #endif
  53.     fprintf (stderr, "%s: ", progname);
  54.     perror (name);
  55.     exit (35);
  56. ***************
  57. *** 616,621 ****
  58. --- 651,660 ----
  59.   fatal_io_error (name)
  60.        char *name;
  61.   {
  62. + #ifdef REPORT_EVENT
  63. +   report_event (0, current_function_decl, input_filename, lineno,
  64. +          "%s: I/O error\n", name, 0, 0);
  65. + #endif
  66.     fprintf (stderr, "%s: %s: I/O error\n", progname, name);
  67.     exit (35);
  68.   }
  69. ***************
  70. *** 700,705 ****
  71. --- 739,749 ----
  72.     if (last_error_function != current_function_decl)
  73.       {
  74.         char *kind = "function";
  75. + #ifdef NeXT
  76. +       extern tree maybe_objc_method_name ();
  77. +       tree method_name = maybe_objc_method_name ();
  78. + #endif /* NeXT */
  79. + 
  80.         if (current_function_decl != 0
  81.         && TREE_CODE (TREE_TYPE (current_function_decl)) == METHOD_TYPE)
  82.       kind = "method";
  83. ***************
  84. *** 709,714 ****
  85. --- 753,763 ----
  86.   
  87.         if (current_function_decl == NULL)
  88.       fprintf (stderr, "At top level:\n");
  89. + #ifdef NeXT
  90. +       else if (method_name)
  91. +     fprintf (stderr, "In method `%s'\n",
  92. +          IDENTIFIER_POINTER (method_name));
  93. + #endif /* NeXT */
  94.         else
  95.       {
  96.         char *name = (*decl_printable_name) (current_function_decl, &kind);
  97. ***************
  98. *** 759,764 ****
  99. --- 808,816 ----
  100.   
  101.     report_error_function (file);
  102.   
  103. + #ifdef REPORT_EVENT
  104. +   report_event (0, current_function_decl, file, line, s, v, v2, 0);
  105. + #endif
  106.     if (file)
  107.       fprintf (stderr, "%s:%d: ", file, line);
  108.     else
  109. ***************
  110. *** 781,786 ****
  111. --- 833,848 ----
  112.   
  113.     report_error_function (DECL_SOURCE_FILE (decl));
  114.   
  115. + #ifdef REPORT_EVENT
  116. +   if (DECL_NAME (decl))
  117. +     report_event (0, current_function_decl,
  118. +            DECL_SOURCE_FILE (decl), DECL_SOURCE_LINE (decl),
  119. +             s, (*decl_printable_name) (decl, &junk), v, 0);
  120. +   else
  121. +     report_event (0, current_function_decl,
  122. +            DECL_SOURCE_FILE (decl), DECL_SOURCE_LINE (decl),
  123. +             s, "((anonymous))", v, 0);
  124. + #endif
  125.     fprintf (stderr, "%s:%d: ",
  126.          DECL_SOURCE_FILE (decl), DECL_SOURCE_LINE (decl));
  127.   
  128. ***************
  129. *** 843,848 ****
  130. --- 905,913 ----
  131.   
  132.     report_error_function (file);
  133.   
  134. + #ifdef REPORT_EVENT
  135. +   report_event (1, current_function_decl, file, line, s, v, v2, v3);
  136. + #endif
  137.     if (file)
  138.       fprintf (stderr, "%s:%d: ", file, line);
  139.     else
  140. ***************
  141. *** 883,888 ****
  142. --- 948,963 ----
  143.   
  144.     report_error_function (DECL_SOURCE_FILE (decl));
  145.   
  146. + #ifdef REPORT_EVENT
  147. +   if (DECL_NAME (decl))
  148. +     report_event (1, current_function_decl,
  149. +            DECL_SOURCE_FILE (decl), DECL_SOURCE_LINE (decl),
  150. +             s, (*decl_printable_name) (decl, &junk), v, 0);
  151. +   else
  152. +     report_event (1, current_function_decl,
  153. +            DECL_SOURCE_FILE (decl), DECL_SOURCE_LINE (decl),
  154. +             s, "((anonymous))", v, 0);
  155. + #endif
  156.     fprintf (stderr, "%s:%d: ",
  157.          DECL_SOURCE_FILE (decl), DECL_SOURCE_LINE (decl));
  158.   
  159. ***************
  160. *** 944,949 ****
  161. --- 1019,1028 ----
  162.        int v, v2;
  163.   {
  164.     sorrycount++;
  165. + #ifdef REPORT_EVENT
  166. +   report_event (0, current_function_decl, input_filename, lineno,
  167. +          s, v, v2, 0);
  168. + #endif
  169.     if (input_filename)
  170.       fprintf (stderr, "%s:%d: ", input_filename, lineno);
  171.     else
  172. ***************
  173. *** 962,967 ****
  174. --- 1041,1050 ----
  175.        char *s;
  176.        int v, v2;
  177.   {
  178. + #ifdef REPORT_EVENT
  179. +   report_event (0, current_function_decl, input_filename, lineno,
  180. +          s, v, v2, 0);
  181. + #endif
  182.     if (input_filename)
  183.       fprintf (stderr, "%s:%d: ", input_filename, lineno);
  184.     else
  185. *** /Net/ohio/redbird/mself/fsf/cccp.c    Tue Jul 16 10:05:15 1991
  186. --- ./cccp.c    Fri Jul 19 13:57:50 1991
  187. ***************
  188. *** 5368,5373 ****
  189. --- 5341,5350 ----
  190.     } else {
  191.       if (if_stack->type != T_IF && if_stack->type != T_ELIF) {
  192.         error ("#elif after #else");
  193. + #ifdef REPORT_EVENT
  194. +       REPORT_EVENT (0, NULL, if_stack->fname, if_stack->lineno,
  195. +             "matching conditional", 0, 0, 0);
  196. + #endif
  197.         fprintf (stderr, " (matches line %d", if_stack->lineno);
  198.         if (if_stack->fname != NULL && ip->fname != NULL &&
  199.         strcmp (if_stack->fname, ip->nominal_fname) != 0)
  200. ***************
  201. *** 5733,5738 ****
  202. --- 5710,5719 ----
  203.   
  204.       if (if_stack->type != T_IF && if_stack->type != T_ELIF) {
  205.         error ("#else after #else");
  206. + #ifdef REPORT_EVENT
  207. +       REPORT_EVENT (0, NULL, if_stack->fname, if_stack->lineno,
  208. +             "matching conditional", 0, 0, 0);
  209. + #endif
  210.         fprintf (stderr, " (matches line %d", if_stack->lineno);
  211.         if (strcmp (if_stack->fname, ip->nominal_fname) != 0)
  212.       fprintf (stderr, ", file %s", if_stack->fname);
  213. ***************
  214. *** 6840,6845 ****
  215. --- 6818,6829 ----
  216.         break;
  217.       }
  218.   
  219. + #ifdef REPORT_EVENT
  220. +   REPORT_EVENT (0, NULL,
  221. +         ip ? ip->nominal_fname : NULL,
  222. +         ip ? ip->lineno : 0,
  223. +         msg, arg1, arg2, arg3);
  224. + #endif
  225.     if (ip != NULL)
  226.       fprintf (stderr, "%s:%d: ", ip->nominal_fname, ip->lineno);
  227.     fprintf (stderr, msg, arg1, arg2, arg3);
  228. ***************
  229. *** 6866,6871 ****
  230. --- 6848,6863 ----
  231.         break;
  232.       }
  233.   
  234. + #ifdef REPORT_EVENT
  235. +   REPORT_EVENT (0, NULL,
  236. +         ip ? ip->nominal_fname : NULL,
  237. +         ip ? ip->lineno : 0,
  238. +         "%s: %s", name,
  239. +         (errno < sys_nerr)
  240. +         ? sys_errlist[errno]
  241. +         : "undocumented I/O error",
  242. +         0);
  243. + #endif
  244.     if (ip != NULL)
  245.       fprintf (stderr, "%s:%d: ", ip->nominal_fname, ip->lineno);
  246.   
  247. ***************
  248. *** 6897,6902 ****
  249. --- 6887,6898 ----
  250.         break;
  251.       }
  252.   
  253. + #ifdef REPORT_EVENT
  254. +   REPORT_EVENT (1, NULL,
  255. +         ip ? ip->nominal_fname : NULL,
  256. +         ip ? ip->lineno : 0,
  257. +         msg, arg1, arg2, arg3);
  258. + #endif
  259.     if (ip != NULL)
  260.       fprintf (stderr, "%s:%d: ", ip->nominal_fname, ip->lineno);
  261.     fprintf (stderr, "warning: ");
  262. ***************
  263. *** 6920,6925 ****
  264. --- 6914,6924 ----
  265.         break;
  266.       }
  267.   
  268. + #ifdef REPORT_EVENT
  269. +   REPORT_EVENT (0, NULL,
  270. +         ip ? ip->nominal_fname : NULL,
  271. +         line, msg, arg1, arg2, arg3);
  272. + #endif
  273.     if (ip != NULL)
  274.       fprintf (stderr, "%s:%d: ", ip->nominal_fname, line);
  275.     fprintf (stderr, msg, arg1, arg2, arg3);
  276. ***************
  277. *** 6949,6954 ****
  278. --- 6948,6957 ----
  279.        char *msg;
  280.   {
  281.     int i;
  282. + #ifdef REPORT_EVENT
  283. +   REPORT_EVENT (pedantic_errors ? 0 : 1,
  284. +         NULL, file, line, msg, arg1, arg2, arg3);
  285. + #endif
  286.     if (file != NULL)
  287.       fprintf (stderr, "%s:%d: ", file, line);
  288.     if (!pedantic_errors)
  289. ***************
  290. *** 7679,7684 ****
  291. --- 7634,7642 ----
  292.   fatal (str, arg)
  293.        char *str, *arg;
  294.   {
  295. + #ifdef REPORT_EVENT
  296. +   REPORT_EVENT (0, progname, NULL, 0, str, arg, 0, 0);
  297. + #endif
  298.     fprintf (stderr, "%s: ", progname);
  299.     fprintf (stderr, str, arg);
  300.     fprintf (stderr, "\n");
  301. *** /Net/ohio/redbird/mself/fsf/gcc.c    Mon Jul  8 11:12:08 1991
  302. --- ./gcc.c    Thu Jul 18 17:02:28 1991
  303. ***************
  304. *** 1708,1714 ****
  305.   
  306.       if (argbuf_index > 0)
  307.         {
  308. !         int value = execute ();
  309.           if (value)
  310.             return value;
  311.         }
  312. --- 1719,1731 ----
  313.   
  314.       if (argbuf_index > 0)
  315.         {
  316. !         int value;
  317. ! 
  318. ! #ifdef REPORT_EVENT
  319. !         if (spec == link_command_spec)
  320. !           REPORT_EVENT (-1, NULL, NULL, 0, "Linking", 0, 0, 0);
  321. ! #endif
  322. !         value = execute ();
  323.           if (value)
  324.             return value;
  325.         }
  326. ***************
  327. *** 2341,2346 ****
  328. --- 2358,2366 ----
  329.         else
  330.           input_suffix = "";
  331.   
  332. + #ifdef REPORT_EVENT
  333. +       REPORT_EVENT (-1, NULL, input_basename, 0, "Compiling", 0, 0, 0);
  334. + #endif
  335.         value = do_spec (cp->spec);
  336.         if (value < 0)
  337.           this_file_error = 1;
  338.