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

2008-10-15 02:33 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

Browse Source 
* source/rtl/langapi.c
  * utils/hbtest/rt_class.prg
    * Cleanup to previous modif.
This commit is contained in:
Viktor Szakats
2008-10-15 00:34:00 +00:00
parent 5c252e761e
commit 9bb2620762
3 changed files with 11 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

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

4
harbour/source/rtl/langapi.c
View File

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

8
harbour/utils/hbtest/rt_class.prg
View File

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