Committed: elf32-cris.c support for inspecting core files.

[Hans-Peter Nilsson <hans-peter dot nilsson at axis dot com>]

Well, whatdoyouknow, Daniel Jacobowitz was right.  :-)

For this to work, the elfcore.h patch I sent earlier has to be applied.
Works with the example core file I received; stepping through the new
functions in objdump, it seems the right values show up.  Not sure about
the pid, though.  (Örjan, it was 160, right?)

	* elf32-cris.c (cris_elf_grok_prstatus): New function.
	(cris_elf_grok_psinfo): New function.
	(elf_backend_grok_prstatus): Define.
	(elf_backend_grok_psinfo): Define.

Index: elf32-cris.c
===================================================================
RCS file: /cvs/src/src/bfd/elf32-cris.c,v
retrieving revision 1.16
diff -p -c -r1.16 elf32-cris.c
*** elf32-cris.c	2001/10/24 03:39:54	1.16
--- elf32-cris.c	2001/11/02 07:05:49
*************** static reloc_howto_type * cris_reloc_typ
*** 33,38 ****
--- 33,44 ----
  static void cris_info_to_howto_rela
    PARAMS ((bfd *, arelent *, Elf32_Internal_Rela *));
  
+ static boolean cris_elf_grok_prstatus
+   PARAMS ((bfd *abfd, Elf_Internal_Note *note));
+ 
+ static boolean cris_elf_grok_psinfo
+   PARAMS ((bfd *abfd, Elf_Internal_Note *note));
+ 
  static boolean cris_elf_relocate_section
    PARAMS ((bfd *, struct bfd_link_info *, bfd *, asection *, bfd_byte *,
  	   Elf_Internal_Rela *, Elf_Internal_Sym *, asection **));
*************** cris_info_to_howto_rela (abfd, cache_ptr
*** 461,466 ****
--- 467,538 ----
    cache_ptr->howto = & cris_elf_howto_table [r_type];
  }
  
+ /* Support for core dump NOTE sections.  */
+ 
+ static boolean
+ cris_elf_grok_prstatus (abfd, note)
+      bfd *abfd;
+      Elf_Internal_Note *note;
+ {
+   int offset;
+   size_t raw_size;
+ 
+   switch (note->descsz)
+     {
+       default:
+ 	return false;
+ 
+       case 166:		/* Linux/CRIS */
+ 	/* pr_cursig */
+ 	elf_tdata (abfd)->core_signal = bfd_get_16 (abfd, note->descdata + 12);
+ 
+ 	/* pr_pid */
+ 	elf_tdata (abfd)->core_pid = bfd_get_32 (abfd, note->descdata + 22);
+ 
+ 	/* pr_reg */
+ 	offset = 70;
+ 	raw_size = 92;
+ 
+ 	break;
+     }
+ 
+   /* Make a ".reg/999" section.  */
+   return _bfd_elfcore_make_pseudosection (abfd, ".reg",
+ 					  raw_size, note->descpos + offset);
+ }
+ 
+ static boolean
+ cris_elf_grok_psinfo (abfd, note)
+      bfd *abfd;
+      Elf_Internal_Note *note;
+ {
+   switch (note->descsz)
+     {
+       default:
+ 	return false;
+ 
+       case 124:		/* Linux/CRIS elf_prpsinfo */
+ 	elf_tdata (abfd)->core_program
+ 	 = _bfd_elfcore_strndup (abfd, note->descdata + 28, 16);
+ 	elf_tdata (abfd)->core_command
+ 	 = _bfd_elfcore_strndup (abfd, note->descdata + 44, 80);
+     }
+ 
+   /* Note that for some reason, a spurious space is tacked
+      onto the end of the args in some (at least one anyway)
+      implementations, so strip it off if it exists.  */
+ 
+   {
+     char *command = elf_tdata (abfd)->core_command;
+     int n = strlen (command);
+ 
+     if (0 < n && command[n - 1] == ' ')
+       command[n - 1] = '\0';
+   }
+ 
+   return true;
+ }
+ 
  /* The name of the dynamic interpreter.  This is put in the .interp
     section.  */
  
*************** elf_cris_reloc_type_class (rela)
*** 2997,3002 ****
--- 3069,3076 ----
  #define elf_backend_gc_mark_hook		cris_elf_gc_mark_hook
  #define elf_backend_gc_sweep_hook		cris_elf_gc_sweep_hook
  #define elf_backend_check_relocs                cris_elf_check_relocs
+ #define elf_backend_grok_prstatus		cris_elf_grok_prstatus
+ #define elf_backend_grok_psinfo			cris_elf_grok_psinfo
  
  #define elf_backend_can_gc_sections		1
  #define elf_backend_can_refcount		1

brgds, H-P