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

2008-01-27 12:46 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* source/rtl/objfunc.prg
     ! Fixed ISNUMBER() -> hb_ISPOINTER() for pointers.
       Thanks to Chen Kedem.

   * utils/hbtest/rt_stra.prg
   * utils/hbtest/rt_array.prg
     ! Fixed expected results to use the recently introduced new error codes.
       Thanks to Chen Kedem.
This commit is contained in:
Viktor Szakats
2008-01-27 12:32:37 +00:00
parent ec08662048
commit 2e3ce4504c
4 changed files with 19 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
harbour/ChangeLog
View File

@@ -8,6 +8,16 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2008-01-27 12:46 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* source/rtl/objfunc.prg
! Fixed ISNUMBER() -> hb_ISPOINTER() for pointers.
Thanks to Chen Kedem.
* utils/hbtest/rt_stra.prg
* utils/hbtest/rt_array.prg
! Fixed expected results to use the recently introduced new error codes.
Thanks to Chen Kedem.
2008-01-26 22:42 UTC+0100 Marek Paliwoda (mpaliwoda at interia pl)
* make_gcc.mak
+ Added an extra compilation phase for building

4
harbour/source/rtl/objfunc.prg
View File

@@ -185,7 +185,7 @@ FUNCTION __ObjSetValueList( oObject, aData )
FUNCTION __objAddMethod( oObject, cSymbol, nFuncPtr )
IF !ISOBJECT( oObject ) .OR. !ISCHARACTER( cSymbol ) .OR. !ISNUMBER( nFuncPtr )
IF !ISOBJECT( oObject ) .OR. !ISCHARACTER( cSymbol ) .OR. !hb_ISPOINTER( nFuncPtr )
__errRT_BASE( EG_ARG, 3101, NIL, ProcName( 0 ) )
ELSEIF !__objHasMsg( oObject, cSymbol )
__clsAddMsg( oObject:ClassH, cSymbol, nFuncPtr, HB_OO_MSG_METHOD, NIL, 1 )
@@ -219,7 +219,7 @@ FUNCTION __objAddData( oObject, cSymbol )
FUNCTION __objModMethod( oObject, cSymbol, nFuncPtr )
IF !ISOBJECT( oObject ) .OR. !ISCHARACTER( cSymbol ) .OR. !ISNUMBER( nFuncPtr )
IF !ISOBJECT( oObject ) .OR. !ISCHARACTER( cSymbol ) .OR. !hb_ISPOINTER( nFuncPtr )
__errRT_BASE( EG_ARG, 3101, NIL, ProcName( 0 ) )
ELSEIF __objHasMethod( oObject, cSymbol )
__clsModMsg( oObject:ClassH, cSymbol, nFuncPtr )

4
harbour/utils/hbtest/rt_array.prg
View File

@@ -102,9 +102,9 @@ FUNCTION Main_ARRAY()
TEST_LINE( AFill( NIL ) , "E BASE 2017 Argument error AEVAL A:4:U:NIL;B:{||...};U:NIL;U:NIL " )
#else
#ifndef __XPP__
TEST_LINE( AFill() , "E BASE 9999 Argument error AFILL " )
TEST_LINE( AFill() , "E BASE 6004 Argument error AFILL " )
#endif
TEST_LINE( AFill( NIL ) , "E BASE 9999 Argument error AFILL " )
TEST_LINE( AFill( NIL ) , "E BASE 6004 Argument error AFILL " )
#endif
TEST_LINE( AFill( {} ) , "{.[0].}" )
TEST_LINE( AFill( {}, 1 ) , "{.[0].}" )

10
harbour/utils/hbtest/rt_stra.prg
View File

@@ -169,11 +169,11 @@ FUNCTION Main_STRA()
TEST_LINE( StrZero(100, 10, NIL) , "E BASE 1099 Argument error STR A:3:N:100;N:10;U:NIL F:S" )
TEST_LINE( StrZero(100, NIL, NIL) , "E BASE 1099 Argument error STR A:3:N:100;U:NIL;U:NIL F:S" )
#else
TEST_LINE( StrZero(NIL) , "E BASE 9999 Argument error STRZERO A:1:U:NIL F:S" )
TEST_LINE( StrZero("A", 10, 2) , "E BASE 9999 Argument error STRZERO A:3:C:A;N:10;N:2 F:S" )
TEST_LINE( StrZero(100, 10, "A") , "E BASE 9999 Argument error STRZERO A:3:N:100;N:10;C:A F:S" )
TEST_LINE( StrZero(100, 10, NIL) , "E BASE 9999 Argument error STRZERO A:3:N:100;N:10;U:NIL F:S" )
TEST_LINE( StrZero(100, NIL, NIL) , "E BASE 9999 Argument error STRZERO A:3:N:100;U:NIL;U:NIL F:S" )
TEST_LINE( StrZero(NIL) , "E BASE 6003 Argument error STRZERO A:1:U:NIL F:S" )
TEST_LINE( StrZero("A", 10, 2) , "E BASE 6003 Argument error STRZERO A:3:C:A;N:10;N:2 F:S" )
TEST_LINE( StrZero(100, 10, "A") , "E BASE 6003 Argument error STRZERO A:3:N:100;N:10;C:A F:S" )
TEST_LINE( StrZero(100, 10, NIL) , "E BASE 6003 Argument error STRZERO A:3:N:100;N:10;U:NIL F:S" )
TEST_LINE( StrZero(100, NIL, NIL) , "E BASE 6003 Argument error STRZERO A:3:N:100;U:NIL;U:NIL F:S" )
#endif
TEST_LINE( StrZero(10) , "0000000010" )
TEST_LINE( StrZero(10.0) , "0000000010.0" )