From 8d8d012bdfc56e690916873eb7243a7af1580b57 Mon Sep 17 00:00:00 2001 From: Przemyslaw Czerpak Date: Tue, 25 Sep 2007 11:33:49 +0000 Subject: [PATCH] 2007-09-25 13:10 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/source/rdd/wafunc.c ! fixed typo which broke array returned by dbStrunct() --- harbour/ChangeLog | 8 ++++++-- harbour/source/rdd/wafunc.c | 2 +- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index fb48a7841e..b661fb94ff 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,10 @@ 2002-12-01 13:30 UTC+0100 Foo Bar */ +2007-09-25 13:10 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) + * harbour/source/rdd/wafunc.c + ! fixed typo which broke array returned by dbStrunct() + 2007-09-25 00:55 UTC-0500 Teo Fonrouge (teo/at/windtelsoft/dot/com) * contrib/xhb/xhbcomp.prg + added "[]" operator overloading for the HBCharacter type class: @@ -163,8 +167,8 @@ * harbour/contrib/rdd_ads/ace.h + added support for ROWVERSION (^), and MODTIME (=) fields - ! harbour/source/rdd/dbcmd.c - * fixed bug in dbSkipper() reported by Viktor + * harbour/source/rdd/dbcmd.c + ! fixed bug in dbSkipper() reported by Viktor + harbour/include/hbsix.ch * harbour/source/rdd/hbsix/Makefile diff --git a/harbour/source/rdd/wafunc.c b/harbour/source/rdd/wafunc.c index c63e7f79c0..171fd06abc 100644 --- a/harbour/source/rdd/wafunc.c +++ b/harbour/source/rdd/wafunc.c @@ -768,7 +768,7 @@ static void hb_fldStructure( AREAP pArea, USHORT uiField, USHORT uiSize, for( uiCount = 0; uiCount < uiSize; ++uiCount ) { SELF_FIELDINFO( pArea, uiField, s_uiActions[uiCount], - hb_arrayGetItemPtr( pField, 1 ) ); + hb_arrayGetItemPtr( pField, uiCount + 1 ) ); } }