public inbox for gcc-cvs@sourceware.org
help / color / mirror / Atom feed
* [gcc(refs/users/wschmidt/heads/builtins3)] rs6000: Write output to the builtins init file, part 1 of 3
@ 2020-09-14 13:58 William Schmidt
0 siblings, 0 replies; 10+ messages in thread
From: William Schmidt @ 2020-09-14 13:58 UTC (permalink / raw)
To: gcc-cvs
https://gcc.gnu.org/g:f6dc5161f01f7814c86edec89a25bb9872c9a50b
commit f6dc5161f01f7814c86edec89a25bb9872c9a50b
Author: Bill Schmidt <wschmidt@linux.ibm.com>
Date: Wed Jun 17 11:13:01 2020 -0500
rs6000: Write output to the builtins init file, part 1 of 3
2020-07-26 Bill Schmidt <wschmidt@linux.ibm.com>
* config/rs6000/rs6000-gen-builtins.c (write_fntype): New
function.
(write_fntype_init): New stub function.
(write_init_bif_table): Likewise.
(write_init_ovld_table): New function.
(write_init_file): Implement.
Diff:
---
gcc/config/rs6000/rs6000-gen-builtins.c | 149 ++++++++++++++++++++++++++++++++
1 file changed, 149 insertions(+)
diff --git a/gcc/config/rs6000/rs6000-gen-builtins.c b/gcc/config/rs6000/rs6000-gen-builtins.c
index 67c7b22aad6..3ac199ff2e5 100644
--- a/gcc/config/rs6000/rs6000-gen-builtins.c
+++ b/gcc/config/rs6000/rs6000-gen-builtins.c
@@ -2055,6 +2055,18 @@ write_extern_fntype (char *str)
fprintf (header_file, "extern tree %s;\n", str);
}
+void
+write_fntype (char *str)
+{
+ fprintf (init_file, "tree %s;\n", str);
+}
+
+/* Write an initializer for a function type identified by STR. */
+void
+write_fntype_init (char *str)
+{
+}
+
/* Write everything to the header file (rs6000-builtins.h). */
static int
write_header_file ()
@@ -2078,10 +2090,147 @@ write_header_file ()
return 1;
}
+/* Write code to initialize the built-in function table. */
+static void
+write_init_bif_table ()
+{
+}
+
+/* Write code to initialize the overload table. */
+static void
+write_init_ovld_table ()
+{
+ fprintf (init_file, " int base = RS6000_BIF_MAX;\n\n");
+
+ for (int i = 0; i <= curr_ovld; i++)
+ {
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].bifname"
+ "\n = \"%s\";\n",
+ ovlds[i].idname, ovlds[i].proto.bifname);
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].bifid"
+ "\n = RS6000_BIF_%s;\n",
+ ovlds[i].idname, ovlds[i].idname);
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].fntype"
+ "\n = %s;\n",
+ ovlds[i].idname, ovlds[i].fndecl);
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].next"
+ "\n = ", ovlds[i].idname);
+ if (i < curr_ovld
+ && !strcmp (ovlds[i+1].proto.bifname, ovlds[i].proto.bifname))
+ fprintf (init_file,
+ "&rs6000_overload_info[RS6000_OVLD_%s - base];\n",
+ ovlds[i+1].idname);
+ else
+ fprintf (init_file, "NULL;\n");
+
+ if (i == 0 || ovlds[i].stanza != ovlds[i-1].stanza)
+ {
+ fprintf (init_file, "\n");
+
+ fprintf (init_file,
+ " ovldaddr = &rs6000_overload_info"
+ "[RS6000_OVLD_%s - base];\n",
+ ovlds[i].idname);
+ fprintf (init_file,
+ " hash = rs6000_ovld_hasher::hash (ovldaddr);\n");
+ fprintf (init_file,
+ " oslot = ovld_hash.find_slot_with_hash (\n");
+ fprintf (init_file,
+ " \"%s\", hash, INSERT\n",
+ ovlds[i].proto.bifname);
+ fprintf (init_file,
+ " );\n");
+ fprintf (init_file,
+ " *oslot = ovldaddr;\n");
+ }
+
+ if (i < curr_ovld)
+ fprintf (init_file, "\n");
+ }
+}
+
/* Write everything to the initialization file (rs6000-builtins.c). */
static int
write_init_file ()
{
+ write_autogenerated_header (init_file);
+
+ fprintf (init_file, "#include \"config.h\"\n");
+ fprintf (init_file, "#include \"system.h\"\n");
+ fprintf (init_file, "#include \"coretypes.h\"\n");
+ fprintf (init_file, "#include \"backend.h\"\n");
+ fprintf (init_file, "#include \"rtl.h\"\n");
+ fprintf (init_file, "#include \"tree.h\"\n");
+ fprintf (init_file, "#include \"langhooks.h\"\n");
+ fprintf (init_file, "#include \"insn-codes.h\"\n");
+ fprintf (init_file, "#include \"rs6000-builtins.h\"\n");
+ fprintf (init_file, "\n");
+
+#ifdef DEBUG_NEW_BUILTINS
+ fprintf (init_file, "int new_builtins_are_live = 1;\n\n");
+#else
+ fprintf (init_file, "int new_builtins_are_live = 0;\n\n");
+#endif
+
+ fprintf (init_file,
+ "bifdata rs6000_builtin_info_x[RS6000_BIF_MAX];\n\n");
+ fprintf (init_file,
+ "ovlddata rs6000_overload_info[RS6000_OVLD_MAX"
+ " - RS6000_BIF_MAX];\n\n");
+
+ rbt_inorder_callback (&fntype_rbt, fntype_rbt.rbt_root, write_fntype);
+ fprintf (init_file, "\n");
+
+ fprintf (init_file, "hashval_t\n");
+ fprintf (init_file, "rs6000_bif_hasher::hash (bifdata *bd)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return htab_hash_string (bd->bifname);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "bool\n");
+ fprintf (init_file,
+ "rs6000_bif_hasher::equal (bifdata *bd, const char *name)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return bd && name && !strcmp (bd->bifname, name);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "hash_table<rs6000_bif_hasher> bif_hash (1024);\n\n");
+
+ fprintf (init_file, "hashval_t\n");
+ fprintf (init_file, "rs6000_ovld_hasher::hash (ovlddata *od)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return htab_hash_string (od->bifname);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "bool\n");
+ fprintf (init_file,
+ "rs6000_ovld_hasher::equal (ovlddata *od, const char *name)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return od && name && !strcmp (od->bifname, name);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "hash_table<rs6000_ovld_hasher> ovld_hash (512);\n\n");
+
+ fprintf (init_file, "void\n");
+ fprintf (init_file, "rs6000_autoinit_builtins ()\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " tree t;\n");
+ fprintf (init_file, " bifdata **slot;\n");
+ fprintf (init_file, " bifdata *bifaddr;\n");
+ fprintf (init_file, " hashval_t hash;\n");
+ fprintf (init_file, " ovlddata **oslot;\n");
+ fprintf (init_file, " ovlddata *ovldaddr;\n\n");
+ rbt_inorder_callback (&fntype_rbt, fntype_rbt.rbt_root, write_fntype_init);
+ fprintf (init_file, "\n");
+
+ write_init_bif_table ();
+ write_init_ovld_table ();
+
+ fprintf (init_file, "}\n");
return 1;
}
^ permalink raw reply [flat|nested] 10+ messages in thread
* [gcc(refs/users/wschmidt/heads/builtins3)] rs6000: Write output to the builtins init file, part 1 of 3
@ 2020-10-29 19:50 William Schmidt
0 siblings, 0 replies; 10+ messages in thread
From: William Schmidt @ 2020-10-29 19:50 UTC (permalink / raw)
To: gcc-cvs
https://gcc.gnu.org/g:077e7ada55c7b91e37710eb36b7ee6c69a3c5d8a
commit 077e7ada55c7b91e37710eb36b7ee6c69a3c5d8a
Author: Bill Schmidt <wschmidt@linux.ibm.com>
Date: Wed Jun 17 11:13:01 2020 -0500
rs6000: Write output to the builtins init file, part 1 of 3
2020-07-26 Bill Schmidt <wschmidt@linux.ibm.com>
* config/rs6000/rs6000-gen-builtins.c (write_fntype): New
function.
(write_fntype_init): New stub function.
(write_init_bif_table): Likewise.
(write_init_ovld_table): New function.
(write_init_file): Implement.
Diff:
---
gcc/config/rs6000/rs6000-gen-builtins.c | 149 ++++++++++++++++++++++++++++++++
1 file changed, 149 insertions(+)
diff --git a/gcc/config/rs6000/rs6000-gen-builtins.c b/gcc/config/rs6000/rs6000-gen-builtins.c
index 67c7b22aad6..3ac199ff2e5 100644
--- a/gcc/config/rs6000/rs6000-gen-builtins.c
+++ b/gcc/config/rs6000/rs6000-gen-builtins.c
@@ -2055,6 +2055,18 @@ write_extern_fntype (char *str)
fprintf (header_file, "extern tree %s;\n", str);
}
+void
+write_fntype (char *str)
+{
+ fprintf (init_file, "tree %s;\n", str);
+}
+
+/* Write an initializer for a function type identified by STR. */
+void
+write_fntype_init (char *str)
+{
+}
+
/* Write everything to the header file (rs6000-builtins.h). */
static int
write_header_file ()
@@ -2078,10 +2090,147 @@ write_header_file ()
return 1;
}
+/* Write code to initialize the built-in function table. */
+static void
+write_init_bif_table ()
+{
+}
+
+/* Write code to initialize the overload table. */
+static void
+write_init_ovld_table ()
+{
+ fprintf (init_file, " int base = RS6000_BIF_MAX;\n\n");
+
+ for (int i = 0; i <= curr_ovld; i++)
+ {
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].bifname"
+ "\n = \"%s\";\n",
+ ovlds[i].idname, ovlds[i].proto.bifname);
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].bifid"
+ "\n = RS6000_BIF_%s;\n",
+ ovlds[i].idname, ovlds[i].idname);
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].fntype"
+ "\n = %s;\n",
+ ovlds[i].idname, ovlds[i].fndecl);
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].next"
+ "\n = ", ovlds[i].idname);
+ if (i < curr_ovld
+ && !strcmp (ovlds[i+1].proto.bifname, ovlds[i].proto.bifname))
+ fprintf (init_file,
+ "&rs6000_overload_info[RS6000_OVLD_%s - base];\n",
+ ovlds[i+1].idname);
+ else
+ fprintf (init_file, "NULL;\n");
+
+ if (i == 0 || ovlds[i].stanza != ovlds[i-1].stanza)
+ {
+ fprintf (init_file, "\n");
+
+ fprintf (init_file,
+ " ovldaddr = &rs6000_overload_info"
+ "[RS6000_OVLD_%s - base];\n",
+ ovlds[i].idname);
+ fprintf (init_file,
+ " hash = rs6000_ovld_hasher::hash (ovldaddr);\n");
+ fprintf (init_file,
+ " oslot = ovld_hash.find_slot_with_hash (\n");
+ fprintf (init_file,
+ " \"%s\", hash, INSERT\n",
+ ovlds[i].proto.bifname);
+ fprintf (init_file,
+ " );\n");
+ fprintf (init_file,
+ " *oslot = ovldaddr;\n");
+ }
+
+ if (i < curr_ovld)
+ fprintf (init_file, "\n");
+ }
+}
+
/* Write everything to the initialization file (rs6000-builtins.c). */
static int
write_init_file ()
{
+ write_autogenerated_header (init_file);
+
+ fprintf (init_file, "#include \"config.h\"\n");
+ fprintf (init_file, "#include \"system.h\"\n");
+ fprintf (init_file, "#include \"coretypes.h\"\n");
+ fprintf (init_file, "#include \"backend.h\"\n");
+ fprintf (init_file, "#include \"rtl.h\"\n");
+ fprintf (init_file, "#include \"tree.h\"\n");
+ fprintf (init_file, "#include \"langhooks.h\"\n");
+ fprintf (init_file, "#include \"insn-codes.h\"\n");
+ fprintf (init_file, "#include \"rs6000-builtins.h\"\n");
+ fprintf (init_file, "\n");
+
+#ifdef DEBUG_NEW_BUILTINS
+ fprintf (init_file, "int new_builtins_are_live = 1;\n\n");
+#else
+ fprintf (init_file, "int new_builtins_are_live = 0;\n\n");
+#endif
+
+ fprintf (init_file,
+ "bifdata rs6000_builtin_info_x[RS6000_BIF_MAX];\n\n");
+ fprintf (init_file,
+ "ovlddata rs6000_overload_info[RS6000_OVLD_MAX"
+ " - RS6000_BIF_MAX];\n\n");
+
+ rbt_inorder_callback (&fntype_rbt, fntype_rbt.rbt_root, write_fntype);
+ fprintf (init_file, "\n");
+
+ fprintf (init_file, "hashval_t\n");
+ fprintf (init_file, "rs6000_bif_hasher::hash (bifdata *bd)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return htab_hash_string (bd->bifname);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "bool\n");
+ fprintf (init_file,
+ "rs6000_bif_hasher::equal (bifdata *bd, const char *name)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return bd && name && !strcmp (bd->bifname, name);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "hash_table<rs6000_bif_hasher> bif_hash (1024);\n\n");
+
+ fprintf (init_file, "hashval_t\n");
+ fprintf (init_file, "rs6000_ovld_hasher::hash (ovlddata *od)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return htab_hash_string (od->bifname);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "bool\n");
+ fprintf (init_file,
+ "rs6000_ovld_hasher::equal (ovlddata *od, const char *name)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return od && name && !strcmp (od->bifname, name);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "hash_table<rs6000_ovld_hasher> ovld_hash (512);\n\n");
+
+ fprintf (init_file, "void\n");
+ fprintf (init_file, "rs6000_autoinit_builtins ()\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " tree t;\n");
+ fprintf (init_file, " bifdata **slot;\n");
+ fprintf (init_file, " bifdata *bifaddr;\n");
+ fprintf (init_file, " hashval_t hash;\n");
+ fprintf (init_file, " ovlddata **oslot;\n");
+ fprintf (init_file, " ovlddata *ovldaddr;\n\n");
+ rbt_inorder_callback (&fntype_rbt, fntype_rbt.rbt_root, write_fntype_init);
+ fprintf (init_file, "\n");
+
+ write_init_bif_table ();
+ write_init_ovld_table ();
+
+ fprintf (init_file, "}\n");
return 1;
}
^ permalink raw reply [flat|nested] 10+ messages in thread
* [gcc(refs/users/wschmidt/heads/builtins3)] rs6000: Write output to the builtins init file, part 1 of 3
@ 2020-10-27 16:28 William Schmidt
0 siblings, 0 replies; 10+ messages in thread
From: William Schmidt @ 2020-10-27 16:28 UTC (permalink / raw)
To: gcc-cvs
https://gcc.gnu.org/g:e193000f8c6ee6fb99c834be5b0af3479b2a7082
commit e193000f8c6ee6fb99c834be5b0af3479b2a7082
Author: Bill Schmidt <wschmidt@linux.ibm.com>
Date: Wed Jun 17 11:13:01 2020 -0500
rs6000: Write output to the builtins init file, part 1 of 3
2020-07-26 Bill Schmidt <wschmidt@linux.ibm.com>
* config/rs6000/rs6000-gen-builtins.c (write_fntype): New
function.
(write_fntype_init): New stub function.
(write_init_bif_table): Likewise.
(write_init_ovld_table): New function.
(write_init_file): Implement.
Diff:
---
gcc/config/rs6000/rs6000-gen-builtins.c | 149 ++++++++++++++++++++++++++++++++
1 file changed, 149 insertions(+)
diff --git a/gcc/config/rs6000/rs6000-gen-builtins.c b/gcc/config/rs6000/rs6000-gen-builtins.c
index 67c7b22aad6..3ac199ff2e5 100644
--- a/gcc/config/rs6000/rs6000-gen-builtins.c
+++ b/gcc/config/rs6000/rs6000-gen-builtins.c
@@ -2055,6 +2055,18 @@ write_extern_fntype (char *str)
fprintf (header_file, "extern tree %s;\n", str);
}
+void
+write_fntype (char *str)
+{
+ fprintf (init_file, "tree %s;\n", str);
+}
+
+/* Write an initializer for a function type identified by STR. */
+void
+write_fntype_init (char *str)
+{
+}
+
/* Write everything to the header file (rs6000-builtins.h). */
static int
write_header_file ()
@@ -2078,10 +2090,147 @@ write_header_file ()
return 1;
}
+/* Write code to initialize the built-in function table. */
+static void
+write_init_bif_table ()
+{
+}
+
+/* Write code to initialize the overload table. */
+static void
+write_init_ovld_table ()
+{
+ fprintf (init_file, " int base = RS6000_BIF_MAX;\n\n");
+
+ for (int i = 0; i <= curr_ovld; i++)
+ {
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].bifname"
+ "\n = \"%s\";\n",
+ ovlds[i].idname, ovlds[i].proto.bifname);
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].bifid"
+ "\n = RS6000_BIF_%s;\n",
+ ovlds[i].idname, ovlds[i].idname);
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].fntype"
+ "\n = %s;\n",
+ ovlds[i].idname, ovlds[i].fndecl);
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].next"
+ "\n = ", ovlds[i].idname);
+ if (i < curr_ovld
+ && !strcmp (ovlds[i+1].proto.bifname, ovlds[i].proto.bifname))
+ fprintf (init_file,
+ "&rs6000_overload_info[RS6000_OVLD_%s - base];\n",
+ ovlds[i+1].idname);
+ else
+ fprintf (init_file, "NULL;\n");
+
+ if (i == 0 || ovlds[i].stanza != ovlds[i-1].stanza)
+ {
+ fprintf (init_file, "\n");
+
+ fprintf (init_file,
+ " ovldaddr = &rs6000_overload_info"
+ "[RS6000_OVLD_%s - base];\n",
+ ovlds[i].idname);
+ fprintf (init_file,
+ " hash = rs6000_ovld_hasher::hash (ovldaddr);\n");
+ fprintf (init_file,
+ " oslot = ovld_hash.find_slot_with_hash (\n");
+ fprintf (init_file,
+ " \"%s\", hash, INSERT\n",
+ ovlds[i].proto.bifname);
+ fprintf (init_file,
+ " );\n");
+ fprintf (init_file,
+ " *oslot = ovldaddr;\n");
+ }
+
+ if (i < curr_ovld)
+ fprintf (init_file, "\n");
+ }
+}
+
/* Write everything to the initialization file (rs6000-builtins.c). */
static int
write_init_file ()
{
+ write_autogenerated_header (init_file);
+
+ fprintf (init_file, "#include \"config.h\"\n");
+ fprintf (init_file, "#include \"system.h\"\n");
+ fprintf (init_file, "#include \"coretypes.h\"\n");
+ fprintf (init_file, "#include \"backend.h\"\n");
+ fprintf (init_file, "#include \"rtl.h\"\n");
+ fprintf (init_file, "#include \"tree.h\"\n");
+ fprintf (init_file, "#include \"langhooks.h\"\n");
+ fprintf (init_file, "#include \"insn-codes.h\"\n");
+ fprintf (init_file, "#include \"rs6000-builtins.h\"\n");
+ fprintf (init_file, "\n");
+
+#ifdef DEBUG_NEW_BUILTINS
+ fprintf (init_file, "int new_builtins_are_live = 1;\n\n");
+#else
+ fprintf (init_file, "int new_builtins_are_live = 0;\n\n");
+#endif
+
+ fprintf (init_file,
+ "bifdata rs6000_builtin_info_x[RS6000_BIF_MAX];\n\n");
+ fprintf (init_file,
+ "ovlddata rs6000_overload_info[RS6000_OVLD_MAX"
+ " - RS6000_BIF_MAX];\n\n");
+
+ rbt_inorder_callback (&fntype_rbt, fntype_rbt.rbt_root, write_fntype);
+ fprintf (init_file, "\n");
+
+ fprintf (init_file, "hashval_t\n");
+ fprintf (init_file, "rs6000_bif_hasher::hash (bifdata *bd)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return htab_hash_string (bd->bifname);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "bool\n");
+ fprintf (init_file,
+ "rs6000_bif_hasher::equal (bifdata *bd, const char *name)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return bd && name && !strcmp (bd->bifname, name);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "hash_table<rs6000_bif_hasher> bif_hash (1024);\n\n");
+
+ fprintf (init_file, "hashval_t\n");
+ fprintf (init_file, "rs6000_ovld_hasher::hash (ovlddata *od)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return htab_hash_string (od->bifname);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "bool\n");
+ fprintf (init_file,
+ "rs6000_ovld_hasher::equal (ovlddata *od, const char *name)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return od && name && !strcmp (od->bifname, name);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "hash_table<rs6000_ovld_hasher> ovld_hash (512);\n\n");
+
+ fprintf (init_file, "void\n");
+ fprintf (init_file, "rs6000_autoinit_builtins ()\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " tree t;\n");
+ fprintf (init_file, " bifdata **slot;\n");
+ fprintf (init_file, " bifdata *bifaddr;\n");
+ fprintf (init_file, " hashval_t hash;\n");
+ fprintf (init_file, " ovlddata **oslot;\n");
+ fprintf (init_file, " ovlddata *ovldaddr;\n\n");
+ rbt_inorder_callback (&fntype_rbt, fntype_rbt.rbt_root, write_fntype_init);
+ fprintf (init_file, "\n");
+
+ write_init_bif_table ();
+ write_init_ovld_table ();
+
+ fprintf (init_file, "}\n");
return 1;
}
^ permalink raw reply [flat|nested] 10+ messages in thread
* [gcc(refs/users/wschmidt/heads/builtins3)] rs6000: Write output to the builtins init file, part 1 of 3
@ 2020-09-16 21:29 William Schmidt
0 siblings, 0 replies; 10+ messages in thread
From: William Schmidt @ 2020-09-16 21:29 UTC (permalink / raw)
To: gcc-cvs
https://gcc.gnu.org/g:6f3a5c2671843d62dda12209c024392bf158249a
commit 6f3a5c2671843d62dda12209c024392bf158249a
Author: Bill Schmidt <wschmidt@linux.ibm.com>
Date: Wed Jun 17 11:13:01 2020 -0500
rs6000: Write output to the builtins init file, part 1 of 3
2020-07-26 Bill Schmidt <wschmidt@linux.ibm.com>
* config/rs6000/rs6000-gen-builtins.c (write_fntype): New
function.
(write_fntype_init): New stub function.
(write_init_bif_table): Likewise.
(write_init_ovld_table): New function.
(write_init_file): Implement.
Diff:
---
gcc/config/rs6000/rs6000-gen-builtins.c | 149 ++++++++++++++++++++++++++++++++
1 file changed, 149 insertions(+)
diff --git a/gcc/config/rs6000/rs6000-gen-builtins.c b/gcc/config/rs6000/rs6000-gen-builtins.c
index 67c7b22aad6..3ac199ff2e5 100644
--- a/gcc/config/rs6000/rs6000-gen-builtins.c
+++ b/gcc/config/rs6000/rs6000-gen-builtins.c
@@ -2055,6 +2055,18 @@ write_extern_fntype (char *str)
fprintf (header_file, "extern tree %s;\n", str);
}
+void
+write_fntype (char *str)
+{
+ fprintf (init_file, "tree %s;\n", str);
+}
+
+/* Write an initializer for a function type identified by STR. */
+void
+write_fntype_init (char *str)
+{
+}
+
/* Write everything to the header file (rs6000-builtins.h). */
static int
write_header_file ()
@@ -2078,10 +2090,147 @@ write_header_file ()
return 1;
}
+/* Write code to initialize the built-in function table. */
+static void
+write_init_bif_table ()
+{
+}
+
+/* Write code to initialize the overload table. */
+static void
+write_init_ovld_table ()
+{
+ fprintf (init_file, " int base = RS6000_BIF_MAX;\n\n");
+
+ for (int i = 0; i <= curr_ovld; i++)
+ {
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].bifname"
+ "\n = \"%s\";\n",
+ ovlds[i].idname, ovlds[i].proto.bifname);
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].bifid"
+ "\n = RS6000_BIF_%s;\n",
+ ovlds[i].idname, ovlds[i].idname);
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].fntype"
+ "\n = %s;\n",
+ ovlds[i].idname, ovlds[i].fndecl);
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].next"
+ "\n = ", ovlds[i].idname);
+ if (i < curr_ovld
+ && !strcmp (ovlds[i+1].proto.bifname, ovlds[i].proto.bifname))
+ fprintf (init_file,
+ "&rs6000_overload_info[RS6000_OVLD_%s - base];\n",
+ ovlds[i+1].idname);
+ else
+ fprintf (init_file, "NULL;\n");
+
+ if (i == 0 || ovlds[i].stanza != ovlds[i-1].stanza)
+ {
+ fprintf (init_file, "\n");
+
+ fprintf (init_file,
+ " ovldaddr = &rs6000_overload_info"
+ "[RS6000_OVLD_%s - base];\n",
+ ovlds[i].idname);
+ fprintf (init_file,
+ " hash = rs6000_ovld_hasher::hash (ovldaddr);\n");
+ fprintf (init_file,
+ " oslot = ovld_hash.find_slot_with_hash (\n");
+ fprintf (init_file,
+ " \"%s\", hash, INSERT\n",
+ ovlds[i].proto.bifname);
+ fprintf (init_file,
+ " );\n");
+ fprintf (init_file,
+ " *oslot = ovldaddr;\n");
+ }
+
+ if (i < curr_ovld)
+ fprintf (init_file, "\n");
+ }
+}
+
/* Write everything to the initialization file (rs6000-builtins.c). */
static int
write_init_file ()
{
+ write_autogenerated_header (init_file);
+
+ fprintf (init_file, "#include \"config.h\"\n");
+ fprintf (init_file, "#include \"system.h\"\n");
+ fprintf (init_file, "#include \"coretypes.h\"\n");
+ fprintf (init_file, "#include \"backend.h\"\n");
+ fprintf (init_file, "#include \"rtl.h\"\n");
+ fprintf (init_file, "#include \"tree.h\"\n");
+ fprintf (init_file, "#include \"langhooks.h\"\n");
+ fprintf (init_file, "#include \"insn-codes.h\"\n");
+ fprintf (init_file, "#include \"rs6000-builtins.h\"\n");
+ fprintf (init_file, "\n");
+
+#ifdef DEBUG_NEW_BUILTINS
+ fprintf (init_file, "int new_builtins_are_live = 1;\n\n");
+#else
+ fprintf (init_file, "int new_builtins_are_live = 0;\n\n");
+#endif
+
+ fprintf (init_file,
+ "bifdata rs6000_builtin_info_x[RS6000_BIF_MAX];\n\n");
+ fprintf (init_file,
+ "ovlddata rs6000_overload_info[RS6000_OVLD_MAX"
+ " - RS6000_BIF_MAX];\n\n");
+
+ rbt_inorder_callback (&fntype_rbt, fntype_rbt.rbt_root, write_fntype);
+ fprintf (init_file, "\n");
+
+ fprintf (init_file, "hashval_t\n");
+ fprintf (init_file, "rs6000_bif_hasher::hash (bifdata *bd)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return htab_hash_string (bd->bifname);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "bool\n");
+ fprintf (init_file,
+ "rs6000_bif_hasher::equal (bifdata *bd, const char *name)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return bd && name && !strcmp (bd->bifname, name);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "hash_table<rs6000_bif_hasher> bif_hash (1024);\n\n");
+
+ fprintf (init_file, "hashval_t\n");
+ fprintf (init_file, "rs6000_ovld_hasher::hash (ovlddata *od)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return htab_hash_string (od->bifname);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "bool\n");
+ fprintf (init_file,
+ "rs6000_ovld_hasher::equal (ovlddata *od, const char *name)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return od && name && !strcmp (od->bifname, name);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "hash_table<rs6000_ovld_hasher> ovld_hash (512);\n\n");
+
+ fprintf (init_file, "void\n");
+ fprintf (init_file, "rs6000_autoinit_builtins ()\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " tree t;\n");
+ fprintf (init_file, " bifdata **slot;\n");
+ fprintf (init_file, " bifdata *bifaddr;\n");
+ fprintf (init_file, " hashval_t hash;\n");
+ fprintf (init_file, " ovlddata **oslot;\n");
+ fprintf (init_file, " ovlddata *ovldaddr;\n\n");
+ rbt_inorder_callback (&fntype_rbt, fntype_rbt.rbt_root, write_fntype_init);
+ fprintf (init_file, "\n");
+
+ write_init_bif_table ();
+ write_init_ovld_table ();
+
+ fprintf (init_file, "}\n");
return 1;
}
^ permalink raw reply [flat|nested] 10+ messages in thread
* [gcc(refs/users/wschmidt/heads/builtins3)] rs6000: Write output to the builtins init file, part 1 of 3
@ 2020-08-28 20:07 William Schmidt
0 siblings, 0 replies; 10+ messages in thread
From: William Schmidt @ 2020-08-28 20:07 UTC (permalink / raw)
To: gcc-cvs
https://gcc.gnu.org/g:b50e1cc01f781d85760c4a58211894c709404c33
commit b50e1cc01f781d85760c4a58211894c709404c33
Author: Bill Schmidt <wschmidt@linux.ibm.com>
Date: Wed Jun 17 11:13:01 2020 -0500
rs6000: Write output to the builtins init file, part 1 of 3
2020-07-26 Bill Schmidt <wschmidt@linux.ibm.com>
* config/rs6000/rs6000-gen-builtins.c (write_fntype): New
function.
(write_fntype_init): New stub function.
(write_init_bif_table): Likewise.
(write_init_ovld_table): New function.
(write_init_file): Implement.
Diff:
---
gcc/config/rs6000/rs6000-gen-builtins.c | 149 ++++++++++++++++++++++++++++++++
1 file changed, 149 insertions(+)
diff --git a/gcc/config/rs6000/rs6000-gen-builtins.c b/gcc/config/rs6000/rs6000-gen-builtins.c
index 67c7b22aad6..3ac199ff2e5 100644
--- a/gcc/config/rs6000/rs6000-gen-builtins.c
+++ b/gcc/config/rs6000/rs6000-gen-builtins.c
@@ -2055,6 +2055,18 @@ write_extern_fntype (char *str)
fprintf (header_file, "extern tree %s;\n", str);
}
+void
+write_fntype (char *str)
+{
+ fprintf (init_file, "tree %s;\n", str);
+}
+
+/* Write an initializer for a function type identified by STR. */
+void
+write_fntype_init (char *str)
+{
+}
+
/* Write everything to the header file (rs6000-builtins.h). */
static int
write_header_file ()
@@ -2078,10 +2090,147 @@ write_header_file ()
return 1;
}
+/* Write code to initialize the built-in function table. */
+static void
+write_init_bif_table ()
+{
+}
+
+/* Write code to initialize the overload table. */
+static void
+write_init_ovld_table ()
+{
+ fprintf (init_file, " int base = RS6000_BIF_MAX;\n\n");
+
+ for (int i = 0; i <= curr_ovld; i++)
+ {
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].bifname"
+ "\n = \"%s\";\n",
+ ovlds[i].idname, ovlds[i].proto.bifname);
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].bifid"
+ "\n = RS6000_BIF_%s;\n",
+ ovlds[i].idname, ovlds[i].idname);
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].fntype"
+ "\n = %s;\n",
+ ovlds[i].idname, ovlds[i].fndecl);
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].next"
+ "\n = ", ovlds[i].idname);
+ if (i < curr_ovld
+ && !strcmp (ovlds[i+1].proto.bifname, ovlds[i].proto.bifname))
+ fprintf (init_file,
+ "&rs6000_overload_info[RS6000_OVLD_%s - base];\n",
+ ovlds[i+1].idname);
+ else
+ fprintf (init_file, "NULL;\n");
+
+ if (i == 0 || ovlds[i].stanza != ovlds[i-1].stanza)
+ {
+ fprintf (init_file, "\n");
+
+ fprintf (init_file,
+ " ovldaddr = &rs6000_overload_info"
+ "[RS6000_OVLD_%s - base];\n",
+ ovlds[i].idname);
+ fprintf (init_file,
+ " hash = rs6000_ovld_hasher::hash (ovldaddr);\n");
+ fprintf (init_file,
+ " oslot = ovld_hash.find_slot_with_hash (\n");
+ fprintf (init_file,
+ " \"%s\", hash, INSERT\n",
+ ovlds[i].proto.bifname);
+ fprintf (init_file,
+ " );\n");
+ fprintf (init_file,
+ " *oslot = ovldaddr;\n");
+ }
+
+ if (i < curr_ovld)
+ fprintf (init_file, "\n");
+ }
+}
+
/* Write everything to the initialization file (rs6000-builtins.c). */
static int
write_init_file ()
{
+ write_autogenerated_header (init_file);
+
+ fprintf (init_file, "#include \"config.h\"\n");
+ fprintf (init_file, "#include \"system.h\"\n");
+ fprintf (init_file, "#include \"coretypes.h\"\n");
+ fprintf (init_file, "#include \"backend.h\"\n");
+ fprintf (init_file, "#include \"rtl.h\"\n");
+ fprintf (init_file, "#include \"tree.h\"\n");
+ fprintf (init_file, "#include \"langhooks.h\"\n");
+ fprintf (init_file, "#include \"insn-codes.h\"\n");
+ fprintf (init_file, "#include \"rs6000-builtins.h\"\n");
+ fprintf (init_file, "\n");
+
+#ifdef DEBUG_NEW_BUILTINS
+ fprintf (init_file, "int new_builtins_are_live = 1;\n\n");
+#else
+ fprintf (init_file, "int new_builtins_are_live = 0;\n\n");
+#endif
+
+ fprintf (init_file,
+ "bifdata rs6000_builtin_info_x[RS6000_BIF_MAX];\n\n");
+ fprintf (init_file,
+ "ovlddata rs6000_overload_info[RS6000_OVLD_MAX"
+ " - RS6000_BIF_MAX];\n\n");
+
+ rbt_inorder_callback (&fntype_rbt, fntype_rbt.rbt_root, write_fntype);
+ fprintf (init_file, "\n");
+
+ fprintf (init_file, "hashval_t\n");
+ fprintf (init_file, "rs6000_bif_hasher::hash (bifdata *bd)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return htab_hash_string (bd->bifname);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "bool\n");
+ fprintf (init_file,
+ "rs6000_bif_hasher::equal (bifdata *bd, const char *name)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return bd && name && !strcmp (bd->bifname, name);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "hash_table<rs6000_bif_hasher> bif_hash (1024);\n\n");
+
+ fprintf (init_file, "hashval_t\n");
+ fprintf (init_file, "rs6000_ovld_hasher::hash (ovlddata *od)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return htab_hash_string (od->bifname);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "bool\n");
+ fprintf (init_file,
+ "rs6000_ovld_hasher::equal (ovlddata *od, const char *name)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return od && name && !strcmp (od->bifname, name);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "hash_table<rs6000_ovld_hasher> ovld_hash (512);\n\n");
+
+ fprintf (init_file, "void\n");
+ fprintf (init_file, "rs6000_autoinit_builtins ()\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " tree t;\n");
+ fprintf (init_file, " bifdata **slot;\n");
+ fprintf (init_file, " bifdata *bifaddr;\n");
+ fprintf (init_file, " hashval_t hash;\n");
+ fprintf (init_file, " ovlddata **oslot;\n");
+ fprintf (init_file, " ovlddata *ovldaddr;\n\n");
+ rbt_inorder_callback (&fntype_rbt, fntype_rbt.rbt_root, write_fntype_init);
+ fprintf (init_file, "\n");
+
+ write_init_bif_table ();
+ write_init_ovld_table ();
+
+ fprintf (init_file, "}\n");
return 1;
}
^ permalink raw reply [flat|nested] 10+ messages in thread
* [gcc(refs/users/wschmidt/heads/builtins3)] rs6000: Write output to the builtins init file, part 1 of 3
@ 2020-08-20 16:38 William Schmidt
0 siblings, 0 replies; 10+ messages in thread
From: William Schmidt @ 2020-08-20 16:38 UTC (permalink / raw)
To: gcc-cvs
https://gcc.gnu.org/g:789561297f2e7a8ff56f493e5e7652367d0102e4
commit 789561297f2e7a8ff56f493e5e7652367d0102e4
Author: Bill Schmidt <wschmidt@linux.ibm.com>
Date: Wed Jun 17 11:13:01 2020 -0500
rs6000: Write output to the builtins init file, part 1 of 3
2020-07-26 Bill Schmidt <wschmidt@linux.ibm.com>
* config/rs6000/rs6000-gen-builtins.c (write_fntype): New
function.
(write_fntype_init): New stub function.
(write_init_bif_table): Likewise.
(write_init_ovld_table): New function.
(write_init_file): Implement.
Diff:
---
gcc/config/rs6000/rs6000-gen-builtins.c | 149 ++++++++++++++++++++++++++++++++
1 file changed, 149 insertions(+)
diff --git a/gcc/config/rs6000/rs6000-gen-builtins.c b/gcc/config/rs6000/rs6000-gen-builtins.c
index 67c7b22aad6..3ac199ff2e5 100644
--- a/gcc/config/rs6000/rs6000-gen-builtins.c
+++ b/gcc/config/rs6000/rs6000-gen-builtins.c
@@ -2055,6 +2055,18 @@ write_extern_fntype (char *str)
fprintf (header_file, "extern tree %s;\n", str);
}
+void
+write_fntype (char *str)
+{
+ fprintf (init_file, "tree %s;\n", str);
+}
+
+/* Write an initializer for a function type identified by STR. */
+void
+write_fntype_init (char *str)
+{
+}
+
/* Write everything to the header file (rs6000-builtins.h). */
static int
write_header_file ()
@@ -2078,10 +2090,147 @@ write_header_file ()
return 1;
}
+/* Write code to initialize the built-in function table. */
+static void
+write_init_bif_table ()
+{
+}
+
+/* Write code to initialize the overload table. */
+static void
+write_init_ovld_table ()
+{
+ fprintf (init_file, " int base = RS6000_BIF_MAX;\n\n");
+
+ for (int i = 0; i <= curr_ovld; i++)
+ {
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].bifname"
+ "\n = \"%s\";\n",
+ ovlds[i].idname, ovlds[i].proto.bifname);
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].bifid"
+ "\n = RS6000_BIF_%s;\n",
+ ovlds[i].idname, ovlds[i].idname);
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].fntype"
+ "\n = %s;\n",
+ ovlds[i].idname, ovlds[i].fndecl);
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].next"
+ "\n = ", ovlds[i].idname);
+ if (i < curr_ovld
+ && !strcmp (ovlds[i+1].proto.bifname, ovlds[i].proto.bifname))
+ fprintf (init_file,
+ "&rs6000_overload_info[RS6000_OVLD_%s - base];\n",
+ ovlds[i+1].idname);
+ else
+ fprintf (init_file, "NULL;\n");
+
+ if (i == 0 || ovlds[i].stanza != ovlds[i-1].stanza)
+ {
+ fprintf (init_file, "\n");
+
+ fprintf (init_file,
+ " ovldaddr = &rs6000_overload_info"
+ "[RS6000_OVLD_%s - base];\n",
+ ovlds[i].idname);
+ fprintf (init_file,
+ " hash = rs6000_ovld_hasher::hash (ovldaddr);\n");
+ fprintf (init_file,
+ " oslot = ovld_hash.find_slot_with_hash (\n");
+ fprintf (init_file,
+ " \"%s\", hash, INSERT\n",
+ ovlds[i].proto.bifname);
+ fprintf (init_file,
+ " );\n");
+ fprintf (init_file,
+ " *oslot = ovldaddr;\n");
+ }
+
+ if (i < curr_ovld)
+ fprintf (init_file, "\n");
+ }
+}
+
/* Write everything to the initialization file (rs6000-builtins.c). */
static int
write_init_file ()
{
+ write_autogenerated_header (init_file);
+
+ fprintf (init_file, "#include \"config.h\"\n");
+ fprintf (init_file, "#include \"system.h\"\n");
+ fprintf (init_file, "#include \"coretypes.h\"\n");
+ fprintf (init_file, "#include \"backend.h\"\n");
+ fprintf (init_file, "#include \"rtl.h\"\n");
+ fprintf (init_file, "#include \"tree.h\"\n");
+ fprintf (init_file, "#include \"langhooks.h\"\n");
+ fprintf (init_file, "#include \"insn-codes.h\"\n");
+ fprintf (init_file, "#include \"rs6000-builtins.h\"\n");
+ fprintf (init_file, "\n");
+
+#ifdef DEBUG_NEW_BUILTINS
+ fprintf (init_file, "int new_builtins_are_live = 1;\n\n");
+#else
+ fprintf (init_file, "int new_builtins_are_live = 0;\n\n");
+#endif
+
+ fprintf (init_file,
+ "bifdata rs6000_builtin_info_x[RS6000_BIF_MAX];\n\n");
+ fprintf (init_file,
+ "ovlddata rs6000_overload_info[RS6000_OVLD_MAX"
+ " - RS6000_BIF_MAX];\n\n");
+
+ rbt_inorder_callback (&fntype_rbt, fntype_rbt.rbt_root, write_fntype);
+ fprintf (init_file, "\n");
+
+ fprintf (init_file, "hashval_t\n");
+ fprintf (init_file, "rs6000_bif_hasher::hash (bifdata *bd)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return htab_hash_string (bd->bifname);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "bool\n");
+ fprintf (init_file,
+ "rs6000_bif_hasher::equal (bifdata *bd, const char *name)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return bd && name && !strcmp (bd->bifname, name);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "hash_table<rs6000_bif_hasher> bif_hash (1024);\n\n");
+
+ fprintf (init_file, "hashval_t\n");
+ fprintf (init_file, "rs6000_ovld_hasher::hash (ovlddata *od)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return htab_hash_string (od->bifname);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "bool\n");
+ fprintf (init_file,
+ "rs6000_ovld_hasher::equal (ovlddata *od, const char *name)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return od && name && !strcmp (od->bifname, name);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "hash_table<rs6000_ovld_hasher> ovld_hash (512);\n\n");
+
+ fprintf (init_file, "void\n");
+ fprintf (init_file, "rs6000_autoinit_builtins ()\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " tree t;\n");
+ fprintf (init_file, " bifdata **slot;\n");
+ fprintf (init_file, " bifdata *bifaddr;\n");
+ fprintf (init_file, " hashval_t hash;\n");
+ fprintf (init_file, " ovlddata **oslot;\n");
+ fprintf (init_file, " ovlddata *ovldaddr;\n\n");
+ rbt_inorder_callback (&fntype_rbt, fntype_rbt.rbt_root, write_fntype_init);
+ fprintf (init_file, "\n");
+
+ write_init_bif_table ();
+ write_init_ovld_table ();
+
+ fprintf (init_file, "}\n");
return 1;
}
^ permalink raw reply [flat|nested] 10+ messages in thread
* [gcc(refs/users/wschmidt/heads/builtins3)] rs6000: Write output to the builtins init file, part 1 of 3
@ 2020-08-18 18:44 William Schmidt
0 siblings, 0 replies; 10+ messages in thread
From: William Schmidt @ 2020-08-18 18:44 UTC (permalink / raw)
To: gcc-cvs
https://gcc.gnu.org/g:599ae02435f04263326c26176d275c4b74021855
commit 599ae02435f04263326c26176d275c4b74021855
Author: Bill Schmidt <wschmidt@linux.ibm.com>
Date: Wed Jun 17 11:13:01 2020 -0500
rs6000: Write output to the builtins init file, part 1 of 3
2020-07-26 Bill Schmidt <wschmidt@linux.ibm.com>
* config/rs6000/rs6000-gen-builtins.c (write_fntype): New
function.
(write_fntype_init): New stub function.
(write_init_bif_table): Likewise.
(write_init_ovld_table): New function.
(write_init_file): Implement.
Diff:
---
gcc/config/rs6000/rs6000-gen-builtins.c | 149 ++++++++++++++++++++++++++++++++
1 file changed, 149 insertions(+)
diff --git a/gcc/config/rs6000/rs6000-gen-builtins.c b/gcc/config/rs6000/rs6000-gen-builtins.c
index 67c7b22aad6..3ac199ff2e5 100644
--- a/gcc/config/rs6000/rs6000-gen-builtins.c
+++ b/gcc/config/rs6000/rs6000-gen-builtins.c
@@ -2055,6 +2055,18 @@ write_extern_fntype (char *str)
fprintf (header_file, "extern tree %s;\n", str);
}
+void
+write_fntype (char *str)
+{
+ fprintf (init_file, "tree %s;\n", str);
+}
+
+/* Write an initializer for a function type identified by STR. */
+void
+write_fntype_init (char *str)
+{
+}
+
/* Write everything to the header file (rs6000-builtins.h). */
static int
write_header_file ()
@@ -2078,10 +2090,147 @@ write_header_file ()
return 1;
}
+/* Write code to initialize the built-in function table. */
+static void
+write_init_bif_table ()
+{
+}
+
+/* Write code to initialize the overload table. */
+static void
+write_init_ovld_table ()
+{
+ fprintf (init_file, " int base = RS6000_BIF_MAX;\n\n");
+
+ for (int i = 0; i <= curr_ovld; i++)
+ {
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].bifname"
+ "\n = \"%s\";\n",
+ ovlds[i].idname, ovlds[i].proto.bifname);
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].bifid"
+ "\n = RS6000_BIF_%s;\n",
+ ovlds[i].idname, ovlds[i].idname);
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].fntype"
+ "\n = %s;\n",
+ ovlds[i].idname, ovlds[i].fndecl);
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].next"
+ "\n = ", ovlds[i].idname);
+ if (i < curr_ovld
+ && !strcmp (ovlds[i+1].proto.bifname, ovlds[i].proto.bifname))
+ fprintf (init_file,
+ "&rs6000_overload_info[RS6000_OVLD_%s - base];\n",
+ ovlds[i+1].idname);
+ else
+ fprintf (init_file, "NULL;\n");
+
+ if (i == 0 || ovlds[i].stanza != ovlds[i-1].stanza)
+ {
+ fprintf (init_file, "\n");
+
+ fprintf (init_file,
+ " ovldaddr = &rs6000_overload_info"
+ "[RS6000_OVLD_%s - base];\n",
+ ovlds[i].idname);
+ fprintf (init_file,
+ " hash = rs6000_ovld_hasher::hash (ovldaddr);\n");
+ fprintf (init_file,
+ " oslot = ovld_hash.find_slot_with_hash (\n");
+ fprintf (init_file,
+ " \"%s\", hash, INSERT\n",
+ ovlds[i].proto.bifname);
+ fprintf (init_file,
+ " );\n");
+ fprintf (init_file,
+ " *oslot = ovldaddr;\n");
+ }
+
+ if (i < curr_ovld)
+ fprintf (init_file, "\n");
+ }
+}
+
/* Write everything to the initialization file (rs6000-builtins.c). */
static int
write_init_file ()
{
+ write_autogenerated_header (init_file);
+
+ fprintf (init_file, "#include \"config.h\"\n");
+ fprintf (init_file, "#include \"system.h\"\n");
+ fprintf (init_file, "#include \"coretypes.h\"\n");
+ fprintf (init_file, "#include \"backend.h\"\n");
+ fprintf (init_file, "#include \"rtl.h\"\n");
+ fprintf (init_file, "#include \"tree.h\"\n");
+ fprintf (init_file, "#include \"langhooks.h\"\n");
+ fprintf (init_file, "#include \"insn-codes.h\"\n");
+ fprintf (init_file, "#include \"rs6000-builtins.h\"\n");
+ fprintf (init_file, "\n");
+
+#ifdef DEBUG_NEW_BUILTINS
+ fprintf (init_file, "int new_builtins_are_live = 1;\n\n");
+#else
+ fprintf (init_file, "int new_builtins_are_live = 0;\n\n");
+#endif
+
+ fprintf (init_file,
+ "bifdata rs6000_builtin_info_x[RS6000_BIF_MAX];\n\n");
+ fprintf (init_file,
+ "ovlddata rs6000_overload_info[RS6000_OVLD_MAX"
+ " - RS6000_BIF_MAX];\n\n");
+
+ rbt_inorder_callback (&fntype_rbt, fntype_rbt.rbt_root, write_fntype);
+ fprintf (init_file, "\n");
+
+ fprintf (init_file, "hashval_t\n");
+ fprintf (init_file, "rs6000_bif_hasher::hash (bifdata *bd)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return htab_hash_string (bd->bifname);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "bool\n");
+ fprintf (init_file,
+ "rs6000_bif_hasher::equal (bifdata *bd, const char *name)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return bd && name && !strcmp (bd->bifname, name);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "hash_table<rs6000_bif_hasher> bif_hash (1024);\n\n");
+
+ fprintf (init_file, "hashval_t\n");
+ fprintf (init_file, "rs6000_ovld_hasher::hash (ovlddata *od)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return htab_hash_string (od->bifname);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "bool\n");
+ fprintf (init_file,
+ "rs6000_ovld_hasher::equal (ovlddata *od, const char *name)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return od && name && !strcmp (od->bifname, name);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "hash_table<rs6000_ovld_hasher> ovld_hash (512);\n\n");
+
+ fprintf (init_file, "void\n");
+ fprintf (init_file, "rs6000_autoinit_builtins ()\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " tree t;\n");
+ fprintf (init_file, " bifdata **slot;\n");
+ fprintf (init_file, " bifdata *bifaddr;\n");
+ fprintf (init_file, " hashval_t hash;\n");
+ fprintf (init_file, " ovlddata **oslot;\n");
+ fprintf (init_file, " ovlddata *ovldaddr;\n\n");
+ rbt_inorder_callback (&fntype_rbt, fntype_rbt.rbt_root, write_fntype_init);
+ fprintf (init_file, "\n");
+
+ write_init_bif_table ();
+ write_init_ovld_table ();
+
+ fprintf (init_file, "}\n");
return 1;
}
^ permalink raw reply [flat|nested] 10+ messages in thread
* [gcc(refs/users/wschmidt/heads/builtins3)] rs6000: Write output to the builtins init file, part 1 of 3
@ 2020-07-27 18:47 William Schmidt
0 siblings, 0 replies; 10+ messages in thread
From: William Schmidt @ 2020-07-27 18:47 UTC (permalink / raw)
To: gcc-cvs
https://gcc.gnu.org/g:2b3e26d0ede2941d36ac3164198ca83919f52aef
commit 2b3e26d0ede2941d36ac3164198ca83919f52aef
Author: Bill Schmidt <wschmidt@linux.ibm.com>
Date: Wed Jun 17 11:13:01 2020 -0500
rs6000: Write output to the builtins init file, part 1 of 3
2020-07-26 Bill Schmidt <wschmidt@linux.ibm.com>
* config/rs6000/rs6000-gen-builtins.c (write_fntype): New
function.
(write_fntype_init): New stub function.
(write_init_bif_table): Likewise.
(write_init_ovld_table): New function.
(write_init_file): Implement.
Diff:
---
gcc/config/rs6000/rs6000-gen-builtins.c | 149 ++++++++++++++++++++++++++++++++
1 file changed, 149 insertions(+)
diff --git a/gcc/config/rs6000/rs6000-gen-builtins.c b/gcc/config/rs6000/rs6000-gen-builtins.c
index 67c7b22aad6..3ac199ff2e5 100644
--- a/gcc/config/rs6000/rs6000-gen-builtins.c
+++ b/gcc/config/rs6000/rs6000-gen-builtins.c
@@ -2055,6 +2055,18 @@ write_extern_fntype (char *str)
fprintf (header_file, "extern tree %s;\n", str);
}
+void
+write_fntype (char *str)
+{
+ fprintf (init_file, "tree %s;\n", str);
+}
+
+/* Write an initializer for a function type identified by STR. */
+void
+write_fntype_init (char *str)
+{
+}
+
/* Write everything to the header file (rs6000-builtins.h). */
static int
write_header_file ()
@@ -2078,10 +2090,147 @@ write_header_file ()
return 1;
}
+/* Write code to initialize the built-in function table. */
+static void
+write_init_bif_table ()
+{
+}
+
+/* Write code to initialize the overload table. */
+static void
+write_init_ovld_table ()
+{
+ fprintf (init_file, " int base = RS6000_BIF_MAX;\n\n");
+
+ for (int i = 0; i <= curr_ovld; i++)
+ {
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].bifname"
+ "\n = \"%s\";\n",
+ ovlds[i].idname, ovlds[i].proto.bifname);
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].bifid"
+ "\n = RS6000_BIF_%s;\n",
+ ovlds[i].idname, ovlds[i].idname);
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].fntype"
+ "\n = %s;\n",
+ ovlds[i].idname, ovlds[i].fndecl);
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].next"
+ "\n = ", ovlds[i].idname);
+ if (i < curr_ovld
+ && !strcmp (ovlds[i+1].proto.bifname, ovlds[i].proto.bifname))
+ fprintf (init_file,
+ "&rs6000_overload_info[RS6000_OVLD_%s - base];\n",
+ ovlds[i+1].idname);
+ else
+ fprintf (init_file, "NULL;\n");
+
+ if (i == 0 || ovlds[i].stanza != ovlds[i-1].stanza)
+ {
+ fprintf (init_file, "\n");
+
+ fprintf (init_file,
+ " ovldaddr = &rs6000_overload_info"
+ "[RS6000_OVLD_%s - base];\n",
+ ovlds[i].idname);
+ fprintf (init_file,
+ " hash = rs6000_ovld_hasher::hash (ovldaddr);\n");
+ fprintf (init_file,
+ " oslot = ovld_hash.find_slot_with_hash (\n");
+ fprintf (init_file,
+ " \"%s\", hash, INSERT\n",
+ ovlds[i].proto.bifname);
+ fprintf (init_file,
+ " );\n");
+ fprintf (init_file,
+ " *oslot = ovldaddr;\n");
+ }
+
+ if (i < curr_ovld)
+ fprintf (init_file, "\n");
+ }
+}
+
/* Write everything to the initialization file (rs6000-builtins.c). */
static int
write_init_file ()
{
+ write_autogenerated_header (init_file);
+
+ fprintf (init_file, "#include \"config.h\"\n");
+ fprintf (init_file, "#include \"system.h\"\n");
+ fprintf (init_file, "#include \"coretypes.h\"\n");
+ fprintf (init_file, "#include \"backend.h\"\n");
+ fprintf (init_file, "#include \"rtl.h\"\n");
+ fprintf (init_file, "#include \"tree.h\"\n");
+ fprintf (init_file, "#include \"langhooks.h\"\n");
+ fprintf (init_file, "#include \"insn-codes.h\"\n");
+ fprintf (init_file, "#include \"rs6000-builtins.h\"\n");
+ fprintf (init_file, "\n");
+
+#ifdef DEBUG_NEW_BUILTINS
+ fprintf (init_file, "int new_builtins_are_live = 1;\n\n");
+#else
+ fprintf (init_file, "int new_builtins_are_live = 0;\n\n");
+#endif
+
+ fprintf (init_file,
+ "bifdata rs6000_builtin_info_x[RS6000_BIF_MAX];\n\n");
+ fprintf (init_file,
+ "ovlddata rs6000_overload_info[RS6000_OVLD_MAX"
+ " - RS6000_BIF_MAX];\n\n");
+
+ rbt_inorder_callback (&fntype_rbt, fntype_rbt.rbt_root, write_fntype);
+ fprintf (init_file, "\n");
+
+ fprintf (init_file, "hashval_t\n");
+ fprintf (init_file, "rs6000_bif_hasher::hash (bifdata *bd)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return htab_hash_string (bd->bifname);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "bool\n");
+ fprintf (init_file,
+ "rs6000_bif_hasher::equal (bifdata *bd, const char *name)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return bd && name && !strcmp (bd->bifname, name);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "hash_table<rs6000_bif_hasher> bif_hash (1024);\n\n");
+
+ fprintf (init_file, "hashval_t\n");
+ fprintf (init_file, "rs6000_ovld_hasher::hash (ovlddata *od)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return htab_hash_string (od->bifname);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "bool\n");
+ fprintf (init_file,
+ "rs6000_ovld_hasher::equal (ovlddata *od, const char *name)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return od && name && !strcmp (od->bifname, name);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "hash_table<rs6000_ovld_hasher> ovld_hash (512);\n\n");
+
+ fprintf (init_file, "void\n");
+ fprintf (init_file, "rs6000_autoinit_builtins ()\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " tree t;\n");
+ fprintf (init_file, " bifdata **slot;\n");
+ fprintf (init_file, " bifdata *bifaddr;\n");
+ fprintf (init_file, " hashval_t hash;\n");
+ fprintf (init_file, " ovlddata **oslot;\n");
+ fprintf (init_file, " ovlddata *ovldaddr;\n\n");
+ rbt_inorder_callback (&fntype_rbt, fntype_rbt.rbt_root, write_fntype_init);
+ fprintf (init_file, "\n");
+
+ write_init_bif_table ();
+ write_init_ovld_table ();
+
+ fprintf (init_file, "}\n");
return 1;
}
^ permalink raw reply [flat|nested] 10+ messages in thread
* [gcc(refs/users/wschmidt/heads/builtins3)] rs6000: Write output to the builtins init file, part 1 of 3
@ 2020-07-17 17:22 William Schmidt
0 siblings, 0 replies; 10+ messages in thread
From: William Schmidt @ 2020-07-17 17:22 UTC (permalink / raw)
To: gcc-cvs
https://gcc.gnu.org/g:a8376f834734fb025b61a0453cb9b3f9fbcb9097
commit a8376f834734fb025b61a0453cb9b3f9fbcb9097
Author: Bill Schmidt <wschmidt@linux.ibm.com>
Date: Wed Jun 17 11:13:01 2020 -0500
rs6000: Write output to the builtins init file, part 1 of 3
2020-06-17 Bill Schmidt <wschmidt@linux.ibm.com>
* config/rs6000/rs6000-gen-builtins.c (write_fntype): New
function.
(write_fntype_init): New stub function.
(write_init_bif_table): Likewise.
(write_init_ovld_table): New function.
(write_init_file): Implement.
Diff:
---
gcc/config/rs6000/rs6000-gen-builtins.c | 151 ++++++++++++++++++++++++++++++++
1 file changed, 151 insertions(+)
diff --git a/gcc/config/rs6000/rs6000-gen-builtins.c b/gcc/config/rs6000/rs6000-gen-builtins.c
index f80cd61d6ec..2031ad22335 100644
--- a/gcc/config/rs6000/rs6000-gen-builtins.c
+++ b/gcc/config/rs6000/rs6000-gen-builtins.c
@@ -1965,6 +1965,18 @@ write_extern_fntype (char *str)
fprintf (header_file, "extern tree %s;\n", str);
}
+void
+write_fntype (char *str)
+{
+ fprintf (init_file, "tree %s;\n", str);
+}
+
+/* Write an initializer for a function type identified by STR. */
+void
+write_fntype_init (char *str)
+{
+}
+
/* Write everything to the header file (rs6000-builtins.h). */
static int
write_header_file ()
@@ -1988,10 +2000,149 @@ write_header_file ()
return 1;
}
+/* Write code to initialize the built-in function table. */
+static void
+write_init_bif_table ()
+{
+}
+
+/* Write code to initialize the overload table. */
+static void
+write_init_ovld_table ()
+{
+ fprintf (init_file, " int base = RS6000_BIF_MAX;\n\n");
+
+ for (int i = 0; i <= curr_ovld; i++)
+ {
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].bifname"
+ "\n = \"%s\";\n",
+ ovlds[i].idname, ovlds[i].proto.bifname);
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].bifid"
+ "\n = RS6000_BIF_%s;\n",
+ ovlds[i].idname, ovlds[i].idname);
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].fntype"
+ "\n = %s;\n",
+ ovlds[i].idname, ovlds[i].fndecl);
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].next"
+ "\n = ", ovlds[i].idname);
+ if (i < curr_ovld
+ && !strcmp (ovlds[i+1].proto.bifname, ovlds[i].proto.bifname))
+ fprintf (init_file,
+ "&rs6000_overload_info[RS6000_OVLD_%s - base];\n",
+ ovlds[i+1].idname);
+ else
+ fprintf (init_file, "NULL;\n");
+
+ if (i == 0 || ovlds[i].stanza != ovlds[i-1].stanza)
+ {
+ fprintf (init_file, "\n");
+
+ fprintf (init_file,
+ " ovldaddr = &rs6000_overload_info"
+ "[RS6000_OVLD_%s - base];\n",
+ ovlds[i].idname);
+ fprintf (init_file,
+ " hash = rs6000_ovld_hasher::hash (ovldaddr);\n");
+ fprintf (init_file,
+ " oslot = ovld_hash.find_slot_with_hash (\n");
+ fprintf (init_file,
+ " \"%s\", hash, INSERT\n",
+ ovlds[i].proto.bifname);
+ fprintf (init_file,
+ " );\n");
+ fprintf (init_file,
+ " *oslot = ovldaddr;\n");
+ }
+
+ if (i < curr_ovld)
+ fprintf (init_file, "\n");
+ }
+}
+
/* Write everything to the initialization file (rs6000-builtins.c). */
static int
write_init_file ()
{
+ write_autogenerated_header (init_file);
+
+ fprintf (init_file, "#include \"config.h\"\n");
+ fprintf (init_file, "#include \"system.h\"\n");
+ fprintf (init_file, "#include \"coretypes.h\"\n");
+ fprintf (init_file, "#include \"backend.h\"\n");
+ fprintf (init_file, "#include \"rtl.h\"\n");
+ fprintf (init_file, "#include \"tree.h\"\n");
+ fprintf (init_file, "#include \"langhooks.h\"\n");
+ fprintf (init_file, "#include \"insn-codes.h\"\n");
+ fprintf (init_file, "#include \"rs6000-builtins.h\"\n");
+ fprintf (init_file, "\n");
+
+#ifdef BILLDEBUG
+ fprintf (init_file, "int new_builtins_are_live = 1;\n\n");
+#else
+ fprintf (init_file, "int new_builtins_are_live = 0;\n\n");
+#endif
+
+ fprintf (init_file,
+ "bifdata rs6000_builtin_info_x[RS6000_BIF_MAX];\n\n");
+ fprintf (init_file,
+ "ovlddata rs6000_overload_info[RS6000_OVLD_MAX"
+ " - RS6000_BIF_MAX];\n\n");
+
+ rbt_inorder_callback (&fntype_rbt, fntype_rbt.rbt_root, write_fntype);
+ fprintf (init_file, "\n");
+
+ fprintf (init_file, "hashval_t\n");
+ fprintf (init_file, "rs6000_bif_hasher::hash (bifdata *bd)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return htab_hash_string (bd->bifname);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "bool\n");
+ fprintf (init_file,
+ "rs6000_bif_hasher::equal (bifdata *bd, const char *name)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return bd && name && !strcmp (bd->bifname, name);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "hash_table<rs6000_bif_hasher> bif_hash (1024);\n\n");
+
+ fprintf (init_file, "hashval_t\n");
+ fprintf (init_file, "rs6000_ovld_hasher::hash (ovlddata *od)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return htab_hash_string (od->bifname);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "bool\n");
+ fprintf (init_file,
+ "rs6000_ovld_hasher::equal (ovlddata *od, const char *name)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return od && name && !strcmp (od->bifname, name);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "hash_table<rs6000_ovld_hasher> ovld_hash (512);\n\n");
+
+ fprintf (init_file, "void\n");
+ fprintf (init_file, "rs6000_autoinit_builtins ()\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " tree t;\n");
+ fprintf (init_file,
+ " HOST_WIDE_INT builtin_mask = rs6000_builtin_mask;\n");
+ fprintf (init_file, " bifdata **slot;\n");
+ fprintf (init_file, " bifdata *bifaddr;\n");
+ fprintf (init_file, " hashval_t hash;\n");
+ fprintf (init_file, " ovlddata **oslot;\n");
+ fprintf (init_file, " ovlddata *ovldaddr;\n\n");
+ rbt_inorder_callback (&fntype_rbt, fntype_rbt.rbt_root, write_fntype_init);
+ fprintf (init_file, "\n");
+
+ write_init_bif_table ();
+ write_init_ovld_table ();
+
+ fprintf (init_file, "}\n");
return 1;
}
^ permalink raw reply [flat|nested] 10+ messages in thread
* [gcc(refs/users/wschmidt/heads/builtins3)] rs6000: Write output to the builtins init file, part 1 of 3
@ 2020-06-17 20:05 William Schmidt
0 siblings, 0 replies; 10+ messages in thread
From: William Schmidt @ 2020-06-17 20:05 UTC (permalink / raw)
To: gcc-cvs
https://gcc.gnu.org/g:2d1b0e77023491e2585e4a20c3d9b9bafefbd122
commit 2d1b0e77023491e2585e4a20c3d9b9bafefbd122
Author: Bill Schmidt <wschmidt@linux.ibm.com>
Date: Wed Jun 17 11:13:01 2020 -0500
rs6000: Write output to the builtins init file, part 1 of 3
2020-06-17 Bill Schmidt <wschmidt@linux.ibm.com>
* config/rs6000/rs6000-gen-builtins.c (write_fntype): New
function.
(write_fntype_init): New stub function.
(write_init_bif_table): Likewise.
(write_init_ovld_table): New function.
(write_init_file): Implement.
Diff:
---
gcc/config/rs6000/rs6000-gen-builtins.c | 151 ++++++++++++++++++++++++++++++++
1 file changed, 151 insertions(+)
diff --git a/gcc/config/rs6000/rs6000-gen-builtins.c b/gcc/config/rs6000/rs6000-gen-builtins.c
index f80cd61d6ec..2031ad22335 100644
--- a/gcc/config/rs6000/rs6000-gen-builtins.c
+++ b/gcc/config/rs6000/rs6000-gen-builtins.c
@@ -1965,6 +1965,18 @@ write_extern_fntype (char *str)
fprintf (header_file, "extern tree %s;\n", str);
}
+void
+write_fntype (char *str)
+{
+ fprintf (init_file, "tree %s;\n", str);
+}
+
+/* Write an initializer for a function type identified by STR. */
+void
+write_fntype_init (char *str)
+{
+}
+
/* Write everything to the header file (rs6000-builtins.h). */
static int
write_header_file ()
@@ -1988,10 +2000,149 @@ write_header_file ()
return 1;
}
+/* Write code to initialize the built-in function table. */
+static void
+write_init_bif_table ()
+{
+}
+
+/* Write code to initialize the overload table. */
+static void
+write_init_ovld_table ()
+{
+ fprintf (init_file, " int base = RS6000_BIF_MAX;\n\n");
+
+ for (int i = 0; i <= curr_ovld; i++)
+ {
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].bifname"
+ "\n = \"%s\";\n",
+ ovlds[i].idname, ovlds[i].proto.bifname);
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].bifid"
+ "\n = RS6000_BIF_%s;\n",
+ ovlds[i].idname, ovlds[i].idname);
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].fntype"
+ "\n = %s;\n",
+ ovlds[i].idname, ovlds[i].fndecl);
+ fprintf (init_file,
+ " rs6000_overload_info[RS6000_OVLD_%s - base].next"
+ "\n = ", ovlds[i].idname);
+ if (i < curr_ovld
+ && !strcmp (ovlds[i+1].proto.bifname, ovlds[i].proto.bifname))
+ fprintf (init_file,
+ "&rs6000_overload_info[RS6000_OVLD_%s - base];\n",
+ ovlds[i+1].idname);
+ else
+ fprintf (init_file, "NULL;\n");
+
+ if (i == 0 || ovlds[i].stanza != ovlds[i-1].stanza)
+ {
+ fprintf (init_file, "\n");
+
+ fprintf (init_file,
+ " ovldaddr = &rs6000_overload_info"
+ "[RS6000_OVLD_%s - base];\n",
+ ovlds[i].idname);
+ fprintf (init_file,
+ " hash = rs6000_ovld_hasher::hash (ovldaddr);\n");
+ fprintf (init_file,
+ " oslot = ovld_hash.find_slot_with_hash (\n");
+ fprintf (init_file,
+ " \"%s\", hash, INSERT\n",
+ ovlds[i].proto.bifname);
+ fprintf (init_file,
+ " );\n");
+ fprintf (init_file,
+ " *oslot = ovldaddr;\n");
+ }
+
+ if (i < curr_ovld)
+ fprintf (init_file, "\n");
+ }
+}
+
/* Write everything to the initialization file (rs6000-builtins.c). */
static int
write_init_file ()
{
+ write_autogenerated_header (init_file);
+
+ fprintf (init_file, "#include \"config.h\"\n");
+ fprintf (init_file, "#include \"system.h\"\n");
+ fprintf (init_file, "#include \"coretypes.h\"\n");
+ fprintf (init_file, "#include \"backend.h\"\n");
+ fprintf (init_file, "#include \"rtl.h\"\n");
+ fprintf (init_file, "#include \"tree.h\"\n");
+ fprintf (init_file, "#include \"langhooks.h\"\n");
+ fprintf (init_file, "#include \"insn-codes.h\"\n");
+ fprintf (init_file, "#include \"rs6000-builtins.h\"\n");
+ fprintf (init_file, "\n");
+
+#ifdef BILLDEBUG
+ fprintf (init_file, "int new_builtins_are_live = 1;\n\n");
+#else
+ fprintf (init_file, "int new_builtins_are_live = 0;\n\n");
+#endif
+
+ fprintf (init_file,
+ "bifdata rs6000_builtin_info_x[RS6000_BIF_MAX];\n\n");
+ fprintf (init_file,
+ "ovlddata rs6000_overload_info[RS6000_OVLD_MAX"
+ " - RS6000_BIF_MAX];\n\n");
+
+ rbt_inorder_callback (&fntype_rbt, fntype_rbt.rbt_root, write_fntype);
+ fprintf (init_file, "\n");
+
+ fprintf (init_file, "hashval_t\n");
+ fprintf (init_file, "rs6000_bif_hasher::hash (bifdata *bd)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return htab_hash_string (bd->bifname);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "bool\n");
+ fprintf (init_file,
+ "rs6000_bif_hasher::equal (bifdata *bd, const char *name)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return bd && name && !strcmp (bd->bifname, name);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "hash_table<rs6000_bif_hasher> bif_hash (1024);\n\n");
+
+ fprintf (init_file, "hashval_t\n");
+ fprintf (init_file, "rs6000_ovld_hasher::hash (ovlddata *od)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return htab_hash_string (od->bifname);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "bool\n");
+ fprintf (init_file,
+ "rs6000_ovld_hasher::equal (ovlddata *od, const char *name)\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " return od && name && !strcmp (od->bifname, name);\n");
+ fprintf (init_file, "}\n\n");
+
+ fprintf (init_file, "hash_table<rs6000_ovld_hasher> ovld_hash (512);\n\n");
+
+ fprintf (init_file, "void\n");
+ fprintf (init_file, "rs6000_autoinit_builtins ()\n");
+ fprintf (init_file, "{\n");
+ fprintf (init_file, " tree t;\n");
+ fprintf (init_file,
+ " HOST_WIDE_INT builtin_mask = rs6000_builtin_mask;\n");
+ fprintf (init_file, " bifdata **slot;\n");
+ fprintf (init_file, " bifdata *bifaddr;\n");
+ fprintf (init_file, " hashval_t hash;\n");
+ fprintf (init_file, " ovlddata **oslot;\n");
+ fprintf (init_file, " ovlddata *ovldaddr;\n\n");
+ rbt_inorder_callback (&fntype_rbt, fntype_rbt.rbt_root, write_fntype_init);
+ fprintf (init_file, "\n");
+
+ write_init_bif_table ();
+ write_init_ovld_table ();
+
+ fprintf (init_file, "}\n");
return 1;
}
^ permalink raw reply [flat|nested] 10+ messages in thread
end of thread, other threads:[~2020-10-29 19:50 UTC | newest]
Thread overview: 10+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2020-09-14 13:58 [gcc(refs/users/wschmidt/heads/builtins3)] rs6000: Write output to the builtins init file, part 1 of 3 William Schmidt
-- strict thread matches above, loose matches on Subject: below --
2020-10-29 19:50 William Schmidt
2020-10-27 16:28 William Schmidt
2020-09-16 21:29 William Schmidt
2020-08-28 20:07 William Schmidt
2020-08-20 16:38 William Schmidt
2020-08-18 18:44 William Schmidt
2020-07-27 18:47 William Schmidt
2020-07-17 17:22 William Schmidt
2020-06-17 20:05 William Schmidt
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).