From 9014280dc8264580f076d4325a59f22a11592058 Mon Sep 17 00:00:00 2001 From: Paul Marquess Date: Sun, 10 Mar 2002 21:01:39 +0000 Subject: more warnings tidyup From: "Paul Marquess" Message-ID: p4raw-id: //depot/perl@15155 --- doop.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'doop.c') diff --git a/doop.c b/doop.c index 7a8f883d78..e2faa87426 100644 --- a/doop.c +++ b/doop.c @@ -754,7 +754,7 @@ Perl_do_vecget(pTHX_ SV *sv, I32 offset, I32 size) #ifdef UV_IS_QUAD else if (size == 64) { if (ckWARN(WARN_PORTABLE)) - Perl_warner(aTHX_ WARN_PORTABLE, + Perl_warner(aTHX_ packWARN(WARN_PORTABLE), "Bit vector size > 32 non-portable"); if (offset >= srclen) retnum = 0; @@ -823,7 +823,7 @@ Perl_do_vecget(pTHX_ SV *sv, I32 offset, I32 size) #ifdef UV_IS_QUAD else if (size == 64) { if (ckWARN(WARN_PORTABLE)) - Perl_warner(aTHX_ WARN_PORTABLE, + Perl_warner(aTHX_ packWARN(WARN_PORTABLE), "Bit vector size > 32 non-portable"); retnum = ((UV) s[offset ] << 56) + @@ -910,7 +910,7 @@ Perl_do_vecset(pTHX_ SV *sv) #ifdef UV_IS_QUAD else if (size == 64) { if (ckWARN(WARN_PORTABLE)) - Perl_warner(aTHX_ WARN_PORTABLE, + Perl_warner(aTHX_ packWARN(WARN_PORTABLE), "Bit vector size > 32 non-portable"); s[offset ] = (lval >> 56) & 0xff; s[offset+1] = (lval >> 48) & 0xff; -- cgit v1.2.1