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

2000-11-23 23:11 UTC+0100 jfl (mafact) <jfl@mafact.com>

Browse Source
This commit is contained in:
Jean-Francois Lefebvre
2000-11-23 21:17:23 +00:00
parent e4f617cd9f
commit a8d6337d7c
2 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
2000-11-23 23:11 UTC+0100 jfl (mafact) <jfl@mafact.com>
* source/vm/classes.c
* corrected hb___msgClsParent( void )
where some pointer was badly deallocated
2000-11-23 11:11 UTC+0800 Ron Pinkas <ron@profit-master.com>
* source/rtl/idle.c
! Added Reset Logic to HB_IDLESTATE()

7
harbour/source/vm/classes.c
View File

@@ -1867,6 +1867,7 @@ static HARBOUR hb___msgClsParent( void )
PCLASS pClass;
char * szParentName = 0;
USHORT uiClass, i;
BOOL lClass=FALSE;
if( HB_IS_BYREF( hb_stack.pBase + 1 ) ) /* Variables by reference */
pItemRef = hb_itemUnRef( hb_stack.pBase + 1 );
@@ -1882,14 +1883,18 @@ static HARBOUR hb___msgClsParent( void )
if( HB_IS_OBJECT( pItemParam ) )
szParentName = hb_objGetClsName( pItemParam );
else if( HB_IS_STRING( pItemParam ) )
{
szParentName = hb_itemGetC( pItemParam );
lClass=TRUE;
}
for( i = 0; szParentName[ i ] != '\0'; i++ )
szParentName[ i ] = ( char ) toupper( szParentName[ i ] );
hb_retl( hb_clsIsParent( pClass, szParentName ) );
hb_itemFreeC( szParentName );
if (lClass)
hb_itemFreeC( szParentName );
}