*** empty log message ***

1999-12-15 19:58:41 +00:00
parent 9724d5264a
commit 785e241cbe
1 changed files with 2 additions and 1 deletions
--- a/harbour/source/rtl/classes.c
+++ b/harbour/source/rtl/classes.c
@@ -567,7 +567,7 @@ HARBOUR HB___CLSNEW( void )
            pNewCls->pMethods[ ui ].pInitValue = pInitValue;
         }
      }
-      pNewCls->pFunError = NULL;
+      pNewCls->pFunError = pSprCls->pFunError;
   }
   else
   {
@@ -579,6 +579,7 @@ HARBOUR HB___CLSNEW( void )

      pNewCls->pClassDatas = hb_itemArrayNew( 0 );
      pNewCls->pInlines    = hb_itemArrayNew( 0 );
+      pNewCls->pFunError   = NULL;

      memset( pNewCls->pMethods, 0, BASE_METHODS * sizeof( METHOD ) );
   }