From 9b31274eb58f0809bc82744bbeacd88314969060 Mon Sep 17 00:00:00 2001
From: Przemyslaw Czerpak <druzus@priv.onet.pl>
Date: Thu, 23 Apr 2009 08:18:59 +0000
Subject: [PATCH] 2009-04-23 10:26 UTC+0200 Przemyslaw Czerpak
 (druzus/at/priv.onet.pl)   * harbour/include/hbexprb.c     + added support
 for indirect (by macro or some other expression)       assign of object items

---
 harbour/ChangeLog         | 5 +++++
 harbour/include/hbexprb.c | 7 ++++++-
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 954bdf6c0a..6a41a3eac4 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,11 @@
    2009-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
 */
 
+2009-04-23 10:26 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+  * harbour/include/hbexprb.c
+    + added support for indirect (by macro or some other expression)
+      assign of object items
+
 2009-04-23 00:44 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
   * harbour/contrib/gtqtc/gtqtc.cpp
   * harbour/contrib/gtqtc/gtqtc.h
diff --git a/harbour/include/hbexprb.c b/harbour/include/hbexprb.c
index 18fb3b39a7..20ab690546 100644
--- a/harbour/include/hbexprb.c
+++ b/harbour/include/hbexprb.c
@@ -2520,9 +2520,14 @@ static HB_EXPR_FUNC( hb_compExprUseSend )
       case HB_EA_POP_PCODE:
          hb_compExprPushSendPop( pSelf, HB_COMP_PARAM );
          if( pSelf->value.asMessage.pParms )
+         {
             HB_EXPR_USE( pSelf->value.asMessage.pParms, HB_EA_PUSH_PCODE );
+         }
          else
-            HB_COMP_ERROR_SYNTAX( pSelf );
+         {
+            HB_GEN_FUNC2( PCode2, HB_P_SWAP, 1 );
+            HB_GEN_FUNC2( PCode2, HB_P_SWAP, 1 );
+         }
          HB_GEN_FUNC2( PCode2, HB_P_SENDSHORT, 1 );
          break;