From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 22 Apr 2007 22:57:54 +0000 (+0000)
Subject: Fix problems caused by downsizing in change 31017. (Which don't show
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=222206208128104dd9837dda856fd43c0f121508;p=p5sagit%2Fp5-mst-13.2.git

Fix problems caused by downsizing in change 31017. (Which don't show
up until you test on a "real" architecture)

p4raw-id: //depot/perl@31023
---

diff --git a/pp_ctl.c b/pp_ctl.c
index 861e8a5..0538d6f 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2908,7 +2908,7 @@ S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq)
     SAVESPTR(PL_unitcheckav);
     PL_unitcheckav = newAV();
     SAVEFREESV(PL_unitcheckav);
-    SAVEI32(PL_error_count);
+    SAVEI8(PL_error_count);
 
 #ifdef PERL_MAD
     SAVEBOOL(PL_madskills);
diff --git a/utf8.c b/utf8.c
index b43c74b..5d381bc 100644
--- a/utf8.c
+++ b/utf8.c
@@ -1596,7 +1596,7 @@ Perl_swash_init(pTHX_ const char* pkg, const char* name, SV *listsv, I32 minbits
     PUTBACK;
     if (IN_PERL_COMPILETIME) {
 	/* XXX ought to be handled by lex_start */
-	SAVEI32(PL_in_my);
+	SAVEI16(PL_in_my);
 	PL_in_my = 0;
 	sv_setpv(tokenbufsv, PL_tokenbuf);
     }