[Oorexx-svn] SF.net SVN: oorexx: [118] interpreter/trunk/kernel/classes/ObjectClass.cpp

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

Revision: 118
          http://svn.sourceforge.net/oorexx/?rev=118&view=rev
Author:   bigrixx
Date:     2007-02-15 13:46:58 -0800 (Thu, 15 Feb 2007)

Log Message:
-----------
[ 1660942 ] running method causes rexx crash

Modified Paths:
--------------
    interpreter/trunk/kernel/classes/ObjectClass.cpp

Modified: interpreter/trunk/kernel/classes/ObjectClass.cpp
===================================================================
--- interpreter/trunk/kernel/classes/ObjectClass.cpp	2007-02-14 18:48:23 UTC (rev 117)
+++ interpreter/trunk/kernel/classes/ObjectClass.cpp	2007-02-15 21:46:58 UTC (rev 118)
@@ -1507,6 +1507,9 @@
                                        /* ensure correct scope on method    */
     methobj = methobj->newScope((RexxClass *)TheNilObject);
 
+  ProtectedObject p1(methobj);
+  ProtectedObject p2;
+
   if (argCount > 1) {                  /* if any arguments passed           */
                                        /* get the 1st one, its the option   */
     option = (RexxString *)arguments[1];
@@ -1526,6 +1529,8 @@
         arglist = (RexxArray *)arguments[2];
                                        /* force to array form               */
         arglist = arglist->requestArray();
+
+        p2 = arglist;   // protect this
                                        /* not an array?                     */
         if (arglist == TheNilObject || arglist->getDimension() != 1)
                                        /* raise an error                    */
@@ -1538,7 +1543,7 @@
       case 'I':                        /* args are "strung out"             */
         /* point to the array data for the second value */
         argumentPtr = arguments + 2;
-        argcount = argcount - 2;
+        argcount = argCount - 2;
         break;
 
       default:


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