os2/Changes
Ilya Zakharevich [Wed, 26 Jun 2002 11:54:06 +0000 (07:54 -0400)]
Message-ID: <20020626115406.A6091@math.ohio-state.edu>

p4raw-id: //depot/perl@17361

os2/Changes
os2/os2.c

index c40ba8b..2b3a77d 100644 (file)
@@ -335,7 +335,7 @@ pre 5.6.1:
        A complete example of a mini-application added to OS2::REXX.
        README.os2 updated to reflect the current state of Perl.
 
-pre 5.6.2:
+pre 5.7.2:
        aout build: kid bootstrap_* were not associated with XS.
        bldlevel did not contain enough info.
        extLibpath* was failing on the call of the second type.
@@ -371,3 +371,127 @@ pre 5.6.2:
            window hierarchy inspection
            post a message to a window
        More robust getpriority() on older Warps.
+
+       New C APIs for runtime loading of entry points from DLLs
+       (useful for entry points not present on older versions of
+       OS/2, or with DLLs not present on floppy-boot stripped down
+       setups): CallORD(), DeclFuncByORD(), DeclVoidFuncByORD(),
+       DeclOSFuncByORD(), DeclWinFuncByORD(), AssignFuncPByORD().
+
+pre 5.7.3:
+       Testing with PERL_TEST_NOVREXX=1 in environment makes tests
+       noninteractive (VREXX test requires pressing a button on a dialog).
+
+       New (ugly and voodooish) hack to work around a bug in EMX
+       runtime architecture:
+
+         EMX.DLL is *not* initialized from its _DLL_InitTerm()
+         routine, but the initialization is postponed until
+         immediately before main() is called by the principal
+         executable (may be the initialization also happens during
+         InitTerm of -Zso -Zsys DLLs?).  The only reason I can see is
+         to postpone the initialization until the "layout" structure
+         is available, so the type of the executable is known.
+         [Instead, one should have broken the initialization into two
+         steps, with no-layout-known initialization ASAP, and the
+         finishing touch done when "layout" is known.]
+
+         It is due to this hack that -Zsys, -Zso etc. are needed so
+         often.
+
+         If during initialization of the Perl runtime environment we
+         discover that EMX environment is not set up completely, this
+         can be because of either our DLL being called from an
+         uncompatible flavor of EMX executable, or from an
+         unrelated-to-EMX.DLL (e.g., -Zsys or compiled with a
+         different compiler) executable.  In the first case only the
+         CRTL is not completely initialized, in the other case
+         EMX.DLL may be not initialized too.
+
+         We detect which of these two situations takes place, then
+         explicitly call the initialization entry points of EMX.DLL
+         and of CRT.  The large caveat is that the init-entry point
+         of EMX.DLL also moves the stack pointer (another defect of
+         EMX architecture, the init() and
+         set_exception_handlers_on_stack() entry points should have
+         been separated).  Thus we need some inline-assembler to
+         compensate for this, and need to remove the installed
+         exception handler - it is useless anyway, since exception
+         handlers need to be on the stack.  [This one is on the
+         stack, but will be overwritten on exit from the function.]
+
+         We also install an extra hack to run our atexit() handlers
+         on termination of the process (since the principal
+         executable does not know about *this* CRTL, we need to do it
+         ourselves - and longjmp() out of the chain of exception
+         handlers at a proper moment :-().
+
+       The net result: Perl DLL can be now used with an arbitrary
+       application.  PERLREXX DLL is provided which makes Perl usable
+       from any REXX-enabled application.
+
+       New test targets added to test how well Perl DLL runs with
+       different flavors of executables (see all_harness etc).  To
+       avoid waiting for the user button press, run with env
+       PERL_TEST_NOVREXX=1.
+
+       Another hack: on init of Perl runtime environment, the
+       executable is tested for being an aout EMX executable.  The
+       test is the same done by gdb, so although this test is very
+       voodoo, it should be pretty robust (the beginning of the
+       executable code - at 0x10000 - is tested for a known bit
+       pattern).  The result is used to set $OS2::can_fork, which is
+       eventually used to set $Config::Config{can_fork}.
+
+       REXX::eval_REXX() made reenterable.  ADDRESS PERLEVAL
+       available for the run REXX code.  PERLLASTERROR available.
+
+       A .map file is created for the .dll.  Now easier to debug the
+       failures which do not happen with a debugging executable.
+
+       Duplicate libperl.lib as perl.lib etc. to make Embed happier.
+
+       File::Spec better adjusted to OS/2 (still does not support aa:/dir/).
+
+       New module OS::Process::Const with necessary constants for the
+       Perl calls which mimic OS/2 API calls.
+
+After @14577:
+       $Config{pager} better (but needs work in the binary installer!).
+
+       New API: OS2::dll_name([type], [\&sub])
+
+       New OS2::Process APIs:
+
+                process_hwnd winTitle_set winTitle swTitle_set bothTitle_set
+                 hWindowPos hWindowPos_set DesktopWindow
+                 ActiveWindow_set
+                 EnableWindow EnableWindowUpdate IsWindowEnabled
+                 IsWindowVisible IsWindowShowing WindowPtr WindowULong
+                 WindowUShort SetWindowBits SetWindowPtr
+                 SetWindowULong
+                 SetWindowUShort MPFROMSHORT MPVOID MPFROMCHAR
+                 MPFROM2SHORT
+                 MPFROMSH2CH MPFROMLONG
+
+       OS::Process::Const symbols exportable from OS::Process too.
+
+       OS::Process: prototypes on subroutines which do not naturally
+       take "vectors" as arguments (not backwards compatible!).
+
+       New C API: SaveCroakWinError(), WinError_2_Perl_rc,
+       DeclWinFuncByORD_CACHE(), DeclWinFuncByORD_CACHE_survive(),
+       DeclWinFuncByORD_CACHE_resetError_survive(),
+       DeclWinFunc_CACHE(), DeclWinFunc_CACHE_resetError(),
+       DeclWinFunc_CACHE_survive(),
+       DeclWinFunc_CACHE_resetError_survive(); many new OS2 entry
+       points conveniently available via wrappers which will do the
+       necessary run-time dynalinking.
+
+After @15047:
+
+       makes PerlIO preserve the binary/text mode of filehandles
+       chosen by CRT library.  (However, TTY handles still are not
+       clean, since switching them to TERMIO mode and back changes
+       the NL translation law at runtime, and PerlIO level does not
+       know this.)
index 9b1f348..fcf1bfd 100644 (file)
--- a/os2/os2.c
+++ b/os2/os2.c
@@ -2468,8 +2468,8 @@ static ULONG
 my_os_version() {
     static ULONG res;                  /* Cannot be on stack! */
 
-    /* Can't just call emx_init(), since it moves the stack pointer */
-    /* It also busts a lot of registers, so be extra careful */
+    /* Can't just call __os_version(), since it does not follow C
+       calling convention: it busts a lot of registers, so be extra careful */
     __asm__(   "pushf\n"
                "pusha\n"
                "call ___os_version\n"