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

See ChangeLog entry 2003-05-09 14:40 UTC-0400 David G. Holm <dholm@jsd-llc.com>

Browse Source
This commit is contained in:
David G. Holm
2003-05-09 18:41:24 +00:00
parent 3242fd4df2
commit ad4e321168
2 changed files with 17 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -8,6 +8,11 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2003-05-09 14:40 UTC-0400 David G. Holm <dholm@jsd-llc.com>
* source/rdd/dbcmd.c
! Fixed the FIELDPOS function to truncate long field names,
instead of ignoring them.
2003-05-08 15:30 UTC-0400 David G. Holm <dholm@jsd-llc.com>
* source/compiler/harbour.sly
! Fixed $<lNumber>3 in EmptyStatements to read $<lNumber>2.

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

@@ -2127,13 +2127,21 @@ HB_FUNC( FIELDPOS )
{
/* char szName[ HARBOUR_MAX_RDD_FIELDNAME_LENGTH ]; */
char * szName;
size_t uiMax;
size_t uiLen;
if( s_pCurrArea )
{
if ( hb_parc( 1 ) && ( (int) hb_parclen( 1 ) <= (int) ( ( AREAP ) s_pCurrArea->pArea)->uiMaxFieldNameLength ) )
if ( hb_parc( 1 ) )
{
szName = ( char * ) hb_xgrab( ( ( AREAP ) s_pCurrArea->pArea)->uiMaxFieldNameLength + 1 );
hb_strncpyUpperTrim( szName, hb_parc( 1 ), hb_parclen( 1 ) );
uiMax = ( ( AREAP ) s_pCurrArea->pArea)->uiMaxFieldNameLength;
uiLen = hb_parclen( 1 );
if( uiLen > uiMax )
{
uiLen = uiMax;
}
szName = ( char * ) hb_xgrab( uiLen + 1 );
hb_strncpyUpperTrim( szName, hb_parc( 1 ), uiLen );
hb_retni( hb_rddFieldIndex( ( AREAP ) s_pCurrArea->pArea, szName ) );
hb_xfree( szName );
}
@@ -3867,4 +3875,4 @@ HB_FUNC( __DBCOPY )
hb_parl( 7 ), /* Rest */ /* Defaults to zero on bad type */
ISCHAR( 8 ) ? hb_parc( 8 ) : NULL ); /* RDD */
}
}
}