mirror of
https://github.com/adtools/clib2.git
synced 2025-12-08 14:59:05 +00:00
1550c6fef3
parameters (which is by default linked in with libunix.a),
regular expressions can no longer prompt dos.library requesters
to appear. However, to be on the safe side, if you are expecting
to pass regular expressions on the command line, do not use
the wildcard expansion code such as by overriding the library
symbols with dummy functions such as are used in the file
"stdlib_wildcard_expand.c".
- Added a new variable '__open_locale' which can be used to
restrict all library functions to use the "C" language locale
rather than the current system locale settings. In addition
to that, two new functions __locale_exit() and __locale_init()
can be used to close and (re-)open the system locale at a
later time.
- Local ("static") functions are now identified by the STATIC
qualifier. This was done in preparation for changes that will
deal with global and local data and the issue of thread safety.
git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/trunk@14839 87f5fb63-7c3d-0410-a384-fd976d0f7a62
139 lines
3.2 KiB
C
139 lines
3.2 KiB
C
/*
|
|
* $Id: crtbegin.c,v 1.4 2005-02-25 10:14:21 obarthel Exp $
|
|
*
|
|
* :ts=4
|
|
*
|
|
* Handles global constructors and destructors.
|
|
*/
|
|
|
|
#include <exec/types.h>
|
|
|
|
/****************************************************************************/
|
|
|
|
#include <stdlib.h>
|
|
#include <setjmp.h>
|
|
|
|
/****************************************************************************/
|
|
|
|
#if defined(__amigaos4__)
|
|
|
|
/****************************************************************************/
|
|
|
|
/*
|
|
* Dummy constructor and destructor array. The linker script will put these at the
|
|
* very beginning of section ".ctors" and ".dtors". crtend.o contains a similar entry
|
|
* with a NULL pointer entry and is put at the end of the sections. This way, the init
|
|
* code can find the global constructor/destructor pointers
|
|
*/
|
|
static void (*__CTOR_LIST__[1]) (void) __attribute__((section(".ctors"))) = { (void *)-1 };
|
|
static void (*__DTOR_LIST__[1]) (void) __attribute__((section(".dtors"))) = { (void *)-1 };
|
|
|
|
/****************************************************************************/
|
|
|
|
STATIC VOID
|
|
_do_ctors(void)
|
|
{
|
|
void (**pFuncPtr)(void);
|
|
|
|
/* Skip the first entry in the list (it's -1 anyway) */
|
|
pFuncPtr = __CTOR_LIST__ + 1;
|
|
|
|
/* Call all constructors in forward order */
|
|
while (*pFuncPtr != NULL)
|
|
(**pFuncPtr++)();
|
|
}
|
|
|
|
/****************************************************************************/
|
|
|
|
STATIC VOID
|
|
_do_dtors(void)
|
|
{
|
|
ULONG i = (ULONG)__DTOR_LIST__[0];
|
|
void (**pFuncPtr)(void);
|
|
|
|
if (i == ~0UL)
|
|
{
|
|
/* Find the end of the destructors list */
|
|
i = 1;
|
|
|
|
while (__DTOR_LIST__[i] != NULL)
|
|
i++;
|
|
|
|
/* We're at the NULL entry now. Go back by one */
|
|
i--;
|
|
}
|
|
|
|
/* Call all destructors in reverse order */
|
|
pFuncPtr = __DTOR_LIST__ + i;
|
|
while (i-- > 0)
|
|
(**pFuncPtr--)();
|
|
}
|
|
|
|
/****************************************************************************/
|
|
|
|
#else
|
|
|
|
/****************************************************************************/
|
|
|
|
typedef void (*func_ptr)(void);
|
|
|
|
/****************************************************************************/
|
|
|
|
STATIC VOID
|
|
_do_ctors(void)
|
|
{
|
|
extern func_ptr __CTOR_LIST__[];
|
|
ULONG nptrs = (ULONG)__CTOR_LIST__[0];
|
|
ULONG i;
|
|
|
|
for(i = nptrs ; i > 0 ; i--)
|
|
__CTOR_LIST__[i]();
|
|
}
|
|
|
|
/****************************************************************************/
|
|
|
|
STATIC VOID
|
|
_do_dtors(void)
|
|
{
|
|
extern func_ptr __DTOR_LIST__[];
|
|
extern jmp_buf __exit_jmp_buf;
|
|
ULONG nptrs = (ULONG)__DTOR_LIST__[0];
|
|
static ULONG i;
|
|
|
|
/* If one of the destructors drops into
|
|
* exit(), processing will continue with
|
|
* the next following destructor.
|
|
*/
|
|
(void)setjmp(__exit_jmp_buf);
|
|
|
|
while(i++ < nptrs)
|
|
__DTOR_LIST__[i]();
|
|
}
|
|
|
|
/****************************************************************************/
|
|
|
|
#endif /*__amigaos4__ */
|
|
|
|
/****************************************************************************/
|
|
|
|
/* FIXME: Do we need to put these in .init/.fini sections? */
|
|
|
|
//void _init(void) __attribute__((section(".init")));
|
|
//void _fini(void) __attribute__((section(".fini")));
|
|
|
|
/****************************************************************************/
|
|
|
|
void
|
|
_init(void)
|
|
{
|
|
_do_ctors();
|
|
}
|
|
|
|
/****************************************************************************/
|
|
|
|
void
|
|
_fini(void)
|
|
{
|
|
_do_dtors();
|
|
}
|