mirror of
https://sourceware.org/git/glibc.git
synced 2025-07-07 12:21:14 +03:00
Update.
2000-08-15 Ulrich Drepper <drepper@redhat.com> * elf/multiload.c: Add mtrace call. Call dlclose for all handles and free wd. * elf/dl-deps.c (_dl_map_object_deps): Don't allocate needed list if there is already one. * elf/dl-close.c: Pretty print.
This commit is contained in:
@ -1,5 +1,6 @@
|
||||
#include <dlfcn.h>
|
||||
#include <errno.h>
|
||||
#include <mcheck.h>
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
#include <string.h>
|
||||
@ -16,6 +17,8 @@ main (void)
|
||||
char *base;
|
||||
char *buf;
|
||||
|
||||
mtrace ();
|
||||
|
||||
/* Change to the binary directory. */
|
||||
if (chdir (OBJDIR) != 0)
|
||||
{
|
||||
@ -68,6 +71,29 @@ main (void)
|
||||
exit (EXIT_FAILURE);
|
||||
}
|
||||
|
||||
if (dlclose (a) != 0)
|
||||
{
|
||||
puts ("closing `a' failed");
|
||||
exit (EXIT_FAILURE);
|
||||
}
|
||||
if (dlclose (b) != 0)
|
||||
{
|
||||
puts ("closing `a' failed");
|
||||
exit (EXIT_FAILURE);
|
||||
}
|
||||
if (dlclose (c) != 0)
|
||||
{
|
||||
puts ("closing `a' failed");
|
||||
exit (EXIT_FAILURE);
|
||||
}
|
||||
if (dlclose (d) != 0)
|
||||
{
|
||||
puts ("closing `a' failed");
|
||||
exit (EXIT_FAILURE);
|
||||
}
|
||||
|
||||
free (wd);
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
Reference in New Issue
Block a user