From 870a56b59c57fc5200b3f1301223bce0296ffcf5 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Sun, 2 Sep 2001 12:21:02 +0000
Subject: [PATCH] Added BOOL bIsPersistent to the METHOD structure

---
 harbour/source/vm/classes.c | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/harbour/source/vm/classes.c b/harbour/source/vm/classes.c
index 2654d5db8a..4ea101b43b 100644
--- a/harbour/source/vm/classes.c
+++ b/harbour/source/vm/classes.c
@@ -131,6 +131,7 @@ typedef struct
    ULONG    ulCalls;             /* profiler support */
    ULONG    ulTime;              /* profiler support */
    ULONG    ulRecurse;           /* profiler support */
+   BOOL     bIsPersistent;       /* persistence support */
 } METHOD, * PMETHOD;
 
 typedef struct
@@ -879,7 +880,7 @@ ULONG hb_objHasMsg( PHB_ITEM pObject, char *szString )
 /* ================================================ */
 
 /*
- * __clsAddMsg( <hClass>, <cMessage>, <pFunction>, <nType>, [xInit], <uiScope> )
+ * __clsAddMsg( <hClass>, <cMessage>, <pFunction>, <nType>, [xInit], <uiScope>, <lPersistent> )
  *
  * Add a message to the class.
  *
@@ -910,6 +911,7 @@ HB_FUNC( __CLSADDMSG )
 {
    USHORT uiClass = ( USHORT ) hb_parni( 1 );
    USHORT uiScope = ( USHORT ) ( ISNUM( 6 ) ? hb_parni( 6 ) : HB_OO_CLSTP_EXPORTED );
+   BOOL   bPersistent = hb_parl( 7 );
 
    if( uiClass && uiClass <= s_uiClasses )
    {
@@ -960,6 +962,7 @@ HB_FUNC( __CLSADDMSG )
       pNewMeth->ulCalls = 0;
       pNewMeth->ulTime = 0;
       pNewMeth->ulRecurse = 0;
+      pNewMeth->bIsPersistent = bPersistent;
 
       /* in cas eof re-used message */
       if ( pNewMeth->pInitValue )
@@ -2360,4 +2363,4 @@ void hb_mthAddTime( void * pMethod, ULONG ulClockTicks )
 {
    if( pMethod != NULL )
       ( ( PMETHOD ) pMethod )->ulTime += ulClockTicks;
-}
+}
\ No newline at end of file