Line data    Source code

       1             : /* Finish a session using libdwfl.
       2             :    Copyright (C) 2005, 2008, 2012-2013, 2015 Red Hat, Inc.
       3             :    This file is part of elfutils.
       4             : 
       5             :    This file is free software; you can redistribute it and/or modify
       6             :    it under the terms of either
       7             : 
       8             :      * the GNU Lesser General Public License as published by the Free
       9             :        Software Foundation; either version 3 of the License, or (at
      10             :        your option) any later version
      11             : 
      12             :    or
      13             : 
      14             :      * the GNU General Public License as published by the Free
      15             :        Software Foundation; either version 2 of the License, or (at
      16             :        your option) any later version
      17             : 
      18             :    or both in parallel, as here.
      19             : 
      20             :    elfutils is distributed in the hope that it will be useful, but
      21             :    WITHOUT ANY WARRANTY; without even the implied warranty of
      22             :    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
      23             :    General Public License for more details.
      24             : 
      25             :    You should have received copies of the GNU General Public License and
      26             :    the GNU Lesser General Public License along with this program.  If
      27             :    not, see <http://www.gnu.org/licenses/>.  */
      28             : 
      29             : #ifdef HAVE_CONFIG_H
      30             : # include <config.h>
      31             : #endif
      32             : 
      33             : #include "libdwflP.h"
      34             : #include <unistd.h>
      35             : 
      36             : void
      37        5363 : dwfl_end (Dwfl *dwfl)
      38             : {
      39        5363 :   if (dwfl == NULL)
      40             :     return;
      41             : 
      42        5347 :   if (dwfl->process)
      43          43 :     __libdwfl_process_free (dwfl->process);
      44             : 
      45        5347 :   free (dwfl->lookup_addr);
      46        5347 :   free (dwfl->lookup_module);
      47        5347 :   free (dwfl->lookup_segndx);
      48             : 
      49        5347 :   Dwfl_Module *next = dwfl->modulelist;
      50       56191 :   while (next != NULL)
      51             :     {
      52       45497 :       Dwfl_Module *dead = next;
      53       45497 :       next = dead->next;
      54       45497 :       __libdwfl_module_free (dead);
      55             :     }
      56             : 
      57        5347 :   if (dwfl->user_core != NULL)
      58             :     {
      59          33 :       free (dwfl->user_core->executable_for_core);
      60          33 :       elf_end (dwfl->user_core->core);
      61          33 :       if (dwfl->user_core->fd != -1)
      62          21 :         close (dwfl->user_core->fd);
      63          33 :       free (dwfl->user_core);
      64             :     }
      65        5347 :   free (dwfl);
      66             : }