From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 14 Jul 2000 10:59:12 +0000 (+0000)
Subject: typecasts needed for change#6394
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c60d5571b477c5e30d135bb2704d752cb04465a3;p=p5sagit%2Fp5-mst-13.2.git

typecasts needed for change#6394

p4raw-link: @6394 on //depot/cfgperl: 78ae23f54fc4e301b66d2a32897cb42fa2633fe7

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

diff --git a/toke.c b/toke.c
index 672acb7..199400e 100644
--- a/toke.c
+++ b/toke.c
@@ -7423,8 +7423,8 @@ S_swallow_bom(pTHX_ U8 *s)
 #ifndef PERL_NO_UTF16_FILTER
 	    s += 2;
 	    filter_add(S_utf16rev_textfilter, NULL);
-	    New(898, news, (PL_bufend - s) * 3 / 2 + 1, U8);
-	    PL_bufend = utf16_to_utf8((U16*)s, news, PL_bufend - s);
+	    New(898, news, (PL_bufend - (char*)s) * 3 / 2 + 1, U8);
+	    PL_bufend = utf16_to_utf8((U16*)s, news, PL_bufend - (char*)s);
 	    s = news;
 #else
 	    Perl_croak(aTHX_ "Unsupported script encoding");
@@ -7436,8 +7436,8 @@ S_swallow_bom(pTHX_ U8 *s)
 #ifndef PERL_NO_UTF16_FILTER
 	    U8 *news;
 	    filter_add(S_utf16_textfilter, NULL);
-	    New(898, news, (PL_bufend - s) * 3 / 2 + 1, U8);
-	    PL_bufend = utf16_to_utf8((U16*)s, news, PL_bufend - s);
+	    New(898, news, (PL_bufend - (char*)s) * 3 / 2 + 1, U8);
+	    PL_bufend = utf16_to_utf8((U16*)s, news, PL_bufend - (char*)s);
 	    s = news;
 #else
 	    Perl_croak(aTHX_ "Unsupported script encoding");