From c9b7c20d6bc1f60218ef52622df52860571ffcfa Mon Sep 17 00:00:00 2001
From: Przemyslaw Czerpak <druzus@priv.onet.pl>
Date: Fri, 5 Sep 2008 13:59:19 +0000
Subject: [PATCH] 2008-09-05 15:58 UTC+0200 Przemyslaw Czerpak
 (druzus/at/priv.onet.pl)   * harbour/source/rdd/dbffpt/dbffpt1.c     ! fixed
 GPF introduced by today MSVC warning cleanup

---
 harbour/ChangeLog                   | 4 ++++
 harbour/source/rdd/dbffpt/dbffpt1.c | 4 ++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 3e691df838..6a0d89a9a4 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,10 @@
    2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
 */
 
+2008-09-05 15:58 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/source/rdd/dbffpt/dbffpt1.c
+    ! fixed GPF introduced by today MSVC warning cleanup
+
 2008-09-05 12:32 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
    * doc/whatsnew.txt
      * Reviewed, some clarifications.
diff --git a/harbour/source/rdd/dbffpt/dbffpt1.c b/harbour/source/rdd/dbffpt/dbffpt1.c
index 1c7116eec1..0ffe7921e3 100644
--- a/harbour/source/rdd/dbffpt/dbffpt1.c
+++ b/harbour/source/rdd/dbffpt/dbffpt1.c
@@ -2904,7 +2904,7 @@ static ERRCODE hb_fptWriteMemo( FPTAREAP pArea, ULONG ulBlock, ULONG ulSize,
 static ERRCODE hb_fptPutMemo( FPTAREAP pArea, USHORT uiIndex, PHB_ITEM pItem,
                               ULONG * pulBlock )
 {
-   ULONG ulBlock = *pulBlock, ulSize, ulType, ulOldSize = 0, ulOldType, ulArrayCount = 0;
+   ULONG ulBlock = 0, ulSize, ulType, ulOldSize = 0, ulOldType = 0, ulArrayCount = 0;
    BYTE itmBuffer[FLEX_ITEM_BUFSIZE];
    BYTE  *bBufPtr = NULL, *bBufAlloc = NULL;
    ERRCODE errCode;
@@ -3062,7 +3062,7 @@ static ERRCODE hb_fptPutMemo( FPTAREAP pArea, USHORT uiIndex, PHB_ITEM pItem,
    }
    else
    {
-      ulOldType = 0;
+      ulBlock = *pulBlock;
       errCode = SUCCESS;
    }