From: Petr P. <pa...@us...> - 2006-08-26 17:05:40
|
Update of /cvsroot/perl-xml/XML-LibXML-Common In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12709 Modified Files: Common.xs Log Message: - compilation warnings addressed (#8786) - "undeclared va_list" build problem on Solaris hopefully fixed (#6352) Index: Common.xs =================================================================== RCS file: /cvsroot/perl-xml/XML-LibXML-Common/Common.xs,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- Common.xs 30 May 2003 18:39:22 -0000 1.7 +++ Common.xs 26 Aug 2006 17:05:36 -0000 1.8 @@ -8,6 +8,7 @@ #include "XSUB.h" #include "ppport.h" +#include <stdarg.h> #include <libxml/parser.h> /* #include <libxml/tree.h> */ @@ -55,7 +56,7 @@ xmlBufferPtr in = NULL, out = NULL; xmlCharEncodingHandlerPtr coder = NULL; CODE: - realstring = SvPV(string, len); + realstring = (xmlChar *) SvPV(string, len); if ( realstring != NULL ) { /* warn("encode %s", realstring ); */ #ifdef HAVE_UTF8 @@ -97,7 +98,7 @@ in = xmlBufferCreate(); out = xmlBufferCreate(); - xmlBufferCCat( in, realstring ); + xmlBufferCCat( in, (char *) realstring ); if ( xmlCharEncInFunc( coder, out, in ) >= 0 ) { tstr = xmlStrdup( out->content ); } @@ -152,7 +153,7 @@ } else { #endif - realstring = SvPV(string, len); + realstring = (xmlChar *) SvPV(string, len); if ( realstring != NULL ) { /* warn("decode %s", realstring ); */ enc = xmlParseCharEncoding( encoding ); @@ -190,10 +191,10 @@ in = xmlBufferCreate(); out = xmlBufferCreate(); - xmlBufferCCat( in, realstring ); + xmlBufferCCat( in, (char *) realstring ); if ( xmlCharEncOutFunc( coder, out, in ) >= 0 ) { len = xmlBufferLength( out ); - tstr = xmlCharStrndup( xmlBufferContent( out ), len ); + tstr = xmlCharStrndup( (char *) xmlBufferContent( out ), len ); } xmlBufferFree( in ); |