From 348e31507c735f2c0ee7ba8b075293178cdb095e Mon Sep 17 00:00:00 2001 From: Jean-Francois Lefebvre Date: Tue, 15 May 2001 18:15:51 +0000 Subject: [PATCH] 2001-05-15 20:15 UTC+1 JFL (mafact) --- harbour/ChangeLog | 4 ++++ harbour/source/vm/classes.c | 17 +++++++++-------- 2 files changed, 13 insertions(+), 8 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index f189c1ac37..3a584e4520 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,7 @@ +2001-05-15 20:15 UTC+1 JFL (mafact) + * harbour/source/vm/classes.c + * minor modif to hb___msgClsSel() as indicated by Chen + 2001-05-15 20:50 GMT+3 Alexander Kresin * source/rdd/dbf1.c * bug fixed, reported by Antonio Linares, related to record locking diff --git a/harbour/source/vm/classes.c b/harbour/source/vm/classes.c index aa2c1ab022..5cf4c90d36 100644 --- a/harbour/source/vm/classes.c +++ b/harbour/source/vm/classes.c @@ -1940,7 +1940,8 @@ static HARBOUR hb___msgClsSel( void ) PHB_ITEM pReturn = hb_itemNew( NULL ); - USHORT nParam=0; + USHORT nParam=HB_MSGLISTALL; + USHORT uiPCount=hb_pcount(); if( uiPCount>=1 ) @@ -1975,8 +1976,8 @@ static HARBOUR hb___msgClsSel( void ) { s_pMethod = pClass->pMethods + uiAt; - if ( (! nParam) || - ( nParam==HB_MSGLISTCLASS && + if ( ( nParam==HB_MSGLISTALL ) || + ( (nParam==HB_MSGLISTCLASS) && ( (s_pMethod->pFunction == hb___msgSetClsData) || (s_pMethod->pFunction == hb___msgGetClsData) || @@ -1984,12 +1985,12 @@ static HARBOUR hb___msgClsSel( void ) (s_pMethod->pFunction == hb___msgGetShrData) ) ) || - ( nParam==HB_MSGLISTPURE && + ( (nParam==HB_MSGLISTPURE) && ( - ! (s_pMethod->pFunction == hb___msgSetClsData) && - ! (s_pMethod->pFunction == hb___msgGetClsData) && - ! (s_pMethod->pFunction == hb___msgSetShrData) && - ! (s_pMethod->pFunction == hb___msgGetShrData) + (! (s_pMethod->pFunction == hb___msgSetClsData)) && + (! (s_pMethod->pFunction == hb___msgGetClsData)) && + (! (s_pMethod->pFunction == hb___msgSetShrData)) && + (! (s_pMethod->pFunction == hb___msgGetShrData)) ) ) )