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

1 files changed, 1 insertions, 1 deletions

diff --git a/utf8.c b/utf8.c
index b43c74ba10..5d381bcb75 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);
     }