home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / g77-0.5.15-src.tgz / tar.out / fsf / g77 / f / gbe / 2.6.3.diff next >
Text File  |  1996-09-28  |  5KB  |  139 lines
  1. *** gcc-2.6.3/Makefile.in    Fri Dec  2 16:03:09 1994
  2. --- g77-2.6.3-0.5.14/Makefile.in    Wed Apr 12 10:17:28 1995
  3. *************** c-common.o : c-common.c $(CONFIG_H) $(TR
  4. *** 1010,1014 ****
  5.   # Language-independent files.
  6.   
  7. ! gcc.o: gcc.c $(CONFIG_H) multilib.h config.status
  8.       $(CC) $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) \
  9.     -DSTANDARD_STARTFILE_PREFIX=\"$(libdir)/\" \
  10. --- 1010,1014 ----
  11.   # Language-independent files.
  12.   
  13. ! gcc.o: gcc.c $(CONFIG_H) multilib.h config.status f/compilers.h
  14.       $(CC) $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) \
  15.     -DSTANDARD_STARTFILE_PREFIX=\"$(libdir)/\" \
  16. *************** stor-layout.o : stor-layout.c $(CONFIG_H
  17. *** 1032,1036 ****
  18.   fold-const.o : fold-const.c $(CONFIG_H) $(TREE_H) flags.h 
  19.   toplev.o : toplev.c $(CONFIG_H) $(TREE_H) $(RTL_H) flags.h input.h \
  20. !    insn-attr.h xcoffout.h defaults.h
  21.       $(CC) $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) \
  22.         $(MAYBE_TARGET_DEFAULT) $(MAYBE_USE_COLLECT2) \
  23. --- 1032,1036 ----
  24.   fold-const.o : fold-const.c $(CONFIG_H) $(TREE_H) flags.h 
  25.   toplev.o : toplev.c $(CONFIG_H) $(TREE_H) $(RTL_H) flags.h input.h \
  26. !    insn-attr.h xcoffout.h defaults.h f/options-lang.h
  27.       $(CC) $(ALL_CFLAGS) $(ALL_CPPFLAGS) $(INCLUDES) \
  28.         $(MAYBE_TARGET_DEFAULT) $(MAYBE_USE_COLLECT2) \
  29. *** gcc-2.6.3/fold-const.c    Fri Dec  2 16:03:43 1994
  30. --- g77-2.6.3-0.5.14/fold-const.c    Tue Feb 21 14:18:46 1995
  31. *************** eval_subst (arg, old0, new0, old1, new1)
  32. *** 1938,1943 ****
  33. --- 1938,1948 ----
  34.         switch (code)
  35.       {
  36. +   /* ??? Disable this since the SAVE_EXPR might already be in use outside
  37. +      the expression.  There may be no way to make this work, but it needs
  38. +      to be looked at again for 2.6.  */
  39. + #if 0
  40.       case SAVE_EXPR:
  41.         return eval_subst (TREE_OPERAND (arg, 0), old0, new0, old1, new1);
  42. + #endif
  43.   
  44.       case COMPOUND_EXPR:
  45. *************** fold (expr) 
  46. *** 3953,3958 ****
  47. --- 3958,3968 ----
  48.         tree xarg0 = arg0;
  49.   
  50. +   /* ??? Disable this since the SAVE_EXPR might already be in use outside
  51. +      the expression.  There may be no way to make this work, but it needs
  52. +      to be looked at again for 2.6.  */
  53. + #if 0
  54.         if (TREE_CODE (xarg0) == SAVE_EXPR)
  55.           have_save_expr = 1, xarg0 = TREE_OPERAND (xarg0, 0);
  56. + #endif
  57.   
  58.         STRIP_NOPS (xarg0);
  59. *************** fold (expr) 
  60. *** 3971,3976 ****
  61. --- 3981,3991 ----
  62.           }
  63.   
  64. +   /* ??? Disable this since the SAVE_EXPR might already be in use outside
  65. +      the expression.  There may be no way to make this work, but it needs
  66. +      to be looked at again for 2.6.  */
  67. + #if 0
  68.         if (TREE_CODE (xarg0) == SAVE_EXPR)
  69.           have_save_expr = 1, xarg0 = TREE_OPERAND (xarg0, 0);
  70. + #endif
  71.   
  72.         STRIP_NOPS (xarg0);
  73. *** gcc-2.6.3/gcc.c    Mon Nov  7 11:01:43 1994
  74. --- g77-2.6.3-0.5.14/gcc.c    Wed Apr 12 10:12:31 1995
  75. *************** static int n_compilers;
  76. *** 565,568 ****
  77. --- 565,569 ----
  78.   static struct compiler default_compilers[] =
  79.   {
  80. + #include "f/compilers.h"
  81.     {".c", "@c"},
  82.     {"@c",
  83. *** gcc-2.6.3/stor-layout.c    Thu Oct 20 09:41:02 1994
  84. --- g77-2.6.3-0.5.14/stor-layout.c    Tue Feb 21 14:18:46 1995
  85. *************** get_pending_sizes ()
  86. *** 80,83 ****
  87. --- 80,93 ----
  88.   }
  89.   
  90. + void
  91. + put_pending_sizes (chain)
  92. +      tree chain;
  93. + {
  94. +   if (pending_sizes)
  95. +     abort ();
  96. + 
  97. +   pending_sizes = chain;
  98. + }
  99. + 
  100.   /* Given a size SIZE that isn't constant, return a SAVE_EXPR
  101.      to serve as the actual size-expression for a type or decl.  */
  102. *** gcc-2.6.3/toplev.c    Tue Oct 25 16:09:12 1994
  103. --- g77-2.6.3-0.5.14/toplev.c    Fri Mar 24 20:50:26 1995
  104. *************** char *lang_options[] =
  105. *** 725,728 ****
  106. --- 725,731 ----
  107.     "-Wno-protocol",
  108.   
  109. +   /* THESE ARE FOR FORTRAN. */
  110. + #include "f/options-lang.h"
  111. + 
  112.     /* This is for GNAT and is temporary.  */
  113.     "-gnat",
  114. *** gcc-2.6.3/tree.c    Fri Dec  2 16:03:49 1994
  115. --- g77-2.6.3-0.5.14/tree.c    Tue Feb 21 14:18:47 1995
  116. *************** save_expr (expr)
  117. *** 1984,1988 ****
  118.   
  119.     if (TREE_CONSTANT (t) || (TREE_READONLY (t) && ! TREE_SIDE_EFFECTS (t))
  120. !       || TREE_CODE (t) == SAVE_EXPR)
  121.       return t;
  122.   
  123. --- 1984,1988 ----
  124.   
  125.     if (TREE_CONSTANT (t) || (TREE_READONLY (t) && ! TREE_SIDE_EFFECTS (t))
  126. !       || TREE_CODE (t) == SAVE_EXPR || TREE_CODE (t) == ERROR_MARK)
  127.       return t;
  128.   
  129. *** gcc-2.6.3/tree.h    Thu Sep  8 14:25:41 1994
  130. --- g77-2.6.3-0.5.14/tree.h    Tue Feb 21 14:18:48 1995
  131. *************** extern tree size_int            PROTO((unsigned))
  132. *** 1245,1248 ****
  133. --- 1245,1249 ----
  134.   extern tree round_up            PROTO((tree, int));
  135.   extern tree get_pending_sizes        PROTO((void));
  136. + extern void put_pending_sizes        PROTO((tree));
  137.   
  138.   /* Type for sizes of data-type.  */
  139.