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

2009-01-13 20:00 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)

Browse Source 
* harbour/contrib/rddads/adsx.c
    * improved code to solve RDD initialisation order problem
  * harbour/contrib/rddsql/sqlbase.c
    ! fixed minor typo
  * harbour/source/pp/hbpp.c
  * harbour/source/compiler/hbusage.c
    * updated copyright year to 2009
This commit is contained in:
Mindaugas Kavaliauskas
2009-01-13 18:05:52 +00:00
parent f25fe9222d
commit 8b846abb6b
5 changed files with 22 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
harbour/ChangeLog
View File

@@ -8,6 +8,15 @@
2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2009-01-13 20:00 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
* harbour/contrib/rddads/adsx.c
* improved code to solve RDD initialisation order problem
* harbour/contrib/rddsql/sqlbase.c
! fixed minor typo
* harbour/source/pp/hbpp.c
* harbour/source/compiler/hbusage.c
* updated copyright year to 2009
2009-01-13 07:17 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
* harbour/contrib/gtwvg/gtwvg.c
! Synchronized with GTWVT as per change below ( Przemek ):

11
harbour/contrib/rddads/adsx.c
View File

@@ -1549,13 +1549,22 @@ HB_FUNC( ADSX ) { ; }
#define HB_PRG_PCODE_VER HB_PCODE_VER
#endif
HB_FUNC_EXTERN( ADS );
static void hb_adsxRddInit( void * cargo )
{
HB_SYMBOL_UNUSED( cargo );
if( hb_rddRegister( "ADSX", RDT_FULL ) > 1 )
{
hb_errInternal( HB_EI_RDDINVALID, NULL, NULL, NULL );
/* try different RDD registrer order */
hb_rddRegister( "ADS", RDT_FULL );
if ( hb_rddRegister( "ADSX", RDT_FULL ) > 1 )
{
hb_errInternal( HB_EI_RDDINVALID, NULL, NULL, NULL );
HB_FUNC_EXEC( ADS ); /* force ADS linking */
}
}
}

2
harbour/contrib/rddsql/sqlbase.c
View File

@@ -648,7 +648,7 @@ static ERRCODE sqlbaseOpen( SQLBASEAREAP pArea, LPDBOPENINFO pOpenInfo )
/* filename is a query */
pArea->szQuery = (char*) hb_strdup( (char*) pOpenInfo->abName );
if ( ! pArea->uiFieldCount )
if ( pArea->uiFieldCount )
/* This should not happen (in __dbTrans()), because RDD is registered with RDT_FULL */
return FAILURE;

2
harbour/source/compiler/hbusage.c
View File

@@ -258,6 +258,6 @@ void hb_compPrintLogo( HB_COMP_DECL )
hb_compOutStd( HB_COMP_PARAM, szVer );
hb_compOutStd( HB_COMP_PARAM,
"\nCopyright (c) 1999-2008, http://www.harbour-project.org/\n" );
"\nCopyright (c) 1999-2009, http://www.harbour-project.org/\n" );
hb_xfree( szVer );
}

2
harbour/source/pp/hbpp.c
View File

@@ -586,7 +586,7 @@ int main( int argc, char * argv[] )
printf( "Harbour Preprocessor %d.%d.%d\n",
HB_VER_MAJOR, HB_VER_MINOR, HB_VER_RELEASE );
printf( "Copyright (c) 1999-2008, http://www.harbour-project.org/\n" );
printf( "Copyright (c) 1999-2009, http://www.harbour-project.org/\n" );
pState = hb_pp_new();