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

Subversion Repositories open8_urisc

[/] [open8_urisc/] [trunk/] [gnu/] [binutils/] [ld/] [testsuite/] [ld-shared/] [sh1.c] - Blame information for rev 146

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

Line No. Rev Author Line
1 107 khays
/* 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.