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

20000401-03:20 EST Paul Tucker <ptucker@sympatico.ca>

Browse Source
This commit is contained in:
Paul Tucker
2000-04-01 08:23:40 +00:00
parent e246f08dd9
commit ba63909eca
9 changed files with 22 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
harbour/ChangeLog
View File

@@ -1,3 +1,14 @@
20000401-03:20 EST Paul Tucker <ptucker@sympatico.ca>
* source/rdd/dbf1.c
* source/rdd/sdf1.c
* source/rdd/delim1.c
* source/rdd/dbfcdx/dbfcdx1.c
* source/rdd/dbfntx/dbfntx1.c
* source/compiler/genc.c
* contrib/rdd_ads/ads1.c
* include/hbinit.h
* updated initSymbols handling - again
20000401-02:00 EST Paul Tucker <ptucker@sympatico.ca>
* include/hbvmpub.h
* turns out msc8 doesn't know pack(push)

4
harbour/contrib/rdd_ads/ads1.c
View File

@@ -69,9 +69,7 @@ HB_INIT_SYMBOLS_END( ads1__InitSymbols )
#else
#pragma data_seg( "XIY" )
#endif
#pragma warning( disable: 4152 )
static void * hb_vm_auto_ads1__InitSymbols = &ads1__InitSymbols;
#pragma warning( default: 4152 )
static HB_$INITSYM hb_vm_auto_ads1__InitSymbols = ads1__InitSymbols;
#pragma data_seg()
#elif ! defined(__GNUC__)
#pragma startup ads1__InitSymbols

2
harbour/include/hbinit.h
View File

@@ -111,6 +111,8 @@ extern void hb_vmProcessSymbols( PHB_SYMB pSymbols, USHORT uiSymbols ); /* stati
#elif defined(_MSC_VER)
typedef int (* HB_$INTISYM)( void );
#define HB_INIT_SYMBOLS_BEGIN( func ) \
static HB_SYMB symbols[] = {

4
harbour/source/compiler/genc.c
View File

@@ -167,9 +167,7 @@ void hb_compGenCCode( PHB_FNAME pFileName ) /* generates the C language ou
" #else\n"
" #pragma data_seg( \"XIY\" )\n"
" #endif\n"
" #pragma warning( disable: 4152 )\n"
" static void * hb_vm_auto_SymbolInit_%s%s = &hb_vm_SymbolInit_%s%s;\n"
" #pragma warning( default: 4152 )\n"
" static HB_$INITSYM hb_vm_auto_SymbolInit_%s%s = hb_vm_SymbolInit_%s%s;\n"
" #pragma data_seg()\n"
"#elif ! defined(__GNUC__)\n"
" #pragma startup hb_vm_SymbolInit_%s%s\n"

4
harbour/source/rdd/dbf1.c
View File

@@ -110,9 +110,7 @@ HB_INIT_SYMBOLS_END( dbf1__InitSymbols )
#else
#pragma data_seg( "XIY" )
#endif
#pragma warning( disable: 4152 )
static void * hb_vm_auto_dbf1__InitSymbols = &dbf1__InitSymbols;
#pragma warning( default: 4152 )
static HB_$INITSYM hb_vm_auto_dbf1__InitSymbols = dbf1__InitSymbols;
#pragma data_seg()
#elif ! defined(__GNUC__)
#pragma startup dbf1__InitSymbols

4
harbour/source/rdd/dbfcdx/dbfcdx1.c
View File

@@ -109,9 +109,7 @@ HB_INIT_SYMBOLS_END( dbfcdx1__InitSymbols )
#else
#pragma data_seg( "XIY" )
#endif
#pragma warning( disable: 4152 )
static void * hb_vm_auto_dbfcdx1__InitSymbols = &dbfcdx1__InitSymbols;
#pragma warning( default: 4152 )
static HB_$INITSYM hb_vm_auto_dbfcdx1__InitSymbols = dbfcdx1__InitSymbols;
#pragma data_seg()
#elif ! defined(__GNUC__)
#pragma startup dbfcdx1__InitSymbols

5
harbour/source/rdd/dbfntx/dbfntx1.c
View File

@@ -55,9 +55,7 @@ HB_INIT_SYMBOLS_END( dbfntx1__InitSymbols )
#else
#pragma data_seg( "XIY" )
#endif
#pragma warning( disable: 4152 )
static void * hb_vm_auto_dbfntx1__InitSymbols = &dbfntx1__InitSymbols;
#pragma warning( default: 4152 )
static HB_$INITSYM hb_vm_auto_dbfntx1__InitSymbols = dbfntx1__InitSymbols;
#pragma data_seg()
#elif ! defined(__GNUC__)
#pragma startup dbfntx1__InitSymbols
@@ -88,3 +86,4 @@ HB_FUNC( DBFNTX_GETFUNCTABLE )
else
hb_retni( FAILURE );
}

4
harbour/source/rdd/delim1.c
View File

@@ -54,9 +54,7 @@ HB_INIT_SYMBOLS_END( delim1__InitSymbols )
#else
#pragma data_seg( "XIY" )
#endif
#pragma warning( disable: 4152 )
static void * hb_vm_auto_delim1__InitSymbols = &delim1__InitSymbols;
#pragma warning( default: 4152 )
static HB_$INITSYM hb_vm_auto_delim1__InitSymbols = delim1__InitSymbols;
#pragma data_seg()
#elif ! defined(__GNUC__)
#pragma startup delim1__InitSymbols

5
harbour/source/rdd/sdf1.c
View File

@@ -54,9 +54,7 @@ HB_INIT_SYMBOLS_END( sdf1__InitSymbols )
#else
#pragma data_seg( "XIY" )
#endif
#pragma warning( disable: 4152 )
static void * hb_vm_auto_sdf1__InitSymbols = &sdf1__InitSymbols;
#pragma warning( default: 4152 )
static HB_$INITSYM hb_vm_auto_sdf1__InitSymbols = sdf1__InitSymbols;
#pragma data_seg()
#elif ! defined(__GNUC__)
#pragma startup sdf1__InitSymbols
@@ -87,3 +85,4 @@ HB_FUNC( SDF_GETFUNCTABLE )
else
hb_retni( FAILURE );
}