diff options
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/DB_File/DB_File.xs | 8 | ||||
| -rw-r--r-- | ext/Opcode/Opcode.xs | 12 |
2 files changed, 10 insertions, 10 deletions
diff --git a/ext/DB_File/DB_File.xs b/ext/DB_File/DB_File.xs index 092958eb19..796c5c669c 100644 --- a/ext/DB_File/DB_File.xs +++ b/ext/DB_File/DB_File.xs @@ -161,7 +161,7 @@ const DBT * key2 ; SPAGAIN ; if (count != 1) - croak ("DB_File btree_compare: expected 1 return value from %s, got %d\n", count) ; + croak ("DB_File btree_compare: expected 1 return value from compare sub, got %d\n", count) ; retval = POPi ; @@ -208,7 +208,7 @@ const DBT * key2 ; SPAGAIN ; if (count != 1) - croak ("DB_File btree_prefix: expected 1 return value from %s, got %d\n", count) ; + croak ("DB_File btree_prefix: expected 1 return value from prefix sub, got %d\n", count) ; retval = POPi ; @@ -245,7 +245,7 @@ size_t size ; SPAGAIN ; if (count != 1) - croak ("DB_File hash_cb: expected 1 return value from %s, got %d\n", count) ; + croak ("DB_File hash_cb: expected 1 return value from hash sub, got %d\n", count) ; retval = POPi ; @@ -339,7 +339,7 @@ I32 value ; /* check for attempt to write before start of array */ if (length + value + 1 <= 0) - croak("Modification of non-creatable array value attempted, subscript %d", value) ; + croak("Modification of non-creatable array value attempted, subscript %ld", (long)value) ; value = length + value + 1 ; } diff --git a/ext/Opcode/Opcode.xs b/ext/Opcode/Opcode.xs index 1fd2c6b891..5a95238979 100644 --- a/ext/Opcode/Opcode.xs +++ b/ext/Opcode/Opcode.xs @@ -156,7 +156,7 @@ set_opset_bits(bitmap, bitspec, on, opname) if (myopcode >= maxo || myopcode < 0) croak("panic: opcode \"%s\" value %d is invalid", opname, myopcode); if (opcode_debug >= 2) - warn("set_opset_bits bit %2d (off=%d, bit=%d) %s on\n", + warn("set_opset_bits bit %2d (off=%d, bit=%d) %s %s\n", myopcode, offset, bit, opname, (on)?"on":"off"); if (on) bitmap[offset] |= 1 << bit; @@ -175,8 +175,8 @@ set_opset_bits(bitmap, bitspec, on, opname) while(len-- > 0) bitmap[len] &= ~specbits[len]; } else - croak("panic: invalid bitspec for \"%s\" (type %d)", - opname, SvTYPE(bitspec)); + croak("panic: invalid bitspec for \"%s\" (type %u)", + opname, (unsigned)SvTYPE(bitspec)); } @@ -235,7 +235,7 @@ BOOT: assert(maxo < OP_MASK_BUF_SIZE); opset_len = (maxo + 7) / 8; if (opcode_debug >= 1) - warn("opset_len %d\n", opset_len); + warn("opset_len %ld\n", (long)opset_len); op_names_init(); @@ -413,8 +413,8 @@ opdesc(...) } } else - croak("panic: invalid bitspec for \"%s\" (type %d)", - opname, SvTYPE(bitspec)); + croak("panic: invalid bitspec for \"%s\" (type %u)", + opname, (unsigned)SvTYPE(bitspec)); } |