1/* This testcase is part of GDB, the GNU debugger.
2
3   Copyright 2004, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
4
5   This program is free software; you can redistribute it and/or modify
6   it under the terms of the GNU General Public License as published by
7   the Free Software Foundation; either version 3 of the License, or
8   (at your option) any later version.
9
10   This program is distributed in the hope that it will be useful,
11   but WITHOUT ANY WARRANTY; without even the implied warranty of
12   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13   GNU General Public License for more details.
14
15   You should have received a copy of the GNU General Public License
16   along with this program.  If not, see <http://www.gnu.org/licenses/>. */
17
18#include <stdio.h>
19#include <stdlib.h>
20
21#ifdef __WIN32__
22#include <windows.h>
23#define dlopen(name, mode) LoadLibrary (TEXT (name))
24#ifdef _WIN32_WCE
25# define dlsym(handle, func) GetProcAddress (handle, TEXT (func))
26#else
27# define dlsym(handle, func) GetProcAddress (handle, func)
28#endif
29#define dlclose(handle) FreeLibrary (handle)
30#else
31#include <dlfcn.h>
32#endif
33
34int k = 0;
35
36int main()
37{
38  void *handle;
39  int (*unloadshr) (int);
40  int y;
41  const char *msg;
42
43  handle = dlopen (SHLIB_NAME, RTLD_LAZY);
44
45  if (!handle)
46    {
47      fprintf (stderr, "%s\n", dlerror ());
48      exit (1);
49    }
50
51  unloadshr = (int (*) (int)) dlsym (handle, "shrfunc1");
52
53  if (!unloadshr)
54    {
55#ifdef __WIN32__
56      fprintf (stderr, "error %d occurred\n", GetLastError ());
57#else
58      fprintf (stderr, "%s\n", dlerror ());
59#endif
60      exit (1);
61    }
62
63  y = (*unloadshr) (1);
64
65  dlclose (handle);
66  handle = NULL;	/* y-set-1 */
67
68  /* The second library should share the same memory address.  */
69
70  handle = dlopen (SHLIB_NAME2, RTLD_LAZY);
71
72  if (!handle)
73    {
74      fprintf (stderr, "%s\n", dlerror ());
75      exit (1);
76    }
77
78  unloadshr = (int (*)(int)) dlsym (handle, "shrfunc2");
79
80  if (!unloadshr)
81    {
82#ifdef __WIN32__
83      fprintf (stderr, "error %d occurred\n", GetLastError ());
84#else
85      fprintf (stderr, "%s\n", dlerror ());
86#endif
87      exit (1);
88    }
89
90  y = (*unloadshr) (2);
91
92  dlclose (handle);
93  handle = NULL;	/* y-set-2 */
94
95  return 0;
96}
97