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

2011-02-14 23:30 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)

Browse Source 
* harbour/src/vm/classes.c
    ! fixed typo
This commit is contained in:
Mindaugas Kavaliauskas
2011-02-14 21:30:49 +00:00
parent 11654224c1
commit 517e64cf64
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

@@ -16,6 +16,10 @@
The license applies to all entries newer than 2009-04-28.
*/
2011-02-14 23:30 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
* harbour/src/vm/classes.c
! fixed typo
2011-02-14 19:48 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/include/hbclass.ch
+ added some class(y) compatible commands for delegated messages

4
harbour/src/vm/classes.c
View File

@@ -2791,7 +2791,7 @@ static HB_BOOL hb_clsAddMsg( HB_USHORT uiClass, const char * szMessage,
if( pNewMeth )
uiIndex = ( HB_USHORT ) ( pNewMeth - pClass->pMethods );
}
fOK = pFunction == NIL || HB_IS_NIL( pFunction ) || uiIndex != 0;
fOK = pFunction == NULL || HB_IS_NIL( pFunction ) || uiIndex != 0;
if( fOK )
{
pDelegMsg = hb_objGetMsgSym( pInit );
@@ -2801,7 +2801,7 @@ static HB_BOOL hb_clsAddMsg( HB_USHORT uiClass, const char * szMessage,
if( pNewMeth )
uiSprClass = ( HB_USHORT ) ( pNewMeth - pClass->pMethods );
}
fOK = ( pInit == NIL || HB_IS_NIL( pInit ) || uiSprClass != 0 ) &&
fOK = ( pInit == NULL || HB_IS_NIL( pInit ) || uiSprClass != 0 ) &&
( uiIndex != 0 || uiSprClass != 0 );
}
break;