home *** CD-ROM | disk | FTP | other *** search
/ Education Sampler 1992 [NeXTSTEP] / Education_1992_Sampler.iso / NeXT / GnuSource / cc-61.0.1 / cc / objcplus-diffs < prev    next >
Text File  |  1991-06-04  |  10KB  |  353 lines
  1. *** Makefile.in    Mon Jun  3 10:32:43 1991
  2. --- Makefile.in.objc++    Mon Jun  3 14:06:57 1991
  3. ***************
  4. *** 204,210 ****
  5.      c-decl.o c-typeck.o c-convert.o c-aux-info.o c-common.o dbxout.o
  6.   
  7.   # Language-specific object files for C++.
  8. ! CPLUS_OBJS = cplus-tab.o cplus-decl.o cplus-decl2.o \
  9.      cplus-typeck.o cplus-type2.o cplus-tree.o cplus-ptree.o \
  10.      cplus-cvt.o cplus-search.o cplus-lex.o cplus-gc.o cplus-call.o \
  11.      cplus-class.o cplus-init.o cplus-method.o cplus-except.o \
  12. --- 204,210 ----
  13.      c-decl.o c-typeck.o c-convert.o c-aux-info.o c-common.o dbxout.o
  14.   
  15.   # Language-specific object files for C++.
  16. ! CPLUS_OBJS = cplus-lang.o cplus-tab.o cplus-decl.o cplus-decl2.o \
  17.      cplus-typeck.o cplus-type2.o cplus-tree.o cplus-ptree.o \
  18.      cplus-cvt.o cplus-search.o cplus-lex.o cplus-gc.o cplus-call.o \
  19.      cplus-class.o cplus-init.o cplus-method.o cplus-except.o \
  20. *** /Net/ohio/redbird/mself/fsf/cplus-lex.c    Mon Jun  3 10:46:54 1991
  21. --- ./cplus-lex.c    Mon Jun  3 13:26:29 1991
  22. ***************
  23. *** 788,800 ****
  24.   /* toplev.c needs to call these.  */
  25.   
  26.   void
  27. ! lang_init ()
  28.   {
  29. -   /* the beginning of the file is a new line; check for # */
  30. -   /* With luck, we discover the real source file's name from that
  31. -      and put it in input_filename.  */
  32. -   put_back (check_newline ());
  33. - 
  34.     if (flag_cadillac)
  35.       cadillac_start ();
  36.     if (flag_gnu_xref) GNU_xref_begin (input_filename);
  37. --- 788,795 ----
  38.   /* toplev.c needs to call these.  */
  39.   
  40.   void
  41. ! cplus_init ()
  42.   {
  43.     if (flag_cadillac)
  44.       cadillac_start ();
  45.     if (flag_gnu_xref) GNU_xref_begin (input_filename);
  46. ***************
  47. *** 801,807 ****
  48.   }
  49.   
  50.   void
  51. ! lang_finish ()
  52.   {
  53.     extern int errorcount, sorrycount;
  54.     if (flag_gnu_xref) GNU_xref_end (errorcount+sorrycount);
  55. --- 796,802 ----
  56.   }
  57.   
  58.   void
  59. ! cplus_finish ()
  60.   {
  61.     extern int errorcount, sorrycount;
  62.     if (flag_gnu_xref) GNU_xref_end (errorcount+sorrycount);
  63. *** /Net/ohio/redbird/mself/fsf/cplus-tree.c    Mon Jun  3 10:48:52 1991
  64. --- ./cplus-tree.c    Mon Jun  3 13:33:09 1991
  65. ***************
  66. *** 1482,1488 ****
  67.   }
  68.   
  69.   void
  70. ! print_lang_statistics ()
  71.   {
  72.     extern struct obstack maybepermanent_obstack;
  73.     print_obstack_statistics ("class_obstack", &class_obstack);
  74. --- 1482,1488 ----
  75.   }
  76.   
  77.   void
  78. ! print_cplus_statistics ()
  79.   {
  80.     extern struct obstack maybepermanent_obstack;
  81.     print_obstack_statistics ("class_obstack", &class_obstack);
  82. *** /Net/ohio/redbird/mself/fsf/cplus-decl2.c    Mon Jun  3 10:44:50 1991
  83. --- ./cplus-decl2.c    Tue Jun  4 12:20:40 1991
  84. ***************
  85. *** 279,285 ****
  86.      return 0 if not recognized.  */
  87.   
  88.   int   
  89. ! lang_decode_option (p)
  90.        char *p;
  91.   {
  92.     if (!strcmp (p, "-ftraditional") || !strcmp (p, "-traditional"))
  93. --- 279,285 ----
  94.      return 0 if not recognized.  */
  95.   
  96.   int   
  97. ! cplus_decode_option (p)
  98.        char *p;
  99.   {
  100.     if (!strcmp (p, "-ftraditional") || !strcmp (p, "-traditional"))
  101. ***************
  102. *** 2116,2121 ****
  103. --- 2116,2124 ----
  104.   
  105.     finish_function (lineno, 0);
  106.   
  107. +   assemble_destructor (IDENTIFIER_POINTER (fnname));
  108. + 
  109. + #if 0
  110.     if (flag_gnu_binutils)
  111.       {
  112.         /* Now tell GNU LD that this is part of the static destructor set.  */
  113. ***************
  114. *** 2124,2129 ****
  115. --- 2127,2133 ----
  116.         assemble_name (asm_out_file, IDENTIFIER_POINTER (fnname));
  117.         fputc ('\n', asm_out_file);
  118.       }
  119. + #endif
  120.   
  121.     /* if it needed cleaning, then it will need messing up: drop through  */
  122.   
  123. ***************
  124. *** 2260,2265 ****
  125. --- 2264,2273 ----
  126.         pop_momentary ();
  127.   
  128.         finish_function (lineno, 0);
  129. + 
  130. +       assemble_constructor (IDENTIFIER_POINTER (fnname));
  131. + 
  132. + #if 0
  133.         if (flag_gnu_binutils)
  134.       {
  135.         /* Now tell GNU LD that this is part of the static constructor set.  */
  136. ***************
  137. *** 2268,2273 ****
  138. --- 2276,2282 ----
  139.         assemble_name (asm_out_file, IDENTIFIER_POINTER (fnname));
  140.         fputc ('\n', asm_out_file);
  141.       }
  142. + #endif
  143.       }
  144.   
  145.   #ifdef SOS
  146. *** /Net/ohio/redbird/mself/fsf/cplus-tree.h    Mon Jun  3 10:49:02 1991
  147. --- ./cplus-tree.h    Tue Jun  4 10:05:54 1991
  148. ***************
  149. *** 296,301 ****
  150. --- 296,304 ----
  151.   
  152.   extern int flag_cadillac;
  153.   
  154. + extern int maybe_objc_comptypes ();
  155. + extern tree maybe_building_objc_message_expr ();
  156. + 
  157.   /* C++ language-specific tree codes.  */
  158.   #define DEFTREECODE(SYM, NAME, TYPE, LENGTH) SYM,
  159.   enum cplus_tree_code {
  160. ***************
  161. *** 305,311 ****
  162.   };
  163.   #undef DEFTREECODE
  164.   
  165. ! enum languages { lang_c, lang_cplusplus };
  166.   
  167.   /* Macros to make error reporting functions' lives easier.  */
  168.   #if 0
  169. --- 308,314 ----
  170.   };
  171.   #undef DEFTREECODE
  172.   
  173. ! enum languages { lang_c, lang_cplusplus, lang_objc };
  174.   
  175.   /* Macros to make error reporting functions' lives easier.  */
  176.   #if 0
  177. ***************
  178. *** 1247,1252 ****
  179. --- 1250,1256 ----
  180.   extern tree prev_class_type;
  181.   
  182.   extern tree current_lang_name, lang_name_cplusplus, lang_name_c;
  183. + extern tree lang_name_objc;
  184.   
  185.   extern tree do_identifier (), hack_identifier ();
  186.   extern tree hack_operator (), hack_wrapper ();
  187. *** /Net/ohio/redbird/mself/fsf/cplus-typeck.c    Mon Jun  3 10:49:51 1991
  188. --- ./cplus-typeck.c    Mon Jun  3 13:42:11 1991
  189. ***************
  190. *** 537,543 ****
  191.       {
  192.       case RECORD_TYPE:
  193.       case UNION_TYPE:
  194. !       if (t1 == t2)
  195.       return 1;
  196.         if (strict <= 0)
  197.       goto look_hard;
  198. --- 537,543 ----
  199.       {
  200.       case RECORD_TYPE:
  201.       case UNION_TYPE:
  202. !       if (t1 == t2 || maybe_objc_comptypes (t1, t2))
  203.       return 1;
  204.         if (strict <= 0)
  205.       goto look_hard;
  206. ***************
  207. *** 4947,4952 ****
  208. --- 4947,4955 ----
  209.         register tree ttl = TREE_TYPE (type);
  210.         register tree ttr = TREE_TYPE (rhstype);
  211.   
  212. +       if (maybe_objc_comptypes (ttl, ttr))
  213. +     return convert (type, rhs);
  214. + 
  215.         /* If both pointers are of aggregate type, then we
  216.        can give better error messages, and save some work
  217.        as well.  */
  218. ***************
  219. *** 5182,5188 ****
  220.        int argnum;
  221.   {
  222.     if (function)
  223. !     warning (arg_msg, argnum, IDENTIFIER_POINTER (function));
  224.     else
  225.       warning (anon_msg, opname);
  226.   }
  227. --- 5185,5198 ----
  228.        int argnum;
  229.   {
  230.     if (function)
  231. !     {
  232. !       tree selector = maybe_building_objc_message_expr ();
  233. !       
  234. !       if (selector && argnum > 2)
  235. !     warning (arg_msg, argnum - 2, IDENTIFIER_POINTER (selector));
  236. !       else
  237. !     warning (arg_msg, argnum, IDENTIFIER_POINTER (function));
  238. !     }
  239.     else
  240.       warning (anon_msg, opname);
  241.   }
  242. *** /Net/ohio/redbird/mself/fsf/cplus-decl.c    Mon Jun  3 10:44:20 1991
  243. --- ./cplus-decl.c    Tue Jun  4 10:06:47 1991
  244. ***************
  245. *** 2999,3004 ****
  246. --- 2999,3005 ----
  247.     /* Have to make these distinct before we try using them.  */
  248.     lang_name_cplusplus = get_identifier ("C++");
  249.     lang_name_c = get_identifier ("C");
  250. +   lang_name_objc = get_identifier ("Objective-C");
  251.   
  252.     /* Initially, C.  */
  253.     current_lang_name = lang_name_c;
  254. ***************
  255. *** 3737,3742 ****
  256. --- 3738,3756 ----
  257.     return grokdeclarator (TREE_VALUE (typename),
  258.                TREE_PURPOSE (typename),
  259.                TYPENAME, 0, NULL_TREE);
  260. + }
  261. + 
  262. + /* Return a PARM_DECL node for a given pair of specs and declarator.  */
  263. + 
  264. + tree
  265. + groktypename_in_parm_context (typename)
  266. +      tree typename;
  267. + {
  268. +   if (TREE_CODE (typename) != TREE_LIST)
  269. +     return typename;
  270. +   return grokdeclarator (TREE_VALUE (typename),
  271. +              TREE_PURPOSE (typename),
  272. +              PARM, 0, NULL_TREE);
  273.   }
  274.   
  275.   /* Decode a declarator in an ordinary declaration or data definition.
  276. *** /Net/ohio/redbird/mself/fsf/cplus-class.c    Mon Jun  3 10:42:10 1991
  277. --- ./cplus-class.c    Mon Jun  3 17:10:08 1991
  278. ***************
  279. *** 91,97 ****
  280.   static int current_lang_stacksize;
  281.   
  282.   /* Names of languages we recognize.  */
  283. ! tree lang_name_c, lang_name_cplusplus;
  284.   tree current_lang_name;
  285.   
  286.   tree minus_one_node;
  287. --- 91,97 ----
  288.   static int current_lang_stacksize;
  289.   
  290.   /* Names of languages we recognize.  */
  291. ! tree lang_name_c, lang_name_cplusplus, lang_name_objc;
  292.   tree current_lang_name;
  293.   
  294.   tree minus_one_node;
  295. ***************
  296. *** 3471,3482 ****
  297. --- 3471,3490 ----
  298.       {
  299.         strict_prototype = strict_prototypes_lang_cplusplus;
  300.         current_lang_name = name;
  301. +       install_reserved_words (lang_cplusplus);
  302.       }
  303.     else if (name == lang_name_c)
  304.       {
  305.         strict_prototype = strict_prototypes_lang_c;
  306.         current_lang_name = name;
  307. +       install_reserved_words(lang_c);
  308.       }
  309. +   else if (name == lang_name_objc)
  310. +     {
  311. +       /* for now, treat Objective-C like C, other code depends on this */
  312. +       current_lang_name = lang_name_c;
  313. +       install_reserved_words (lang_objc);
  314. +     }
  315.     else
  316.       error ("language string `\"%s\"' not recognized", IDENTIFIER_POINTER (name));
  317.   
  318. ***************
  319. *** 3492,3501 ****
  320.       cadillac_pop_lang ();
  321.   
  322.     current_lang_name = *--current_lang_stack;
  323.     if (current_lang_name == lang_name_cplusplus)
  324. !     strict_prototype = strict_prototypes_lang_cplusplus;
  325.     else if (current_lang_name == lang_name_c)
  326. !     strict_prototype = strict_prototypes_lang_c;
  327.   }
  328.   
  329.   int
  330. --- 3500,3521 ----
  331.       cadillac_pop_lang ();
  332.   
  333.     current_lang_name = *--current_lang_stack;
  334. + 
  335.     if (current_lang_name == lang_name_cplusplus)
  336. !     {
  337. !       strict_prototype = strict_prototypes_lang_cplusplus;
  338. !       install_reserved_words (lang_cplusplus);
  339. !     }
  340.     else if (current_lang_name == lang_name_c)
  341. !     {
  342. !       strict_prototype = strict_prototypes_lang_c;
  343. !       install_reserved_words (lang_c);
  344. !     }
  345. !   else if (current_lang_name == lang_name_objc)
  346. !     {
  347. !       strict_prototype = strict_prototypes_lang_c;
  348. !       install_reserved_words (lang_objc);
  349. !     }
  350.   }
  351.   
  352.   int
  353.