From 393a8132425aaa90902a52b8b8533a49ca237b89 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Wed, 24 Jun 2009 14:09:16 +0000
Subject: [PATCH] 2009-06-24 16:07 UTC+0200 Viktor Szakats (harbour.01
 syenar.hu)   * source/vm/memvars.c     + Added hb_fsCommit() to __MVSAVE().  
     (Change copied from xhb, created by Peter Rees)

  * contrib/gtwvg/wvgsink.c
    ! Fixed BCC warning after recent change.
      (BTW, does anyone know a switch to enable such warning:
      "'x' is assigned a value that is never used" with *MinGW* ?
      It's annoying that BCC catches it, while other compilers
      don't. I'm now only using BCC when creating builds.)
---
 harbour/ChangeLog               | 12 ++++++++++++
 harbour/contrib/gtwvg/wvgsink.c |  2 +-
 harbour/source/vm/memvars.c     |  1 +
 3 files changed, 14 insertions(+), 1 deletion(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 0eb92f239a..ef0d04bdf3 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -17,6 +17,18 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2009-06-24 16:07 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * source/vm/memvars.c
+    + Added hb_fsCommit() to __MVSAVE().
+      (Change copied from xhb, created by Peter Rees)
+
+  * contrib/gtwvg/wvgsink.c
+    ! Fixed BCC warning after recent change.
+      (BTW, does anyone know a switch to enable such warning:
+      "'x' is assigned a value that is never used" with *MinGW* ?
+      It's annoying that BCC catches it, while other compilers
+      don't. I'm now only using BCC when creating builds.)
+
 2009-06-24 13:34 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * mpkg_dos.bat
   * mpkg_win.bat
diff --git a/harbour/contrib/gtwvg/wvgsink.c b/harbour/contrib/gtwvg/wvgsink.c
index d0ee8e743b..d732b5252b 100644
--- a/harbour/contrib/gtwvg/wvgsink.c
+++ b/harbour/contrib/gtwvg/wvgsink.c
@@ -449,7 +449,7 @@ typedef IEventHandler device_interface;
 HB_FUNC( WVG_AXSETUPCONNECTIONPOINT )
 {
    HRESULT                     hr;
-   MyRealIEventHandler*        hSink = NULL;
+   MyRealIEventHandler*        hSink;
    device_interface*           pdevice_interface = ( device_interface * ) hb_oleParam( 1 );
 
    IConnectionPointContainer*  pIConnectionPointContainerTemp = NULL;
diff --git a/harbour/source/vm/memvars.c b/harbour/source/vm/memvars.c
index b98dc3d106..5668c94178 100644
--- a/harbour/source/vm/memvars.c
+++ b/harbour/source/vm/memvars.c
@@ -1514,6 +1514,7 @@ HB_FUNC( __MVSAVE )
          buffer[ 0 ] = '\x1A';
          hb_fsWrite( fhnd, buffer, 1 );
 
+         hb_fsCommit( fhnd );
          hb_fsClose( fhnd );
       }