From: William Middleton <wmiddlet@adobe.com>
Date: Thu, 4 Sep 1997 12:00:00 +0000 (+1200)
Subject: [OK] Perl5.004_02 on Alpha NT
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3dc9191ef901d5f8cc94e2b8b5b7ed25fdf80046;p=p5sagit%2Fp5-mst-13.2.git

[OK] Perl5.004_02 on Alpha NT

After applying the patch below, perl5.004_02 builds and passes
all tests 100% on Alpha NT with MSVC 4.2.

The patch simply wraps around the initialization code in
win32.c which calls _control87().

If desired, I can build a binary dist for Alpha NT based on
Sarathy's packlist for his.

Bill


p5p-msgid: 199708072100.OAA13141@ducks
---

diff --git a/win32/win32.c b/win32/win32.c
index 3d6048a..7a4c285 100644
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -1625,5 +1625,7 @@ Perl_win32_init(int *argcp, char ***argvp)
      * want to be at the vendor's whim on the default, we set
      * it explicitly here.
      */
+#if !defined(_ALPHA_)
     _control87(MCW_EM, MCW_EM);
+#endif
 }