From 83d0c16672101f2f7ba6e3fa93b971efde97e451 Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Mon, 11 Mar 2002 09:24:32 +0000 Subject: dead file removed --- exec/core.c | 264 ------------------------------------------------------------ 1 file changed, 264 deletions(-) delete mode 100644 exec/core.c (limited to 'exec') diff --git a/exec/core.c b/exec/core.c deleted file mode 100644 index f79b6b08..00000000 --- a/exec/core.c +++ /dev/null @@ -1,264 +0,0 @@ -/* GNU Hurd standard core server. - Copyright (C) 1992, 1999 Free Software Foundation, Inc. - Written by Roland McGrath. - -This file is part of the GNU Hurd. - -The GNU Hurd is free software; you can redistribute it and/or modify -it under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 2, or (at your option) -any later version. - -The GNU Hurd is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. - -You should have received a copy of the GNU General Public License -along with the GNU Hurd; see the file COPYING. If not, write to -the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ - -#include -#include "core_server.h" -#include -#include - -/* Uses nonexistent bfd function: */ -char *bfd_intuit_section_name (bfd_vma vma, bfd_size_type size, - flagword *flags); - -/* Object file format to write core files in. */ -static char *core_target = NULL; - -/* Dump a core from TASK into FILE. - SIGNO and SIGCODE indicate the signal that killed the process. */ - -error_t -core_dump_task (mach_port_t coreserver, - task_t task, - file_t file, - int signo, int sigcode, - const char *my_target) -{ - error_t err; - - processor_set_name_t pset; - host_t host; - processor_set_basic_info_data_t pinfo; - - thread_t *threads; - size_t nthreads; - - vm_address_t addr; - vm_size_t size; - vm_prot_t prot, maxprot; - vm_inherit_t inherit; - boolean_t shared; - memory_object_name_t objname; - vm_offset_t offset; - - bfd *bfd; - bfd_architecture arch; - bfd_machine machine; - asection *sec; - - /* The task is suspended while we examine it. - In the case of a post-mortem dump, the only thread not suspended will - be the signal thread, which will be blocked waiting for this RPC to - return. But for gcore, threads might be running. And Leviticus - specifies that only suspended threads be thread_info'd, anyway. */ - if (err = task_suspend (task)) - goto lose; - - /* Figure out what flavor of machine the task is on. */ - if (err = task_get_assignment (task, &pset)) - goto lose; - err = processor_set_info (pset, PROCESSOR_SET_BASIC_INFO, &host, - &pinfo, PROCESSOR_SET_BASIC_INFO_COUNT); - mach_port_deallocate (mach_task_self (), pset); - if (err) - goto lose; - err = bfd_mach_host_arch_mach (host, &arch, &machine); - mach_port_deallocate (mach_task_self (), host); - if (err) - goto lose; - - /* Open the BFD. */ - bfd = NULL; - { - FILE *f = fopenport (file, "w"); - if (f == NULL) - { - err = errno; - goto lose; - } - bfd = bfd_openstream (f, my_target ?: core_target); - if (bfd == NULL) - { - err = errno; - (void) fclose (f); - errno = err; - goto bfdlose; - } - } - - bfd_set_arch_mach (bfd, arch, machine); - - /* XXX How are thread states stored in bfd? */ - if (err = task_threads (task, &threads, &nthreads)) - goto lose; - - /* Create a BFD section to describe each contiguous chunk - of the task's address space with the same stats. */ - sec = NULL; - addr = 0; - while (!vm_region (task, &addr, &size, &prot, &maxprot, - &inherit, &shared, &objname, &offset)) - { - mach_port_deallocate (mach_task_self (), objname); - - if (prot != VM_PROT_NONE) - { - flagword flags = SEC_NO_FLAGS; - - if (!(prot & VM_PROT_WRITE)) - flags |= SEC_READONLY; - if (!(prot & VM_PROT_EXECUTE)) - flags |= SEC_DATA; - - if (sec != NULL && - (vm_address_t) (bfd_section_vma (bfd, sec) + - bfd_section_size (bfd, sec)) == addr && - flags == (bfd_get_section_flags (bfd, sec) & - (SEC_READONLY|SEC_DATA))) - /* Coalesce with the previous section. */ - bfd_set_section_size (bfd, sec, - bfd_section_size (bfd, sec) + size); - else - { - /* Make a new section (which might grow by - the next region being coalesced onto it). */ - char *name = bfd_intuit_section_name (addr, size, &flags); - if (name == NULL) - { - /* No guess from BFD. */ - if (asprintf (&name, "[%p,%p) %c%c%c", - (void *) addr, (void *) (addr + size), - (prot & VM_PROT_READ) ? 'r' : '-', - (prot & VM_PROT_WRITE) ? 'w' : '-', - (prot & VM_PROT_EXECUTE) ? 'x' : '-') == -1) - goto lose; - } - sec = bfd_make_section (name); - bfd_set_section_flags (bfd, sec, flags); - bfd_set_section_vma (bfd, sec, addr); - bfd_set_section_size (bfd, sec, size); - } - } - } - - /* Write all the sections' data. */ - for (sec = bfd->sections; sec != NULL; sec = sec->next) - { - void *data; - err = vm_read (task, bfd_section_vma (bfd, sec), - bfd_section_size (bfd, sec), &data); - if (err) - /* XXX What to do? - 1. lose - 2. remove this section - 3. mark this section as having ungettable contents (how?) - */ - goto lose; - err = bfd_set_section_contents (bfd, sec, data, 0, - bfd_section_size (bfd, sec)); - munmap ((caddr_t) data, bfd_section_size (bfd, sec)); - if (err) - goto bfdlose; - } - - bfdlose: - switch (bfd_error) - { - case system_call_error: - err = errno; - break; - - case no_memory: - err = ENOMEM; - break; - - default: - err = EGRATUITOUS; - break; - } - - lose: - if (bfd != NULL) - bfd_close (bfd); - else - mach_port_deallocate (mach_task_self (), file); - task_resume (task); - mach_port_deallocate (mach_task_self (), task); - return err; -} - -error_t -fsys_getroot (fsys_t fsys, idblock_t id, file_t realnode, file_t dotdot, - file_t *root) -{ - *root = core; - mach_port_deallocate (mach_task_self (), realnode); - mach_port_deallocate (mach_task_self (), dotdot); - return POSIX_SUCCESS; -} - -mach_port_t request_portset; - -int -request_server (mach_msg_header_t *inp, - mach_msg_header_t *outp) -{ - if (inp->msgh_local_port == fsys) - return fsys_server (inp, outp); - else if (inp->msgh_local_port == core) - return (core_server (inp, outp) || - io_server (inp, outp) || - fs_server (inp, outp)); -} - -int -main (int argc, char **argv) -{ - error_t err; - fsys_t fsys; - mach_port_t boot, dotdot; - - if ((err = mach_port_allocate (mach_task_self (), - MACH_PORT_RIGHT_RECEIVE, &fsys)) || - (err = mach_port_allocate (mach_task_self (), - MACH_PORT_RIGHT_RECEIVE, &core))) - hurd_perror ("mach_port_allocate", err); - else if (err = task_get_bootstrap_port (mach_task_self (), &boot)) - hurd_perror ("task_get_bootstrap_port", err); - else if (err = fsys_startup (boot, fsys, &realnode, &dotdot)) - hurd_perror ("fsys_startup", err); - mach_port_deallocate (mach_task_self (), dotdot); - - mach_port_allocate (mach_task_self (), - MACH_PORT_RIGHT_PORT_SET, &request_portset); - - mach_port_move_member (mach_task_self (), fsys, request_portset); - mach_port_allocate (mach_task_self (), MACH_PORT_RIGHT_RECEIVE, &core); - mach_port_move_member (mach_task_self (), core, request_portset); - - mach_port_mod_refs (mach_task_self (), realnode, MACH_PORT_RIGHT_SEND, 1); - - core_target = argv[1]; - - do - err = mach_msg_server (request_server, vm_page_size, request_portset); - while (!err); - hurd_perror ("mach_msg_server", err); - return 1; -} -- cgit v1.2.3