* gcore.c: Reorder include files in alphabetical order. Include

"gdb_assert.h".  Various coding style fixes.
(derive_stack_segment, derive_heap_segment): Replace check for
non-null BOTTOM and TOP with gdb_assert.
(derive_heap_segment): Replace check for successful creation of
ZERO with gdb_assert.
(make_mem_sec): Use bfd_section_lma to set OSEC->lma.

gdb/ChangeLog

@@ -1,3 +1,13 @@
+2003-09-03  Mark Kettenis  <m.kettenis@osp.nl>
+
+	* gcore.c: Reorder include files in alphabetical order.  Include
+	"gdb_assert.h".  Various coding style fixes.
+	(derive_stack_segment, derive_heap_segment): Replace check for
+	non-null BOTTOM and TOP with gdb_assert.
+	(derive_heap_segment): Replace check for successful creation of
+	ZERO with gdb_assert.
+	(make_mem_sec): Use bfd_section_lma to set OSEC->lma.
+
 2003-09-04  Andrew Cagney  <cagney@redhat.com>
 
 	* thread-db.c (verbose_dlsym): New function.

gdb/gcore.c

@@ -20,21 +20,23 @@
    Boston, MA 02111-1307, USA.  */
 
 #include "defs.h"
-#include "cli/cli-decode.h"
+#include "elf-bfd.h"
+#include "infcall.h"
 #include "inferior.h"
 #include "gdbcore.h"
-#include "elf-bfd.h"
-#include "symfile.h"
 #include "objfiles.h"
-#include "infcall.h"
+#include "symfile.h"
+
+#include "cli/cli-decode.h"
+
+#include "gdb_assert.h"
 
 static char *default_gcore_target (void);
 static enum bfd_architecture default_gcore_arch (void);
 static unsigned long default_gcore_mach (void);
 static int gcore_memory_sections (bfd *);
 
-/* Function: gcore_command
+/* Generate a core file from the inferior process.  */
-   Generate a core file from the inferior process.  */
 
 static void
 gcore_command (char *args, int from_tty)
@@ -47,7 +49,7 @@ gcore_command (char *args, int from_tty)
   int note_size = 0;
 
   /* No use generating a corefile without a target process.  */
-  if (!(target_has_execution))
+  if (!target_has_execution)
     noprocess ();
 
   if (args && *args)
@@ -64,10 +66,9 @@ gcore_command (char *args, int from_tty)
 		      "Opening corefile '%s' for output.\n", corefilename);
 
   /* Open the output file.  */
-  if (!(obfd = bfd_openw (corefilename, default_gcore_target ())))
+  obfd = bfd_openw (corefilename, default_gcore_target ());
-    {
+  if (!obfd)
     error ("Failed to open '%s' for output.", corefilename);
-    }
 
   /* Need a cleanup that will close the file (FIXME: delete it?).  */
   old_chain = make_cleanup_bfd_close (obfd);
@@ -76,12 +77,13 @@ gcore_command (char *args, int from_tty)
   bfd_set_arch_mach (obfd, default_gcore_arch (), default_gcore_mach ());
 
   /* An external target method must build the notes section.  */
-  note_data = (char *) target_make_corefile_notes (obfd, &note_size);
+  note_data = target_make_corefile_notes (obfd, &note_size);
 
   /* Create the note section.  */
   if (note_data != NULL && note_size != 0)
     {
-      if ((note_sec = bfd_make_section_anyway (obfd, "note0")) == NULL)
+      note_sec = bfd_make_section_anyway (obfd, "note0");
+      if (note_sec == NULL)
 	error ("Failed to create 'note' section for corefile: %s", 
 	       bfd_errmsg (bfd_get_error ()));
 
@@ -100,15 +102,11 @@ gcore_command (char *args, int from_tty)
   if (note_data != NULL && note_size != 0)
     {
       if (!bfd_set_section_contents (obfd, note_sec, note_data, 0, note_size))
-	{
+	warning ("writing note section (%s)", bfd_errmsg (bfd_get_error ()));
-	  warning ("writing note section (%s)", 
-		   bfd_errmsg (bfd_get_error ()));
-	}
     }
 
   /* Succeeded.  */
-  fprintf_filtered (gdb_stdout, 
+  fprintf_filtered (gdb_stdout, "Saved corefile %s\n", corefilename);
-		    "Saved corefile %s\n", corefilename);
 
   /* Clean-ups will close the output file and free malloc memory.  */
   do_cleanups (old_chain);
@@ -122,7 +120,7 @@ default_gcore_mach (void)
   return 0;
 #else
 #ifdef TARGET_ARCHITECTURE
-  const struct bfd_arch_info * bfdarch = TARGET_ARCHITECTURE;
+  const struct bfd_arch_info *bfdarch = TARGET_ARCHITECTURE;
 
   if (bfdarch != NULL)
     return bfdarch->mach;
@@ -152,33 +150,33 @@ default_gcore_arch (void)
 static char *
 default_gcore_target (void)
 {
-  /* FIXME -- this may only work for ELF targets.  */
+  /* FIXME: This may only work for ELF targets.  */
   if (exec_bfd == NULL)
     return NULL;
   else
     return bfd_get_target (exec_bfd);
 }
 
-/* Function: derive_stack_segment
+/* Derive a reasonable stack segment by unwinding the target stack,
-
+   and store its limits in *BOTTOM and *TOP.  Return non-zero if
-   Derive a reasonable stack segment by unwinding the target stack. 
+   successful.  */
-   
-   Returns 0 for failure, 1 for success.  */
 
 static int 
 derive_stack_segment (bfd_vma *bottom, bfd_vma *top)
 {
-  bfd_vma tmp_vma;
   struct frame_info *fi, *tmp_fi;
 
-  if (bottom == NULL || top == NULL)
+  gdb_assert (bottom);
-    return 0;	/* Paranoia. */
+  gdb_assert (top);
 
+  /* Can't succeed without stack and registers.  */
   if (!target_has_stack || !target_has_registers)
-    return 0;	/* Can't succeed without stack and registers. */
+    return 0;
 
-  if ((fi = get_current_frame ()) == NULL)
+  /* Can't succeed without current frame.  */
-    return 0;	/* Can't succeed without current frame. */
+  fi = get_current_frame ();
+  if (fi == NULL)
+    return 0;
 
   /* Save frame pointer of TOS frame.  */
   *top = get_frame_base (fi);
@@ -193,24 +191,23 @@ derive_stack_segment (bfd_vma *bottom, bfd_vma *top)
   /* Save frame pointer of prev-most frame.  */
   *bottom = get_frame_base (fi);
 
-  /* Now canonicalize their order, so that 'bottom' is a lower address
+  /* Now canonicalize their order, so that BOTTOM is a lower address
      (as opposed to a lower stack frame).  */
   if (*bottom > *top)
     {
+      bfd_vma tmp_vma;
+
       tmp_vma = *top;
       *top = *bottom;
       *bottom = tmp_vma;
     }
 
-  return 1;	/* success */
+  return 1;
 }
 
-/* Function: derive_heap_segment
+/* Derive a reasonable heap segment for ABFD by looking at sbrk and
-
+   the static data sections.  Store its limits in *BOTTOM and *TOP.
-   Derive a reasonable heap segment by looking at sbrk and
+   Return non-zero if successful.  */
-   the static data sections.
-   
-   Returns 0 for failure, 1 for success.  */
 
 static int 
 derive_heap_segment (bfd *abfd, bfd_vma *bottom, bfd_vma *top)
@@ -222,23 +219,29 @@ derive_heap_segment (bfd *abfd, bfd_vma *bottom, bfd_vma *top)
   bfd_vma sec_vaddr;
   asection *sec;
 
-  if (bottom == NULL || top == NULL)
+  gdb_assert (bottom);
-    return 0;		/* Paranoia. */
+  gdb_assert (top);
 
+  /* This function depends on being able to call a function in the
+     inferior.  */
   if (!target_has_execution)
-    return 0;		/* This function depends on being able
+    return 0;
-			   to call a function in the inferior.  */
 
-  /* Assumption: link map is arranged as follows (low to high addresses):
+  /* The following code assumes that the link map is arranged as
-     text sections
+     follows (low to high addresses):
-     data sections (including bss)
+
-     heap
+     ---------------------------------
-  */
+     | text sections                 |
+     ---------------------------------
+     | data sections (including bss) |
+     ---------------------------------
+     | heap                          |
+     --------------------------------- */
 
   for (sec = abfd->sections; sec; sec = sec->next)
     {
-      if (bfd_get_section_flags (abfd, sec) & SEC_DATA ||
+      if (bfd_get_section_flags (abfd, sec) & SEC_DATA
-	  strcmp (".bss", bfd_section_name (abfd, sec)) == 0)
+	  || strcmp (".bss", bfd_section_name (abfd, sec)) == 0)
 	{
 	  sec_vaddr = bfd_get_section_vma (abfd, sec);
 	  sec_size = bfd_get_section_size_before_reloc (sec);
@@ -246,23 +249,27 @@ derive_heap_segment (bfd *abfd, bfd_vma *bottom, bfd_vma *top)
 	    top_of_data_memory = sec_vaddr + sec_size;
 	}
     }
+
   /* Now get the top-of-heap by calling sbrk in the inferior.  */
   if (lookup_minimal_symbol ("sbrk", NULL, NULL) != NULL)
     {
-      if ((sbrk = find_function_in_inferior ("sbrk")) == NULL)
+      sbrk = find_function_in_inferior ("sbrk");
+      if (sbrk == NULL)
 	return 0;
     }
   else if (lookup_minimal_symbol ("_sbrk", NULL, NULL) != NULL)
     {
-      if ((sbrk = find_function_in_inferior ("_sbrk")) == NULL)
+      sbrk = find_function_in_inferior ("_sbrk");
+      if (sbrk == NULL)
 	return 0;
     }
   else
     return 0;
 
-  if ((zero = value_from_longest (builtin_type_int, (LONGEST) 0)) == NULL)
+  zero = value_from_longest (builtin_type_int, 0);
-    return 0;
+  gdb_assert (zero);
-  if ((sbrk = call_function_by_hand (sbrk, 1, &zero)) == NULL)
+  sbrk = call_function_by_hand (sbrk, 1, &zero);
+  if (sbrk == NULL)
     return 0;
   top_of_heap = value_as_long (sbrk);
 
@@ -271,10 +278,11 @@ derive_heap_segment (bfd *abfd, bfd_vma *bottom, bfd_vma *top)
     {
       *bottom = top_of_data_memory;
       *top = top_of_heap;
-      return 1;	/* success */
+      return 1;
     }
-  else
+
-    return 0;	/* No additional heap space needs to be saved. */
+  /* No additional heap space needs to be saved.  */
+  return 0;
 }
 
 /* ARGSUSED */
@@ -296,20 +304,17 @@ make_output_phdrs (bfd *obfd, asection *osec, void *ignored)
   if (bfd_get_section_flags (obfd, osec) & SEC_CODE)
     p_flags |= PF_X;	/* Segment is executable.  */
 
-  bfd_record_phdr (obfd, p_type, 1, p_flags, 0, 0, 
+  bfd_record_phdr (obfd, p_type, 1, p_flags, 0, 0, 0, 0, 1, &osec);
-		   0, 0, 1, &osec);
 }
 
 static asection *
-make_mem_sec (bfd *obfd, 
+make_mem_sec (bfd *obfd, bfd_vma addr, bfd_size_type size,
-	      bfd_vma addr, 
+	      unsigned int flags, unsigned int alignment)
-	      bfd_size_type size, 
-	      unsigned int flags, 
-	      unsigned int alignment)
 {
   asection *osec;
 
-  if ((osec = bfd_make_section_anyway (obfd, "load")) == NULL)
+  osec = bfd_make_section_anyway (obfd, "load");
+  if (osec == NULL)
     {
       warning ("Couldn't make gcore segment: %s",
 	       bfd_errmsg (bfd_get_error ()));
@@ -318,14 +323,13 @@ make_mem_sec (bfd *obfd,
 
   if (info_verbose)
     {
-      fprintf_filtered (gdb_stdout, 
+      fprintf_filtered (gdb_stdout, "Save segment, %lld bytes at 0x%s\n",
-			"Save segment, %lld bytes at 0x%s\n",
 			(long long) size, paddr_nz (addr));
     }
 
   bfd_set_section_size (obfd, osec, size);
   bfd_set_section_vma (obfd, osec, addr);
-  osec->lma = 0;	/* FIXME: there should be a macro for this! */
+  bfd_section_lma (obfd, osec) = 0; /* ??? bfd_set_section_lma?  */
   bfd_set_section_alignment (obfd, osec, alignment);
   bfd_set_section_flags (obfd, osec,
 			 flags | SEC_LOAD | SEC_ALLOC | SEC_HAS_CONTENTS);
@@ -333,36 +337,30 @@ make_mem_sec (bfd *obfd,
 }
 
 static int
-gcore_create_callback (CORE_ADDR vaddr, 
+gcore_create_callback (CORE_ADDR vaddr, unsigned long size,
-		       unsigned long size,
+		       int read, int write, int exec, void *data)
-		       int read, int write, int exec, 
-		       void *data)
 {
   flagword flags = 0;
 
   if (write == 0)
     {
       flags |= SEC_READONLY;
-      /* Set size == zero for readonly sections. */
+      /* Mark readonly sections as zero-sized, such that we can avoid
+         copying their contents.  */
       size = 0;
     }
-  if (exec)
-    {
-      flags |= SEC_CODE;
-    }
-  else
-    {
-      flags |= SEC_DATA;
-    }
 
-  return ((make_mem_sec ((bfd *) data, vaddr, size, flags, 0)) == NULL);
+  if (exec)
+    flags |= SEC_CODE;
+  else
+    flags |= SEC_DATA;
+
+  return ((make_mem_sec (data, vaddr, size, flags, 0)) == NULL);
 }
 
 static int
-objfile_find_memory_regions (int (*func) (CORE_ADDR, 
+objfile_find_memory_regions (int (*func) (CORE_ADDR, unsigned long,
-					  unsigned long,
+					  int, int, int, void *),
-					  int, int, int,
-					   void *), 
 			     void *obfd)
 {
   /* Use objfile data to create memory sections.  */
@@ -383,33 +381,32 @@ objfile_find_memory_regions (int (*func) (CORE_ADDR,
 	  int size = bfd_section_size (ibfd, isec);
 	  int ret;
 
-	  if ((ret = (*func) (objsec->addr, 
+	  ret = (*func) (objsec->addr, bfd_section_size (ibfd, isec), 
-			      bfd_section_size (ibfd, isec), 
 			 1, /* All sections will be readable.  */
-			      (flags & SEC_READONLY) == 0, /* writable */
+			 (flags & SEC_READONLY) == 0, /* Writable.  */
-			      (flags & SEC_CODE) != 0, /* executable */
+			 (flags & SEC_CODE) != 0, /* Executable.  */
-			      obfd)) != 0)
+			 obfd);
+	  if (ret != 0)
 	    return ret;
 	}
     }
 
   /* Make a stack segment.  */
   if (derive_stack_segment (&temp_bottom, &temp_top))
-    (*func) (temp_bottom, 
+    (*func) (temp_bottom, temp_top - temp_bottom, 
-	     temp_top - temp_bottom, 
+	     1, /* Stack section will be readable.  */
-	     1, /* Stack section will be readable */
+	     1, /* Stack section will be writable.  */
-	     1, /* Stack section will be writable */
+	     0, /* Stack section will not be executable.  */
-	     0, /* Stack section will not be executable */
 	     obfd);
 
   /* Make a heap segment. */
   if (derive_heap_segment (exec_bfd, &temp_bottom, &temp_top))
-    (*func) (temp_bottom, 
+    (*func) (temp_bottom, temp_top - temp_bottom,
-	     temp_top - temp_bottom, 
+	     1, /* Heap section will be readable.  */
-	     1, /* Heap section will be readable */
+	     1, /* Heap section will be writable.  */
-	     1, /* Heap section will be writable */
+	     0, /* Heap section will not be executable.  */
-	     0, /* Heap section will not be executable */
 	     obfd);
+
   return 0;
 }
 
@@ -420,13 +417,18 @@ gcore_copy_callback (bfd *obfd, asection *osec, void *ignored)
   struct cleanup *old_chain = NULL;
   void *memhunk;
 
+  /* Read-only sections are marked as zero-size.  We don't have to
+     copy their contents.  */
   if (size == 0)
-    return;	/* Read-only sections are marked as zero-size.
+    return;
-		   We don't have to copy their contents. */
-  if (strncmp ("load", bfd_section_name (obfd, osec), 4) != 0)
-    return;	/* Only interested in "load" sections. */
 
-  if ((memhunk = xmalloc (size)) == NULL)
+  /* Only interested in "load" sections.  */
+  if (strncmp ("load", bfd_section_name (obfd, osec), 4) != 0)
+    return;
+
+  memhunk = xmalloc (size);
+  /* ??? This is crap since xmalloc should never return NULL.  */
+  if (memhunk == NULL)
     error ("Not enough memory to create corefile.");
   old_chain = make_cleanup (xfree, memhunk);
 
@@ -438,14 +440,14 @@ gcore_copy_callback (bfd *obfd, asection *osec, void *ignored)
     warning ("Failed to write corefile contents (%s).", 
 	     bfd_errmsg (bfd_get_error ()));
 
-  do_cleanups (old_chain);	/* frees the xmalloc buffer */
+  do_cleanups (old_chain);	/* Frees MEMHUNK.  */
 }
 
 static int
 gcore_memory_sections (bfd *obfd)
 {
   if (target_find_memory_regions (gcore_create_callback, obfd) != 0)
-    return 0;	/* FIXME error return/msg? */
+    return 0;			/* FIXME: error return/msg?  */
 
   /* Record phdrs for section-to-segment mapping.  */
   bfd_map_over_sections (obfd, make_output_phdrs, NULL);
@@ -453,14 +455,15 @@ gcore_memory_sections (bfd *obfd)
   /* Copy memory region contents.  */
   bfd_map_over_sections (obfd, gcore_copy_callback, NULL);
 
-  return 1;	/* success */
+  return 1;
 }
 
 void
 _initialize_gcore (void)
 {
   add_com ("generate-core-file", class_files, gcore_command,
-	   "Save a core file with the current state of the debugged process.\n\
+	   "\
+Save a core file with the current state of the debugged process.\n\
 Argument is optional filename.  Default filename is 'core.<process_id>'.");
 
   add_com_alias ("gcore", "generate-core-file", class_files, 1);