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

2001-07-10 01:15 UTC+1 JFL (mafact) <jfl@mafact.com>

Browse Source
This commit is contained in:
Jean-Francois Lefebvre
2001-07-09 23:13:17 +00:00
parent 5e42eeb160
commit 0802a42ff6
2 changed files with 11 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 @@
2001-07-10 01:15 UTC+1 JFL (mafact) <jfl@mafact.com>
* harbour/source/vm/Classe.c
- Hb_ClsScope() Remed :-((((((((((
Sorry not yet ready !
2001-07-10 00:15 UTC+1 JFL (mafact) <jfl@mafact.com>
* harbour/source/vm/Classe.c
- Hb_ClsScope() Corrected and re-added

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

@@ -83,6 +83,7 @@
* Data initialisation & Autoinit for Bool and Numeric
* Scoping : Protected / exported
*
* Copyright 2000 ( 08/2000-> ) JF. Lefebvre <jfl@mafact.com>
* hb_clsDictRealloc() New version
* Now support of shared and not shared class data
* Multiple datas declaration fully supported
@@ -164,7 +165,7 @@ static PHB_DYNS s_msgClsParent = NULL;
/* All functions contained in classes.c */
static PHB_ITEM hb_clsInst( USHORT uiClass );
static void hb_clsScope( PHB_ITEM pObject, PMETHOD pMethod );
/*static void hb_clsScope( PHB_ITEM pObject, PMETHOD pMethod );*/
static ULONG hb_cls_MsgToNum( PHB_DYNS pMsg );
static BOOL hb_clsIsParent( PCLASS pClass, char * szParentName );
static void hb_clsDictRealloc( PCLASS pClass );
@@ -353,6 +354,7 @@ void hb_clsIsClassRef( void )
}
}
#ifdef _NotDef
void hb_clsScope( PHB_ITEM pObject, PMETHOD pMethod )
{
PHB_ITEM * pBase = hb_stack.pBase;
@@ -390,7 +392,6 @@ void hb_clsScope( PHB_ITEM pObject, PMETHOD pMethod )
if( iLevel == -1 )
{
/* Now get the callers ... */
pCaller = * (pBase+1 ) ;
szCallerNameMsg = ( *pBase )->item.asSymbol.value->szName ;
@@ -489,7 +490,7 @@ void hb_clsScope( PHB_ITEM pObject, PMETHOD pMethod )
}
}
}
#endif
ULONG hb_cls_MsgToNum( PHB_DYNS pMsg )
{
@@ -720,7 +721,7 @@ PHB_FUNC hb_objGetMthd( PHB_ITEM pObject, PHB_SYMB pMessage, BOOL lAllowErrFunc
{
pMethod = pClass->pMethods + uiAt;
pFunction = pMethod->pFunction;
hb_clsScope( pObject, pMethod );
/*hb_clsScope( pObject, pMethod );*/
s_pMethod = pMethod ;
pMethod->ulCalls++; /* Profiler */
return pFunction;