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

20000413-12:14 GMT+1 Victor Szakats <info@szelvesz.hu>

Browse Source
This commit is contained in:
Viktor Szakats
2000-04-13 10:15:33 +00:00
parent be8587e794
commit ed45f3b29d
4 changed files with 15 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
harbour/ChangeLog
View File

@@ -1,3 +1,14 @@
20000413-12:14 GMT+1 Victor Szakats <info@szelvesz.hu>
* include/hbver.h
* Date bumped to indicate new pcode revision.
* include/hbapi.h
! Fix for HB_EXTEND_API_MACROS
* source/rdd/dbstrux.prg
! Small formatting.
20000413-01:30 GMT-8 Ron Pinkas <Ron@Profit-Master.com>
* source/include/hbpcode.h

2
harbour/include/hbapi.h
View File

@@ -271,6 +271,8 @@ extern PHB_ITEM hb_param( int iParam, int iMask ); /* retrieve a generic paramet
#ifdef HB_EXTEND_API_MACROS
#include "hbapiitm.h"
#define hb_pcount() ( ( int ) hb_stack.pBase->item.asSymbol.paramcnt )
#define hb_ret() hb_itemClear( &hb_stack.Return )

2
harbour/include/hbver.h
View File

@@ -42,6 +42,6 @@
#define HB_VER_BUILD 33 /* Build number */
#define HB_VER_YEAR 2000 /* Build year */
#define HB_VER_MONTH 04 /* Build month */
#define HB_VER_DAY 07 /* Build day */
#define HB_VER_DAY 14 /* Build day */
#endif /* HB_VER_H_ */

2
harbour/source/rdd/dbstrux.prg
View File

@@ -159,7 +159,7 @@ FUNCTION __dbStructFilter( aStruct, aFieldList )
aStructFiltered := {}
bFindName := {| aField | aField[ DBS_NAME ] == RTrim( Upper(cName ) ) }
aEval( aFieldList, {| cFieldName, nIndex | cName := cFieldName,nIndex := aScan( aStruct, bFindName ),;
aEval( aFieldList, {| cFieldName, nIndex | cName := cFieldName, nIndex := aScan( aStruct, bFindName ),;
iif( nIndex == 0, NIL, aAdd( aStructFiltered, aStruct[ nIndex] ) ) } )
RETURN aStructFiltered