fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ChangeLog: 19990704-16:20

Browse Source
This commit is contained in:
Ryszard Glab
1999-07-04 15:28:07 +00:00
parent 13bc1c4449
commit 86fb7771e2
18 changed files with 117 additions and 120 deletions
Download Patch File Download Diff File Expand all files Collapse all files

70
harbour/include/init.h
View File

@@ -12,81 +12,89 @@ void ProcessSymbols( SYMBOL * pSymbols, WORD wSymbols );
#ifdef HARBOUR_STRICT_ANSI_C
#define HB_INIT_SYMBOLS_BEGIN( func ) \
static SYMBOL symbols[] = {
#define HB_INIT_SYMBOLS_END( func ) }; }; \
void func( void ) \
{ \
ProcessSymbols( symbols, sizeof( symbols ) / sizeof( SYMBOL ) ); \
}
#define HB_INIT_SYMBOLS_END( func )
#define HB_CALL_ON_STARTUP_BEGIN( func ) func( void )
#define HB_CALL_ON_STARTUP_END( func )
#define HB_CALL_ON_STARTUP_BEGIN( func ) func( void ) {
#define HB_CALL_ON_STARTUP_END( func ) }
#else /* HARBOUR_STRICT_ANSI_C */
#ifdef __GNUC__
#define HB_INIT_SYMBOLS_BEGIN( func ) \
static SYMBOL symbols[] = {
#define HB_INIT_SYMBOLS_END( func ) }; \
static void __attribute__ ((constructor)) func( void ) \
{ \
ProcessSymbols( symbols, sizeof( symbols ) / sizeof( SYMBOL ) ); \
}
#define HB_INIT_SYMBOLS_END( func )
#define HB_CALL_ON_STARTUP_BEGIN( func ) \
static void __attribute__ ((constructor)) func( void )
static void __attribute__ ((constructor)) func( void ) {
#define HB_CALL_ON_STARTUP_END( func )
#define HB_CALL_ON_STARTUP_END( func ) }
#endif
#ifdef __BORLANDC__
#define HB_INIT_SYMBOLS_BEGIN( func ) \
static SYMBOL symbols[] = {
#define HB_INIT_SYMBOLS_END( func ) }; \
static void func( void ) \
{ \
ProcessSymbols( symbols, sizeof( symbols ) / sizeof( SYMBOL ) ); \
}
#define HB_INIT_SYMBOLS_END( func )
#define HB_CALL_ON_STARTUP_BEGIN( func ) \
static void func( void )
static void func( void ) {
#define HB_CALL_ON_STARTUP_END( func )
#define HB_CALL_ON_STARTUP_END( func ) }
#endif
#if (defined(_MSC_VER) || defined(__IBMCPP__))
#define HB_INIT_SYMBOLS_BEGIN( func ) \
static int func( void ) \
{ \
ProcessSymbols( symbols, sizeof( symbols ) / sizeof( SYMBOL ) ); \
return 1; \
}
static SYMBOL symbols[] = {
#define HB_INIT_SYMBOLS_END( func ) static int static_int_##func = func();
#define HB_INIT_SYMBOLS_END( func ) }; \
static int func( void ) \
{ \
ProcessSymbols( symbols, sizeof( symbols ) / sizeof( SYMBOL ) ); \
return 1; \
}; \
static int static_int_##func = func()
#define HB_CALL_ON_STARTUP_BEGIN( func ) \
static int func( void ); \
static int static_int_##func = func(); \
static int func( void )
static int func( void ) {
#define HB_CALL_ON_STARTUP_END( func ) return 1;
#define HB_CALL_ON_STARTUP_END( func ) return 1 }; \
static int static_int_##func = func()
#endif
#ifdef __WATCOMC__
#define HB_INIT_SYMBOLS_BEGIN( func ) \
static int func( void ) \
{ \
ProcessSymbols( symbols, sizeof( symbols ) / sizeof( SYMBOL ) ); \
return 1; \
}
#define HB_INIT_SYMBOLS_END( func ) static int static_int_##func = func();
static SYMBOL symbols[] = {
#define HB_INIT_SYMBOLS_END( func ) }; \
static int func( void ) \
{ \
ProcessSymbols( symbols, sizeof( symbols ) / sizeof( SYMBOL ) ); \
return 1; \
}; \
static int static_int_##func = func()
#define HB_CALL_ON_STARTUP_BEGIN( func ) \
static int func( void ); \
static int static_int_##func = func(); \
static int func( void )
static int func( void ) {
#define HB_CALL_ON_STARTUP_END( func ) return 1;
#define HB_CALL_ON_STARTUP_END( func ) return 1; }; \
static int static_int_##func = func()
#endif
#endif /*HARBOUR_STRICT_ANSI_C */