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

2004-02-15 03:42 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>

Browse Source 
* source/rdd/dbcmd.c
     ! FIELDPUT() Fixed to accept and ignore field NIL values
       without runtime error. C52 compatible.
This commit is contained in:
Viktor Szakats
2004-02-15 02:40:13 +00:00
parent f0aadd45ab
commit 417d7034ff
3 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -8,6 +8,12 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2004-02-15 03:42 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>
* source/rdd/dbcmd.c
! FIELDPUT() Fixed to accept and ignore field NIL values
without runtime error. C52 compatible.
2004-02-14 19:14 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>
* source/rtl/tbrowse.prg

2
harbour/include/hbapigt.h
View File

@@ -284,7 +284,7 @@ extern int hb_inkeyNext( HB_inkey_enum event_mask ); /* Return the
extern void hb_inkeyPoll( void ); /* Poll the console keyboard to stuff the Harbour buffer */
extern void hb_inkeyReset( BOOL allocate ); /* Reset the Harbour keyboard buffer */
extern int hb_inkeyTranslate( int key, HB_inkey_enum event_make ); /* Translation extended codes to normal codes, if needed */
extern void hb_inkeySetCancelKeys( int CancelKey, int CancelKeyEx ); /* Set keycodes for Cancel key (usually K_ALT_C) */
extern void hb_inkeySetCancelKeys( int CancelKey, int CancelKeyEx ); /* Set keycodes for Cancel key (usually K_ALT_C) */
/* Mouse related declarations */

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

@@ -2231,7 +2231,7 @@ HB_FUNC( FIELDPUT )
if( s_pCurrArea && uiIndex )
{
pItem = hb_param( 2, HB_IT_ANY );
if( SELF_PUTVALUE( ( AREAP ) s_pCurrArea->pArea, uiIndex, pItem ) == SUCCESS )
if( ! HB_IS_NIL( pItem ) && ( SELF_PUTVALUE( ( AREAP ) s_pCurrArea->pArea, uiIndex, pItem ) == SUCCESS ) )
hb_itemReturn( pItem );
}
}