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

2000-11-05 10:00 UTC+0100 JFL (mafact) <jfl@mafact.com>

Browse Source
This commit is contained in:
Jean-Francois Lefebvre
2000-11-05 08:59:01 +00:00
parent 039265a0ba
commit 0e65b01d2e
2 changed files with 13 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -1,3 +1,9 @@
2000-11-05 10:00 UTC+0100 JFL (mafact) <jfl@mafact.com>
* source/vm/classes.c
* work around due to the fact HB stack can move
from address to address when stack growth.
__clsinstsuper() caused GPF
2000-11-04 14:45 UTC+0800 Ron Pinkas <ron@profit-master.com>
* include/hbexpra.c

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

@@ -1596,12 +1596,15 @@ HB_FUNC( __OBJSENDMSG )
*/
HB_FUNC( __CLSINSTSUPER )
{
PHB_ITEM pString = hb_param( 1, HB_IT_STRING );
char cString[ HB_SYMBOL_NAME_LEN + 1 ] ;
/*PHB_ITEM pString = hb_param( 1, HB_IT_STRING ); */
BOOL bFound = FALSE;
if( pString )
strcpy( &cString, hb_parc(1) );
if( /*pString*/ hb_pcount() >= 1 )
{
PHB_DYNS pDynSym = hb_dynsymFind( pString->item.asString.value );
PHB_DYNS pDynSym = hb_dynsymFind( cString /*pString->item.asString.value*/ );
if( pDynSym ) /* Find function */
{
@@ -1615,7 +1618,7 @@ HB_FUNC( __CLSINSTSUPER )
{
for( uiClass = 0; ! bFound && uiClass < s_uiClasses; uiClass++ )
{ /* Locate the entry */
if( hb_stricmp( pString->item.asString.value, s_pClasses[ uiClass ].szName ) == 0 )
if( hb_stricmp( /*pString->item.asString.value*/ cString , s_pClasses[ uiClass ].szName ) == 0 )
{
hb_retni( uiClass + 1 ); /* Entry + 1 = hb___msgClsH */
bFound = TRUE;