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

2008-01-27 15:26 UTC+0200 Chen Kedem <niki@synel.co.il>

Browse Source
This commit is contained in:
Chen Kedem
2008-01-27 13:26:32 +00:00
parent 2e3ce4504c
commit b1df0448bf
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -8,6 +8,10 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2008-01-27 15:26 UTC+0200 Chen Kedem <niki@synel.co.il>
* source/rtl/objfunc.prg
! Change hb_ISPOINTER() -> hb_ISSYMBOL()
2008-01-27 12:46 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* source/rtl/objfunc.prg
! Fixed ISNUMBER() -> hb_ISPOINTER() for pointers.

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. !hb_ISPOINTER( nFuncPtr )
IF !ISOBJECT( oObject ) .OR. !ISCHARACTER( cSymbol ) .OR. !hb_ISSYMBOL( 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. !hb_ISPOINTER( nFuncPtr )
IF !ISOBJECT( oObject ) .OR. !ISCHARACTER( cSymbol ) .OR. !hb_ISSYMBOL( nFuncPtr )
__errRT_BASE( EG_ARG, 3101, NIL, ProcName( 0 ) )
ELSEIF __objHasMethod( oObject, cSymbol )
__clsModMsg( oObject:ClassH, cSymbol, nFuncPtr )