+/* Callback to identify and rename LTO debug sections by name.
+ Returns non-NULL if NAME is a LTO debug section, NULL if not.
+ If RENAME is true it will rename LTO debug sections to non-LTO
+ ones. */
+
+static char *
+handle_lto_debug_sections (const char *name, int rename)
+{
+ char *newname = rename ? XCNEWVEC (char, strlen (name) + 1)
+ : xstrdup (name);
+
+ /* ??? So we can't use .gnu.lto_ prefixed sections as the assembler
+ complains about bogus section flags. Which means we need to arrange
+ for that to be fixed or .gnu.debuglto_ marked as SHF_EXCLUDE (to make
+ fat lto object tooling work for the fat part). */
+ /* Also include corresponding reloc sections. */
+ if (strncmp (name, ".rela", sizeof (".rela") - 1) == 0)
+ {
+ if (rename)
+ strncpy (newname, name, sizeof (".rela") - 1);
+ name += sizeof (".rela") - 1;
+ }
+ else if (strncmp (name, ".rel", sizeof (".rel") - 1) == 0)
+ {
+ if (rename)
+ strncpy (newname, name, sizeof (".rel") - 1);
+ name += sizeof (".rel") - 1;
+ }
+ /* ??? For now this handles both .gnu.lto_ and .gnu.debuglto_ prefixed
+ sections. */
+ /* Copy LTO debug sections and rename them to their non-LTO name. */
+ if (strncmp (name, ".gnu.debuglto_", sizeof (".gnu.debuglto_") - 1) == 0)
+ return rename ? strcat (newname, name + sizeof (".gnu.debuglto_") - 1) : newname;
+ else if (strncmp (name, ".gnu.lto_.debug_",
+ sizeof (".gnu.lto_.debug_") -1) == 0)
+ return rename ? strcat (newname, name + sizeof (".gnu.lto_") - 1) : newname;
+ /* Copy over .note.GNU-stack section under the same name if present. */
+ else if (strcmp (name, ".note.GNU-stack") == 0)
+ return strcpy (newname, name);
+ /* Copy over .note.gnu.property section under the same name if present. */
+ else if (strcmp (name, ".note.gnu.property") == 0)
+ return strcpy (newname, name);
+ /* Copy over .comment section under the same name if present. Solaris
+ ld uses them to relax its checking of ELF gABI access rules for
+ COMDAT sections in objects produced by GCC. */
+ else if (strcmp (name, ".comment") == 0)
+ return strcpy (newname, name);
+ /* Copy over .GCC.command.line section under the same name if present. */
+ else if (strcmp (name, ".GCC.command.line") == 0)
+ return strcpy (newname, name);
+ free (newname);
+ return NULL;
+}
+
+/* Wrapper for handle_lto_debug_sections. */
+
+static char *
+handle_lto_debug_sections_rename (const char *name)
+{
+ return handle_lto_debug_sections (name, 1);
+}
+
+/* Wrapper for handle_lto_debug_sections. */
+
+static char *
+handle_lto_debug_sections_norename (const char *name)
+{
+ return handle_lto_debug_sections (name, 0);
+}
+
+/* Copy LTO debug sections. */
+
+const char *
+simple_object_copy_lto_debug_sections (simple_object_read *sobj,
+ const char *dest, int *err, int rename)
+{
+ const char *errmsg;
+ simple_object_write *dest_sobj;
+ simple_object_attributes *attrs;
+ int outfd;
+
+ if (! sobj->functions->copy_lto_debug_sections)
+ {
+ *err = EINVAL;
+ return "simple_object_copy_lto_debug_sections not implemented";
+ }
+
+ attrs = simple_object_fetch_attributes (sobj, &errmsg, err);
+ if (! attrs)
+ return errmsg;
+ dest_sobj = simple_object_start_write (attrs, NULL, &errmsg, err);
+ simple_object_release_attributes (attrs);
+ if (! dest_sobj)
+ return errmsg;
+
+ errmsg = sobj->functions->copy_lto_debug_sections
+ (sobj, dest_sobj,
+ rename ? handle_lto_debug_sections_rename
+ : handle_lto_debug_sections_norename, err);
+ if (errmsg)
+ {
+ simple_object_release_write (dest_sobj);
+ return errmsg;
+ }
+
+ outfd = open (dest, O_CREAT|O_WRONLY|O_TRUNC|O_BINARY, 00777);
+ if (outfd == -1)
+ {
+ *err = errno;
+ simple_object_release_write (dest_sobj);
+ return "open failed";
+ }
+
+ errmsg = simple_object_write_to_file (dest_sobj, outfd, err);
+ close (outfd);
+ if (errmsg)
+ {
+ simple_object_release_write (dest_sobj);
+ return errmsg;
+ }
+
+ simple_object_release_write (dest_sobj);
+ return NULL;
+}
+