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

andijahja@cbn.net.id

Browse Source
This commit is contained in:
Andi Jahja
2001-10-31 17:37:49 +00:00
parent 5653720b9b
commit eaddf6811b
3 changed files with 10 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -1,3 +1,10 @@
2001-10-30 00:20 GMT +0700 Andi Jahja <harbour@cb.net.id>
* include/hbexpra.c
! rename __PVALUE to HB_PVALUE
=> Need clean rebuild
* utils/hbmake/hbmutils.prg
! fix typo "("
2001-10-31 11:48 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
* source/rdd/dbcmd.c
! fixed alias name checking in dbUseArea()

4
harbour/include/hbexpra.c
View File

@@ -956,10 +956,10 @@ HB_EXPR_PTR hb_compExprSetGetBlock( HB_EXPR_PTR pExpr )
pIIF = hb_compExprAddListExpr( pIIF, pExpr );
/* create HB_PCOUNT(1) */
#ifdef HB_MACRO_SUPPORT
pSet = hb_compExprNewFunCall( hb_compExprNewFunName( hb_strdup("__PVALUE") ),
pSet = hb_compExprNewFunCall( hb_compExprNewFunName( hb_strdup("HB_PVALUE") ),
hb_compExprNewArgList( hb_compExprNewLong( 1 ) ), HB_MACRO_PARAM );
#else
pSet = hb_compExprNewFunCall( hb_compExprNewFunName( hb_strdup("__PVALUE") ),
pSet = hb_compExprNewFunCall( hb_compExprNewFunName( hb_strdup("HB_PVALUE") ),
hb_compExprNewArgList( hb_compExprNewLong( 1 ) ) );
#endif
/* create <pExpr>:=HB_PCOUNT(1) */

2
harbour/utils/hbmake/hbmutils.prg
View File

@@ -136,7 +136,7 @@ Static Function GetDirsl( cPattern )
Local aDir := {}
Aeval( Directory( cPattern + "*.", "D" ), ;
{ | xItem | If( xItem[ 5 ] = "D" , ;
( Aadd( aDir, cPattern + xItem[ 1 ] + "/" ), "" ) } )
Aadd( aDir, cPattern + xItem[ 1 ] + "/" ), "" ) } )
Return ( aDir )