From ee2b31438dcec75400faf5306773f3005886500a Mon Sep 17 00:00:00 2001
From: Przemyslaw Czerpak <druzus@priv.onet.pl>
Date: Thu, 10 Jul 2008 18:59:47 +0000
Subject: [PATCH] 2008-07-10 20:59 UTC+0200 Przemyslaw Czerpak
 (druzus/at/priv.onet.pl)   * harbour/source/vm/macro.c     ! fixed RT error
 when invalid symbol string is precompiled

---
 harbour/ChangeLog         | 4 ++++
 harbour/source/vm/macro.c | 5 +++--
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index f28f9f9d85..102a4c5bac 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-07-10 20:59 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/source/vm/macro.c
+    ! fixed RT error when invalid symbol string is precompiled
+
 2008-07-10 18:51 UTC+0100 Miguel Angel Marchuet <miguelangel@marchuet.net>
   * contrib/hbbmcdx/bmdbfcdx.c
   * contrib/hbbmcdx/hbbmcdx.h
diff --git a/harbour/source/vm/macro.c b/harbour/source/vm/macro.c
index b516a0ce8c..de951b58de 100644
--- a/harbour/source/vm/macro.c
+++ b/harbour/source/vm/macro.c
@@ -687,9 +687,10 @@ char * hb_macroTextSymbol( char *szString, ULONG ulLength, BOOL *pfNewString )
             szResult[ ulLen ] = '\0';
          }
       }
-      else if( szResult != szString )
+      else
       {
-         hb_xfree( szResult );
+         if( szResult != szString )
+            hb_xfree( szResult );
          szResult = NULL;
       }
    }