old-cross-binutils/ld/testsuite/ld-shared/sh1.c
1994-10-27 21:33:10 +00:00

133 lines
2.2 KiB
C

/* 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. */
extern int mainvar;
/* This variable is defined in the shared library, and overridden by
the main program. */
int overriddenvar = -1;
/* 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. */
int
shlib_mainvar ()
{
return mainvar;
}
int
shlib_overriddenvar ()
{
return overriddenvar;
}
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 ();
}
/* This function calls a function defined by the main program. */
extern int main_called ();
int
shlib_maincall ()
{
return main_called ();
}
/* 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_mainvar;
}
/* This function is passed a function pointer to main_called. It
confirms that the pointer compares equally. */
int
shlib_checkfunptr2 (p)
int (*p) ();
{
return p == main_called;
}
/* This function returns a pointer to shlib_mainvar. */
int
(*shlib_getfunptr1 ()) ()
{
return shlib_mainvar;
}
/* This function returns a pointer to main_called. */
int
(*shlib_getfunptr2 ()) ()
{
return main_called;
}
/* 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;
}