[Oorexx-svn] SF.net SVN: oorexx:[2805] main/trunk/kernel/api/MethodContextStubs.cpp

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

Revision: 2805
          http://oorexx.svn.sourceforge.net/oorexx/?rev=2805&view=rev
Author:   bigrixx
Date:     2008-07-31 14:59:49 +0000 (Thu, 31 Jul 2008)

Log Message:
-----------
Uppercase method name for SendSuperMessage

Modified Paths:
--------------
    main/trunk/kernel/api/MethodContextStubs.cpp

Modified: main/trunk/kernel/api/MethodContextStubs.cpp
===================================================================
--- main/trunk/kernel/api/MethodContextStubs.cpp	2008-07-31 12:40:27 UTC (rev 2804)
+++ main/trunk/kernel/api/MethodContextStubs.cpp	2008-07-31 14:59:49 UTC (rev 2805)
@@ -164,6 +164,7 @@
     }
 }
 
+
 RexxObjectPtr RexxEntry SendSuperMessage(RexxMethodContext *c, CSTRING n, RexxArrayObject a)
 {
     ApiContext context(c);
@@ -171,7 +172,7 @@
     {
         RexxObject *self = context.context->getSelf();
         RexxObject *super = context.context->getSuper();
-        RexxString *message = new_string(n);
+        RexxString *message = new_upper_string(n);
         RexxArray *args = (RexxArray *)a;
         ProtectedObject result;
         self->messageSend(message, args->data(), args->size(), super, result);
@@ -190,7 +191,7 @@
     {
         RexxObject *self = context.context->getSelf();
         RexxObject *super = (RexxObject *)clazz;
-        RexxString *message = new_string(n);
+        RexxString *message = new_upper_string(n);
         RexxArray *args = (RexxArray *)a;
         ProtectedObject result;
         self->messageSend(message, args->data(), args->size(), super, result);


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