[Oorexx-svn] SF.net SVN: oorexx-code-0:[9804] main/branches/4.2.0/trunk/interpreter/ instructions/ParseTrigger.cpp

[<bi...@us...>]

Revision: 9804
          http://sourceforge.net/p/oorexx/code-0/9804
Author:   bigrixx
Date:     2014-01-05 23:41:42 +0000 (Sun, 05 Jan 2014)
Log Message:
-----------
[#1237] Rexx crashes

Modified Paths:
--------------
    main/branches/4.2.0/trunk/interpreter/instructions/ParseTrigger.cpp

Modified: main/branches/4.2.0/trunk/interpreter/instructions/ParseTrigger.cpp
===================================================================
--- main/branches/4.2.0/trunk/interpreter/instructions/ParseTrigger.cpp	2014-01-04 23:39:50 UTC (rev 9803)
+++ main/branches/4.2.0/trunk/interpreter/instructions/ParseTrigger.cpp	2014-01-05 23:41:42 UTC (rev 9804)
@@ -180,11 +180,13 @@
             {
                 _value = target->getWord();    /* just get the next word            */
             }
+            ProtectedObject p(_value);   // needs protecting if the assignment is a compound var.
             variable = this->variables[i];   /* get the next variable retriever   */
             if (variable != OREF_NULL)
             {     /* not a place holder dummy?         */
                   /* set the value                     */
                 // NOTE:  The different variable tpes handle their own assignment tracing
+
                 variable->assign(context, stack, _value);
                 // if only tracing results and not intermediates, then we need to
                 // trace this value explicitly.
@@ -216,6 +218,7 @@
                 {
                     _value = target->getWord();   /* just get the next word            */
                 }
+                ProtectedObject p(_value);   // needs protecting if the assignment is a compound var.
                 /* set the value                     */
                 variable->assign(context, stack, _value);
             }