From b9e3fadfc03eb0b675829b97377c215d44f47449 Mon Sep 17 00:00:00 2001 From: Horacio Dario Roldan Kasimatis Date: Sat, 28 Dec 2002 12:05:58 +0000 Subject: [PATCH] 2002-12-28 09:05 UTC-0300 Horacio Roldan * source/rdd/workarea.c ! fix to fieldname, reported by Luiz Rafael Culik --- harbour/source/rdd/workarea.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/harbour/source/rdd/workarea.c b/harbour/source/rdd/workarea.c index 2bcb77ce7c..0434521b1b 100644 --- a/harbour/source/rdd/workarea.c +++ b/harbour/source/rdd/workarea.c @@ -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; }