2001-10-10 23:50 GMT+1 JFL (mafact) <jfl@mafact.com>

harbour/ChangeLog

@@ -1,3 +1,8 @@
+2001-10-10 23:50 GMT+1 JFL (mafact) <jfl@mafact.com>
+   * harbour/source/vm/classes.c
+       Fixed hb_clsIsParent for same class as parent ...
+       (xBase++ compatibility)
+
 2001-10-10 10:07 GMT Dave Pearson <davep@davep.org>
    * source/rtl/tbrowse.prg
      * Fixed bug in :insColumn() as reported by Andreas Moroder in 

harbour/source/vm/classes.c

@@ -1,4 +1,4 @@
-/* 
+/*
  * $Id$
  */
 
@@ -102,6 +102,7 @@
  *    Adding HB_CLS_ENFORCERO FLAG to disable Write access to RO VAR
  *    outside of Constructors /!\ Could be related to some incompatibility
  *    Added hb_objGetRealClsName to keep a full class tree
+ *    Fixed hb_clsIsParent
  *
  * See doc/license.txt for licensing terms.
  *
@@ -530,6 +531,9 @@ BOOL hb_clsIsParent( PCLASS pClass, char * szParentName )
 
    uiLimit = ( USHORT ) ( pClass->uiHashKey * BUCKET );
 
+   if( strcmp( pClass->szName, szParentName ) == 0 )
+     return TRUE;
+
    for( uiAt = 0; uiAt < uiLimit; uiAt++)
    {
       if( ( pClass->pMethods[ uiAt ].uiScope & HB_OO_CLSTP_CLASS ) == HB_OO_CLSTP_CLASS )