home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / ae / patch-gcc < prev    next >
Encoding:
Text File  |  1990-02-28  |  13.9 KB  |  532 lines
  1. *** gcc/Makefile.orig    Fri Sep 22 16:47:25 1989
  2. --- gcc/Makefile    Wed Feb 14 16:22:16 1990
  3. ***************
  4. *** 42,50 ****
  5.   # Directory where sources are, from where we are.
  6.   srcdir = .
  7.   # Directory in which to put the executable for the command `gcc'
  8. ! bindir = $(prefix)/usr/local/bin
  9.   # Directory in which to put the subprograms used by the compiler.
  10. ! libdir = $(prefix)/usr/local/lib
  11.   # Directory in which to put man pages.
  12.   mandir = $(prefix)/usr/local/man/man1
  13.   # Number to put in man-page filename.
  14. --- 42,50 ----
  15.   # Directory where sources are, from where we are.
  16.   srcdir = .
  17.   # Directory in which to put the executable for the command `gcc'
  18. ! bindir = /var/home/larus/AE/gcc/bin
  19.   # Directory in which to put the subprograms used by the compiler.
  20. ! libdir = /var/home/larus/AE/gcc/lib
  21.   # Directory in which to put man pages.
  22.   mandir = $(prefix)/usr/local/man/man1
  23.   # Number to put in man-page filename.
  24. ***************
  25. *** 137,142 ****
  26. --- 137,145 ----
  27.    regclass.o local-alloc.o global-alloc.o reload.o reload1.o caller-save.o \
  28.    insn-peep.o final.o recog.o insn-recog.o insn-extract.o insn-output.o
  29.   
  30. + # Files for AE.
  31. + AE_OBJS = ae.o ae-loop.o ae-output.o ae-rd.o
  32. + 
  33.   # Files to be copied away after each stage in building.
  34.   STAGE_GCC=gcc
  35.   STAGESTUFF = *.o insn-flags.h insn-config.h insn-codes.h \
  36. ***************
  37. *** 201,206 ****
  38. --- 204,216 ----
  39.   cc1: $(C_OBJS) $(OBJS) $(LIBDEPS)
  40.       $(CC) $(CFLAGS) $(LDFLAGS) -o cc1 $(C_OBJS) $(OBJS) $(LIBS)
  41.   
  42. + ae: gcc.o version.o cc1-ae
  43. +     $(CC) $(CFLAGS) $(LDFLAGS) -o gccnew gcc.o version.o $(LIBS)
  44. +     mv gccnew gcc
  45. + 
  46. + cc1-ae: $(C_OBJS) $(OBJS) $(AE_OBJS) $(LIBDEPS)
  47. +     $(CC) $(CFLAGS) $(LDFLAGS) -o cc1 $(C_OBJS) $(OBJS) $(AE_OBJS) $(LIBS)
  48. + 
  49.   cc1plus: $(CPLUS_OBJS) $(OBJS) $(LIBDEPS)
  50.       $(CC) $(CFLAGS) $(LDFLAGS) -o cc1plus $(CPLUS_OBJS) $(OBJS) $(LIBS)
  51.   
  52. ***************
  53. *** 362,367 ****
  54. --- 372,388 ----
  55.   recog.o : recog.c $(CONFIG_H) $(RTL_H)  \
  56.      regs.h recog.h hard-reg-set.h insn-config.h real.h
  57.   
  58. + ae.o : ae.c ae.h ae-machine.h schema.h $(CONFIG.H) $(RTL.H) basic-block.h \
  59. +        flags.h insn-config.h
  60. + 
  61. + ae-loop.o : ae-loop.c ae.h $(CONFIG.H) $(RTL.H) basic-block.h
  62. + 
  63. + ae-output.o : ae-output.c ae.h ae-machine.h $(CONFIG.H) $(RTL.H) \
  64. +           basic-block.h flags.h regs.h
  65. + 
  66. + ae-rd.o : ae-rd.c ae.h $(CONFIG.H) $(RTL.H) basic-block.h
  67. + 
  68. + 
  69.   # Normally this target is not used; but it is used if you
  70.   # define ALLOCA=alloca.o.  In that case, you must get a suitable alloca.c
  71.   # from the GNU Emacs distribution.
  72. ***************
  73. *** 516,521 ****
  74. --- 537,555 ----
  75.   $(srcdir)/gcc.info: $(srcdir)/gcc.texinfo
  76.       makeinfo `echo $(srcdir)/gcc.texinfo | sed 's,^\./,,'`
  77.   
  78. + # Make the AE runtime code.
  79. + aecrt0.o : ae-buffer.o aecrt.o
  80. +     ld -o aecrt0.o -r aecrt.o ae-buffer.o
  81. + 
  82. + ae-buffer.o: ae-buffer.c ae.h ae-machine.h
  83. +     gcc -O -c ae-buffer.c
  84. + 
  85. + aecrt.o: aecrt.s
  86. +     /lib/cpp -P aecrt.s | tr " " " " > aecrt.x.s
  87. +     as aecrt.x.s -o aecrt.o
  88. +     rm -f aecrt.x.s
  89. + 
  90. + 
  91.   # gnulib is not deleted because deleting it would be inconvenient
  92.   # for most uses of this target.
  93.   clean:
  94. ***************
  95. *** 557,563 ****
  96. --- 591,599 ----
  97.       for file in $(USER_H); do $(INSTALL) $(srcdir)/$${file} $(libdir)/gcc-include; done
  98.       $(INSTALL) float.h $(libdir)/gcc-include/float.h
  99.       $(INSTALL) $(srcdir)/gvarargs.h $(libdir)/gcc-include/varargs.h
  100. +     $(INSTALL) $(srcdir)/aecrt0.o $(libdir)/aecrt0.o
  101.       $(INSTALL) $(srcdir)/gcc.1 $(mandir)/gcc.$(manext)
  102. + 
  103.   
  104.   # do make -f ../gcc/Makefile maketest DIR=../gcc
  105.   # in the intended test directory to make it a suitable test directory.
  106. *** gcc/final.c.orig    Tue Aug 22 22:16:56 1989
  107. --- gcc/final.c    Mon Feb  5 14:22:52 1990
  108. ***************
  109. *** 54,59 ****
  110. --- 54,60 ----
  111.   #include "flags.h"
  112.   #include "real.h"
  113.   #include "output.h"
  114. + #include "ae.h"
  115.   
  116.   /* Get N_SLINE and N_SOL from stab.h if we can expect the file to exist.  */
  117.   #ifdef DBX_DEBUGGING_INFO
  118. ***************
  119. *** 206,211 ****
  120. --- 207,216 ----
  121.      Zero otherwise.  */
  122.   
  123.   rtx final_sequence;
  124. + 
  125. + #ifdef AE
  126. + int ae_enable;
  127. + #endif
  128.   
  129.   /* Initialize data in final at the beginning of a compilation.  */
  130.   
  131. ***************
  132. *** 483,488 ****
  133. --- 488,498 ----
  134.       sdbout_end_function (last_linenum);
  135.   #endif
  136.   
  137. + #ifdef AE
  138. +   if (ae_enable)
  139. +     ae_end_function ();
  140. + #endif
  141. + 
  142.   #ifdef FUNCTION_EPILOGUE
  143.     /* Finally, output the function epilogue:
  144.        code to restore the stack frame and return to the caller.  */
  145. ***************
  146. *** 549,554 ****
  147. --- 559,565 ----
  148.        int nopeepholes;
  149.   {
  150.     register int i;
  151. + 
  152.     switch (GET_CODE (insn))
  153.       {
  154.       case NOTE:
  155. ***************
  156. *** 640,645 ****
  157. --- 651,660 ----
  158.         CC_STATUS_INIT;
  159.         if (prescan > 0)
  160.       break;
  161. + #ifdef AE
  162. +       if (ae_enable)
  163. +     watch_insn_output (insn);
  164. + #endif
  165.         new_block = 1;
  166.         if (app_on)
  167.       {
  168. ***************
  169. *** 664,670 ****
  170.           }
  171.       }
  172.   #endif
  173. - 
  174.         ASM_OUTPUT_INTERNAL_LABEL (file, "L", CODE_LABEL_NUMBER (insn));
  175.         break;
  176.   
  177. --- 679,684 ----
  178. ***************
  179. *** 762,767 ****
  180. --- 776,785 ----
  181.           if (prescan > 0)
  182.             break;
  183.   
  184. + #ifdef AE
  185. +         if (ae_enable)
  186. +           watch_insn_output (insn);
  187. + #endif
  188.           vlen = XVECLEN (body, 0);
  189.           for (idx = 0; idx < vlen; idx++)
  190.             ASM_OUTPUT_ADDR_VEC_ELT (file,
  191. ***************
  192. *** 780,785 ****
  193. --- 798,807 ----
  194.           if (prescan > 0)
  195.             break;
  196.   
  197. + #ifdef AE
  198. +         if (ae_enable)
  199. +           watch_insn_output (insn);
  200. + #endif
  201.           vlen = XVECLEN (body, 1);
  202.           for (idx = 0; idx < vlen; idx++)
  203.             ASM_OUTPUT_ADDR_DIFF_ELT (file,
  204. ***************
  205. *** 841,846 ****
  206. --- 863,872 ----
  207.             {
  208.               /* We don't really delete the insn; just ignore it.  */
  209.               last_ignored_compare = insn;
  210. + #ifdef AE
  211. +             if (ae_enable)
  212. +               watch_insn_output (insn);
  213. + #endif
  214.               break;
  215.             }
  216.             }
  217. ***************
  218. *** 973,978 ****
  219. --- 999,1005 ----
  220.             recog_operand[i] = alter_subreg (recog_operand[i]);
  221.         }
  222.   
  223. + 
  224.   #ifdef REGISTER_CONSTRAINTS
  225.       if (! constrain_operands (insn_code_number))
  226.         abort ();
  227. ***************
  228. *** 998,1003 ****
  229. --- 1025,1035 ----
  230.       /* If the proper template needs to be chosen by some C code,
  231.          run that code and get the real template.  */
  232.   
  233. + #ifdef AE
  234. +     if (ae_enable)
  235. +       watch_insn_output (insn);
  236. + #endif
  237. + 
  238.       template = insn_template[insn_code_number];
  239.       if (template == 0)
  240.         {
  241. ***************
  242. *** 1019,1025 ****
  243.         break;
  244.   
  245.       /* Output assembler code from the template.  */
  246. - 
  247.       output_asm_insn (template, recog_operand);
  248.   
  249.       /* Mark this insn as having been output.  */
  250. --- 1051,1056 ----
  251. ***************
  252. *** 1476,1481 ****
  253. --- 1507,1517 ----
  254.       }
  255.   
  256.     putc ('\n', asm_out_file);
  257. + 
  258. + #ifdef AE
  259. +   if (ae_enable)
  260. +     watch_asm_insn_output (template, operands);
  261. + #endif
  262.   }
  263.   
  264.   /* Output a LABEL_REF, or a bare CODE_LABEL, as an assembler symbol.  */
  265. *** gcc/flow.c.orig    Sun Jul 30 18:39:37 1989
  266. --- gcc/flow.c    Fri Dec  8 09:22:57 1989
  267. ***************
  268. *** 111,122 ****
  269.      This is set up by find_basic_blocks and used there and in life_analysis,
  270.      and then freed.  */
  271.   
  272. ! static short *uid_block_number;
  273.   
  274.   /* INSN_VOLATILE (insn) is 1 if the insn refers to anything volatile.  */
  275.   
  276.   #define INSN_VOLATILE(INSN) uid_volatile[INSN_UID (INSN)]
  277. ! static char *uid_volatile;
  278.   
  279.   /* Number of basic blocks in the current function.  */
  280.   
  281. --- 111,122 ----
  282.      This is set up by find_basic_blocks and used there and in life_analysis,
  283.      and then freed.  */
  284.   
  285. ! short *uid_block_number;
  286.   
  287.   /* INSN_VOLATILE (insn) is 1 if the insn refers to anything volatile.  */
  288.   
  289.   #define INSN_VOLATILE(INSN) uid_volatile[INSN_UID (INSN)]
  290. ! char *uid_volatile;
  291.   
  292.   /* Number of basic blocks in the current function.  */
  293.   
  294. ***************
  295. *** 212,223 ****
  296.   /* Element N is nonzero if control can drop into basic block N
  297.      from the preceding basic block.  Freed after life_analysis.  */
  298.   
  299. ! static char *basic_block_drops_in;
  300.   
  301.   /* Element N is depth within loops of basic block number N.
  302.      Freed after life_analysis.  */
  303.   
  304. ! static short *basic_block_loop_depth;
  305.   
  306.   /* Element N nonzero if basic block N can actually be reached.
  307.      Vector exists only during find_basic_blocks.  */
  308. --- 212,223 ----
  309.   /* Element N is nonzero if control can drop into basic block N
  310.      from the preceding basic block.  Freed after life_analysis.  */
  311.   
  312. ! char *basic_block_drops_in;
  313.   
  314.   /* Element N is depth within loops of basic block number N.
  315.      Freed after life_analysis.  */
  316.   
  317. ! short *basic_block_loop_depth;
  318.   
  319.   /* Element N nonzero if basic block N can actually be reached.
  320.      Vector exists only during find_basic_blocks.  */
  321. ***************
  322. *** 228,233 ****
  323. --- 228,234 ----
  324.      plus one.  This is the weight attached to references to registers.  */
  325.   
  326.   static int loop_depth;
  327. + 
  328.   
  329.   /* Define AUTO_INC_DEC if machine has any kind of incrementing
  330.      or decrementing addressing.  */
  331. ***************
  332. *** 249,259 ****
  333.   #endif
  334.   
  335.   /* Forward declarations */
  336. ! static void find_basic_blocks ();
  337.   static void life_analysis ();
  338.   static void mark_label_ref ();
  339.   void allocate_for_life_analysis (); /* Used also in stupid_life_analysis */
  340. ! static void init_regset_vector ();
  341.   static void propagate_block ();
  342.   static void mark_set_regs ();
  343.   static void mark_used_regs ();
  344. --- 250,260 ----
  345.   #endif
  346.   
  347.   /* Forward declarations */
  348. ! void find_basic_blocks ();
  349.   static void life_analysis ();
  350.   static void mark_label_ref ();
  351.   void allocate_for_life_analysis (); /* Used also in stupid_life_analysis */
  352. ! void init_regset_vector ();
  353.   static void propagate_block ();
  354.   static void mark_set_regs ();
  355.   static void mark_used_regs ();
  356. ***************
  357. *** 326,332 ****
  358.      set up the chains of references for each CODE_LABEL, and
  359.      delete any entire basic blocks that cannot be reached.  */
  360.   
  361. ! static void
  362.   find_basic_blocks (f)
  363.        rtx f;
  364.   {
  365. --- 327,333 ----
  366.      set up the chains of references for each CODE_LABEL, and
  367.      delete any entire basic blocks that cannot be reached.  */
  368.   
  369. ! void
  370.   find_basic_blocks (f)
  371.        rtx f;
  372.   {
  373. ***************
  374. *** 887,893 ****
  375.      SPACE is of type regset, but it is really as long as NELTS regsets.
  376.      BYTES_PER_ELT is the number of bytes in one regset.  */
  377.   
  378. ! static void
  379.   init_regset_vector (vector, space, nelts, bytes_per_elt)
  380.        regset *vector;
  381.        regset space;
  382. --- 888,894 ----
  383.      SPACE is of type regset, but it is really as long as NELTS regsets.
  384.      BYTES_PER_ELT is the number of bytes in one regset.  */
  385.   
  386. ! void
  387.   init_regset_vector (vector, space, nelts, bytes_per_elt)
  388.        regset *vector;
  389.        regset space;
  390. *** gcc/toplev.c.orig    Thu Sep  7 22:21:14 1989
  391. --- gcc/toplev.c    Tue Feb  6 15:40:16 1990
  392. ***************
  393. *** 51,56 ****
  394. --- 51,59 ----
  395.   #include "rtl.h"
  396.   #include "flags.h"
  397.   
  398. + #include "ae.h"
  399. + #include "ae-machine.h"
  400. + 
  401.   extern int yydebug;
  402.   
  403.   extern FILE *finput;
  404. ***************
  405. *** 316,321 ****
  406. --- 319,331 ----
  407.       if `-fSTRING' is seen as an option.
  408.      (If `-fno-STRING' is seen as an option, the opposite value is stored.)  */
  409.   
  410. + #ifdef AE
  411. + /* Non-zero if compilation should insert AE profiling code and create schema
  412. +    file. */
  413. + 
  414. + int ae_enable = 0;
  415. + #endif
  416. + 
  417.   struct { char *string; int *variable; int on_value;} f_options[] =
  418.   {
  419.     {"float-store", &flag_float_store, 1},
  420. ***************
  421. *** 352,357 ****
  422. --- 362,370 ----
  423.   FILE *global_reg_dump_file;
  424.   FILE *jump2_opt_dump_file;
  425.   FILE *dbr_sched_dump_file;
  426. + #ifdef AE
  427. + FILE *schema_out_file;
  428. + #endif
  429.   
  430.   /* Time accumulators, to count the total time spent in various passes.  */
  431.   
  432. ***************
  433. *** 1050,1055 ****
  434. --- 1063,1088 ----
  435.       pfatal_with_name (asm_file_name);
  436.       }
  437.   
  438. + #ifdef AE
  439. +   if (ae_enable)
  440. +     {
  441. +       register char *schema_name =
  442. +     (char *) xmalloc (dump_base_name_length + 6);
  443. +       int len = strlen (dump_base_name);
  444. +       strcpy (schema_name, dump_base_name);
  445. +       if (len > 2 && ! strcmp (".c", schema_name + len - 2))
  446. +     schema_name[len - 2] = 0;
  447. +       else if (len > 2 && ! strcmp (".i", schema_name + len - 2))
  448. +     schema_name[len - 2] = 0;
  449. +       else if (len > 3 && ! strcmp (".co", schema_name + len - 3))
  450. +     schema_name[len - 3] = 0;
  451. +       strcat (schema_name, ".sma");
  452. +       schema_out_file = fopen (schema_name, "w");
  453. +       if (asm_out_file == 0)
  454. +     pfatal_with_name (schema_name);
  455. +     }
  456. + #endif
  457. + 
  458.     input_filename = name;
  459.   
  460.     /* the beginning of the file is a new line; check for # */
  461. ***************
  462. *** 1668,1673 ****
  463. --- 1701,1711 ----
  464.   
  465.     /* Now turn the rtl into assembler code.  */
  466.   
  467. + #ifdef AE
  468. +          if (ae_enable)
  469. +            ae_function (insns, asm_out_file, write_symbols, optimize,
  470. +                 decl);
  471. + #endif
  472.     TIMEVAR (final_time,
  473.          {
  474.            assemble_function (decl);
  475. ***************
  476. *** 1879,1884 ****
  477. --- 1917,1926 ----
  478.         optimize = 1, obey_regdecls = 0;
  479.       else if (!strcmp (str, "O"))
  480.         optimize = 1, obey_regdecls = 0;
  481. + #ifdef AE
  482. +     else if (!strcmp (str, "AE"))
  483. +       ae_enable = 1;
  484. + #endif
  485.       else if (!strcmp (str, "pedantic"))
  486.         pedantic = 1;
  487.       else if (lang_decode_option (argv[i]))
  488. ***************
  489. *** 1979,1984 ****
  490. --- 2021,2033 ----
  491.         }
  492.       else
  493.         filename = argv[i];
  494. + 
  495. + #ifdef AE
  496. +   fix_register (AE_BUFFER_REG, 1, 1); /* Reserve register for ae_bp */
  497. + #ifdef AE_BUFFER_BOUND_REG
  498. +   fix_register (AE_BUFFER_BOUND_REG, 1, 1); /* Reserve register */
  499. + #endif
  500. + #endif
  501.   
  502.   #ifdef OVERRIDE_OPTIONS
  503.     /* Some machines may reject certain combinations of options.  */
  504. *** gcc/config.gcc.orig    Sat Sep 23 23:13:11 1989
  505. --- gcc/config.gcc    Tue Feb  6 11:57:35 1990
  506. ***************
  507. *** 148,153 ****
  508. --- 148,157 ----
  509.           cpu_type=sparc
  510.           target_machine=tm-sparc.h
  511.           ;;
  512. +     sun4-os4-ae | sun-4-os4-ae)
  513. +         cpu_type=sparc
  514. +         target_machine=tm-sparc-ae.h
  515. +         ;;
  516.       sun3-os4 | sun-3-os4)
  517.           cpu_type=m68k
  518.           target_machine=tm-sun3.h
  519. ***************
  520. *** 247,252 ****
  521. --- 251,260 ----
  522.       dec-3100 | decstation)        # Decstation or pmax.
  523.           cpu_type=mips
  524.           target_machine=tm-decstatn.h
  525. +             ;;
  526. +     dec-3100-ae | decstation-ae)        # Decstation or pmax.
  527. +         cpu_type=mips
  528. +         target_machine=tm-decstatn-ae.h
  529.               ;;
  530.       apollo68)
  531.           cpu_type=m68k
  532.