for (eph = imap->l_phdr; eph < imap->l_phdr + imap->l_phnum; ++eph) if (eph->p_type == PT_LOAD) break;   for (ph = imap->l_phdr + (imap->l_phnum - 1); ph >= eph; --ph)
first = last = NULL; for (ph = imap->l_phdr; ph < imap->l_phdr + imap->l_phnum; ++ph)
_dl_close (struct link_map *map){  struct link_map **list;  unsigned int i;  if (map->l_opencount == 0)    LOSE ("shared object not open");  /* Acquire the lock.  */  __libc_lock_lock (_dl_load_lock);  /* Decrement the reference count.  */  if (--map->l_opencount > 0 || map->l_type != lt_loaded)    {      /* There are still references to this object.  Do nothing more.  */      __libc_lock_unlock (_dl_load_lock);      return;    }  /* Notify the debugger we are about to remove some loaded objects.  */  _r_debug.r_state = RT_DELETE;  _dl_debug_state ();  list = map->l_searchlist;  /* The search list contains a counted reference to each object it     points to, the 0th elt being MAP itself.  Decrement the reference     counts on all the objects MAP depends on.  */  for (i = 1; i < map->l_nsearchlist; ++i)    --list[i]->l_opencount;  /* Clear the search list so it doesn't get freed while we are still     using it.  We have cached it in LIST and will free it when     finished.  */  map->l_searchlist = NULL;  /* Check each element of the search list to see if all references to     it are gone.  */  for (i = 0; i < map->l_nsearchlist; ++i)    {      struct link_map *imap = list[i];      if (imap->l_opencount == 0 && imap->l_type == lt_loaded)	{	  /* That was the last reference, and this was a dlopen-loaded	     object.  We can unmap it.  */	  const ElfW(Phdr) *ph;	  const ElfW(Phdr) *eph;	  if (imap->l_info[DT_FINI])	    /* Call its termination function.  */	    (*(void (*) (void)) ((void *) imap->l_addr +				 imap->l_info[DT_FINI]->d_un.d_ptr)) ();	  if (imap->l_global)	    {	      /* This object is in the global scope list.  Remove it.  */	      struct link_map **tail = _dl_global_scope_end;	      do		--tail;	      while (*tail != imap);	      --_dl_global_scope_end;	      memcpy (tail, tail + 1, _dl_global_scope_end - tail);	      _dl_global_scope_end[0] = NULL;	      _dl_global_scope_end[1] = NULL;	    }	  /* Find the first entry specifying a load command.  We have	     to determine this now since the table itself is also loaded.  */	  for (eph = imap->l_phdr; eph < imap->l_phdr + imap->l_phnum; ++eph)	    if (eph->p_type == PT_LOAD)	      break;	  /* Unmap the segments.  */	  for (ph = imap->l_phdr + (imap->l_phnum - 1); ph >= eph; --ph)	    if (ph->p_type == PT_LOAD)	      {		ElfW(Addr) mapstart = ph->p_vaddr & ~(ph->p_align - 1);		ElfW(Addr) mapend = ((ph->p_vaddr + ph->p_memsz				      + ph->p_align - 1)				     & ~(ph->p_align - 1));		__munmap ((caddr_t) (imap->l_addr + mapstart),			  mapend - mapstart);	      }	  /* Finally, unlink the data structure and free it.  */	  if (imap->l_prev)	    imap->l_prev->l_next = imap->l_next;	  if (imap->l_next)	    imap->l_next->l_prev = imap->l_prev;	  if (imap->l_searchlist)	    free (imap->l_searchlist);	  free (imap);	}    }  free (list);  /* Notify the debugger those objects are finalized and gone.  */  _r_debug.r_state = RT_CONSISTENT;  _dl_debug_state ();  /* Release the lock.  */  __libc_lock_unlock (_dl_load_lock);}