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

2009-12-15 20:43 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/include/hbinit.h
    * eliminated from ASM code used in HB_INITSEG_STARTUP direct references
      to public functions - it resolves the problem with non relocatable
      code breaking Harbour shared library.
      TODO: find portable method to mark function as used for C compiler
            without using any public symbols (functions or variables)
            which may cause conflicts between modules.
            Compilers like modern GCC versions are clever enough to detect
            cyclic references (only compile time warnings are pacified in
            such case) and they strip even group of functions it they are
            not accessed externally.
This commit is contained in:
Przemyslaw Czerpak
2009-12-15 19:44:33 +00:00
parent 593d90a50b
commit cab0690455
2 changed files with 25 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
harbour/ChangeLog
View File

@@ -17,6 +17,19 @@
past entries belonging to author(s): Viktor Szakats.
*/
2009-12-15 20:43 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/include/hbinit.h
* eliminated from ASM code used in HB_INITSEG_STARTUP direct references
to public functions - it resolves the problem with non relocatable
code breaking Harbour shared library.
TODO: find portable method to mark function as used for C compiler
without using any public symbols (functions or variables)
which may cause conflicts between modules.
Compilers like modern GCC versions are clever enough to detect
cyclic references (only compile time warnings are pacified in
such case) and they strip even group of functions it they are
not accessed externally.
2009-12-15 19:47 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/include/hbinit.h
+ added new alternative form for initialization code activated

17
harbour/include/hbinit.h
View File

@@ -120,20 +120,27 @@ extern HB_EXPORT PHB_SYMB hb_vmProcessSymbols( PHB_SYMB pSymbols, USHORT uiSymbo
#define HB_INIT_SYMBOLS_EX_END( func, module, id, vpcode ) \
}; \
static PHB_SYMB symbols = symbols_table; \
void func( void ) \
{ \
HB_CALL_ON_STARTUP_BEGIN( func ) \
symbols = hb_vmProcessSymbols( symbols_table, (USHORT) ( sizeof( symbols_table ) / sizeof( HB_SYMB ) ), (module), (id), (vpcode) ); \
} \
__asm__ ( ".section .init\n\tcall " HB_MACRO2STRING( func ) "\n\t" );
HB_CALL_ON_STARTUP_END( func )
#define HB_CALL_ON_STARTUP_BEGIN( func ) \
void func( void ) \
static void func( void ) \
{
#define HB_CALL_ON_STARTUP_END( func ) \
} \
HB_INIT_FUNCTION_REF( func ) \
__asm__ ( ".section .init\n\tcall " HB_MACRO2STRING( func ) "\n\t" );
#define HB_INIT_FUNCTION_REF( func ) \
extern void * func##_ref_( void ); \
void * func##_ref_( void ) \
{ \
return ( void * ) func; \
}
#elif defined( __GNUC__ ) || defined( __SUNPRO_C ) || defined( __SUNPRO_CC )
#if defined( HB_PRAGMA_STARTUP ) || defined( HB_MSC_STARTUP )