From: Ilya Zakharevich Date: Wed, 26 Jun 2002 11:54:06 +0000 (-0400) Subject: os2/Changes X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c4e0013e5d57314c227d8a847d01c4435bd8ad14;p=p5sagit%2Fp5-mst-13.2.git os2/Changes Message-ID: <20020626115406.A6091@math.ohio-state.edu> p4raw-id: //depot/perl@17361 --- diff --git a/os2/Changes b/os2/Changes index c40ba8b..2b3a77d 100644 --- a/os2/Changes +++ b/os2/Changes @@ -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.) diff --git a/os2/os2.c b/os2/os2.c index 9b1f348..fcf1bfd 100644 --- 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"