From 0802a42ff6de4e78c92da21b057c246091bc79f9 Mon Sep 17 00:00:00 2001
From: Jean-Francois Lefebvre <jfl@mafact.com>
Date: Mon, 9 Jul 2001 23:13:17 +0000
Subject: [PATCH] 2001-07-10 01:15 UTC+1 JFL (mafact) <jfl@mafact.com>

---
 harbour/ChangeLog           | 6 ++++++
 harbour/source/vm/classes.c | 9 +++++----
 2 files changed, 11 insertions(+), 4 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 0a716ec236..8687c30067 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -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
diff --git a/harbour/source/vm/classes.c b/harbour/source/vm/classes.c
index 9abf650122..bc064d07e8 100644
--- a/harbour/source/vm/classes.c
+++ b/harbour/source/vm/classes.c
@@ -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;