diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-07-14 10:59:12 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-07-14 10:59:12 +0000 |
| commit | c60d5571b477c5e30d135bb2704d752cb04465a3 (patch) | |
| tree | 77cd407c784392dcf24f0d2eeca2207c41c99ec6 /toke.c | |
| parent | 3ae08724085c050ef6bd2c7af042aa714c2ad9d9 (diff) | |
| download | perl-c60d5571b477c5e30d135bb2704d752cb04465a3.tar.gz | |
typecasts needed for change#6394
p4raw-link: @6394 on //depot/cfgperl: 78ae23f54fc4e301b66d2a32897cb42fa2633fe7
p4raw-id: //depot/perl@6401
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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"); |