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

2002-12-28 09:05 UTC-0300 Horacio Roldan <harbour_ar@yahoo.com.ar>

Browse Source 
* source/rdd/workarea.c
        ! fix to fieldname, reported by Luiz Rafael Culik
This commit is contained in:
Horacio Dario Roldan Kasimatis
2002-12-28 12:05:58 +00:00
parent 3c693a07ca
commit b9e3fadfc0
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
harbour/source/rdd/workarea.c
View File

@@ -418,7 +418,8 @@ ERRCODE hb_waFieldName( AREAP pArea, USHORT uiIndex, void * szName )
strncpy( ( char * ) szName, ( ( PHB_DYNS ) pField->sym )->pSymbol->szName,
HARBOUR_MAX_RDD_FIELDNAME_LENGTH );
*/
strncpy( ( char * ) szName, ( ( PHB_DYNS ) pField->sym )->pSymbol->szName,
((char *) szName)[0] = '\0';
strncat( ( char * ) szName, ( ( PHB_DYNS ) pField->sym )->pSymbol->szName,
pArea->uiMaxFieldNameLength );
return SUCCESS;
}