[Oorexx-svn] SF.net SVN: oorexx:[4929] main/branches/4.0beta/trunk/interpreter/platform/ windows

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

Revision: 4929
          http://oorexx.svn.sourceforge.net/oorexx/?rev=4929&view=rev
Author:   miesfeld
Date:     2009-07-16 16:41:48 +0000 (Thu, 16 Jul 2009)

Log Message:
-----------
[2822029] Old program can't load new ooRexx
LPEX calls the RexxSetProcessMessages() function which was present, but
not documented.  A do nothing stub for the function is added for backward
binary compatibility.

Modified Paths:
--------------
    main/branches/4.0beta/trunk/interpreter/platform/windows/MiscSystem.cpp
    main/branches/4.0beta/trunk/interpreter/platform/windows/wrexx.def

Modified: main/branches/4.0beta/trunk/interpreter/platform/windows/MiscSystem.cpp
===================================================================
--- main/branches/4.0beta/trunk/interpreter/platform/windows/MiscSystem.cpp	2009-07-16 13:23:15 UTC (rev 4928)
+++ main/branches/4.0beta/trunk/interpreter/platform/windows/MiscSystem.cpp	2009-07-16 16:41:48 UTC (rev 4929)
@@ -197,3 +197,15 @@
     }
 }
 
+
+/**
+ * This was an undocumented API prior to 4.0, but is known to have been used by
+ * some IBM applications. This is maintained solely for binary compatibility.
+ *
+ * @return TRUE always.
+ */
+BOOL APIENTRY RexxSetProcessMessages(BOOL onoff)
+{
+   return TRUE;
+}
+

Modified: main/branches/4.0beta/trunk/interpreter/platform/windows/wrexx.def
===================================================================
--- main/branches/4.0beta/trunk/interpreter/platform/windows/wrexx.def	2009-07-16 13:23:15 UTC (rev 4928)
+++ main/branches/4.0beta/trunk/interpreter/platform/windows/wrexx.def	2009-07-16 16:41:48 UTC (rev 4929)
@@ -59,6 +59,7 @@
 
 RexxWaitForTermination        @108
 RexxDidRexxTerminate          @109
+RexxSetProcessMessages        @110  ; not documented, but used by some IBM apps prior to 4.0
 RexxGetVersionInformation     @114
 RexxStemSort                  @124
 RexxCreateInterpreter         @125


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