Author: hmbrand
Date: Thu Oct 7 23:32:05 2010
New Revision: 14466
Modified:
dbi/trunk/DBI.xs
Log:
use correct printf formats
I find this worrying:
DBI.xs: In function ‘dbi_profile’:
DBI.xs:2678:13: warning: format ‘%f’ expects type ‘double’, but argument 3 has
type ‘NV’
DBI.xs: In function ‘XS_DBI_trace’:
DBI.xs:4443:13: warning: format ‘%p’ expects type ‘void *’, but argument 8 has
type ‘int’
Modified: dbi/trunk/DBI.xs
==============================================================================
--- dbi/trunk/DBI.xs (original)
+++ dbi/trunk/DBI.xs Thu Oct 7 23:32:05 2010
@@ -2674,7 +2674,7 @@
statement_pv = SvPV_nolen(statement_sv);
if (DBIc_DBISTATE(imp_xxh)->debug >= 4)
- PerlIO_printf(DBIc_LOGPIO(imp_xxh), " dbi_profile +%fs %s %s\n",
+ PerlIO_printf(DBIc_LOGPIO(imp_xxh), " dbi_profile +%" NVff "s %s
%s\n",
ti, method_pv, neatsvpv(statement_sv,0));
dest_node = _profile_next_node(profile, "Data");
@@ -4429,7 +4429,7 @@
set_trace_file(file);
if (level != RETVAL) {
if ((level & DBIc_TRACE_LEVEL_MASK) > 0) {
- PerlIO_printf(DBILOGFP," DBI %s%s default trace level set to
0x%lx/%ld (pid %d pi %p) at %s\n",
+ PerlIO_printf(DBILOGFP," DBI %s%s default trace level set to
0x%lx/%ld (pid %d pi %u) at %s\n",
XS_VERSION, dbi_build_opt,
(long)(level & DBIc_TRACE_FLAGS_MASK),
(long)(level & DBIc_TRACE_LEVEL_MASK),
