[Oorexx-svn] SF.net SVN: oorexx:[5696] incubator/hostemu/platform/windows/hostemu.cpp

[<jfa...@us...>]

Revision: 5696
          http://oorexx.svn.sourceforge.net/oorexx/?rev=5696&view=rev
Author:   jfaucher
Date:     2010-03-13 20:42:21 +0000 (Sat, 13 Mar 2010)

Log Message:
-----------
Under Windows, ooRexx in release mode crashes when leaving LibraryLoaderDispatcher::run because the call stack is not properly cleaned by hostemu_loader.

Modified Paths:
--------------
    incubator/hostemu/platform/windows/hostemu.cpp

Modified: incubator/hostemu/platform/windows/hostemu.cpp
===================================================================
--- incubator/hostemu/platform/windows/hostemu.cpp	2010-03-13 20:14:05 UTC (rev 5695)
+++ incubator/hostemu/platform/windows/hostemu.cpp	2010-03-13 20:42:21 UTC (rev 5696)
@@ -866,7 +866,7 @@
    }
 
 
-static void hostemu_loader(RexxThreadContext *context) {
+static void RexxEntry hostemu_loader(RexxThreadContext *context) {
    RexxReturnCode rc;
 
    rc = RexxRegisterSubcomExe("HostEmu", (REXXPFN)GrxHost, NULL);
@@ -879,7 +879,7 @@
    }
 
 
-static void hostemu_unloader(RexxThreadContext *context) {
+static void RexxEntry hostemu_unloader(RexxThreadContext *context) {
    PLL pll;
 
    /* close all our open files */
@@ -896,8 +896,8 @@
     REXX_INTERPRETER_4_0_0,              // anything after 4.0.0 will work
     "HostEmu",                           // name of the package
     "1.0.0",                             // package information
-    (RexxPackageLoader)hostemu_loader,   // load function
-    (RexxPackageUnloader)hostemu_unloader, // unload function
+    hostemu_loader,                      // load function
+    hostemu_unloader,                    // unload function
     NULL,                                // the exported routines
     NULL                                 // the exported methods
     };


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