File: restest1.c

package info (click to toggle)
glibc 2.41-10
  • links: PTS, VCS
  • area: main
  • in suites: sid, trixie
  • size: 300,192 kB
  • sloc: ansic: 1,050,471; asm: 238,243; makefile: 20,378; python: 13,537; sh: 11,823; cpp: 5,197; awk: 1,795; perl: 317; yacc: 292; pascal: 182; sed: 19
file content (57 lines) | stat: -rw-r--r-- 1,212 bytes parent folder | download | duplicates (42)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
#include <dlfcn.h>
#include <error.h>
#include <mcheck.h>
#include <stdio.h>
#include <stdlib.h>

int
main (void)
{
  void *h1;
  int (*fp1) (int);
  void *h2;
  int (*fp2) (int);
  int res1;
  int res2;

  mtrace ();

  h1 = dlopen ("testobj1.so", RTLD_LAZY);
  if (h1 == NULL)
    error (EXIT_FAILURE, 0, "while loading `%s': %s", "testobj1.so",
	   dlerror ());

  h2 = dlopen ("testobj1_1.so", RTLD_LAZY);
  if (h1 == NULL)
    error (EXIT_FAILURE, 0, "while loading `%s': %s", "testobj1_1.so",
	   dlerror ());

  fp1 = dlsym (h1, "obj1func1");
  if (fp1 == NULL)
    error (EXIT_FAILURE, 0, "getting `obj1func1' in `%s': %s",
	   "testobj1.so", dlerror ());

  fp2 = dlsym (h2, "obj1func1");
  if (fp2 == NULL)
    error (EXIT_FAILURE, 0, "getting `obj1func1' in `%s': %s",
	   "testobj1_1.so", dlerror ());

  res1 = fp1 (10);
  res2 = fp2 (10);
  printf ("fp1(10) = %d\nfp2(10) = %d\n", res1, res2);

  if (dlclose (h1) != 0)
    error (EXIT_FAILURE, 0, "cannot close testobj1.so: %s\n", dlerror ());
  if (dlclose (h2) != 0)
    error (EXIT_FAILURE, 0, "cannot close testobj1_1.so: %s\n", dlerror ());

  return res1 != 42 || res2 != 72;
}


extern int foo (int a);
int
foo (int a)
{
  return a + 10;
}