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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [binutils-2.20.1/] [ld/] [testsuite/] [ld-shared/] [sh1.c] - Blame information for rev 824

Go to most recent revision | Details | Compare with Previous | View Log


/* This is part of the shared library ld test.  This file becomes part
   of a shared library.  */
 
/* This variable is supplied by the main program.  */
#ifndef XCOFF_TEST
extern int mainvar;
#endif
 
/* This variable is defined in the shared library, and overridden by
   the main program.  */
#ifndef XCOFF_TEST
int overriddenvar = -1;
#endif
 
/* This variable is defined in the shared library.  */
int shlibvar1 = 3;
 
/* This variable is defined by another object in the shared library.  */
extern int shlibvar2;
 
/* These functions return the values of the above variables as seen in
   the shared library.  */
 
#ifndef XCOFF_TEST
int
shlib_mainvar ()
{
  return mainvar;
}
#endif
 
#ifndef XCOFF_TEST
int
shlib_overriddenvar ()
{
  return overriddenvar;
}
#endif
 
int
shlib_shlibvar1 ()
{
  return shlibvar1;
}
 
int
shlib_shlibvar2 ()
{
  return shlibvar2;
}
 
/* This function calls a function defined by another object in the
   shared library.  */
 
extern int shlib_shlibcalled ();
 
int
shlib_shlibcall ()
{
  return shlib_shlibcalled ();
}
 
#ifndef XCOFF_TEST
/* This function calls a function defined in this object in the shared
   library.  The main program will override the called function.  */
 
extern int shlib_overriddencall2 ();
 
int
shlib_shlibcall2 ()
{
  return shlib_overriddencall2 ();
}
#endif
 
/* This function calls a function defined by the main program.  */
 
#ifndef XCOFF_TEST
extern int main_called ();
 
int
shlib_maincall ()
{
  return main_called ();
}
#endif
 
/* This function is passed a function pointer to shlib_mainvar.  It
   confirms that the pointer compares equally.  */
 
int
shlib_checkfunptr1 (p)
     int (*p) ();
{
  return p == shlib_shlibvar1;
}
 
/* This function is passed a function pointer to main_called.  It
   confirms that the pointer compares equally.  */
 
#ifndef XCOFF_TEST
int
shlib_checkfunptr2 (p)
     int (*p) ();
{
  return p == main_called;
}
#endif
 
/* This function returns a pointer to shlib_mainvar.  */
 
int
(*shlib_getfunptr1 ()) ()
{
  return shlib_shlibvar1;
}
 
/* This function returns a pointer to main_called.  */
 
#ifndef XCOFF_TEST
int
(*shlib_getfunptr2 ()) ()
{
  return main_called;
}
#endif
 
/* This function makes sure that constant data and local functions
   work.  */
 
#ifndef __STDC__
#define const
#endif
 
static int i = 6;
static const char *str = "Hello, world\n";
 
int
shlib_check ()
{
  const char *s1, *s2;
 
  if (i != 6)
    return 0;
 
  /* To isolate the test, don't rely on any external functions, such
     as strcmp.  */
  s1 = "Hello, world\n";
  s2 = str;
  while (*s1 != '\0')
    if (*s1++ != *s2++)
      return 0;
  if (*s2 != '\0')
    return 0;
 
  if (shlib_shlibvar1 () != 3)
    return 0;
 
  return 1;
}

Line No.	Rev	Author	Line
1	205	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			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [binutils-2.20.1/] [ld/] [testsuite/] [ld-shared/] [sh1.c] - Blame information for rev 824