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

2003-07-03 10:00 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>

Browse Source
This commit is contained in:
Alexander S.Kresin
2003-07-03 06:03:28 +00:00
parent b2da60d1b6
commit 5bf32d328d
5 changed files with 26 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
harbour/ChangeLog
View File

@@ -8,6 +8,17 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2003-07-03 10:00 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
* source/rdd/dbfntx/dbfntx1.c
! Bug fixed - there was memory leak after INDEX ON ... ADDITIVE if there
were no open indexes
* source/rdd/dbf1.c
! Problem fixed for the cases when the field name exceeds 10 characters.
* Codepage translation added for memo fields.
* source/codepage/cdppt850.c
* source/codepage/cdpptiso.c
! Comment delimiters bug fixed.
2003-07-02 11:35 UTC-0300 Antonio Carlos Pantaglione <toninho@fwi.com.br>
* source/compiler/harbour.slx
! Add 'static' in definition of hb_comp_SLX_InterceptAction and

6
harbour/source/codepage/cdppt850.c
View File

@@ -52,9 +52,9 @@
*
*/
/* Language name: Portuguese
/* ISO language code (2 chars): PT
/* Codepage: 850 */
/* Language name: Portuguese */
/* ISO language code (2 chars): PT */
/* Codepage: 850 */
#include <ctype.h>
#include "hbapi.h"

6
harbour/source/codepage/cdpptiso.c
View File

@@ -52,9 +52,9 @@
*
*/
/* Language name: Portuguese
/* ISO language code (2 chars): PT
/* Codepage: iso-8859-1 */
/* Language name: Portuguese */
/* ISO language code (2 chars): PT */
/* Codepage: iso-8859-1 */
#include <ctype.h>
#include "hbapi.h"

8
harbour/source/rdd/dbf1.c
View File

@@ -569,6 +569,7 @@ static void hb_dbfGetMemo( DBFAREAP pArea, USHORT uiIndex, PHB_ITEM pItem )
*pBuffer = '\0';
hb_itemPutCPtr( pItem, ( char * ) pBuffer, ulSize );
hb_cdpTranslate( pItem->item.asString.value, pArea->cdPage,s_cdpage );
hb_itemSetCMemo( pItem );
}
@@ -1230,7 +1231,11 @@ ERRCODE hb_dbfPutValue( DBFAREAP pArea, USHORT uiIndex, PHB_ITEM pItem )
if( pField->uiType == HB_IT_MEMO )
{
if( HB_IS_MEMO( pItem ) || HB_IS_STRING( pItem ) )
{
hb_cdpTranslate( pItem->item.asString.value, s_cdpage, pArea->cdPage );
uiError = hb_dbfPutMemo( pArea, uiIndex, pItem ) ? SUCCESS : EDBF_DATAWIDTH;
hb_cdpTranslate( pItem->item.asString.value, pArea->cdPage,s_cdpage );
}
else
uiError = EDBF_DATATYPE;
}
@@ -1894,7 +1899,8 @@ ERRCODE hb_dbfOpen( DBFAREAP pArea, LPDBOPENINFO pOpenInfo )
{
pField = ( LPDBFFIELD ) ( pBuffer + uiCount * sizeof( DBFFIELD ) );
pFieldInfo.atomName = pField->bName;
hb_strUpper( ( char * ) pFieldInfo.atomName,11 );
pFieldInfo.atomName[10] = '\0';
hb_strUpper( (char*) pFieldInfo.atomName,10 );
pFieldInfo.uiLen = pField->bLen;
pFieldInfo.uiDec = 0;
switch( pField->bType )

2
harbour/source/rdd/dbfntx/dbfntx1.c
View File

@@ -3691,6 +3691,8 @@ static ERRCODE ntxOrderCreate( NTXAREAP pArea, LPDBORDERCREATEINFO pOrderInfo )
}
pTagNext->pNext = pTag;
}
else
pArea->lpNtxTag = pTag;
}
else
pArea->lpNtxTag = pTag;