diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 8ee99743cb..107398e39c 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,14 @@ past entries belonging to author(s): Viktor Szakats. */ +2010-02-20 16:39 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) + * src/vm/memvars.c + * src/common/hbverdsp.c + * doc/whatsnew.txt + * include/hbsetup.ch + * utils/hbtest/rt_str.prg + * "5.3x" -> "5.3b" + 2010-02-20 16:00 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) + contrib/hbfoxpro + contrib/hbfoxpro/hbfoxpro.ch diff --git a/harbour/doc/whatsnew.txt b/harbour/doc/whatsnew.txt index 460748b721..4e8c6746ca 100644 --- a/harbour/doc/whatsnew.txt +++ b/harbour/doc/whatsnew.txt @@ -1720,7 +1720,7 @@ The runtime modules - TGet:display() fixed to always evaluate the get block before displaying like in C52. - TBColumn - Added PreBlock and PostBlock instance variables for - Clipper 5.3x compatibility. + Clipper 5.3b compatibility. - Fixed TYPE() function to return correct value when an assigment to undeclared variable is checked (Clipper creates the memvar variable). - TGet - Fixed to correctly display buffer when negative value @@ -1732,7 +1732,7 @@ The runtime modules - Fixed infinite support for WatcomC. - Fixed to release memory in cases where invalid syntax was macro compiled. - Added DATA CapRow and DATA CapCol values to TGET class - (for Clipper 5.3x compatibility). + (for Clipper 5.3b compatibility). - Fixed to correctly return the procedure name where the codeblock was created. - Greek and Serbian language codepage files added. - fixed to use 'mkstemp' on Unix (no more GCC linker warnings) diff --git a/harbour/include/hbsetup.ch b/harbour/include/hbsetup.ch index 76cb6ad423..ba8fe486ae 100644 --- a/harbour/include/hbsetup.ch +++ b/harbour/include/hbsetup.ch @@ -58,9 +58,9 @@ /* NOTE: You can fine-tune here, which Clipper features you want to include. */ -/* #define HB_CLP_STRICT */ /* Enable Cl*pper 5.2e/5.3x strict compatibility */ -#define HB_CLP_UNDOC /* Enable Cl*pper 5.2e/5.3x undocumented features */ -#define HB_COMPAT_C53 /* Enable Cl*pper 5.3x extensions */ +/* #define HB_CLP_STRICT */ /* Enable Cl*pper 5.2e/5.3b strict compatibility */ +#define HB_CLP_UNDOC /* Enable Cl*pper 5.2e/5.3b undocumented features */ +#define HB_COMPAT_C53 /* Enable Cl*pper 5.3b extensions */ /* *********************************************************************** * Leave this #define if you want to allow usage of legacy Harbour 2.0.0/Clipper diff --git a/harbour/src/common/hbverdsp.c b/harbour/src/common/hbverdsp.c index a95f7430a1..e99ee09815 100644 --- a/harbour/src/common/hbverdsp.c +++ b/harbour/src/common/hbverdsp.c @@ -155,7 +155,7 @@ void hb_verBuildInfo( void ) hb_conOutErr( "Language options: ", 0 ); #if defined( HB_COMPAT_C53 ) - hb_conOutErr( "(Clipper 5.3) ", 0 ); + hb_conOutErr( "(Clipper 5.3b) ", 0 ); #endif #if defined( HB_CLP_UNDOC ) hb_conOutErr( "(Clipper 5.x undoc) ", 0 ); diff --git a/harbour/src/vm/memvars.c b/harbour/src/vm/memvars.c index c877a218e0..9c96d58ece 100644 --- a/harbour/src/vm/memvars.c +++ b/harbour/src/vm/memvars.c @@ -1527,7 +1527,7 @@ HB_FUNC( __MVSAVE ) hb_itemRelease( pError ); } else - /* NOTE: Undocumented error message in CA-Cl*pper 5.2e and 5.3x. [ckedem] */ + /* NOTE: Undocumented error message in CA-Cl*pper 5.2e and 5.3b. [ckedem] */ hb_errRT_BASE( EG_ARG, 2008, NULL, HB_ERR_FUNCNAME, HB_ERR_ARGS_BASEPARAMS ); } @@ -1718,7 +1718,7 @@ HB_FUNC( __MVRESTORE ) hb_itemRelease( pError ); } else - /* NOTE: Undocumented error message in CA-Cl*pper 5.2e and 5.3x. [ckedem] */ + /* NOTE: Undocumented error message in CA-Cl*pper 5.2e and 5.3b. [ckedem] */ hb_errRT_BASE( EG_ARG, 2007, NULL, HB_ERR_FUNCNAME, HB_ERR_ARGS_BASEPARAMS ); } diff --git a/harbour/utils/hbtest/rt_str.prg b/harbour/utils/hbtest/rt_str.prg index 9cbb920282..32b838f9a5 100644 --- a/harbour/utils/hbtest/rt_str.prg +++ b/harbour/utils/hbtest/rt_str.prg @@ -116,8 +116,8 @@ PROCEDURE Main_STR() TEST_LINE( Str(Val("+-")) , " 0" ) TEST_LINE( Str(Val(".")) , "0" ) TEST_LINE( Str(Val("..")) , "0.0" ) - TEST_LINE( Str(Val("-.")) , " 0" ) /* Bug in CA-Cl*pper 5.3x, it will return: " 0" */ - TEST_LINE( Str(Val("-..")) , "0.0" ) /* Bug in CA-Cl*pper 5.3x, it will return: " 0.0" */ + TEST_LINE( Str(Val("-.")) , " 0" ) /* Bug in CA-Cl*pper 5.3b, it will return: " 0" */ + TEST_LINE( Str(Val("-..")) , "0.0" ) /* Bug in CA-Cl*pper 5.3b, it will return: " 0.0" */ TEST_LINE( Str(Val("1.")) , " 1" ) TEST_LINE( Str(Val("1..")) , "1.0" ) TEST_LINE( Str(Val("1...")) , "1.00" ) @@ -128,7 +128,7 @@ PROCEDURE Main_STR() TEST_LINE( Str(Val("-1...")) , "-1.00" ) TEST_LINE( Str(Val(".1")) , "0.1" ) TEST_LINE( Str(Val("-.1")) , "-0.1" ) - TEST_LINE( Str(Val("-.0")) , "0.0" ) /* Bug in CA-Cl*pper 5.3x, it will return: " 0.0" */ + TEST_LINE( Str(Val("-.0")) , "0.0" ) /* Bug in CA-Cl*pper 5.3b, it will return: " 0.0" */ TEST_LINE( Str(Val(" -.1")) , "-0.1" ) TEST_LINE( Str(Val(" --.1")) , " 0.0" ) TEST_LINE( Str(Val("+.1")) , "0.1" )