Files
harbour-core/harbour/include/init.h
Antonio Linares 974bc2fbc2 make files
1999-05-05 05:45:23 +00:00

40 lines
788 B
C

/* Harbour local symbols initialization */
void ProcessSymbols( SYMBOL * pSymbols, WORD wSymbols );
#ifdef __GNUC__
static void __attribute__ ((constructor)) InitSymbols( void )
{
ProcessSymbols( symbols, sizeof( symbols ) / sizeof( SYMBOL ) );
}
#endif
#ifdef __BORLANDC__
static void InitSymbols( void )
{
ProcessSymbols( symbols, sizeof( symbols ) / sizeof( SYMBOL ) );
}
#pragma startup InitSymbols
#endif
#ifdef _MSC_VER
static int InitSymbols( void )
{
ProcessSymbols( symbols, sizeof( symbols ) / sizeof( SYMBOL ) );
return 1;
}
static int q = InitSymbols();
#endif
#ifdef __WATCOMC__
static int InitSymbols( void )
{
ProcessSymbols( symbols, sizeof( symbols ) / sizeof( SYMBOL ) );
return 1;
}
static int _STATIC_INT_INIT_SYMBOLS = InitSymbols();
#endif