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

2000-09-21 00:40 UTC+0800 Brian Hays <bhays@abacuslaw.com>

Browse Source
This commit is contained in:
Brian Hays
2000-09-21 07:41:45 +00:00
parent 312a3591b5
commit 9d7b9853d0
2 changed files with 10 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
2000-09-21 00:40 UTC+0800 Brian Hays <bhays@abacuslaw.com>
* contrib/rdd_ads/ads1.c
! fixed buffer allocation and item assignment in adsOrderListFocus
Bug was that a 10-byte tag name came back with an 11th garbage byte
2000-09-19 20:00 GMT -3 Luiz Rafael Culik <culik@sl.conex.net>
+contrib/pdflib/pdfhbdoc.c
*Wraper functions for PDF generation for HBDOC
@@ -12,6 +17,7 @@
+Added code to support PDF generation then compiled with -dPDF
*contrib/rdd_ads/doc/en/adsfuncs.txt
*small formating
2000-09-20 23:36 UTC+0200 JFL (mafact) <jfl@mafact.com>
* harbour/include/hbsetup.ch
+ added a #define HB_CLS_ENFORCERO to enable full ReadOnly test on DATA

7
harbour/contrib/rdd_ads/ads1.c
View File

@@ -1083,8 +1083,8 @@ static ERRCODE adsOrderListClear( ADSAREAP pArea )
static ERRCODE adsOrderListFocus( ADSAREAP pArea, LPDBORDERINFO pOrderInfo )
{
ADSHANDLE phIndex;
UNSIGNED8 pucName[11];
UNSIGNED16 pusLen = 10;
UNSIGNED8 pucName[ADS_MAX_TAG_NAME];
UNSIGNED16 pusLen = ADS_MAX_TAG_NAME;
UNSIGNED16 usOrder;
UNSIGNED32 ulRetVal;
HB_TRACE(HB_TR_DEBUG, ("adsOrderListFocus(%p, %p)", pArea, pOrderInfo));
@@ -1093,7 +1093,8 @@ static ERRCODE adsOrderListFocus( ADSAREAP pArea, LPDBORDERINFO pOrderInfo )
*pucName = '\0';
else
AdsGetIndexName( pArea->hOrdCurrent, pucName, &pusLen);
pOrderInfo->itmResult = hb_itemPutC( pOrderInfo->itmResult, (char*)pucName );
pOrderInfo->itmResult = hb_itemPutCL( pOrderInfo->itmResult, (char*)pucName, pusLen );
if( pOrderInfo->itmOrder )
{