diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 76e5ac43b3..99e67c5bb1 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,9 @@ +19991123-13:35 EDT David G. Holm + + * rt_misc.prg + + Corrected comments regarding Nation functions to specify if they + apply to the US or International editions of CA-Clipper 5.2e. + 19991123-01:09 GMT+1 Victor Szel * source/rtl/math.c + math error handler added for __BORLANDC__ and __MINGW32__ diff --git a/harbour/tests/regress/rt_misc.prg b/harbour/tests/regress/rt_misc.prg index 1b464b547b..9f4e73d974 100644 --- a/harbour/tests/regress/rt_misc.prg +++ b/harbour/tests/regress/rt_misc.prg @@ -202,7 +202,7 @@ FUNCTION Main_MISC() TEST_LINE( SoundEx( "A" ) , "A000" ) TEST_LINE( SoundEx( "12345" ) , "0000" ) - /* NATION functions (do not exist in 5.2e) */ + /* NATION functions (do not exist in 5.2e US) */ TEST_LINE( NationMsg() , "Invalid argument" ) TEST_LINE( NationMsg("A") , "" ) @@ -222,11 +222,11 @@ FUNCTION Main_MISC() TEST_LINE( NationMsg(12) , "Y/N" ) TEST_LINE( NationMsg(13) , "INVALID EXPRESSION" ) TEST_LINE( NationMsg(14) , "" ) -#ifndef __CLIPPER__ /* Causes GPF in CA-Cl*pper (5.2e, 5.3b) */ +#ifndef __CLIPPER__ /* Causes GPF in CA-Cl*pper (5.2e International, 5.3b) */ TEST_LINE( NationMsg(200) , "" ) /* Bug in CA-Cl*pper, it will return "74?" or other trash */ #endif -/* These will cause a GPF in CA-Cl*pper (5.2e, 5.3b) */ +/* These will cause a GPF in CA-Cl*pper (5.2e International, 5.3b) */ #ifndef __CLIPPER__ TEST_LINE( IsAffirm() , .F. ) TEST_LINE( IsAffirm(.F.) , .F. ) @@ -245,7 +245,7 @@ FUNCTION Main_MISC() TEST_LINE( IsAffirm("no") , .F. ) TEST_LINE( IsAffirm("NO") , .F. ) -/* These will cause a GPF in CA-Cl*pper (5.2e, 5.3b) */ +/* These will cause a GPF in CA-Cl*pper (5.2e International, 5.3b) */ #ifndef __CLIPPER__ TEST_LINE( IsNegative() , .F. ) TEST_LINE( IsNegative(.F.) , .F. )