[Oorexx-svn] SF.net SVN: oorexx: [1101] interpreter-3.x/trunk/kernel/instructions/ ParseTrigger.cpp

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

Revision: 1101
          http://oorexx.svn.sourceforge.net/oorexx/?rev=1101&view=rev
Author:   bigrixx
Date:     2007-10-26 14:42:27 -0700 (Fri, 26 Oct 2007)

Log Message:
-----------
Fix exception in ParseTrigger when running unit tests. 

Modified Paths:
--------------
    interpreter-3.x/trunk/kernel/instructions/ParseTrigger.cpp

Modified: interpreter-3.x/trunk/kernel/instructions/ParseTrigger.cpp
===================================================================
--- interpreter-3.x/trunk/kernel/instructions/ParseTrigger.cpp	2007-10-26 09:34:47 UTC (rev 1100)
+++ interpreter-3.x/trunk/kernel/instructions/ParseTrigger.cpp	2007-10-26 21:42:27 UTC (rev 1101)
@@ -166,18 +166,18 @@
                                        /* loop through the entire list      */
     for (i = 0, size = this->variableCount; i < size; i++) {
       if (i + 1 == size)               /* last variable?                    */
-        value = target->remainder();   /* extract the remainder             */
+        _value = target->remainder();  /* extract the remainder             */
       else
-        value = target->getWord();     /* just get the next word            */
+        _value = target->getWord();    /* just get the next word            */
       variable = this->variables[i];   /* get the next variable retriever   */
       if (variable != OREF_NULL) {     /* not a place holder dummy?         */
                                        /* set the value                     */
-        variable->assign(context, stack, value);
-        context->traceResult(value);   /* trace if necessary                */
+        variable->assign(context, stack, _value);
+        context->traceResult(_value);   /* trace if necessary                */
       }
       else                             /* dummy variable, just trace it     */
                                        /* trace if necessary                */
-        context->traceIntermediate(value, TRACE_PREFIX_DUMMY);
+        context->traceIntermediate(_value, TRACE_PREFIX_DUMMY);
     }
   }
   else {                               /* not tracing, can optimize         */
@@ -186,11 +186,11 @@
       variable = this->variables[i];   /* get the next variable retriever   */
       if (variable != OREF_NULL) {     /* not a place holder dummy?         */
         if (i + 1 == size)             /* last variable?                    */
-          value = target->remainder(); /* extract the remainder             */
+          _value = target->remainder(); /* extract the remainder             */
         else
-          value = target->getWord();   /* just get the next word            */
+          _value = target->getWord();   /* just get the next word            */
                                        /* set the value                     */
-        variable->assign(context, stack, value);
+        variable->assign(context, stack, _value);
       }
       else {                           /* dummy variable, just skip it      */
         if (i + 1 == size)              /* last variable?                    */


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.