diff mbox series

rs6000: Fix up PCH on powerpc* [PR104323]

Message ID 20220201152740.GX2646553@tucnak
State New
Headers show
Series rs6000: Fix up PCH on powerpc* [PR104323] | expand

Commit Message

Jakub Jelinek Feb. 1, 2022, 3:27 p.m. UTC 
Hi!

As mentioned in the PR and as can be seen on:

	Jakub

Comments

Segher Boessenkool Feb. 1, 2022, 6:33 p.m. UTC | #1 
Hi!

On Tue, Feb 01, 2022 at 04:27:40PM +0100, Jakub Jelinek wrote:
> +/* PR target/104323 */
> +/* { dg-require-effective-target powerpc_altivec_ok } */
> +/* { dg-options "-maltivec" } */
> +
> +#include <altivec.h>
> testcase which I'm not including into testsuite because for some reason
> the test fails on non-powerpc* targets (is done even on those and fails
> because of missing altivec.h etc.),

powerpc_altivec_ok returns false if the target isn't Power, you can use
this in the testsuite fine?  Why does it still fail on other targets,
the test should be SKIPPED there?

Or wait, proc check_effective_target_powerpc_altivec_ok is broken, and
does not implement its intention or documentation.  Will fix.

> PCH is broken on powerpc*-*-* since the
> new builtin generator has been introduced.
> The generator contains or emits comments like:
>   /* #### Cannot mark this as a GC root because only pointer types can
>      be marked as GTY((user)) and be GC roots.  All trees in here are
>      kept alive by other globals, so not a big deal.  Alternatively,
>      we could change the enum fields to ints and cast them in and out
>      to avoid requiring a GTY((user)) designation, but that seems
>      unnecessarily gross.  */
> Having the fntypes stored in other GC roots can work fine for GC,
> ggc_collect will then always mark them and so they won't disappear from
> the tables, but it definitely doesn't work for PCH, which when the
> arrays with fntype members aren't GTY marked means on PCH write we create
> copies of those FUNCTION_TYPEs and store in *.gch that the GC roots should
> be updated, but don't store that rs6000_builtin_info[?].fntype etc. should
> be updated.  When PCH is read again, the blob is read at some other address,
> GC roots are updated, rs6000_builtin_info[?].fntype contains garbage
> pointers (GC freed pointers with random data, or random unrelated types or
> other trees).
> The following patch fixes that.  It stops any user markings because that
> is totally unnecessary, just skips fields we don't need to mark and adds
> GTY(()) to the 2 array variables.  We can get rid of all those global
> vars for the fn types, they can be now automatic vars.
> With the patch we get
>   {
>     &rs6000_instance_info[0].fntype,
>     1 * (RS6000_INST_MAX),
>     sizeof (rs6000_instance_info[0]),
>     &gt_ggc_mx_tree_node,
>     &gt_pch_nx_tree_node
>   },
>   {
>     &rs6000_builtin_info[0].fntype,
>     1 * (RS6000_BIF_MAX),
>     sizeof (rs6000_builtin_info[0]),
>     &gt_ggc_mx_tree_node,
>     &gt_pch_nx_tree_node
>   },
> as the new roots which is exactly what we want and significantly more
> compact than countless
>   {
>     &uv2di_ftype_pudi_usi,
>     1,
>     sizeof (uv2di_ftype_pudi_usi),
>     &gt_ggc_mx_tree_node,
>     &gt_pch_nx_tree_node
>   },
>   {
>     &uv2di_ftype_lg_puv2di,
>     1,
>     sizeof (uv2di_ftype_lg_puv2di),
>     &gt_ggc_mx_tree_node,
>     &gt_pch_nx_tree_node
>   },
>   {
>     &uv2di_ftype_lg_pudi,
>     1,
>     sizeof (uv2di_ftype_lg_pudi),
>     &gt_ggc_mx_tree_node,
>     &gt_pch_nx_tree_node
>   },
>   {
>     &uv2di_ftype_di_puv2di,
>     1,
>     sizeof (uv2di_ftype_di_puv2di),
>     &gt_ggc_mx_tree_node,
>     &gt_pch_nx_tree_node
>   },
> cases (822 of these instead of just those 4 shown).

Bill, can you review the builtin side of this?

> 	PR target/104323
> 	* config/rs6000/t-rs6000 (EXTRA_GTYPE_DEPS): Append rs6000-builtins.h
> 	rather than $(srcdir)/config/rs6000/rs6000-builtins.def.
> 	* config/rs6000/rs6000-gen-builtins.cc (write_decls): Don't use
> 	GTY((user)) for struct bifdata and struct ovlddata.  Instead add
> 	GTY((skip(""))) to members with pointer and enum types that don't need
> 	to be tracked.  Add GTY(()) to rs6000_builtin_info and rs6000_instance_info
> 	declarations.  Don't emit gt_ggc_mx and gt_pch_nx declarations.

Nice :-)

> 	(write_extern_fntype, write_fntype): Remove.
> 	(write_fntype_init): Emit the fntype vars as automatic vars instead
> 	of file scope ones.
> 	(write_header_file): Don't iterate with write_extern_fntype.
> 	(write_init_file): Don't iterate with write_fntype.  Don't emit
> 	gt_ggc_mx and gt_pch_nx definitions.

>    if (tf_found)
> -    fprintf (init_file, "  if (float128_type_node)\n  ");
> +    fprintf (init_file,
> +	     "  tree %s = NULL_TREE;\n  if (float128_type_node)\n    ",
> +	     buf);
>    else if (dfp_found)
> -    fprintf (init_file, "  if (dfloat64_type_node)\n  ");
> +    fprintf (init_file,
> +	     "  tree %s = NULL_TREE;\n  if (dfloat64_type_node)\n    ",
> +	     buf);

Things are much more readable if you break this into multiple print
statements.  I realise the existomg code is like that, but that could
be improved.

So, okay for trunk (modulo what Bill finds), and you can include the
testcase as well after I have fixed the selector.  Thanks Jakub!


Segher
Li, Pan2 via Gcc-patches Feb. 1, 2022, 7:02 p.m. UTC | #2 
Hi!

Jakub, thanks for fixing this.  I didn't realize the PCH implications here, clearly...

On 2/1/22 12:33 PM, Segher Boessenkool wrote:
> Hi!
>
> On Tue, Feb 01, 2022 at 04:27:40PM +0100, Jakub Jelinek wrote:
>> +/* PR target/104323 */
>> +/* { dg-require-effective-target powerpc_altivec_ok } */
>> +/* { dg-options "-maltivec" } */
>> +
>> +#include <altivec.h>
>> testcase which I'm not including into testsuite because for some reason
>> the test fails on non-powerpc* targets (is done even on those and fails
>> because of missing altivec.h etc.),
> powerpc_altivec_ok returns false if the target isn't Power, you can use
> this in the testsuite fine?  Why does it still fail on other targets,
> the test should be SKIPPED there?
>
> Or wait, proc check_effective_target_powerpc_altivec_ok is broken, and
> does not implement its intention or documentation.  Will fix.
>
>> PCH is broken on powerpc*-*-* since the
>> new builtin generator has been introduced.
>> The generator contains or emits comments like:
>>   /* #### Cannot mark this as a GC root because only pointer types can
>>      be marked as GTY((user)) and be GC roots.  All trees in here are
>>      kept alive by other globals, so not a big deal.  Alternatively,
>>      we could change the enum fields to ints and cast them in and out
>>      to avoid requiring a GTY((user)) designation, but that seems
>>      unnecessarily gross.  */
>> Having the fntypes stored in other GC roots can work fine for GC,
>> ggc_collect will then always mark them and so they won't disappear from
>> the tables, but it definitely doesn't work for PCH, which when the
>> arrays with fntype members aren't GTY marked means on PCH write we create
>> copies of those FUNCTION_TYPEs and store in *.gch that the GC roots should
>> be updated, but don't store that rs6000_builtin_info[?].fntype etc. should
>> be updated.  When PCH is read again, the blob is read at some other address,
>> GC roots are updated, rs6000_builtin_info[?].fntype contains garbage
>> pointers (GC freed pointers with random data, or random unrelated types or
>> other trees).
>> The following patch fixes that.  It stops any user markings because that
>> is totally unnecessary, just skips fields we don't need to mark and adds
>> GTY(()) to the 2 array variables.  We can get rid of all those global
>> vars for the fn types, they can be now automatic vars.
>> With the patch we get
>>   {
>>     &rs6000_instance_info[0].fntype,
>>     1 * (RS6000_INST_MAX),
>>     sizeof (rs6000_instance_info[0]),
>>     &gt_ggc_mx_tree_node,
>>     &gt_pch_nx_tree_node
>>   },
>>   {
>>     &rs6000_builtin_info[0].fntype,
>>     1 * (RS6000_BIF_MAX),
>>     sizeof (rs6000_builtin_info[0]),
>>     &gt_ggc_mx_tree_node,
>>     &gt_pch_nx_tree_node
>>   },
>> as the new roots which is exactly what we want and significantly more
>> compact than countless
>>   {
>>     &uv2di_ftype_pudi_usi,
>>     1,
>>     sizeof (uv2di_ftype_pudi_usi),
>>     &gt_ggc_mx_tree_node,
>>     &gt_pch_nx_tree_node
>>   },
>>   {
>>     &uv2di_ftype_lg_puv2di,
>>     1,
>>     sizeof (uv2di_ftype_lg_puv2di),
>>     &gt_ggc_mx_tree_node,
>>     &gt_pch_nx_tree_node
>>   },
>>   {
>>     &uv2di_ftype_lg_pudi,
>>     1,
>>     sizeof (uv2di_ftype_lg_pudi),
>>     &gt_ggc_mx_tree_node,
>>     &gt_pch_nx_tree_node
>>   },
>>   {
>>     &uv2di_ftype_di_puv2di,
>>     1,
>>     sizeof (uv2di_ftype_di_puv2di),
>>     &gt_ggc_mx_tree_node,
>>     &gt_pch_nx_tree_node
>>   },
>> cases (822 of these instead of just those 4 shown).
> Bill, can you review the builtin side of this?

Yes, I've just read through it and it looks just fine to me.
It's a big improvement over what I had there, even ignoring
the PCH issues.

Thanks again, Jakub!

Bill

>
>> 	PR target/104323
>> 	* config/rs6000/t-rs6000 (EXTRA_GTYPE_DEPS): Append rs6000-builtins.h
>> 	rather than $(srcdir)/config/rs6000/rs6000-builtins.def.
>> 	* config/rs6000/rs6000-gen-builtins.cc (write_decls): Don't use
>> 	GTY((user)) for struct bifdata and struct ovlddata.  Instead add
>> 	GTY((skip(""))) to members with pointer and enum types that don't need
>> 	to be tracked.  Add GTY(()) to rs6000_builtin_info and rs6000_instance_info
>> 	declarations.  Don't emit gt_ggc_mx and gt_pch_nx declarations.
> Nice :-)
>
>> 	(write_extern_fntype, write_fntype): Remove.
>> 	(write_fntype_init): Emit the fntype vars as automatic vars instead
>> 	of file scope ones.
>> 	(write_header_file): Don't iterate with write_extern_fntype.
>> 	(write_init_file): Don't iterate with write_fntype.  Don't emit
>> 	gt_ggc_mx and gt_pch_nx definitions.
>>    if (tf_found)
>> -    fprintf (init_file, "  if (float128_type_node)\n  ");
>> +    fprintf (init_file,
>> +	     "  tree %s = NULL_TREE;\n  if (float128_type_node)\n    ",
>> +	     buf);
>>    else if (dfp_found)
>> -    fprintf (init_file, "  if (dfloat64_type_node)\n  ");
>> +    fprintf (init_file,
>> +	     "  tree %s = NULL_TREE;\n  if (dfloat64_type_node)\n    ",
>> +	     buf);
> Things are much more readable if you break this into multiple print
> statements.  I realise the existomg code is like that, but that could
> be improved.
>
> So, okay for trunk (modulo what Bill finds), and you can include the
> testcase as well after I have fixed the selector.  Thanks Jakub!
>
>
> Segher
diff mbox series

Patch

--- gcc/testsuite/gcc.dg/pch/pr104323-1.c.jj	2022-02-01 13:06:00.163192414 +0100
+++ gcc/testsuite/gcc.dg/pch/pr104323-1.c	2022-02-01 13:13:41.226712735 +0100
@@ -0,0 +1,16 @@ 
+/* PR target/104323 */
+/* { dg-require-effective-target powerpc_altivec_ok } */
+/* { dg-options "-maltivec" } */
+
+#include "pr104323-1.h"
+
+__vector int a1 = { 100, 200, 300, 400 };
+__vector int a2 = { 500, 600, 700, 800 };
+__vector int r;
+
+int
+main ()
+{
+  r = vec_add (a1, a2);
+  return 0;
+}
--- gcc/testsuite/gcc.dg/pch/pr104323-1.hs.jj	2022-02-01 13:06:03.180149978 +0100
+++ gcc/testsuite/gcc.dg/pch/pr104323-1.hs	2022-02-01 13:12:30.175706620 +0100
@@ -0,0 +1,5 @@ 
+/* PR target/104323 */
+/* { dg-require-effective-target powerpc_altivec_ok } */
+/* { dg-options "-maltivec" } */
+
+#include <altivec.h>
testcase which I'm not including into testsuite because for some reason
the test fails on non-powerpc* targets (is done even on those and fails
because of missing altivec.h etc.), PCH is broken on powerpc*-*-* since the
new builtin generator has been introduced.
The generator contains or emits comments like:
  /* #### Cannot mark this as a GC root because only pointer types can
     be marked as GTY((user)) and be GC roots.  All trees in here are
     kept alive by other globals, so not a big deal.  Alternatively,
     we could change the enum fields to ints and cast them in and out
     to avoid requiring a GTY((user)) designation, but that seems
     unnecessarily gross.  */
Having the fntypes stored in other GC roots can work fine for GC,
ggc_collect will then always mark them and so they won't disappear from
the tables, but it definitely doesn't work for PCH, which when the
arrays with fntype members aren't GTY marked means on PCH write we create
copies of those FUNCTION_TYPEs and store in *.gch that the GC roots should
be updated, but don't store that rs6000_builtin_info[?].fntype etc. should
be updated.  When PCH is read again, the blob is read at some other address,
GC roots are updated, rs6000_builtin_info[?].fntype contains garbage
pointers (GC freed pointers with random data, or random unrelated types or
other trees).
The following patch fixes that.  It stops any user markings because that
is totally unnecessary, just skips fields we don't need to mark and adds
GTY(()) to the 2 array variables.  We can get rid of all those global
vars for the fn types, they can be now automatic vars.
With the patch we get
  {
    &rs6000_instance_info[0].fntype,
    1 * (RS6000_INST_MAX),
    sizeof (rs6000_instance_info[0]),
    &gt_ggc_mx_tree_node,
    &gt_pch_nx_tree_node
  },
  {
    &rs6000_builtin_info[0].fntype,
    1 * (RS6000_BIF_MAX),
    sizeof (rs6000_builtin_info[0]),
    &gt_ggc_mx_tree_node,
    &gt_pch_nx_tree_node
  },
as the new roots which is exactly what we want and significantly more
compact than countless
  {
    &uv2di_ftype_pudi_usi,
    1,
    sizeof (uv2di_ftype_pudi_usi),
    &gt_ggc_mx_tree_node,
    &gt_pch_nx_tree_node
  },
  {
    &uv2di_ftype_lg_puv2di,
    1,
    sizeof (uv2di_ftype_lg_puv2di),
    &gt_ggc_mx_tree_node,
    &gt_pch_nx_tree_node
  },
  {
    &uv2di_ftype_lg_pudi,
    1,
    sizeof (uv2di_ftype_lg_pudi),
    &gt_ggc_mx_tree_node,
    &gt_pch_nx_tree_node
  },
  {
    &uv2di_ftype_di_puv2di,
    1,
    sizeof (uv2di_ftype_di_puv2di),
    &gt_ggc_mx_tree_node,
    &gt_pch_nx_tree_node
  },
cases (822 of these instead of just those 4 shown).

Bootstrapped/regtested on powerpc64le-linux, ok for trunk?

2022-02-01  Jakub Jelinek  <jakub@redhat.com>

	PR target/104323
	* config/rs6000/t-rs6000 (EXTRA_GTYPE_DEPS): Append rs6000-builtins.h
	rather than $(srcdir)/config/rs6000/rs6000-builtins.def.
	* config/rs6000/rs6000-gen-builtins.cc (write_decls): Don't use
	GTY((user)) for struct bifdata and struct ovlddata.  Instead add
	GTY((skip(""))) to members with pointer and enum types that don't need
	to be tracked.  Add GTY(()) to rs6000_builtin_info and rs6000_instance_info
	declarations.  Don't emit gt_ggc_mx and gt_pch_nx declarations.
	(write_extern_fntype, write_fntype): Remove.
	(write_fntype_init): Emit the fntype vars as automatic vars instead
	of file scope ones.
	(write_header_file): Don't iterate with write_extern_fntype.
	(write_init_file): Don't iterate with write_fntype.  Don't emit
	gt_ggc_mx and gt_pch_nx definitions.

--- gcc/config/rs6000/t-rs6000.jj	2022-01-18 11:58:59.245986871 +0100
+++ gcc/config/rs6000/t-rs6000	2022-02-01 12:25:32.945144092 +0100
@@ -21,7 +21,7 @@ 
 TM_H += $(srcdir)/config/rs6000/rs6000-cpus.def
 TM_H += $(srcdir)/config/rs6000/rs6000-modes.h
 PASSES_EXTRA += $(srcdir)/config/rs6000/rs6000-passes.def
-EXTRA_GTYPE_DEPS += $(srcdir)/config/rs6000/rs6000-builtins.def
+EXTRA_GTYPE_DEPS += rs6000-builtins.h
 
 rs6000-pcrel-opt.o: $(srcdir)/config/rs6000/rs6000-pcrel-opt.cc
 	$(COMPILE) $<
--- gcc/config/rs6000/rs6000-gen-builtins.cc.jj	2022-01-18 11:58:59.218987257 +0100
+++ gcc/config/rs6000/rs6000-gen-builtins.cc	2022-02-01 12:52:57.632188253 +0100
@@ -2255,20 +2255,20 @@  write_decls (void)
   fprintf (header_file, "};\n\n");
 
   fprintf (header_file, "#define PPC_MAXRESTROPNDS 3\n");
-  fprintf (header_file, "struct GTY((user)) bifdata\n");
+  fprintf (header_file, "struct GTY(()) bifdata\n");
   fprintf (header_file, "{\n");
-  fprintf (header_file, "  const char *bifname;\n");
-  fprintf (header_file, "  bif_enable enable;\n");
+  fprintf (header_file, "  const char *GTY((skip(\"\"))) bifname;\n");
+  fprintf (header_file, "  bif_enable GTY((skip(\"\"))) enable;\n");
   fprintf (header_file, "  tree fntype;\n");
-  fprintf (header_file, "  insn_code icode;\n");
+  fprintf (header_file, "  insn_code GTY((skip(\"\"))) icode;\n");
   fprintf (header_file, "  int  nargs;\n");
   fprintf (header_file, "  int  bifattrs;\n");
   fprintf (header_file, "  int  restr_opnd[PPC_MAXRESTROPNDS];\n");
-  fprintf (header_file, "  restriction restr[PPC_MAXRESTROPNDS];\n");
+  fprintf (header_file, "  restriction GTY((skip(\"\"))) restr[PPC_MAXRESTROPNDS];\n");
   fprintf (header_file, "  int  restr_val1[PPC_MAXRESTROPNDS];\n");
   fprintf (header_file, "  int  restr_val2[PPC_MAXRESTROPNDS];\n");
-  fprintf (header_file, "  const char *attr_string;\n");
-  fprintf (header_file, "  rs6000_gen_builtins assoc_bif;\n");
+  fprintf (header_file, "  const char *GTY((skip(\"\"))) attr_string;\n");
+  fprintf (header_file, "  rs6000_gen_builtins GTY((skip(\"\"))) assoc_bif;\n");
   fprintf (header_file, "};\n\n");
 
   fprintf (header_file, "#define bif_init_bit\t\t(0x00000001)\n");
@@ -2343,21 +2343,15 @@  write_decls (void)
 	   "#define bif_is_ibmld(x)\t((x).bifattrs & bif_ibmld_bit)\n");
   fprintf (header_file, "\n");
 
-  /* #### Cannot mark this as a GC root because only pointer types can
-     be marked as GTY((user)) and be GC roots.  All trees in here are
-     kept alive by other globals, so not a big deal.  Alternatively,
-     we could change the enum fields to ints and cast them in and out
-     to avoid requiring a GTY((user)) designation, but that seems
-     unnecessarily gross.  */
   fprintf (header_file,
-	   "extern bifdata rs6000_builtin_info[RS6000_BIF_MAX];\n\n");
+	   "extern GTY(()) bifdata rs6000_builtin_info[RS6000_BIF_MAX];\n\n");
 
-  fprintf (header_file, "struct GTY((user)) ovlddata\n");
+  fprintf (header_file, "struct GTY(()) ovlddata\n");
   fprintf (header_file, "{\n");
-  fprintf (header_file, "  const char *bifname;\n");
-  fprintf (header_file, "  rs6000_gen_builtins bifid;\n");
+  fprintf (header_file, "  const char *GTY((skip(\"\"))) bifname;\n");
+  fprintf (header_file, "  rs6000_gen_builtins GTY((skip(\"\"))) bifid;\n");
   fprintf (header_file, "  tree fntype;\n");
-  fprintf (header_file, "  ovlddata *next;\n");
+  fprintf (header_file, "  ovlddata *GTY((skip(\"\"))) next;\n");
   fprintf (header_file, "};\n\n");
 
   fprintf (header_file, "struct ovldrecord\n");
@@ -2367,14 +2361,7 @@  write_decls (void)
   fprintf (header_file, "};\n\n");
 
   fprintf (header_file,
-	   "/* #### Cannot mark this as a GC root because only pointer\n"
-	   "   types can be marked as GTY((user)) and be GC roots.  All\n"
-	   "   trees in here are kept alive by other globals, so not a big\n"
-	   "   deal.  Alternatively, we could change the enum fields to ints\n"
-	   "   and cast them in and out to avoid requiring a GTY((user))\n"
-	   "   designation, but that seems unnecessarily gross.  */\n");
-  fprintf (header_file,
-	   "extern ovlddata rs6000_instance_info[RS6000_INST_MAX];\n");
+	   "extern GTY(()) ovlddata rs6000_instance_info[RS6000_INST_MAX];\n");
   fprintf (header_file, "extern ovldrecord rs6000_overload_info[];\n\n");
 
   fprintf (header_file, "extern void rs6000_init_generated_builtins ();\n\n");
@@ -2383,33 +2370,6 @@  write_decls (void)
   fprintf (header_file,
 	   "extern tree rs6000_builtin_decl (unsigned, "
 	   "bool ATTRIBUTE_UNUSED);\n\n");
-  fprintf (header_file,
-	   "extern void gt_ggc_mx (bifdata *bd);\n");
-  fprintf (header_file,
-	   "extern void gt_pch_nx (bifdata *bd);\n");
-  fprintf (header_file,
-	   "extern void gt_pch_nx (bifdata *bd, gt_pointer_operator op, "
-	   "void *cookie);\n");
-  fprintf (header_file,
-	   "extern void gt_ggc_mx (ovlddata *od);\n");
-  fprintf (header_file,
-	   "extern void gt_pch_nx (ovlddata *od);\n");
-  fprintf (header_file,
-	   "extern void gt_pch_nx (ovlddata *od, gt_pointer_operator op, "
-	   "void *cookie);\n");
-}
-
-/* Callback functions used for generating trees for function types.  */
-void
-write_extern_fntype (char *str)
-{
-  fprintf (header_file, "extern GTY(()) tree %s;\n", str);
-}
-
-void
-write_fntype (char *str)
-{
-  fprintf (init_file, "tree %s;\n", str);
 }
 
 /* Comparator for bsearch on the type map.  */
@@ -2453,11 +2413,17 @@  write_fntype_init (char *str)
   char *buf = strdup (str);
 
   if (tf_found)
-    fprintf (init_file, "  if (float128_type_node)\n  ");
+    fprintf (init_file,
+	     "  tree %s = NULL_TREE;\n  if (float128_type_node)\n    ",
+	     buf);
   else if (dfp_found)
-    fprintf (init_file, "  if (dfloat64_type_node)\n  ");
+    fprintf (init_file,
+	     "  tree %s = NULL_TREE;\n  if (dfloat64_type_node)\n    ",
+	     buf);
+  else
+    fprintf (init_file, "  tree ");
 
-  fprintf (init_file, "  %s\n    = build_function_type_list (", buf);
+  fprintf (init_file, "%s\n    = build_function_type_list (", buf);
   tok = strtok (buf, "_");
   write_type_node (tok, tf_found || dfp_found);
   tok = strtok (0, "_");
@@ -2491,8 +2457,6 @@  write_header_file (void)
 
   write_decls ();
 
-  /* Write function type list declarators to the header file.  */
-  rbt_inorder_callback (&fntype_rbt, fntype_rbt.rbt_root, write_extern_fntype);
   fprintf (header_file, "\n");
   fprintf (header_file, "\n#endif\n");
 
@@ -2846,9 +2810,6 @@  write_init_file (void)
   write_bif_static_init ();
   write_ovld_static_init ();
 
-  rbt_inorder_callback (&fntype_rbt, fntype_rbt.rbt_root, write_fntype);
-  fprintf (init_file, "\n");
-
   fprintf (init_file, "void\n");
   fprintf (init_file, "rs6000_init_generated_builtins ()\n");
   fprintf (init_file, "{\n");
@@ -2868,33 +2829,6 @@  write_init_file (void)
 
   fprintf (init_file, "}\n\n");
 
-  fprintf (init_file,
-	   "void gt_ggc_mx (bifdata *bd)\n");
-  fprintf (init_file,
-	   "{\n  gt_ggc_mx (bd->fntype);\n}\n\n");
-  fprintf (init_file,
-	   "void gt_pch_nx (bifdata *bd)\n");
-  fprintf (init_file,
-	   "{\n  gt_pch_nx (bd->fntype);\n}\n\n");
-  fprintf (init_file,
-	   "void gt_pch_nx (bifdata *bd, gt_pointer_operator op, "
-	   "void *cookie)\n");
-  fprintf (init_file,
-	   "{\n  op(&(bd->fntype), NULL, cookie);\n}\n\n");
-  fprintf (init_file,
-	   "void gt_ggc_mx (ovlddata *od)\n");
-  fprintf (init_file,
-	   "{\n  gt_ggc_mx (od->fntype);\n}\n\n");
-  fprintf (init_file,
-	   "void gt_pch_nx (ovlddata *od)\n");
-  fprintf (init_file,
-	   "{\n  gt_pch_nx (od->fntype);\n}\n\n");
-  fprintf (init_file,
-	   "void gt_pch_nx (ovlddata *od, gt_pointer_operator op, "
-	   "void *cookie)\n");
-  fprintf (init_file,
-	   "{\n  op(&(od->fntype), NULL, cookie);\n}\n");
-
   return 1;
 }