OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [binutils-2.18.50/] [ld/] [testsuite/] [ld-shared/] [sh1.c] - Blame information for rev 816

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 38 julius 
/* This is part of the shared library ld test.  This file becomes part
2 
   of a shared library.  */
3 
 
4 
/* This variable is supplied by the main program.  */
5 
#ifndef XCOFF_TEST
6 
extern int mainvar;
7 
#endif
8 
 
9 
/* This variable is defined in the shared library, and overridden by
10 
   the main program.  */
11 
#ifndef XCOFF_TEST
12 
int overriddenvar = -1;
13 
#endif
14 
 
15 
/* This variable is defined in the shared library.  */
16 
int shlibvar1 = 3;
17 
 
18 
/* This variable is defined by another object in the shared library.  */
19 
extern int shlibvar2;
20 
 
21 
/* These functions return the values of the above variables as seen in
22 
   the shared library.  */
23 
 
24 
#ifndef XCOFF_TEST
25 
int
26 
shlib_mainvar ()
27 
{
28 
  return mainvar;
29 
}
30 
#endif
31 
 
32 
#ifndef XCOFF_TEST
33 
int
34 
shlib_overriddenvar ()
35 
{
36 
  return overriddenvar;
37 
}
38 
#endif
39 
 
40 
int
41 
shlib_shlibvar1 ()
42 
{
43 
  return shlibvar1;
44 
}
45 
 
46 
int
47 
shlib_shlibvar2 ()
48 
{
49 
  return shlibvar2;
50 
}
51 
 
52 
/* This function calls a function defined by another object in the
53 
   shared library.  */
54 
 
55 
extern int shlib_shlibcalled ();
56 
 
57 
int
58 
shlib_shlibcall ()
59 
{
60 
  return shlib_shlibcalled ();
61 
}
62 
 
63 
#ifndef XCOFF_TEST
64 
/* This function calls a function defined in this object in the shared
65 
   library.  The main program will override the called function.  */
66 
 
67 
extern int shlib_overriddencall2 ();
68 
 
69 
int
70 
shlib_shlibcall2 ()
71 
{
72 
  return shlib_overriddencall2 ();
73 
}
74 
#endif
75 
 
76 
/* This function calls a function defined by the main program.  */
77 
 
78 
#ifndef XCOFF_TEST
79 
extern int main_called ();
80 
 
81 
int
82 
shlib_maincall ()
83 
{
84 
  return main_called ();
85 
}
86 
#endif
87 
 
88 
/* This function is passed a function pointer to shlib_mainvar.  It
89 
   confirms that the pointer compares equally.  */
90 
 
91 
int
92 
shlib_checkfunptr1 (p)
93 
     int (*p) ();
94 
{
95 
  return p == shlib_shlibvar1;
96 
}
97 
 
98 
/* This function is passed a function pointer to main_called.  It
99 
   confirms that the pointer compares equally.  */
100 
 
101 
#ifndef XCOFF_TEST
102 
int
103 
shlib_checkfunptr2 (p)
104 
     int (*p) ();
105 
{
106 
  return p == main_called;
107 
}
108 
#endif
109 
 
110 
/* This function returns a pointer to shlib_mainvar.  */
111 
 
112 
int
113 
(*shlib_getfunptr1 ()) ()
114 
{
115 
  return shlib_shlibvar1;
116 
}
117 
 
118 
/* This function returns a pointer to main_called.  */
119 
 
120 
#ifndef XCOFF_TEST
121 
int
122 
(*shlib_getfunptr2 ()) ()
123 
{
124 
  return main_called;
125 
}
126 
#endif
127 
 
128 
/* This function makes sure that constant data and local functions
129 
   work.  */
130 
 
131 
#ifndef __STDC__
132 
#define const
133 
#endif
134 
 
135 
static int i = 6;
136 
static const char *str = "Hello, world\n";
137 
 
138 
int
139 
shlib_check ()
140 
{
141 
  const char *s1, *s2;
142 
 
143 
  if (i != 6)
144 
    return 0;
145 
 
146 
  /* To isolate the test, don't rely on any external functions, such
147 
     as strcmp.  */
148 
  s1 = "Hello, world\n";
149 
  s2 = str;
150 
  while (*s1 != '\0')
151 
    if (*s1++ != *s2++)
152 
      return 0;
153 
  if (*s2 != '\0')
154 
    return 0;
155 
 
156 
  if (shlib_shlibvar1 () != 3)
157 
    return 0;
158 
 
159 
  return 1;
160 
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.