[prev in list] [next in list] [prev in thread] [next in thread]
List: perl5-porters
Subject: [PATCH] quiet some perlio.c warnings
From: andy () petdance ! com (Andy Lester)
Date: 2006-04-30 18:23:22
Message-ID: 20060430182322.GA18064 () petdance ! com
[Download RAW message or body]
Some casts shut up some warnings.
--
Andy Lester => andy@petdance.com => www.petdance.com => AIM:petdance
["perlio.patch" (text/plain)]
Index: perlio.c
===================================================================
--- perlio.c (revision 605)
+++ perlio.c (working copy)
@@ -649,7 +649,7 @@
PL_known_layers = PerlIO_clone_list(aTHX_ proto->Iknown_layers, param);
PL_def_layerlist = PerlIO_clone_list(aTHX_ proto->Idef_layerlist, param);
PerlIO_allocate(aTHX); /* root slot is never used */
- PerlIO_debug("Clone %p from %p\n",aTHX,proto);
+ PerlIO_debug("Clone %p from %p\n",(void*)aTHX,(void*)proto);
while ((f = *table)) {
int i;
table = (PerlIO **) (f++);
@@ -661,6 +661,7 @@
}
}
#else
+ PERL_UNUSED_CONTEXT
PERL_UNUSED_ARG(proto);
PERL_UNUSED_ARG(param);
#endif
@@ -673,7 +674,7 @@
PerlIO **table = &PL_perlio;
PerlIO *f;
#ifdef USE_ITHREADS
- PerlIO_debug("Destruct %p\n",aTHX);
+ PerlIO_debug("Destruct %p\n",(void*)aTHX);
#endif
while ((f = *table)) {
int i;
@@ -2372,7 +2373,7 @@
dVAR;
int i;
#ifdef USE_ITHREADS
- PerlIO_debug("Cleanup layers for %p\n",aTHX);
+ PerlIO_debug("Cleanup layers for %p\n",(void*)aTHX);
#else
PerlIO_debug("Cleanup layers\n");
#endif
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic