From 958acd81692c7e5017ddf35bddb1977d4164e2f5 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Tue, 8 Jul 2008 08:37:24 +0000 Subject: [PATCH] 2008-07-08 10:34 UTC+0200 Viktor Szakats (harbour.01 syenar hu) * contrib/rddads/ads1.c ! Fixed to behave Clipper-like when trying to write when on EOF position. This way a TODO is cleared in the source. --- harbour/ChangeLog | 6 ++++++ harbour/contrib/rddads/ads1.c | 5 +---- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 1022cebcb4..c2edf6db82 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,12 @@ 2008-12-31 13:59 UTC+0100 Foo Bar */ +2008-07-08 10:34 UTC+0200 Viktor Szakats (harbour.01 syenar hu) + * contrib/rddads/ads1.c + ! Fixed to behave Clipper-like when trying to write + when on EOF position. This way a TODO is cleared in the + source. + 2008-07-08 08:29 UTC+0200 Viktor Szakats (harbour.01 syenar hu) * contrib/hbodbc/odbc.c ! Fixed compilation error with Pelles C 5.00.1. diff --git a/harbour/contrib/rddads/ads1.c b/harbour/contrib/rddads/ads1.c index 2313d397e0..0a4d267a25 100644 --- a/harbour/contrib/rddads/ads1.c +++ b/harbour/contrib/rddads/ads1.c @@ -2210,10 +2210,7 @@ static ERRCODE adsPutValue( ADSAREAP pArea, USHORT uiIndex, PHB_ITEM pItem ) SELF_FORCEREL( ( AREAP ) pArea ); if( !pArea->fPositioned ) - { - /* TODO: it should return SUCCESS for Clipper compatibility */ - return FAILURE; - } + return SUCCESS; if( hb_ads_bTestRecLocks ) {