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

2010-02-20 16:39 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* src/vm/memvars.c
  * src/common/hbverdsp.c
  * doc/whatsnew.txt
  * include/hbsetup.ch
  * utils/hbtest/rt_str.prg
    * "5.3x" -> "5.3b"
This commit is contained in:
Viktor Szakats
2010-02-20 15:39:33 +00:00
parent aca693b398
commit 6d9e5bbb8c
6 changed files with 19 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/ChangeLog
View File

@@ -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

4
harbour/doc/whatsnew.txt
View File

@@ -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)

6
harbour/include/hbsetup.ch
View File

@@ -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

2
harbour/src/common/hbverdsp.c
View File

@@ -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 );

4
harbour/src/vm/memvars.c
View File

@@ -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 );
}

6
harbour/utils/hbtest/rt_str.prg
View File

@@ -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" )