diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 70828dfcb6..79c0ecacd7 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,11 @@ 2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org) */ +2008-10-15 02:33 UTC+0200 Viktor Szakats (harbour.01 syenar hu) + * source/rtl/langapi.c + * utils/hbtest/rt_class.prg + * Cleanup to previous modif. + 2008-10-15 01:56 UTC+0200 Viktor Szakats (harbour.01 syenar hu) * source/debug/dbgtobj.prg * source/debug/dbgbrwsr.prg diff --git a/harbour/source/rtl/langapi.c b/harbour/source/rtl/langapi.c index 283dab8481..8602312ea9 100644 --- a/harbour/source/rtl/langapi.c +++ b/harbour/source/rtl/langapi.c @@ -153,11 +153,11 @@ static HB_LANG s_lang_en = "Lock required", "Write not allowed", "Append lock failed", - "Lock Failure", + "Lock failure", "", "", "", - "Memory object destructor failure", + "Object destructor failure", "array access", "array assign", "array dimension", diff --git a/harbour/utils/hbtest/rt_class.prg b/harbour/utils/hbtest/rt_class.prg index 338f3569e3..5b0fdb9ed4 100644 --- a/harbour/utils/hbtest/rt_class.prg +++ b/harbour/utils/hbtest/rt_class.prg @@ -88,7 +88,7 @@ PROCEDURE Main_CLASS() TEST_LINE( objHolder := NIL , NIL ) oValue := DTORCLASS():NEW(2) TEST_LINE( oValue:type , 2 ) - TEST_LINE( oValue := NIL , "E BASE 1301 Object Destructor Failure Reference to freed block " ) + TEST_LINE( oValue := NIL , "E BASE 1301 Object destructor failure Reference to freed block " ) TEST_LINE( objHolder , NIL ) TEST_LINE( cDtorResult , "Reference to self in class variable." ) @@ -96,7 +96,7 @@ PROCEDURE Main_CLASS() TEST_LINE( objHolder := NIL , NIL ) oValue := DTORCLASS():NEW(3) TEST_LINE( oValue:type , 3 ) - TEST_LINE( oValue := NIL , "E BASE 1301 Object Destructor Failure Reference to freed block " ) + TEST_LINE( oValue := NIL , "E BASE 1301 Object destructor failure Reference to freed block " ) TEST_LINE( valtype(objHolder) , "A" ) TEST_LINE( len(objHolder) , 0 ) TEST_LINE( cDtorResult , "Reference to self in private memvar." ) @@ -139,7 +139,7 @@ PROCEDURE Main_CLASS() TEST_LINE( oValue := NIL , NIL ) TEST_LINE( objHolder , NIL ) TEST_LINE( cDtorResult , "" ) - TEST_LINE( hb_gcAll() , "E BASE 1301 Object Destructor Failure Reference to freed block " ) + TEST_LINE( hb_gcAll() , "E BASE 1301 Object destructor failure Reference to freed block " ) TEST_LINE( objHolder , NIL ) TEST_LINE( cDtorResult , "Reference to self in class variable." ) @@ -152,7 +152,7 @@ PROCEDURE Main_CLASS() TEST_LINE( oValue := NIL , NIL ) TEST_LINE( objHolder , NIL ) TEST_LINE( cDtorResult , "" ) - TEST_LINE( hb_gcAll() , "E BASE 1301 Object Destructor Failure Reference to freed block " ) + TEST_LINE( hb_gcAll() , "E BASE 1301 Object destructor failure Reference to freed block " ) TEST_LINE( valtype(objHolder) , "A" ) TEST_LINE( len(objHolder) , 0 ) TEST_LINE( cDtorResult , "Reference to self in private memvar." )