[Oorexx-svn] SF.net SVN: oorexx: [2595] sandbox/rick/opt/platform/windows/ole/orexxole.c

[<mie...@us...>]

Revision: 2595
          http://oorexx.svn.sourceforge.net/oorexx/?rev=2595&view=rev
Author:   miesfeld
Date:     2008-06-27 10:35:29 -0700 (Fri, 27 Jun 2008)

Log Message:
-----------
Fix up orexxole.c where my merge did not take into account the new APIs.

Modified Paths:
--------------
    sandbox/rick/opt/platform/windows/ole/orexxole.c

Modified: sandbox/rick/opt/platform/windows/ole/orexxole.c
===================================================================
--- sandbox/rick/opt/platform/windows/ole/orexxole.c	2008-06-27 17:11:30 UTC (rev 2594)
+++ sandbox/rick/opt/platform/windows/ole/orexxole.c	2008-06-27 17:35:29 UTC (rev 2595)
@@ -2808,10 +2808,10 @@
      *  uninit() will still run for the ooRexx object. The instance counter
      *  still needs to be reduced by 1 for this case.
      */
-    REXXOBJECT value = REXX_GETVAR("!IDISPATCH");
+    RexxObjectPtr value = context->GetObjectVariable("!IDISPATCH");
     if ( value != NULLOBJECT )
     {
-        pDispatch = (IDispatch *)pointer_value(value);
+        pDispatch = (IDispatch *)context->PointerValue((RexxPointerObject)value);
     }
     if ( pDispatch != NULL )
     {
@@ -2824,12 +2824,12 @@
          *  variable. It is important that the Release be called on that
          *  pointer, and only on that pointer.
          */
-        getClassInfo(&pClsInfo, &pTypeInfo);
+        getClassInfo(context, &pClsInfo, &pTypeInfo);
 
-        value = REXX_GETVAR("!TYPEINFO");
+        value = context->GetObjectVariable("!TYPEINFO");
         if ( value != NULLOBJECT )
         {
-            pTypeInfo = (ITypeInfo *)pointer_value(value);
+            pTypeInfo = (ITypeInfo *)context->PointerValue((RexxPointerObject)value);
             if (pTypeInfo != NULL)
             {
                 pTypeInfo->Release();


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