github/amiga-clib2
1
0
Fork 0
mirror of https://github.com/adtools/clib2.git synced 2025-12-08 14:59:05 +00:00
Code Issues Releases Wiki Activity

- Modified the SAS/C constructor/destructor invocation sequence, now that

Browse Source 
the names of the functions assigned through the new macros are different.


git-svn-id: file:///Users/olsen/Code/migration-svn-zu-git/logical-line-staging/clib2/trunk@14895 87f5fb63-7c3d-0410-a384-fd976d0f7a62
This commit is contained in:
Olaf Barthel
2005-03-20 11:57:11 +00:00
parent c471c50784
commit d85d6648ea
1 changed files with 18 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
library/stdlib_constructor_begin.c
View File

@ -1,5 +1,5 @@
/*
* $Id: stdlib_constructor_begin.c,v 1.7 2005-03-12 14:10:09 obarthel Exp $
* $Id: stdlib_constructor_begin.c,v 1.8 2005-03-20 11:57:11 obarthel Exp $
*
* :ts=4
*
@ -68,11 +68,17 @@ _init(void)
/* The address is NULL if no constructor functions are to be used. */
if(p != NULL)
{
int num_constructors;
int i;
for(i = 0 ; __ctors[i] != NULL ; i++)
num_constructors = 0;
while(__ctors[num_constructors] != NULL)
num_constructors++;
for(i = 0 ; i < num_constructors ; i++)
{
if((*__ctors[i])() != 0)
if((*__ctors[num_constructors - (i+1)])() != 0)
exit(RETURN_FAIL);
}
}
@ -90,14 +96,21 @@ _fini(void)
{
static int i;
while(__dtors[i] != NULL)
int num_destructors;
num_destructors = 0;
while(__dtors[num_destructors] != NULL)
num_destructors++;
while(i < num_destructors)
{
/* Increment this before jumping in, so that the next
invocation will always pick up the destructor following
the one we will invoke rigt now. */
i++;
(*__dtors[i-1])();
(*__dtors[num_destructors - i])();
}
}
}