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

2006-06-29 00:25 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/bin/hb-func.sh
  * harbour/include/hbgtcore.h
    * use HB_FUNC*() macros

  * harbour/source/rdd/dbcmd.c
    ! added fix for GPF in APPEND FROM when source file has repeated
      fields with the same names.
This commit is contained in:
Przemyslaw Czerpak
2006-06-28 22:27:13 +00:00
parent cc8aa5bd05
commit 31c319f922
4 changed files with 26 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
harbour/ChangeLog
View File

@@ -9,6 +9,15 @@
*/
2006-06-29 08:25 UTC+0200 Tomaz Zupan (tomaz.zupan at orpo.si)
* harbour.spec
* Added libusrrdd.a to rpm files
2006-06-29 00:25 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/bin/hb-func.sh
* harbour/include/hbgtcore.h
* use HB_FUNC*() macros
* harbour/source/rdd/dbcmd.c
! added fix for GPF in APPEND FROM when source file has repeated
fields with the same names.

6
harbour/bin/hb-func.sh
View File

@@ -441,12 +441,12 @@ hb_lnk_request()
echo "#include \\"hbapi.h\\""
if [ -n "\${HB_LNK_REQ}" ]; then
for fn in \${HB_LNK_REQ}; do
echo "extern HB_FUNC( \${fn} );"
echo "HB_FUNC_EXTERN( \${fn} );"
done
echo "void hb_lnk_ForceLink_build( void )"
echo "void _hb_lnk_ForceLink_build( void )"
echo "{"
for fn in \${HB_LNK_REQ}; do
echo " HB_FUNCNAME( \${fn} )();"
echo " HB_FUNC_EXEC( \${fn} );"
done
echo "}"
fi

2
harbour/include/hbgtcore.h
View File

@@ -92,7 +92,7 @@
#define HB_GT_REQUEST__( id ) HB_FUNC_EXTERN( id ); \
void hb_gt_ForceLink_##id( void ) \
{ \
HB_FUNCNAME( id )(); \
HB_FUNC_EXEC( id ); \
}
#define HB_GT_ANNOUNCE( id ) HB_GT_ANNOUNCE_( _HB_GT_PREF_( id ) )

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

@@ -4213,8 +4213,19 @@ static ERRCODE hb_dbTransStruct( AREAP lpaSource, AREAP lpaDest,
fAll = FALSE;
if( uiPosDst )
{
lpdbTransInfo->lpTransItems[ uiSize ].uiSource = uiCount;
lpdbTransInfo->lpTransItems[ uiSize++ ].uiDest = uiPosDst;
USHORT ui;
/* check for replicated field names in source area */
for( ui = 0; ui < uiSize; ++ui )
{
if( lpdbTransInfo->lpTransItems[ ui ].uiDest == uiPosDst )
break;
}
if( ui == uiSize )
{
lpdbTransInfo->lpTransItems[ uiSize ].uiSource = uiCount;
lpdbTransInfo->lpTransItems[ uiSize++ ].uiDest = uiPosDst;
}
}
}
hb_itemRelease( pItem );