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

2001-05-15 20:15 UTC+1 JFL (mafact) <jfl@mafact.com>

Browse Source
This commit is contained in:
Jean-Francois Lefebvre
2001-05-15 18:15:51 +00:00
parent 53cd4b00ff
commit 348e31507c
2 changed files with 13 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
2001-05-15 20:15 UTC+1 JFL (mafact) <jfl@mafact.com>
* harbour/source/vm/classes.c
* minor modif to hb___msgClsSel() as indicated by Chen
2001-05-15 20:50 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
* source/rdd/dbf1.c
* bug fixed, reported by Antonio Linares, related to record locking

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

@@ -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))
)
)
)