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

2001-06-21 11:19 UTC-0800 Brian Hays <bhays@abacuslaw.com>

Browse Source
This commit is contained in:
Brian Hays
2001-06-22 06:13:35 +00:00
parent e49056d419
commit b4615def8e
3 changed files with 14 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
harbour/ChangeLog
View File

@@ -1,3 +1,12 @@
2001-06-21 11:19 UTC-0800 Brian Hays <bhays@abacuslaw.com>
* source/rtl/transfrm.c
* Fixed @Z handling
* source/rdd/dbcmd.c
* Fixed Select("") to return 0
Note that select() returns current workarea even if unused
2001-06-21 22:20 UTC-0800 Ron Pinkas <ron@profit-master.com>
* contrib/dot/pp.prg
* Added support fort '|' as a continuation token (as in Clipper).

6
harbour/source/rdd/dbcmd.c
View File

@@ -379,7 +379,7 @@ static USHORT hb_rddSelect( char * szAlias )
}
/*
* Return thne next free WorkArea for later use.
* Return the next free WorkArea for later use.
*/
static void hb_rddSelectFirstAvailable( void )
{
@@ -2714,7 +2714,9 @@ HB_FUNC( SELECT )
szAlias = hb_parc( 1 );
ulLen = strlen( szAlias );
if( ulLen == 1 && toupper( szAlias[ 0 ] ) >= 'A' && toupper( szAlias[ 0 ] ) <= 'K' )
if( ulLen == 0 && ISCHAR( 1 ))
hb_retni( 0 );
else if( ulLen == 1 && toupper( szAlias[ 0 ] ) >= 'A' && toupper( szAlias[ 0 ] ) <= 'K' )
hb_retni( toupper( szAlias[ 0 ] ) - 'A' + 1 );
else if( ulLen > 0 )
hb_retni( hb_rddSelect( szAlias ) );

2
harbour/source/rtl/transfrm.c
View File

@@ -366,7 +366,7 @@ HB_FUNC( TRANSFORM )
/* Don't empty the result if the number is not zero */
if( dPush != 0 && ( uiPicFlags & PF_EMPTY ) )
uiPicFlags &= ~uiPicFlags;
uiPicFlags &= ~PF_EMPTY;
if( iWidth == 0 ) /* Width calculated ?? */
{